*# Master block
*Set Var IntervalIndex=0
*Set Var delkaradku=0
*loop Intervals
*Set Cond Fixed_Contact_for_Volume  *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Add Cond Fixed_Contact_for_Surface  *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int)
*Add Cond Fixed_Contact_for_Line     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Add Cond Fixed_Contact_for_Point  *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Set Var IntervalIndex=Operation(IntervalIndex+1)
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0)
SELECTION "Master*IntervalIndex(int)" LIST *\
*loop nodes *OnlyInCond
*If(strcmp(Cond(Type_of_Cond),"Master")==0)
*Set Var delkaradku=Operation(delkaradku+1)
*NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*# WarningBox Warning: delkaradku=*delkaradku
*End Nodes
 ;
*EndIf
*EndIf
*Set Var delkaradku=0
*End Intervals
*Set Var MasterNumber=IntervalIndex
// End block of Master/Slave  #*MasterNumber(int)

*Set Var delkaradku=0
*Set Var IntervalIndex=0
*# Slave block
*loop Intervals
*Set Cond Fixed_Contact_for_Volume     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int)
*Add Cond Fixed_Contact_for_Surface     *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Add Cond Fixed_Contact_for_Line  *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Add Cond Fixed_Contact_for_Point  *nodes *or(1,Real) *or(2,Real) *or(3,Int) *or(4,Int) 
*Set Var IntervalIndex=Operation(IntervalIndex+1)
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*If(Cond(Apply_in_Subincrement,int)==ApplyInSubincrement  || strcmp(GenData(Calculation_Analysis),"Static")==0)
SELECTION "Slave*IntervalIndex" LIST *\
*# GENERATE NODES WITHIN BOX 111 112 234 553 6677 8876 5433 6788
*loop nodes *OnlyInCond
*If(strcmp(Cond(Type_of_Cond),"Slave")==0)
*Set Var delkaradku=Operation(delkaradku+1)
*NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*# WarningBox Warning: delkaradku=*delkaradku
*End Nodes
 ;
*EndIf
*EndIf
*Set Var delkaradku=0
*End Intervals
*Set Var SlaveNumber=IntervalIndex
// End block of Master/Slave  #*SlaveNumber(int)
