*# 2D and 3D
*#If(ndime==3)
*Set Cond Initial_Gap_Load_for_Volume             *elems 
*#EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities - Begin block of initial Gap load
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*#//Load TEMPERATURE GROUP *groupID ELEMENT *ElemsNum VALUE 
LOAD INITIAL GAP group *groupID element *ElemsNum INIT_STEP_ID *Cond(INIT_STEP_ID,Int)
*EndIf
*End elems
*EndIf
