*#
*#
*#
*Intformat "%i"
*#
*# Vynulovat vsechno
*# WarningBox Warning: pred iniciaci TK_InitSelectionName
*tcl(TK_InitSelectionName)*\
*#
*#
*# pri prvnim pruchodu naplnim pole UniqueSelectionName()
*# WarningBox Warning: pred 1.pruchodem loop Intervals TK_CreateArraysSelectionName

*Set Cond Initial_Temperature_for_Volume   *nodes 
*Add Cond Initial_Temperature_for_Surface  *nodes   
*Add Cond Initial_Temperature_for_Line     *nodes 
*Add Cond Initial_Temperature_for_Point    *nodes  
*If(CondNumEntities(Int)>0)
*#// Initial_Temperature_for loop 1 has *CondNumEntities entities
*loop nodes *OnlyInCond
*tcl(TK_CreateArraysSelectionName *Cond(SelectionName))*\
*#
*End nodes
*EndIf
*# break
*#
*# // *\
*tcl(TK_FinishArraysSelectionName)
*#
*# pri druhem pruchodu je Vypis selections 
*#
*# WarningBox Warning: pred 2.pruchodem 
*#GenData(UniqueSelectionName)

*for(i=1;i<=GenData(UniqueSelectionName,Int);i=i+1)
*Set Var IntervalNum=0
*loop Intervals
*Set Var delkaradku=0
*Set Var IntervalNum=Operation(IntervalIndex)
*#
*Set Cond Initial_Temperature_for_Volume   *nodes 
*Add Cond Initial_Temperature_for_Surface  *nodes   
*Add Cond Initial_Temperature_for_Line     *nodes   
*Add Cond Initial_Temperature_for_Point    *nodes  
*# i = *i
*# *CondNumEntities(Int)
*If(CondNumEntities(Int)>0)
*#// Initial_Temperature_for loop 2 has *CondNumEntities entities
SELECTION "INITIAL_TEMPERATURE_*GenData(UniqueSelectionName,*i)" LIST *\
*loop nodes *OnlyInCond
*#
*Set Var oSelectionName=strcmp(Cond(SelectionName),GenData(UniqueSelectionName,*i))
*#
*# *NodesNum --- *Cond(SelectionName) =? *GenData(UniqueSelectionName,*i) => *oSelectionName
*If( oSelectionName(Int)==0)
*Set Var delkaradku=Operation(delkaradku+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*loop nodes *OnlyInCond 
*Set Var oSelectionName=strcmp(Cond(SelectionName),GenData(UniqueSelectionName,*i))
*If( oSelectionName(Int)==0)
NODAL TEMPERATURE SETTING SELECTION "INITIAL_TEMPERATURE_*GenData(UniqueSelectionName,*i)"
CONST *Cond(CONST_Temperature,Real) COEFF_X *Cond(COEFF_X_Temperature,Real) COEFF_Y *Cond(COEFF_Y_Temperature,Real) COEFF_Z *Cond(COEFF_Z_Temperature,Real)
GENERATE_TEMPERATURE ; 
*break
*EndIf
*End nodes

*EndIf
*# break
*End Intervals
*end

