*Set Var eLoadIntSource=0
*#
*Set Cond Internal_Temp_Source_for_Surface *elems 
*#
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*If(ElemsType!=1)
LOAD *\
*If(strcmp(Cond(Power_Source_FUNCTION_DEFINITION),"NONE")!=0)
*Cond(Power_Source_FUNCTION_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Power_Source_FUNCTION_MAT) "Power_Source_")
FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*format "BODY GROUP %i ELEMENT %i VALUE %s %20.10f"
*groupID *ElemsNum *Cond(Dir) *Cond(Power_Source,Real)
*Set Var eLoadIntSource=Operation(eLoadIntSource+1)
*EndIf
*End elems
*EndIf

*If(ndime==3)
*Set Cond Internal_Temp_Source_for_Volume *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*If(ElemsType!=1)
LOAD *\
*If(strcmp(Cond(Power_Source_FUNCTION_DEFINITION),"NONE")!=0)
*Cond(Power_Source_FUNCTION_TYPE) *\
*Set Var oMujMat=tcl(TK_FindMaterialNumber *Cond(Power_Source_FUNCTION_MAT) "Power_Source_")
FUNCTION *Operation(25250000+oMujMat) *\
*Endif
*format "BODY GROUP %i ELEMENT %i VALUE %s %20.10f"
*groupID *ElemsNum *Cond(Dir) *Cond(Power_Source,Real)
*Set Var eLoadIntSource=Operation(eLoadIntSource+1)
*EndIf
*End elems
*EndIf
*EndIf
