*realformat "%15.5f"
*intformat "%7i"
$------------------------------------------------------------------------------
COMET: *GenData(Title_of_the_problem)
$------------------------------------------------------------------------------
START:
$------------------------------------------------------------------CONTROL_DATA
CONTROL_DATA
   GEOMETRY: *GenData(Geometry)
   COUPLED: *GenData(Coupled_problem_type)
*format "%7i%7i%2i%7i"
   DIMENSIONS: NPOIN=*npoin NELEM=*nelem NNODE=*nnode /
               NGAUS=*GenData(Integration_points) *\ 
NSETS=*nmats MCURV=2
*Set var QM1=1
*Set var QM2=1
*Set var QM3=1
*Set var QM4=1
*Set var QM5=1
*Set var QM6=1
*Set var QM7=1
*Set var QM8=1
*Set var QM9=1
*Set var QM10=1
*Set var THMOD1=0
*Set var THMOD2=0
*Set var THMOD3=0
*Set var THMOD4=0
*Set var THMOD5=0
*Set var THMOD6=0
*Set var THMOD7=0
*Set var THMOD8=0
*Set var THMOD9=0
*Set var THMOD10=0
*if(strcmp(GenData(Geometry),"3D")==0)
*Set var NSF1=0
*Set var NSF2=0
*Set var NSF3=0
*Set var NSF4=0
*Set var NSF5=0
*Set var NSF6=0
*Set var NSF7=0
*Set var NSF8=0
*Set var NSF9=0
*Set var NSF10=0
*Set Cond Slave-3D *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NSF1=Operation(NSF1(int)+1)
*endif
*if(Cond(1,int)==2)
*Set var NSF2=Operation(NSF2(int)+1)
*endif
*if(Cond(1,int)==3)
*Set var NSF3=Operation(NSF3(int)+1)
*endif
*if(Cond(1,int)==4)
*Set var NSF4=Operation(NSF4(int)+1)
*endif
*if(Cond(1,int)==5)
*Set var NSF5=Operation(NSF5(int)+1)
*endif
*if(Cond(1,int)==6)
*Set var NSF6=Operation(NSF6(int)+1)
*endif
*if(Cond(1,int)==7)
*Set var NSF7=Operation(NSF7(int)+1)
*endif
*if(Cond(1,int)==8)
*Set var NSF8=Operation(NSF8(int)+1)
*endif
*if(Cond(1,int)==9)
*Set var NSF9=Operation(NSF9(int)+1)
*endif
*if(Cond(1,int)==10)
*Set var NSF10=Operation(NSF10(int)+1)
*endif
*end elems
*endif
*Set Cond Slave-3D-Environment *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NSF1=Operation(NSF1(int)+1)
*endif
*if(Cond(1,int)==2)
*Set var NSF2=Operation(NSF2(int)+1)
*endif
*if(Cond(1,int)==3)
*Set var NSF3=Operation(NSF3(int)+1)
*endif
*if(Cond(1,int)==4)
*Set var NSF4=Operation(NSF4(int)+1)
*endif
*if(Cond(1,int)==5)
*Set var NSF5=Operation(NSF5(int)+1)
*endif
*if(Cond(1,int)==6)
*Set var NSF6=Operation(NSF6(int)+1)
*endif
*if(Cond(1,int)==7)
*Set var NSF7=Operation(NSF7(int)+1)
*endif
*if(Cond(1,int)==8)
*Set var NSF8=Operation(NSF8(int)+1)
*endif
*if(Cond(1,int)==9)
*Set var NSF9=Operation(NSF9(int)+1)
*endif
*if(Cond(1,int)==10)
*Set var NSF10=Operation(NSF10(int)+1)
*endif
*end elems
*endif
*Set var NMF1=0
*Set var NMF2=0
*Set var NMF3=0
*Set var NMF4=0
*Set var NMF5=0
*Set var NMF6=0
*Set var NMF7=0
*Set var NMF8=0
*Set var NMF9=0
*Set var NMF10=0
*Set Cond Master-3D-TH1 *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMF1=Operation(NMF1(int)+1)
*Set var THMOD1=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMF2=Operation(NMF2(int)+1)
*Set var THMOD2=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMF3=Operation(NMF3(int)+1)
*Set var THMOD3=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMF4=Operation(NMF4(int)+1)
*Set var THMOD4=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMF5=Operation(NMF5(int)+1)
*Set var THMOD5=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMF6=Operation(NMF6(int)+1)
*Set var THMOD6=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMF7=Operation(NMF7(int)+1)
*Set var THMOD7=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMF8=Operation(NMF8(int)+1)
*Set var THMOD8=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMF9=Operation(NMF9(int)+1)
*Set var THMOD9=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMF10=Operation(NMF10(int)+1)
*Set var THMOD10=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end elems
*endif
*Set Cond Master-3D-TH2 *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMF1=Operation(NMF1(int)+1)
*Set var THMOD1=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMF2=Operation(NMF2(int)+1)
*Set var THMOD2=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMF3=Operation(NMF3(int)+1)
*Set var THMOD3=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMF4=Operation(NMF4(int)+1)
*Set var THMOD4=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMF5=Operation(NMF5(int)+1)
*Set var THMOD5=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMF6=Operation(NMF6(int)+1)
*Set var THMOD6=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMF7=Operation(NMF7(int)+1)
*Set var THMOD7=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMF8=Operation(NMF8(int)+1)
*Set var THMOD8=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMF9=Operation(NMF9(int)+1)
*Set var THMOD9=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMF10=Operation(NMF10(int)+1)
*Set var THMOD10=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end elems
*endif
*Set Cond Master-3D-TH3 *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMF1=Operation(NMF1(int)+1)
*Set var THMOD1=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMF2=Operation(NMF2(int)+1)
*Set var THMOD2=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMF3=Operation(NMF3(int)+1)
*Set var THMOD3=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMF4=Operation(NMF4(int)+1)
*Set var THMOD4=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMF5=Operation(NMF5(int)+1)
*Set var THMOD5=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMF6=Operation(NMF6(int)+1)
*Set var THMOD6=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMF7=Operation(NMF7(int)+1)
*Set var THMOD7=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMF8=Operation(NMF8(int)+1)
*Set var THMOD8=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMF9=Operation(NMF9(int)+1)
*Set var THMOD9=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMF10=Operation(NMF10(int)+1)
*Set var THMOD10=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end elems
*endif
*Set Cond Master-3D-TH4 *elems *CanRepeat
*if(CondNumEntities>0)
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMF1=Operation(NMF1(int)+1)
*Set var THMOD1=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMF2=Operation(NMF2(int)+1)
*Set var THMOD2=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMF3=Operation(NMF3(int)+1)
*Set var THMOD3=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMF4=Operation(NMF4(int)+1)
*Set var THMOD4=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMF5=Operation(NMF5(int)+1)
*Set var THMOD5=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMF6=Operation(NMF6(int)+1)
*Set var THMOD6=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMF7=Operation(NMF7(int)+1)
*Set var THMOD7=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMF8=Operation(NMF8(int)+1)
*Set var THMOD8=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMF9=Operation(NMF9(int)+1)
*Set var THMOD9=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMF10=Operation(NMF10(int)+1)
*Set var THMOD10=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end elems
*endif
*if(nnode==4)
*Set var NNSF=3
*Set var NNMF=3
*endif
*if(nnode==10)
*Set var NNSF=6 
*Set var NNMF=6 
*endif
*if(nnode==8)
*Set var NNSF=4 
*Set var NNMF=4 
*endif
*if(nnode==20)
*Set var NNSF=8 
*Set var NNMF=8 
*endif
*Set var NSLID=0
*if(NSF1>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF2>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF3>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF4>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF5>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF6>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF7>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF8>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF9>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSF10>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSLID>0)
   CONTACT: *\
*if(strcmp(GenData(Contact_qualifiers),"NONE")==0)
*else
*GenData(Contact_qualifiers) *\
*endif
NSLID=*NSLID(int) NSFTL=*Operation(NSF1+NSF2+NSF3+NSF4+NSF5+NSF6+NSF7+NSF8+NSF9+NSF10) *\
NMFTL=*Operation(NMF1+NMF2+NMF3+NMF4+NMF5+NMF6+NMF7+NMF8+NMF9+NMF10) MNSF=*NNSF(int) MNMF=*NNMF(int)
*endif
*endif
*if((strcmp(GenData(Geometry),"2D")==0)||(strcmp(GenData(Geometry),"AXISYMM")==0))
*Set var NSN1=0
*Set var NSN2=0
*Set var NSN3=0
*Set var NSN4=0
*Set var NSN5=0
*Set var NSN6=0
*Set var NSN7=0
*Set var NSN8=0
*Set var NSN9=0
*Set var NSN10=0
*Set Cond Slave-2D *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NSN1=Operation(NSN1(int)+1)
*endif
*if(Cond(1,int)==2)
*Set var NSN2=Operation(NSN2(int)+1)
*endif
*if(Cond(1,int)==3)
*Set var NSN3=Operation(NSN3(int)+1)
*endif
*if(Cond(1,int)==4)
*Set var NSN4=Operation(NSN4(int)+1)
*endif
*if(Cond(1,int)==5)
*Set var NSN5=Operation(NSN5(int)+1)
*endif
*if(Cond(1,int)==6)
*Set var NSN6=Operation(NSN6(int)+1)
*endif
*if(Cond(1,int)==7)
*Set var NSN7=Operation(NSN7(int)+1)
*endif
*if(Cond(1,int)==8)
*Set var NSN8=Operation(NSN8(int)+1)
*endif
*if(Cond(1,int)==9)
*Set var NSN9=Operation(NSN9(int)+1)
*endif
*if(Cond(1,int)==10)
*Set var NSN10=Operation(NSN10(int)+1)
*endif
*end nodes
*endif
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NSN1=Operation(NSN1(int)+1)
*endif
*if(Cond(1,int)==2)
*Set var NSN2=Operation(NSN2(int)+1)
*endif
*if(Cond(1,int)==3)
*Set var NSN3=Operation(NSN3(int)+1)
*endif
*if(Cond(1,int)==4)
*Set var NSN4=Operation(NSN4(int)+1)
*endif
*if(Cond(1,int)==5)
*Set var NSN5=Operation(NSN5(int)+1)
*endif
*if(Cond(1,int)==6)
*Set var NSN6=Operation(NSN6(int)+1)
*endif
*if(Cond(1,int)==7)
*Set var NSN7=Operation(NSN7(int)+1)
*endif
*if(Cond(1,int)==8)
*Set var NSN8=Operation(NSN8(int)+1)
*endif
*if(Cond(1,int)==9)
*Set var NSN9=Operation(NSN9(int)+1)
*endif
*if(Cond(1,int)==10)
*Set var NSN10=Operation(NSN10(int)+1)
*endif
*end nodes
*endif
*Set var NMN1=0
*Set var NMN2=0
*Set var NMN3=0
*Set var NMN4=0
*Set var NMN5=0
*Set var NMN6=0
*Set var NMN7=0
*Set var NMN8=0
*Set var NMN9=0
*Set var NMN10=0
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMN1=Operation(NMN1(int)+1)
*Set var THMOD1=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMN2=Operation(NMN2(int)+1)
*Set var THMOD2=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMN3=Operation(NMN3(int)+1)
*Set var THMOD3=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMN4=Operation(NMN4(int)+1)
*Set var THMOD4=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMN5=Operation(NMN5(int)+1)
*Set var THMOD5=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMN6=Operation(NMN6(int)+1)
*Set var THMOD6=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMN7=Operation(NMN7(int)+1)
*Set var THMOD7=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMN8=Operation(NMN8(int)+1)
*Set var THMOD8=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMN9=Operation(NMN9(int)+1)
*Set var THMOD9=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMN10=Operation(NMN10(int)+1)
*Set var THMOD10=1
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end nodes
*endif
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMN1=Operation(NMN1(int)+1)
*Set var THMOD1=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMN2=Operation(NMN2(int)+1)
*Set var THMOD2=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMN3=Operation(NMN3(int)+1)
*Set var THMOD3=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMN4=Operation(NMN4(int)+1)
*Set var THMOD4=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMN5=Operation(NMN5(int)+1)
*Set var THMOD5=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMN6=Operation(NMN6(int)+1)
*Set var THMOD6=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMN7=Operation(NMN7(int)+1)
*Set var THMOD7=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMN8=Operation(NMN8(int)+1)
*Set var THMOD8=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMN9=Operation(NMN9(int)+1)
*Set var THMOD9=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMN10=Operation(NMN10(int)+1)
*Set var THMOD10=2
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end nodes
*endif
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMN1=Operation(NMN1(int)+1)
*Set var THMOD1=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMN2=Operation(NMN2(int)+1)
*Set var THMOD2=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMN3=Operation(NMN3(int)+1)
*Set var THMOD3=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMN4=Operation(NMN4(int)+1)
*Set var THMOD4=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMN5=Operation(NMN5(int)+1)
*Set var THMOD5=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMN6=Operation(NMN6(int)+1)
*Set var THMOD6=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMN7=Operation(NMN7(int)+1)
*Set var THMOD7=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMN8=Operation(NMN8(int)+1)
*Set var THMOD8=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMN9=Operation(NMN9(int)+1)
*Set var THMOD9=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMN10=Operation(NMN10(int)+1)
*Set var THMOD10=3
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end nodes
*endif
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*if(CondNumEntities>0)
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var NMN1=Operation(NMN1(int)+1)
*Set var THMOD1=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM1=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM1=2
*endif
*endif
*if(Cond(1,int)==2)
*Set var NMN2=Operation(NMN2(int)+1)
*Set var THMOD2=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM2=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM2=2
*endif
*endif
*if(Cond(1,int)==3)
*Set var NMN3=Operation(NMN3(int)+1)
*Set var THMOD3=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM3=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM3=2
*endif
*endif
*if(Cond(1,int)==4)
*Set var NMN4=Operation(NMN4(int)+1)
*Set var THMOD4=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM4=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM4=2
*endif
*endif
*if(Cond(1,int)==5)
*Set var NMN5=Operation(NMN5(int)+1)
*Set var THMOD5=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM5=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM5=2
*endif
*endif
*if(Cond(1,int)==6)
*Set var NMN6=Operation(NMN6(int)+1)
*Set var THMOD6=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM6=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM6=2
*endif
*endif
*if(Cond(1,int)==7)
*Set var NMN7=Operation(NMN7(int)+1)
*Set var THMOD7=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM7=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM7=2
*endif
*endif
*if(Cond(1,int)==8)
*Set var NMN8=Operation(NMN8(int)+1)
*Set var THMOD8=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM8=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM8=2
*endif
*endif
*if(Cond(1,int)==9)
*Set var NMN9=Operation(NMN9(int)+1)
*Set var THMOD9=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM9=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM9=2
*endif
*endif
*if(Cond(1,int)==10)
*Set var NMN10=Operation(NMN10(int)+1)
*Set var THMOD10=4
*if(strcmp(cond(2),"NONE")==0)
*Set var QM10=0
*endif
*if(strcmp(cond(2),"FRICTIONAL")==0)
*Set var QM10=2
*endif
*endif
*end nodes
*endif
*if(nnode==3)
*Set var NNSF=2
*Set var NNMF=2
*endif
*if(nnode==6)
*Set var NNSF=3
*Set var NNMF=3
*endif
*if(nnode==4)
*Set var NNSF=2
*Set var NNMF=2
*endif
*if(nnode==8)
*Set var NNSF=3
*Set var NNMF=3
*endif
*Set var NSLID=0
*if(NSN1>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN2>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN3>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN4>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN5>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN6>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN7>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN8>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN9>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSN10>0)
*Set var NSLID=Operation(NSLID(int)+1)
*endif
*if(NSLID>0)
   CONTACT: *\
*if(strcmp(GenData(Contact_qualifiers),"NONE")==0)
*else
*GenData(Contact_qualifiers) *\
*endif
NSLID=*NSLID(int) NNPST=*Operation(NSN1+NSN2+NSN3+NSN4+NSN5+NSN6+NSN7+NSN8+NSN9+NSN10) *\
NNPMT=*Operation(NMN1+NMN2+NMN3+NMN4+NMN5+NMN6+NMN7+NMN8+NMN9+NMN10) MNSF=*NNSF(int) MNMF=*NNMF(int)
*endif
*endif
*if(strcmp(GenData(Smoothing),"NO_SMOOTHING")==0)
*endif
*if(strcmp(GenData(Smoothing),"DISCRETE")==0)
   SMOOTHING: DISCRETE
*endif
*if(strcmp(GenData(Smoothing),"LOCAL")==0)
   SMOOTHING: LOCAL
*endif
*if(strcmp(GenData(Smoothing),"DIRECT")==0)
   SMOOTHING: DIRECT
*endif
*if(strcmp(GenData(Smoothing),"HINTON")==0)
   SMOOTHING: HINTON
*endif
*if(strcmp(GenData(Postprocess),"UNFORMATTED")==0)
   POST_PROCESS: UNFORMATTED
*endif
*if(strcmp(GenData(Postprocess),"FORMATTED")==0)
   POST_PROCESS: FORMATTED
*endif
*if(strcmp(GenData(Postprocess),"FORMATTED_INTERNAL")==0)
   POST_PROCESS: FORMATTED INTERNAL
*endif
*if(strcmp(GenData(Postprocess),"FORMATTED_CONTACT")==0)
   POST_PROCESS: FORMATTED CONTACT
*endif
*if(strcmp(GenData(Postprocess),"FORMATTED_I+C")==0)
   POST_PROCESS: FORMATTED INTERNAL CONTACT
*endif
END_CONTROL_DATA
$------------------------------------------------------------------GENERAL_DATA
GENERAL_DATA
  GEOMETRY: NO_INTERPOLATE *\
*if(strcmp(GenData(Mesh_length_units),"m")==0)
  
*else
SISMM
*endif
*loop elems
  *elemsnum *elemsmat *elemsConec
*end elems
*loop nodes
  *NodesNum *NodesCoord
*end nodes
  END_GEOMETRY
  SETS
*loop materials
*format "%2i%2i"
   SET=*matnum() TYPE=3 NODES=*nnode
     ELEMENT_DATA: INT_RULE=*\
*if(strcmp(GenData(Integration_rule),"QUAD-HEXA_OPEN")==0)
1 *\
*endif
*if(strcmp(GenData(Integration_rule),"QUAD-HEXA_CLOSE")==0)
2 *\
*endif
*if(strcmp(GenData(Integration_rule),"TRI-TETRA_OPEN")==0)
3 *\
*endif
*if(strcmp(GenData(Integration_rule),"TRI-TETRA_CLOSE")==0)
4 *\
*endif
INT_POINTS= *GenData(Integration_points) MODEL=*\
*if(strcmp(MatProp(Model),"TERMOPLASTIC")==0)
1 *\
*else
2 *\
*endif
*if(strcmp(GenData(Geometry),"1D")==0)
*if(MatProp(2,real)!=0)
AREA=*MatProp(Area(1D)) *\
*endif
*endif
*if(strcmp(GenData(Geometry),"2D")==0)
*if(MatProp(2,real)!=0)
THICKNESS=*MatProp(Thickness(2D)) *\
*endif
*endif
*if(strcmp(GenData(Mechanical_problem_type),"DYNAMIC")==0)
DAMP1=*MatProp(Rayleygh_mass_damping[dynamic]_[DAMP1]) DAMP2=*MatProp(Rayleygh_stiffness_damping[dynamic]_[DAMP2]) 
*else 
 
*endif
     MATERIAL_DATA: *\
*if(strcmp(MatProp(Model),"TERMOPLASTIC")==0)
DENSI=*MatProp(Density_[DENSI]) POISS=*MatProp(Poisson's_ratio_[POISS]) TEREF=*MatProp(Reference_temperature_[TEREF]) /
     YEINI=*MatProp(Initial_flow_stress_[YEINI]) YEFIN=*MatProp(Saturation_flow_stress_[YEFIN]) YEPOW=*MatProp(Saturation_hardening_law_exponent_[YEPOW]) /
     LINHR=*MatProp(Linear_hardening_coefficient_[LINHR]) OMEYI=*MatProp(Thermal_softening_initial_flow_[OMEYI]) OMEYF=*MatProp(Thermal_softening_saturation_flow_[OMEYF]) /
     OMELI=*MatProp(Thermal_softening_linear_hardening_flow_[OMELI]) KHARD=*MatProp(Kinematic_hardening_[KHARD]) /
     PLVIS=*MatProp(Viscosity_[PLVIS]) LMSTE=*\
*if(strcmp(MatProp(Plasticity_integration_[LMSTE]),"BACKWARD_EULER")==0)
1 *\
*else
2 *\
*endif
*if(Matprop(Elastic_modulus_[YOUNG],INT)<=2)
YOUNG=*Matprop(Elastic_modulus_[YOUNG],2) *\
*endif
*if(Matprop(Thermal_dilatancy_[ALPHA],INT)<=2)
ALPHA=*Matprop(Thermal_dilatancy_[ALPHA],2) *\
*endif
*if(Matprop(Specific_heat_[SHEAT],INT)<=2)
SHEAT=*Matprop(Specific_heat_[SHEAT],2) *\
*endif
*if(Matprop(Conductivity_[CONDU],INT)<=2)
CONDU=*Matprop(Conductivity_[CONDU],2) *\
*endif
 
*if(strcmp(MatProp(Change_of_Phase),"YES")==0)
     PHASE_CHANGE
*for(i=1;i<=Matprop(Change_Phase_Definition,INT);i=i+4)
*format "%2i"
       CHANGE_PHASE=*Operation((i+3)/4) LATEN=*Matprop(Change_Phase_Definition,*i) THOTP=*Matprop(Change_Phase_Definition,*Operation(i+1)) TCOLD=*Matprop(Change_Phase_Definition,*Operation(i+2)) PSTRA=*Matprop(Change_Phase_Definition,*Operation(i+3))
*end
     END_PHASE_CHANGE
*endif
     TDEPENDENT_DATA
*if(Matprop(Elastic_modulus_[YOUNG],INT)>2)
       YOUNG
*for(i=1;i<=Matprop(Elastic_modulus_[YOUNG],INT);i=i+2)
         *Matprop(Elastic_modulus_[YOUNG],*i)  *Matprop(Elastic_modulus_[YOUNG],*Operation(i+1))
*end
       END_YOUNG
*endif
*if(Matprop(Thermal_dilatancy_[ALPHA],INT)>2)
       ALPHA
*for(i=1;i<=Matprop(Thermal_dilatancy_[ALPHA],INT);i=i+2)
         *Matprop(Thermal_dilatancy_[ALPHA],*i)  *Matprop(Thermal_dilatancy_[ALPHA],*Operation(i+1))
*end
       END_ALPHA
*endif
*if(Matprop(Specific_heat_[SHEAT],INT)>2)
       SHEAT
*for(i=1;i<=Matprop(Specific_heat_[SHEAT],INT);i=i+2)
         *Matprop(Specific_heat_[SHEAT],*i)  *Matprop(Specific_heat_[SHEAT],*Operation(i+1))
*end
       END_SHEAT
*endif
*if(Matprop(Conductivity_[CONDU],INT)>2)
       CONDU
*for(i=1;i<=Matprop(Conductivity_[CONDU],INT);i=i+2)
         *Matprop(Conductivity_[CONDU],*i)  *Matprop(Conductivity_[CONDU],*Operation(i+1))
*end
       END_CONDU
*endif
*if(strcmp(MatProp(Change_of_Phase),"YES")==0)
       FRSOL
*for(i=1;i<=Matprop([FRSOL],INT);i=i+2)
         *Matprop([FRSOL],*i)  *Matprop([FRSOL],*Operation(i+1))
*end
       END_FRSOL
*endif
     END_TDEPENDENT_DATA
*endif
*if(strcmp(MatProp(Model),"TERMOELASTIC")==0)
DENSI=*MatProp(Density_[DENSI]) POISS=*MatProp(Poisson's_ratio_[POISS]) /
     TEREF=*MatProp(Reference_temperature_[TEREF]) *\
*if(Matprop(Elastic_modulus_[YOUNG],INT)<=2)
YOUNG=*Matprop(Elastic_modulus_[YOUNG],2) *\
*endif
*if(Matprop(Thermal_dilatancy_[ALPHA],INT)<=2)
ALPHA=*Matprop(Thermal_dilatancy_[ALPHA],2) *\
*endif
*if(Matprop(Specific_heat_[SHEAT],INT)<=2)
SHEAT=*Matprop(Specific_heat_[SHEAT],2) *\
*endif
*if(Matprop(Conductivity_[CONDU],INT)<=2)
CONDU=*Matprop(Conductivity_[CONDU],2) *\
*endif
 
*if(strcmp(MatProp(Change_of_Phase),"YES")==0)
     PHASE_CHANGE
*for(i=1;i<=Matprop(Change_Phase_Definition,INT);i=i+4)
*format "%2i"
       CHANGE_PHASE=*Operation((i+3)/4) LATEN=*Matprop(Change_Phase_Definition,*i) THOTP=*Matprop(Change_Phase_Definition,*Operation(i+1)) TCOLD=*Matprop(Change_Phase_Definition,*Operation(i+2)) PSTRA=*Matprop(Change_Phase_Definition,*Operation(i+3))
*end
     END_PHASE_CHANGE
*endif
     TDEPENDENT_DATA
*if(Matprop(Elastic_modulus_[YOUNG],INT)>2)
       YOUNG
*for(i=1;i<=Matprop(Elastic_modulus_[YOUNG],INT);i=i+2)
         *Matprop(Elastic_modulus_[YOUNG],*i)  *Matprop(Elastic_modulus_[YOUNG],*Operation(i+1))
*end
       END_YOUNG
*endif
*if(Matprop(Thermal_dilatancy_[ALPHA],INT)>2)
       ALPHA
*for(i=1;i<=Matprop(Thermal_dilatancy_[ALPHA],INT);i=i+2)
         *Matprop(Thermal_dilatancy_[ALPHA],*i)  *Matprop(Thermal_dilatancy_[ALPHA],*Operation(i+1))
*end
       END_ALPHA
*endif
*if(Matprop(Specific_heat_[SHEAT],INT)>2)
       SHEAT
*for(i=1;i<=Matprop(Specific_heat_[SHEAT],INT);i=i+2)
         *Matprop(Specific_heat_[SHEAT],*i)  *Matprop(Specific_heat_[SHEAT],*Operation(i+1))
*end
       END_SHEAT
*endif
*if(Matprop(Conductivity_[CONDU],INT)>2)
       CONDU
*for(i=1;i<=Matprop(Conductivity_[CONDU],INT);i=i+2)
         *Matprop(Conductivity_[CONDU],*i)  *Matprop(Conductivity_[CONDU],*Operation(i+1))
*end
       END_CONDU
*endif
*if(strcmp(MatProp(Change_of_Phase),"YES")==0)
       FRSOL
*for(i=1;i<=Matprop([FRSOL],INT);i=i+2)
         *Matprop([FRSOL],*i)  *Matprop([FRSOL],*Operation(i+1))
*end
       END_FRSOL
*endif
     END_TDEPENDENT_DATA
*endif
   END_SET
*end materials
  END_SETS
*Set var HayContacto=0
*if(strcmp(GenData(Geometry),"3D")==0)
*Set Cond Slave-3D *elems *CanRepeat
*if(CondNumEntities>0)
*Set var HayContacto=1
*endif
*Set Cond Slave-3D-Environment *elems *CanRepeat
*if(CondNumEntities>0)
*Set var HayContacto=1
*endif
*else
*Set Cond Slave-2D *nodes *CanRepeat
*if(CondNumEntities>0)
*Set var HayContacto=1
*endif
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*if(CondNumEntities>0)
*Set var HayContacto=1
*endif
*endif
*if(HayContacto)
$------------------------------------------------------------------CONTACT_DATA
 CONTACT_DATA
  CONTROL_DATA
*if(strcmp(GenData(Geometry),"3D")==0)
*if(NSF1>0)
*if(QM1==0)
    SLIDELINE=1 NSF=*NSF1(int) NMF=*NMF1(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD1(int)
*endif
*if(QM1==2)
    SLIDELINE=1 FRICTIONAL NSF=*NSF1(int) NMF=*NMF1(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD1(int)
*endif
*if(QM1==1)
    SLIDELINE=1 NSF=*NSF1(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF2>0)
*if(QM2==0)
    SLIDELINE=2 NSF=*NSF2(int) NMF=*NMF2(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD2(int)
*endif
*if(QM2==2)
    SLIDELINE=2 FRICTIONAL NSF=*NSF2(int) NMF=*NMF2(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD2(int)
*endif
*if(QM2==1)
    SLIDELINE=2 NSF=*NSF2(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF3>0)
*if(QM3==0)
    SLIDELINE=3 NSF=*NSF3(int) NMF=*NMF3(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD3(int)
*endif
*if(QM3==2)
    SLIDELINE=3 FRICTIONAL NSF=*NSF3(int) NMF=*NMF3(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD3(int)
*endif
*if(QM3==1)
    SLIDELINE=3 NSF=*NSF3(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF4>0)
*if(QM4==0)
    SLIDELINE=4 NSF=*NSF4(int) NMF=*NMF4(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD4(int)
*endif
*if(QM4==2)
    SLIDELINE=4 FRICTIONAL NSF=*NSF4(int) NMF=*NMF4(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD4(int)
*endif
*if(QM4==1)
    SLIDELINE=4 NSF=*NSF4(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF5>0)
*if(QM5==0)
    SLIDELINE=5 NSF=*NSF5(int) NMF=*NMF5(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD5(int)
*endif
*if(QM5==2)
    SLIDELINE=5 FRICTIONAL NSF=*NSF5(int) NMF=*NMF5(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD5(int)
*endif
*if(QM5==1)
    SLIDELINE=5 NSF=*NSF5(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF6>0)
*if(QM6==0)
    SLIDELINE=6 NSF=*NSF6(int) NMF=*NMF6(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD6(int)
*endif
*if(QM6==2)
    SLIDELINE=6 FRICTIONAL NSF=*NSF6(int) NMF=*NMF6(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD6(int)
*endif
*if(QM6==1)
    SLIDELINE=6 NSF=*NSF6(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF7>0)
*if(QM7==0)
    SLIDELINE=7 NSF=*NSF7(int) NMF=*NMF7(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD7(int)
*endif
*if(QM7==2)
    SLIDELINE=7 FRICTIONAL NSF=*NSF7(int) NMF=*NMF7(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD7(int)
*endif
*if(QM7==1)
    SLIDELINE=7 NSF=*NSF7(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF8>0)
*if(QM8==0)
    SLIDELINE=8  NSF=*NSF8(int) NMF=*NMF8(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD8(int)
*endif
*if(QM8==2)
    SLIDELINE=8 FRICTIONAL  NSF=*NSF8(int) NMF=*NMF8(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD8(int)
*endif
*if(QM8==1)
    SLIDELINE=8 NSF=*NSF8(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF9>0)
*if(QM9==0)
    SLIDELINE=9  NSF=*NSF9(int) NMF=*NMF9(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD9(int)
*endif
*if(QM9==2)
    SLIDELINE=9 FRICTIONAL NSF=*NSF9(int) NMF=*NMF9(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD9(int)
*endif
*if(QM9==1)
    SLIDELINE=9 NSF=*NSF9(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSF10>0)
*if(QM10==0)
    SLIDELINE=10 NSF=*NSF10(int) NMF=*NMF10(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD10(int)
*endif
*if(QM10==2)
    SLIDELINE=10 FRICTIONAL NSF=*NSF10(int) NMF=*NMF10(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD10(int)
*endif
*if(QM10==1)
    SLIDELINE=10 NSF=*NSF10(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
  END_CONTROL_DATA
  SLIDELINES_DATA
*if(NSF1>0)
    SLIDELINE=1
*if(QM1==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD1==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD1==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD1==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD1==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM1!=1)
*if(THMOD1==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD1==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD1==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD1==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_1
*endif
*if(NSF2>0)
    SLIDELINE=2
*if(QM2==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD2==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD2==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD2==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD2==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM2!=1)
*if(THMOD2==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD2==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD2==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD2==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_2
*endif
*if(NSF3>0)
    SLIDELINE=3
*if(QM3==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD3==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD3==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD3==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD3==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM3!=1)
*if(THMOD3==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD3==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD3==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD3==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_3
*endif
*if(NSF4>0)
    SLIDELINE=4
*if(QM4==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD4==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD4==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD4==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD4==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM4!=1)
*if(THMOD4==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD4==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD4==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD4==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_4
*endif
*if(NSF5>0)
    SLIDELINE=5
*if(QM5==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD5==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD5==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD5==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD5==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM5!=1)
*if(THMOD5==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD5==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD5==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD5==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_5
*endif
*if(NSF6>0)
    SLIDELINE=6
*if(QM6==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD6==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD6==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD6==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD6==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM6!=1)
*if(THMOD6==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD6==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD6==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD6==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_6
*endif
*if(NSF7>0)
    SLIDELINE=7
*if(QM7==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD7==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD7==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD7==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD7==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM7!=1)
*if(THMOD7==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD7==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD7==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD7==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_7
*endif
*if(NSF8>0)
    SLIDELINE=8
*if(QM8==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD8==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD8==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD8==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD8==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM8!=1)
*if(THMOD8==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD8==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD8==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD8==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_8
*endif
*if(NSF9>0)
    SLIDELINE=9
*if(QM9==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD9==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD9==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD9==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD9==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM9!=1)
*if(THMOD9==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD9==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD9==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD9==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_9
*endif
*if(NSF10>0)
    SLIDELINE=10
*if(QM10==1)
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD10==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD10==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD10==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
*if(THMOD10==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*Set var PRIMERA=1
*Loop elems *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end elems
*endif
      SLAVE_NODES
*Set Cond Slave-3D *elems *CanRepeat
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
*Set Cond Slave-3D-Environment *elems *CanRepeat
*Loop elems *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_SLAVE_NODES
*if(QM10!=1)
      MASTER_NODES
*if(THMOD10==1)
*Set Cond Master-3D-TH1 *elems *CanRepeat
*endif
*if(THMOD10==2)
*Set Cond Master-3D-TH2 *elems *CanRepeat
*endif
*if(THMOD10==3)
*Set Cond Master-3D-TH3 *elems *CanRepeat
*endif
*if(THMOD10==4)
*Set Cond Master-3D-TH4 *elems *CanRepeat
*endif
*Set var CONTADOR=0
*Loop elems *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *globalnodes(invert)
*endif
*end elems
      END_MASTER_NODES
*endif
    END_SLIDELINE_10
*endif
  END_SLIDELINES_DATA
*endif
*if((strcmp(GenData(Geometry),"2D")==0)||(strcmp(GenData(Geometry),"AXISYMM")==0))
*if(NSN1>0)
*if(QM1==0)
    SLIDELINE=1 NSN=*NSN1(int) NMN=*NMN1(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD1(int)
*endif
*if(QM1==2)
    SLIDELINE=1 FRICTIONAL NSN=*NSN1(int) NMN=*NMN1(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD1(int)
*endif
*if(QM1==1)
    SLIDELINE=1 NSN=*NSN1(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN2>0)
*if(QM2==0)
    SLIDELINE=2 NSN=*NSN2(int) NMN=*NMN2(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD2(int)
*endif
*if(QM2==2)
    SLIDELINE=2 FRICTIONAL NSN=*NSN2(int) NMN=*NMN2(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD2(int)
*endif
*if(QM2==1)
    SLIDELINE=2 NSN=*NSN2(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN3>0)
*if(QM3==0)
    SLIDELINE=3 NSN=*NSN3(int) NMN=*NMN3(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD3(int)
*endif
*if(QM3==2)
    SLIDELINE=3 FRICTIONAL NSN=*NSN3(int) NMN=*NMN3(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD3(int)
*endif
*if(QM3==1)
    SLIDELINE=3 NSN=*NSN3(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN4>0)
*if(QM4==0)
    SLIDELINE=4 NSN=*NSN4(int) NMN=*NMN4(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD4(int)
*endif
*if(QM4==2)
    SLIDELINE=4 FRICTIONAL NSN=*NSN4(int) NMN=*NMN4(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD4(int)
*endif
*if(QM4==1)
    SLIDELINE=4 NSN=*NSN4(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN5>0)
*if(QM5==0)
    SLIDELINE=5 NSN=*NSN5(int) NMN=*NMN5(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD5(int)
*endif
*if(QM5==2)
    SLIDELINE=5 FRICTIONAL NSN=*NSN5(int) NMN=*NMN5(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD5(int)
*endif
*if(QM5==1)
    SLIDELINE=5 NSN=*NSN5(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN6>0)
*if(QM6==0)
    SLIDELINE=6 NSN=*NSN6(int) NMN=*NMN6(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD6(int)
*endif
*if(QM6==2)
    SLIDELINE=6 FRICTIONAL NSN=*NSN6(int) NMN=*NMN6(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD6(int)
*endif
*if(QM6==1)
    SLIDELINE=6 NSN=*NSN6(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN7>0)
*if(QM7==0)
    SLIDELINE=7 NSN=*NSN7(int) NMN=*NMN7(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD7(int)
*endif
*if(QM7==2)
    SLIDELINE=7 FRICTIONAL NSN=*NSN7(int) NMN=*NMN7(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD7(int)
*endif
*if(QM7==1)
    SLIDELINE=7 NSN=*NSN7(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN8>0)
*if(QM8==0)
    SLIDELINE=8 NSN=*NSN8(int) NMN=*NMN8(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD8(int)
*endif
*if(QM8==2)
    SLIDELINE=8 FRICTIONAL NSN=*NSN8(int) NMN=*NMN8(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD8(int)
*endif
*if(QM8==1)
    SLIDELINE=8 NSN=*NSN8(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN9>0)
*if(QM9==0)
    SLIDELINE=9 NSN=*NSN9(int) NMN=*NMN9(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD9(int)
*endif
*if(QM9==2)
    SLIDELINE=9 FRICTIONAL NSN=*NSN9(int) NMN=*NMN9(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD9(int)
*endif
*if(QM9==1)
    SLIDELINE=9 NSN=*NSN9(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
*if(NSN10>0)
*if(QM10==0)
    SLIDELINE=10 NSN=*NSN10(int) NMN=*NMN10(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD10(int)
*endif
*if(QM10==2)
    SLIDELINE=10 FRICTIONAL NSN=*NSN10(int) NMN=*NMN10(int) NNSF=*NNSF(int) NNMF=*NNMF(int) THMOD=*THMOD10(int)
*endif
*if(QM10==1)
    SLIDELINE=10 NSN=*NSN10(int) NNSF=*NNSF(int) THMOD=4 ENVIRONMENT
*endif
*endif
  END_CONTROL_DATA
  SLIDELINES_DATA
*if(NSN1>0)
    SLIDELINE=1
*if(QM1==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD1==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD1==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD1==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD1==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM1!=1)
*if(THMOD1==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD1==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD1==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD1==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==1)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_1
*endif
*if(NSN2>0)
    SLIDELINE=2
*if(QM2==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD2==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD2==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD2==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD2==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==2)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM2!=1)
*if(THMOD2==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD2==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD2==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD2==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==2)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_2
*endif
*if(NSN3>0)
    SLIDELINE=3
*if(QM3==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD3==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD3==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD3==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD3==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==3)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM3!=1)
*if(THMOD3==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD3==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD3==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD3==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==3)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_3
*endif
*if(NSN4>0)
    SLIDELINE=4
*if(QM4==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD4==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD4==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD4==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD4==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==4)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM4!=1)
*if(THMOD4==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD4==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD4==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD4==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==4)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_4
*endif
*if(NSN5>0)
    SLIDELINE=5
*if(QM5==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD5==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD5==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD5==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD5==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==5)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM5!=1)
*if(THMOD5==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD5==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD5==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD5==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==5)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_5
*endif
*if(NSN6>0)
    SLIDELINE=6
*if(QM6==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD6==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD6==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD6==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD6==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==6)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM6!=1)
*if(THMOD6==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD6==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD6==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD6==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==6)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_6
*endif
*if(NSN7>0)
    SLIDELINE=7
*if(QM7==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD7==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD7==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD7==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD7==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==7)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM7!=1)
*if(THMOD7==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD7==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD7==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD7==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==7)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_7
*endif
*if(NSN8>0)
    SLIDELINE=8
*if(QM8==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD8==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD8==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD8==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD8==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==8)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM8!=1)
*if(THMOD8==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD8==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD8==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD8==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==8)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_8
*endif
*if(NSN9>0)
    SLIDELINE=9
*if(QM9==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD9==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD9==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD9==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD9==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==9)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM9!=1)
*if(THMOD9==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD9==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD9==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD9==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==9)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_9
*endif
*if(NSN10>0)
    SLIDELINE=10
*if(QM10==1)
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: ENVTE=*Cond(2,real)
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD10==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      MTHCO=*Cond(11,real) GTHCO=*Cond(12,real) VICKE=*Cond(13,real) /
      ROUGH=*Cond(14,real) ASLOP=*Cond(15,real) HVCO1=*Cond(16,real) /
      HVCO2=*Cond(17,real) COGAS=*Cond(18,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD10==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD10==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==1O)
      PROPERTIES: PENN=*Cond(3,real) PENT=*Cond(4,real) /
      FRIC0=*Cond(5,real) FRIC1=*Cond(6,real) FRIC2=*Cond(7,real) /
      FRIC3=*Cond(8,real) FRIC4=*Cond(9,real) FRIC5=*Cond(10,real) /
      VICKE=*Cond(11,real) THCOR=*Cond(12,real) THEXP=*Cond(13,real)
      GAP_HEAT
*for(i=1;i<=Cond(14,INT);i=i+2)
         *Cond(14,*i)  *Cond(14,*Operation(i+1))
*end
      END_GAP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
*if(THMOD10==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*Set var PRIMERA=1
*Loop nodes *OnlyInCond
*if(PRIMERA==1)&&(Cond(1,int)==10)
      PROPERTIES:
      TEMP_HEAT
*for(i=1;i<=Cond(3,INT);i=i+2)
         *Cond(3,*i)  *Cond(3,*Operation(i+1))
*end
      END_TEMP_HEAT
*Set var PRIMERA=0
*endif
*end nodes
*endif
      SLAVE_NODES
*Set Cond Slave-2D *nodes *CanRepeat
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
*Set Cond Slave-2D-Environment *nodes *CanRepeat
*Loop nodes *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_SLAVE_NODES
*if(QM10!=1)
*if(THMOD10==1)
*Set Cond Master-2D-TH1 *nodes *CanRepeat
*endif
*if(THMOD10==2)
*Set Cond Master-2D-TH2 *nodes *CanRepeat
*endif
*if(THMOD10==3)
*Set Cond Master-2D-TH3 *nodes *CanRepeat
*endif
*if(THMOD10==4)
*Set Cond Master-2D-TH4 *nodes *CanRepeat
*endif
      MASTER_NODES
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(Cond(1,int)==10)
*Set var CONTADOR=Operation(CONTADOR(int)+1)
        *CONTADOR(int) *NodesNum()
*endif
*end nodes
      END_MASTER_NODES
*endif
    END_SLIDELINE_10
*endif
  END_SLIDELINES_DATA
*endif
 END_CONTACT_DATA
*endif
*Set Cond Point-InitialData *nodes
*Add Cond Line-InitialData *nodes
*Add Cond Surface-InitialData *nodes
*Add Cond Volume-InitialData *nodes
*if(CondNumEntities>0)
$------------------------------------------------------------------INITIAL_DATA
 INITIAL_DATA
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"DISPLACEMENT")==0)
*Set var CONTADOR=1       
*endif
*end nodes
*if(CONTADOR)
  DISPLACEMENT
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"DISPLACEMENT")==0)
        *NodesNum() *Cond(2,real) *Cond(3,real) *Cond(4,real)
*endif
*end nodes
  END_DISPLACEMENT
*endif
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"VELOCITY")==0)
*Set var CONTADOR=1       
*endif
*end nodes
*if(CONTADOR)
  VELOCITY     
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"VELOCITY")==0)
        *NodesNum() *Cond(2,real) *Cond(3,real) *Cond(4,real)
*endif
*end nodes
  END_VELOCITY
*endif
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"ACCELERATION")==0)
*Set var CONTADOR=1       
*endif
*end nodes
*if(CONTADOR)
  ACCELERATION
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"ACCELERATION")==0)
        *NodesNum() *Cond(2,real) *Cond(3,real) *Cond(4,real)
*endif
*end nodes
  END_ACCELERATION
*endif
*Set var CONTADOR=0
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"TEMPERATURE")==0)
*Set var CONTADOR=1       
*endif
*end nodes
*if(CONTADOR)
  TEMPERATURE    
*Loop nodes *OnlyInCond
*if(strcmp(Cond(1),"TEMPERATURE")==0)
        *NodesNum() *Cond(5,real)
*endif
*end nodes
  END_TEMPERATURE
*endif
 END_INITIAL_DATA
*endif
END_GENERAL_DATA
*loop intervals
$-----------------------------------------------------------------INTERVAL_DATA
INTERVAL_DATA: NSTEP=*IntvData(Number_of_Steps) DTIME=*IntvData(Time_step_increment)
$----------------------------------------------------------------------FUNCTION
  FUNCTION: NEW_FUNCTION
    FUNCTION 1: *IntvData(Type_of_load_function), START=*IntvData(Load_start_time) END=*IntvData(Load_finish_time) TIME=*IntvData(Load_rising_or_period_time) AMPLITUDE=*IntvData(Maximun_amplitude)
    FUNCTION 2: *IntvData(Type_of_boundary_function), START=*IntvData(Boundary_function_start_time) END=*IntvData(Boundary_function_finish_time) TIME=*IntvData(Boundary_function_period_or_rising) AMPLITUDE=*IntvData(Boundary_function_max._amplitude)
  END_FUNCTION
*if(nLocalAxes!=0)
$-------------------------------------------------------------LOCAL AXES SYSTEM
$---------------------------------------------ROTATION_MATRIX   (U_g = R ** U_l)
   LOCAL_SYSTEM: NEW_LOCAL
*if(ndime==3)
*loop localaxes
    LOCAL=*LocalAxesNum *\
*format "ROT11= %lf ROT12= %lf ROT13= %lf / %*%*%*%*%*%*"
*LocalAxesDef
*format "                  %*%*%*ROT21= %lf ROT22= %lf ROT23= %lf / %*%*%*"
*LocalAxesDef
*format "                  %*%*%*%*%*%*ROT31= %lf ROT32= %lf ROT33= %lf"
*LocalAxesDef
*end
*else
*loop localaxes
    LOCAL=*LocalAxesNum *\
*format "ROT11= %lf ROT12= %lf / %*%*%*%*%*%*%*"
*LocalAxesDef
*format "                  %*%*%*ROT21= %lf ROT22= %lf%*%*%*%*"
*LocalAxesDef
*end
*endif
   END_LOCAL_SYSTEM
*endif
$--------------------------------------------------------------------------LOAD
  LOAD: NEW_LOAD
    FUNCTION: 1, *IntvData(Evaluate_Load_Function)
*if(IntvData(Gravity_Value,real)!=0)
    GRAVITY_LOAD: GX=*IntvData(Gravity_X_direction), GY=*IntvData(Gravity_Y_direction), GZ=*IntvData(Gravity_Z_direction) GRAVY=*IntvData(Gravity_Value)
*endif
*Set Cond Point-Load *nodes
*if(CondNumEntities>0)
    POINT_LOAD
*loop nodes *OnlyInCond
      NODE=*NodesNum FX=*cond(1) FY=*cond(2) *\
*if(ndime==3)
FZ=*cond(3)
*else
 
*endif
*end
    END_POINT_LOAD
*endif
*if(ndime==2)
*Set Cond Face-Load *elems  *CanRepeat
*else
*Set Cond SurFace-Load *elems *CanRepeat
*endif
*if(CondNumEntities>0)
    FACE_LOAD
*if(ndime==2)
*Set Cond Face-Load *elems  *CanRepeat
*loop elems *OnlyInCond
      ELEM=*elemsnum() NODES=*globalnodes
      GLOBAL FX=*cond(1) FY=*cond(2) /
             FX=*cond(1) FY=*cond(2) *\
*if(IsQuadratic(int)==1)
 FX=*cond(1) FY=*cond(2)
*else
 
*endif
*end
*endif
*if(ndime==3)
*loop elems *OnlyInCond
      ELEM=*elemsnum() NODES= *globalnodes
*if(nnode==4)
        GLOBAL:  FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3)
*endif
*if(nnode==8)
        GLOBAL:  FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3)
*endif 
*if(nnode==10)
        GLOBAL:  FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3)
*endif
*if(nnode==20)
        GLOBAL:  FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3) /
                 FX=*cond(1) FY=*cond(2) FZ=*cond(3)
*endif
*end
*endif
    END_FACE_LOAD
*endif
*Set Cond Surface-Thermal-Load *elems
*Add Cond Volume-Thermal-Load *elems
*if(CondNumEntities>0)
    SOURCE_LOAD
*loop elems *OnlyInCond
      ELEM=*elemsnum() SOURCE=*cond(1)
*end elems
    END_SOURCE_LOAD
*endif
*if(strcmp(IntvData(Print_Load),"YES")==0)
    PRINT_LOAD
*endif
  END_LOAD
$----------------------------------------------------------------------BOUNDARY
  BOUNDARY: NEW_BOUNDARY
    FUNCTION: 2, *IntvData(Evaluate_Boundary_Function)
*Set Cond Volume-Constraints *nodes *or(2,int) *or(4,int) *or(6,int)
*Add Cond Surface-Constraints *nodes *or(2,int) *or(4,int) *or(6,int)
*Add Cond Line-Constraints *nodes *or(2,int) *or(4,int) *or(6,int)
*Add Cond Point-Constraints *nodes *or(2,int) *or(4,int) *or(6,int)
*loop nodes *OnlyInCond 
*if(ndime==3)
*format "%5i%1i%1i%1i%1i%f%f%f%f"
   *NodesNum *cond(2,int)*cond(4,int)*cond(6,int)*cond(8,int)  *cond(3,real) *cond(5,real) *cond(7,real) *cond(9,real) *\
*if(LocalAxesNum!=0)
LOCAL=*LocalAxesNum
*else

*endif
*endif
*if(ndime==2)
*format "%5i%1i%1i%1i%f%f%f"
   *NodesNum *cond(2,int)*cond(4,int)*cond(8,int)  *cond(3,real) *cond(5,real) *cond(9,real)  *\
*if(LocalAxesNum!=0)
LOCAL=*LocalAxesNum
*else

*endif
*endif
*if(ndime==1)
*format "%5i%1i%1i%f%f"
   *NodesNum *cond(2,int)*cond(8,int)  *cond(3,real)  *cond(9,real)  *\
*if(LocalAxesNum!=0)
LOCAL=*LocalAxesNum
*else

*endif
*endif
*end
  END_BOUNDARY
$----------------------------------------------------------------------STRATEGY
  STRATEGY: NEW_STRATEGY
    SOLVER: *\
*if(strcmp(IntvData(Equations_system_solver),"DIRECT_SKYLINE")==0)
DIRECT SKYLINE *\
*endif
*if(strcmp(IntvData(Equations_system_solver),"DIRECT_BANDED")==0)
DIRECT BANDED *\
*endif
*if(strcmp(IntvData(Equations_system_solver),"DIRECT_SPARSE")==0)
DIRECT SPARSE *\
*endif
*if(strcmp(IntvData(Equations_system_solver),"ITERATIVE")==0)
ITERATIVE *\
*endif
*IntvData(Numeration) *IntvData(Matrix_symmetry) *\
*if(strcmp(IntvData(Preconditioning),"NONE")==0)
*else
*IntvData(Preconditioning) *\
*endif
*if(strcmp(IntvData(Equations_system_solver),"ITERATIVE")==0)
*Set var MAXIT(int)=Operation(npoin(int)*0.3)
MAXIT=*MAXIT KRYLO=20 TOLER=1.0E-05
*else
 
*endif
    ALGORITHM: *\
*if(strcmp(IntvData(Algorithm),"INITIAL")==0)
INITIAL
*endif
*if(strcmp(IntvData(Algorithm),"UPDATE")==0)
UPDATE *\
*if(IntvData(Update_steps,int)!=0)
STEP= *IntvData(Update_steps,int) *\
*endif
*if(IntvData(Update_iterations,int)!=0)
ITERATION= *IntvData(Update_iterations,int)
*else
 
*endif
*endif
*if(strcmp(IntvData(Algorithm),"FULL")==0)
UPDATE FULL
*endif
*if(strcmp(IntvData(Line_Search),"ON")==0)
    LINE_SEARCH: *IntvData(Line_Search)
*endif
    CONVERGENCE: *IntvData(Convergence_Type)  TOLER= *IntvData(Convergence_tolerance_(%)) MITER= *IntvData(Maximun_number_of_iterations)
*if(strcmp(GenData(Mechanical_problem_type),"DYNAMIC")==0)
    DYNAMIC: ON
*endif
*if(strcmp(GenData(Mechanical_problem_type),"DYNAMIC")==0)
*if(strcmp(IntvData(Time_stepping),"NEWMARK")==0)
    TIME_STEPPING: NEWMARK  BETA= *IntvData(Time_step_BETA) GAMMA= *IntvData(Time_step_GAMMA)
*endif
*endif
    OUTPUT: *\
*if(strcmp(IntvData(Output_results),"NONE")==0)
NONE
*endif
*if(strcmp(IntvData(Output_results),"ALL")==0)
ALL  STEP= *IntvData(Step_freq._output_results)
*endif
    SAVE: *\
*if(strcmp(IntvData(Save_interval_data),"NONE")==0)
NONE
*endif
*if(strcmp(IntvData(Save_interval_data),"ONLY_ONE")==0)
ONLY ONE
*endif
*if(strcmp(IntvData(Save_interval_data),"APPEND")==0)
APPEND
*endif
*Set Cond Gaussian-Plots *elems *CanRepeat
*set var Gaussplots(int)=CondNumEntities
*Set Cond Points-Plots *nodes *CanRepeat
*set var Pointsplots(int)=CondNumEntities
*if((Gaussplots>0)||(Pointsplots>0))
    PLOT: NEW_PLOT
*endif
*if(Pointsplots>0)
*loop nodes *OnlyInCond
     Title:*Cond(1)
*if(strcmp(cond(2),"NSTEP")==0)
     X:NSTEP
*endif
*if(strcmp(cond(2),"TIME")==0)
     X:TIME
*endif
*if(strcmp(cond(2),"DISPLACEMENT_X")==0)
     X:DISPLACEMENT X NODE=*NodesNum
*endif
*if(strcmp(cond(2),"DISPLACEMENT_Y")==0)
     X:DISPLACEMENT Y NODE=*NodesNum
*endif
*if(strcmp(cond(2),"DISPLACEMENT_Z")==0)
     X:DISPLACEMENT Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"NITER")==0)
     Y:NITER
*endif
*if(strcmp(cond(3),"FORCE_X")==0)
     Y:FORCE X NODE=*NodesNum
*endif
*if(strcmp(cond(3),"FORCE_Y")==0)
     Y:FORCE Y NODE=*NodesNum
*endif
*if(strcmp(cond(3),"FORCE_Z")==0)
     Y:FORCE Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"DISPLACEMENT_X")==0)
     Y:DISPLACEMENT X NODE=*NodesNum
*endif
*if(strcmp(cond(3),"DISPLACEMENT_Y")==0)
     Y:DISPLACEMENT Y NODE=*NodesNum
*endif
*if(strcmp(cond(3),"DISPLACEMENT_Z")==0)
     Y:DISPLACEMENT Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"VELOCITY_X")==0)
     Y:VELOCITY X NODE=*NodesNum
*endif
*if(strcmp(cond(3),"VELOCITY_Y")==0)
     Y:VELOCITY Y NODE=*NodesNum
*endif
*if(strcmp(cond(3),"VELOCITY_Z")==0)
     Y:VELOCITY Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"ACCELERATION_X")==0)
     Y:ACCELERATION X NODE=*NodesNum
*endif
*if(strcmp(cond(3),"ACCELERATION_Y")==0)
     Y:ACCELERATION Y NODE=*NodesNum
*endif
*if(strcmp(cond(3),"ACCELERATION_Z")==0)
     Y:ACCELERATION Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"REACTION_X")==0)
     Y:REACTION X NODE=*NodesNum
*endif
*if(strcmp(cond(3),"REACTION_Y")==0)
     Y:REACTION Y NODE=*NodesNum
*endif
*if(strcmp(cond(3),"REACTION_Z")==0)
     Y:REACTION Z NODE=*NodesNum
*endif
*if(strcmp(cond(3),"TEMPERATURE")==0)
     Y:TEMPERATURE T NODE=*NodesNum
*endif
*end
*endif
*Set Cond Gaussian-Plots *elems *CanRepeat
*if(Gaussplots>0)
*loop elems *OnlyInCond
     Title:*Cond(1)
*if(strcmp(cond(2),"NSTEP")==0)
     X:NSTEP
*endif
*if(strcmp(cond(2),"TIME")==0)
     X:TIME
*endif
*if(strcmp(cond(2),"DEFORMATION_XX")==0)
     X:STRAIN XX ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(2),"DEFORMATION_YY")==0)
     X:STRAIN YY ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(2),"DEFORMATION_XY")==0)
     X:STRAIN XY ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(2),"DEFORMATION_ZZ")==0)
     X:STRAIN ZZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(2),"DEFORMATION_XZ")==0)
     X:STRAIN XZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(2),"DEFORMATION_YZ")==0)
     X:STRAIN YZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"NITER")==0)
     Y:NITER
*endif
*if(strcmp(cond(3),"XX-STRESS")==0)
     Y:STRESS XX ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"YY-STRESS")==0)
     Y:STRESS YY ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"XY-STRESS")==0)
     Y:STRESS XY ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"ZZ-STRESS")==0)
     Y:STRESS ZZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"XZ-STRESS")==0)
     Y:STRESS XZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*if(strcmp(cond(3),"YZ-STRESS")==0)
     Y:STRESS YZ ELEMENT=*elemsnum  INT_POINT=*\
*if((Cond(4,int)>GenData(Integration_points,int))||(Cond(4,int)<=0))
1
*else
*Cond(4,int)
*endif
*endif
*end
*endif
*if((Gaussplots>0)||(Pointsplots>0))
    END_PLOT
*endif
*if(strcmp(IntvData(Post_process),"YES")==0)
    POST_PROCESS  STEP= *IntvData(Step_freq._post_process)
*endif
  END_STRATREGY
$-----------------------------------------------------------------------------
END_INTERVAL_DATA
*end
STOP
$-----------  Copyright @CIMNE 1998  GID to COMET TransLator v1.0  ------------
$-----------       Date 01/01/98  Last Modification 21/01/98       ------------
