A tcl extension to simulate Single Event Effects (SEEs) SEUs and SETs in Modelsim Simulations