*#
*Intformat "%i"
*#
*# Vynulovat vsechno
*# WarningBox Warning: pred iniciaci TK_InitContactName
*tcl(TK_InitContactName)*\
*#
*#
*# pri prvnim pruchodu naplnim pole UniqueContactName()
*# WarningBox Warning: pred 1.pruchodem loop Intervals TK_CreateArraysContactName
/**
*loop Intervals
*Set Cond Fixed_Contact_for_Volume   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Point   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*loop nodes *OnlyInCond
*tcl(TK_CreateArraysContactName *Cond(ContactName))*\
*#
*End nodes
*EndIf
*# break
*End Intervals
*#
*tcl(TK_FinishArraysContactName)
**/
*#
*# pri druhem pruchodu je Vypis selections pro Contacts MASTER/Slave
*#
*# WarningBox Warning: pred 2.pruchodem - MASTER
*# GenData(UniqueContactName)
*for(i=1;i<=GenData(UniqueContactName,Int);i=i+1)
*Set Var IntervalNum=0
*loop Intervals
*Set Var delkaradku=0
*Set Var IntervalNum=Operation(IntervalNum+1)
*#
*Set Cond Fixed_Contact_for_Volume   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Point   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat   
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
SELECTION "*GenData(UniqueContactName,*i)_MASTER_Interval*IntervalNum" LIST *\
*loop nodes *OnlyInCond
*#
*Set Var oContactName=strcmp(Cond(ContactName),GenData(UniqueContactName,*i))
*Set Var oContactType=strcmp(Cond(Type_of_Cond),"Master")
*#
*If( oContactName==0 && oContactType==0)
*Set Var delkaradku=Operation(delkaradku+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*EndIf
*# break
*End Intervals
*end

*# pri tretim pruchodu je Vypis selections pro Contacts Master/SLAVE
*#
*# WarningBox Warning: pred 3.pruchodem - SLAVE
*# GenData(UniqueContactName)
*for(i=1;i<=GenData(UniqueContactName,Int);i=i+1)
*Set Var IntervalNum=0
*loop Intervals
*Set Var delkaradku=0
*Set Var IntervalNum=Operation(IntervalNum+1)
*Set Cond Fixed_Contact_for_Volume   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Surface   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Line      *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*Add Cond Fixed_Contact_for_Point   *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) *CanRepeat 
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
SELECTION "*GenData(UniqueContactName,*i)_SLAVE_Interval*IntervalNum" LIST *\
*loop nodes *OnlyInCond
*#
*Set Var oContactName=strcmp(Cond(ContactName),GenData(UniqueContactName,*i))
*Set Var oContactType=strcmp(Cond(Type_of_Cond),"Slave")
*#
*If( oContactName==0 && oContactType==0)
*Set Var delkaradku=Operation(delkaradku+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*EndIf
*# break
*End Intervals
*end

