*# zacina blok pro 1D oblasti
*#
*Set Var nWeight1D=0
*Set Var groupID=0
*Set Var LastGroupID=-1
*Set Cond Weight_for_Reinf_Line *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*If(ElemsType==1)
*#
*# include ..\include.src.bas\CurrentElementGroupID.bas
*# Set Var CurrentType=1
*#
*# Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*If(ElemsMatProp(Embedded_Reinforcement,Int)==0)
*#
*If(strcmp(ElemsMatProp(Geometrical_Non-Linearity),"LINEAR")==0)
*Set Var CurrentType=Operation(ElemsNnode*1)
*Else
*Set Var CurrentType=Operation(ElemsNnode+AddingNonLinElemID)
*EndIf
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*#
*Else
*Set Var groupID=Operation(InitCablesID+Cond(Entity_number,Int))
*EndIf
*If(groupID!=lastGroupID)
*Format "LOAD BODY GROUP %i VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*Set Var LastGroupID=groupID
*Set Var nWeight1D=Operation(nWeight1D+1)
*EndIf
*#
*EndIf
*EndIf
*End elems
*EndIf
*#
*#
*# zacina blok pro 1D oblasti 1Dbeam
*#
*Set Var nWeight1D=0
*Set Var groupID=0
*Set Var LastGroupID=-1
*Set Cond Weight_for_1Dbeam_Line *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0)
*If(ElemsType==1)
*#
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*# Set Var CurrentType=1
*# Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*#
*#If(strcmp(ElemsMatProp(Geometrical_Non-Linearity),"LINEAR")==0)
*#Set Var CurrentType=Operation(ElemsNnode*1)
*#Else
*#Set Var CurrentType=Operation(ElemsNnode+AddingNonLinElemID)
*#EndIf
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*#
*If(groupID!=lastGroupID)
*Format "LOAD BODY GROUP %i VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*Set Var LastGroupID=groupID
*Set Var nWeight1D=Operation(nWeight1D+1)
*EndIf
*#
*EndIf
*EndIf
*End elems
*EndIf
*#
*#
*#
*#
*# zacina blok pro 2D oblasti
*#
*Set Var groupID=0
*Set Var nWeight2D=0
*Set Var LastGroupID=0
*Set Cond Weight_for_2DElem_Surface *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*If(ElemsType>1)
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*# If(groupID!=lastGroupID)
*#
*If(GenData(Use_Digicon,Int)==1)
*Format "LOAD BODY GROUP %i ELEMENT %i INSIDE_T_TDT_ONLY VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *ElemsNum *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*Else
*Format "LOAD BODY GROUP %i ELEMENT %i VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *ElemsNum *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*EndIf
*#
*Set Var lastGroupID=groupID
*Set Var nWeight2D=Operation(nWeight2D+1)
*# EndIf
*#
*EndIf
*EndIf
*End elems
*EndIf
*#
*#
*#
*#
*# zacina blok pro 3D oblasti
*Set Var groupID=0
*Set Var nWeight3D=0
*Set Var LastGroupID=0
*If(ndime==3)
*Set Cond Weight_for_Volume *elems 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0) 
*If(ElemsType>3)
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*Set Var groupID=Operation(ElemsMat*IncrMaterialID+CurrentType)
*# If(groupID!=lastGroupID)
*#
*If(GenData(Use_Digicon,Int)==1)
*Format "LOAD BODY GROUP %i ELEMENT %i INSIDE_T_TDT_ONLY VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *ElemsNum *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*Else
*Format "LOAD BODY GROUP %i ELEMENT %i VALUE %s %20.10f"
*#groupID *tcl(Abs_Dir *Cond(1)) *tcl(Signed_Val *Cond(1) *Cond(2,Real))
*groupID *ElemsNum *tcl(Abs_Dir *Cond(Direction_for_BODY_LOAD)) *tcl(Signed_Val *Cond(Direction_for_BODY_LOAD) *Cond(Body_Force_Value,Real))
*EndIf
*#
*Set Var lastGroupID=groupID
*Set Var nWeight3D=Operation(nWeight3D+1)
*# EndIf
*#
*EndIf
*EndIf
*End elems
*EndIf
*# konci blok 3D
*EndIf
