*Set Cond Fire_Boundary_for_Line *elems 
*If(ndime==3)
*Add Cond Fire_Boundary_for_Surface *elems 
*EndIf
*If(CondNumEntities(Int)>0)
// selection has *CondNumEntities entities
*loop elems *OnlyInCond
*If(strcmp(Cond(Fire_Type),"USER_CURVE")==0)

FUNCTION ID *Operation(IntervalIndex*IncrFireFunctionID+ElemsNum)
  NAME "TEMP USER_CURVE"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
  xvalues *\
*for(i=1;i<=Cond(TIME_FUNCTION,INT);i=i+2)
    *Cond(TIME_FUNCTION,*i) *\
*End

  yvalues *\
*for(i=2;i<=Cond(TIME_FUNCTION,INT);i=i+2)
    *Cond(TIME_FUNCTION,*i) *\
*End
*EndIf
*#
*#
*If(strcmp(Cond(Fire_Type),"Fire_Curve_ETK")==0)

FUNCTION ID *Operation(IntervalIndex*IncrFireFunctionID+ElemsNum)
  NAME "TEMP USER_CURVE"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
  xvalues 0	2.3	5.3	9.2	14.3	21	29.7	41	56	75.4	101	134	177	234	308	405	530	695	910	1190	1560	2040	2650	3480	4550	5930	7700	8900	10800
  yvalues 0.018022254	0.054136023	0.090193547	0.126102658	0.162084366	0.198267634	0.234236303	0.270049754	0.306433113	0.342427501	0.37876212	0.414615333	0.450441571	0.486790353	0.522878448	0.559072977	0.594810484	0.630956289	0.667006305	0.702966074	0.739318357	0.775385975	0.810593377	0.847290405	0.883418987	0.919132378	0.954358604	0.973895262	1
*EndIf
*#
*#
*#
*End elems
*EndIf