// begin of Force selection blocks For 1)LoadBoundary Line selections
*#Set Var IntervalIndex=IntervalIndex2
*#
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0||strcmp(GenData(Calculation_Analysis),"Dynamic")==0||strcmp(GenData(Calculation_Analysis),"Static")==0)
*Set Cond Load_Force_for_Line *elems *CanRepeat
*ElseIf(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*Set Cond Fire_Boundary_for_Line *elems *CanRepeat 
*Add Cond Moisture_Temperature_Boundary_for_Line *elems *CanRepeat 
*Add Cond Neumann_Temperature_for_Line *elems 
*Add Cond Neumann_Humidity_for_Line *elems 
*endif
*#
*If(CondNumEntities(int)>0)
*#
*loop elems *OnlyInCond
SELECTION *\
*Format "%i%i%i%s%i%i"
 "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" LIST *\
*Intformat " %5i "
 *GlobalNodes ;
*#
*End elems
*EndIf
*#
*#
*#
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0||strcmp(GenData(Calculation_Analysis),"Dynamic")==0||strcmp(GenData(Calculation_Analysis),"Static")==0)
*Set Cond Chlorides_for_Line *elems *CanRepeat
*Add Cond Carbonation_for_Line *elems *CanRepeat
*ElseIf(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*endif
*#
*If(CondNumEntities(int)>0)
*#
*loop elems *OnlyInCond
SELECTION *\
*Format "%i%i%i%s%i%i"
 "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" LIST *\
*Intformat " %5i "
 *GlobalNodes ;
*#
*End elems
*EndIf
*#
*#
*#
*#
*If(ndime==3)
// begin of Force selection blocks For 2)LoadBoundary Surfaces selections
*#
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0||strcmp(GenData(Calculation_Analysis),"Dynamic")==0||strcmp(GenData(Calculation_Analysis),"Static")==0)
*Set Cond Load_Force_for_Surface *elems *CanRepeat 
*ElseIf(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*Set Cond Fire_Boundary_for_Surface *elems *CanRepeat 
*Add Cond Moisture_Temperature_Boundary_for_Surface *elems *CanRepeat 
*Add Cond Neumann_Temperature_for_Surface *elems 
*Add Cond Neumann_Humidity_for_Surface *elems 
*endif
*#
*If(CondNumEntities(int)>0)
*#
*loop elems *OnlyInCond
SELECTION *\
*Format "%i%i%i%s%i%i"
 "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" LIST *\
*Intformat " %5i "
 *GlobalNodes ;
*#
*End elems
*EndIf
*#
*#
*endif
*#
*#
*#
*If(ndime==3)
// begin of Force selection blocks For 2)LoadBoundary Surfaces selections
*#
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0||strcmp(GenData(Calculation_Analysis),"Dynamic")==0||strcmp(GenData(Calculation_Analysis),"Static")==0)
*Set Cond Chlorides_for_Surface *elems *CanRepeat
*Add Cond Carbonation_for_Surface *elems *CanRepeat
*#
*If(CondNumEntities(int)>0)
*#
*loop elems *OnlyInCond
SELECTION *\
*Format "%i%i%i%s%i%i"
 "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" LIST *\
*Intformat " %5i "
 *GlobalNodes ;
*#
*End elems
*EndIf
*ElseIf(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*endif
*#
*endif
*#
*If(ndime==3)
// begin of Force selection blocks For 2)LoadBoundary Surfaces 2D shell selections
*#
*If(strcmp(GenData(Calculation_Analysis),"Creep")==0||strcmp(GenData(Calculation_Analysis),"Dynamic")==0||strcmp(GenData(Calculation_Analysis),"Static")==0)
*Set Cond Load_Force_for_Surface_2D_Shell *elems *CanRepeat
*#
*If(CondNumEntities(int)>0)
*#
*loop elems *OnlyInCond
SELECTION *\
*Format "%i%i%i%s%i%i"
 "$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" LIST *\
*Intformat " %5i "
   *elemsConec(1) *elemsConec(2) *elemsConec(3) *elemsConec(4) *elemsConec(5) *elemsConec(6) *elemsConec(7) *elemsConec(8) ;
*#
*End elems
*EndIf
*ElseIf(strcmp(GenData(Calculation_Analysis),"Transport")==0)
*endif
*#
*#
*endif
*# ElemsType 1=Linear,2=Triangle,3=Quadrilateral,4=Tetrahedra,5=Hexahedra,6=Prism,7=OnlyPoints
*#