
/**
 Radiation Function:
	End_Time	End_Temp
--------------------------------
*Set Var RadLen=GenData(Radiation,Int)
*Set Var j=0
*For(i=1;i<RadLen;i=i+3)
*Set Var k=Operation(i+1)
*Set Var j=Operation(j+1)
*format "	%d	%10.5f	%10.5f"
*j *GenData(Radiation,*i,REAL) *GenData(Radiation,*k,REAL)
*End
**/
