*Set Var oflagElmIDMerge=1
*If(GenData(Show_Surface_Loads_In_Post-Processor,Int)==0)
*Set Var oflagElmIDMerge=0
*EndIf

*Set Var eLoadFire=0
*Set Cond Fire_Boundary_for_Line *elems *CanRepeat 
*If(ndime==3)
*Set Cond Fire_Boundary_for_Surface *elems *CanRepeat 
*EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*Set Var nshells=0
*Set Var nbeam=0
*loop elems *OnlyInCond
*#
*include ..\include.src.bas\CurrentElementGroupID.bas
*#
*# *Cond(Fire_Type) 
*# *Cond(CONVECTION,Real)
*# *Cond(EMISSIVITY,Real)
*# *Cond(TEMPERATURE_MAX,Real)
*# *Cond(TIME_FUNCTION(Time,Temperature))
*# *Cond(Boundary)
*# *Cond(Entity_number,Int)
*# CurrentType ElemsType AddTranspAnalysis ElemsMat IncrMaterialID 
*# *CurrentType *ElemsType *AddTranspAnalysis *ElemsMat *IncrMaterialID 
*Set Var oflagElmIDMerge=1
Load FIRE_BOUNDARY GROUP *groupID *tcl(TK_ElementNum *oflagElmIDMerge *ElemsNum)
*#
*# nastavim si abych do stepu pridal load case
*Set Var IsIntervalWithFire=1
*#
*If(strcmp(Cond(Fire_Type),"Fire_Curve_ETK")==0)
                   FIRE TYPE USER_CURVE
*Else
                   FIRE TYPE *Cond(Fire_Type)
*EndIf                   
                   SEMIVARIABLE_IN_STEP
                   CONVECTION *Cond(CONVECTION,Real) 
                   EMISSIVITY *Cond(EMISSIVITY,Real)
                   TEMPERATURE_MAX *Cond(TEMPERATURE_MAX,Real) 
                   TEMPERATURE_MIN *Cond(TEMPERATURE_MIN,Real) 
*If(strcmp(Cond(Fire_Type),"USER_CURVE")==0 || strcmp(Cond(Fire_Type),"Fire_Curve_ETK")==0)
                   TIME_FUNCTION *Operation(IntervalIndex*IncrFireFunctionID+ElemsNum)
*EndIf
                   NODES *\
*Format "%i%i%i%s%i%i"
			"$N$I*IntervalIndex *ElemsType *ElemsNnode *Cond(Boundary)Num*Cond(Entity_number,Int) ElemNum*ElemsNum" *Cond(Boundary) *tcl(TK_BoundaryMerge *oflagElmIDMerge) 
*Set Var eLoadFire=Operation(eLoadFire+1)
*# LOAD FIRE_BOUNDARY group 1 FIRE TYPE NOMINAL_HC ANY NODES "all9-10"   
*# LOAD FIRE_BOUNDARY group g1 TO g2 BY g3 element e1 TO e2 BY e3  [FIRE] [TYPE] { GENERIC | NOMINAL_HC, MODIFIED_HC } 
*# [CONVECTION h_c] [EMISSIVITY eps_r] [TEMPERATURE_MAX temp_g_ref] [TIME_FUNCTION tmp_fnc_id]  
*# NODES "list" ... boundary load input
*End elems
*EndIf
