*If(IntvData(Number_of_LOAD_STEPs,Int)>0 && (IntvData(Generate_Multiple_Steps,Int)>0 || IntvData(Define_Loading_History,Int)>0))
*Set Var StartTIME =IntvData(INTERVAL_STARTING_TIME,Real)
*Set Var TargetTIME=IntvData(INTERVAL_END_TIME,Real)
*Set Var IncrementTIME=Operation(TargetTIME-StartTIME)
*Set Var SubIncrTIME=Operation(IncrementTIME/IntvData(Number_of_LOAD_STEPs,Int))
*for(StepNumberI=1;StepNumberI<=IntvData(Number_of_LOAD_STEPs,Int);StepNumberI=StepNumberI+1)
*Set Var StepIndex=Operation(StepIndex+1)
*If(1==1) *#GenData(Restart_of_Analysis,Int)==0 || StepIndex > (GenData(Stored_Step_For_Restart,Int)) )
*#
*#If(GenData(APPLY_IN_INTERVAL_DATA,Int)==1 && GenData(IMPORT_TRANSPORT_RESULTS,Int)==1 && IntvData(sw_READ_TRANSPORT_DATA,Int)==1 && IntvData(Number_of_Transport_LOAD_STEPs,Int)>0)
*#If(strcmp(IntvData(TRANSPORT_IMPORT),"EACH_STEP")==0)
*#Set Var TargetTIME=Operation(StartTIME+SubIncrTIME)
*#include ..\include.src.bas\read_transport_temperature.bas
*#Set Var StartTIME=TargetTIME
*#ElseIf(strcmp(IntvData(TRANSPORT_IMPORT),"INTERVAL_BEGINNING")==0 && i==1)
*#include ..\include.src.bas\read_transport_temperature.bas
*#EndIf
*#EndIf
*#
*If(IntvData(INTEGRATION_TIME_INCREMENT,real) > IntvData(INCREMENT_TRANSIENT_TIME,real))
*WarningBox Warning: INTEGRATION_TIME_INCREMENT appears to be too large in some of the intervals (INTEGRATION_TIME_INCREMENT > INCREMENT_TRANSIENT_TIME)
*EndIf

*If(StepNumberI==IntvData(Number_of_LOAD_STEPs,Int) && IntvData(Number_of_LOAD_STEPs,Int)>1)
*Set Var StartTIME =IntvData(INTERVAL_STARTING_TIME,Real)
*Set Var TargetTIME=IntvData(INTERVAL_END_TIME,Real)
*Set Var IncrementTIME=Operation(TargetTIME-StartTIME)
*Set Var NasTIME=Operation(TargetTIME(real)-ATtime(real))
*#Set Var NasTIME=Operation(IncrementTIME-((IntvData(Number_of_LOAD_STEPs,Int)-1)*IntvData(INTEGRATION_TIME_INCREMENT,Real)))
*If(IntvData(INTEGRATION_TIME_INCREMENT,Real)<NasTIME)
*Set Var NasTIME=IntvData(INTEGRATION_TIME_INCREMENT,Real)
*EndIf
*If(NasTIME<0)
*MessageBox error: Last time in this interval is negative
*EndIf
*If(promIntegrationTimeIncrementOld == promIntegrationTimeIncrement)
*If(DebugControl==1)
*SetFormatStandard
*Format "%10.6f"
// SET TRANSIENT TIME INCREMENT *NasTime
*EndIf
*Else
SET TRANSIENT TIME INCREMENT *NasTime
*Set Var promIntegrationTimeIncrementOld = NasTime
*EndIf
*Else
*Set Var rozdilEND=Operation(ATtime-IntvData(INCREMENT_TRANSIENT_TIME,Real))
*If(DebugControl==1)
*Set Var rozdilATtime=Operation(rozdilEND-ATtime)
*EndIf
*If(DebugControl==1)
*Format "%10.6f"
// SET TRANSIENT TIME INCREMENT *rozdilEND - *ATtime = *rozdilATtime
// SET TRANSIENT TIME INCREMENT *IntvData(INTEGRATION_TIME_INCREMENT,Real)
*EndIf
*Set Var promIntegrationTimeIncrement = IntvData(INTEGRATION_TIME_INCREMENT,Real)
*If(promIntegrationTimeIncrementOld == promIntegrationTimeIncrement)
*If(DebugControl==1)
*Format "%10.6f"
// SET TRANSIENT TIME INCREMENT *promIntegrationTimeIncrement
*EndIf
*Else
SET TRANSIENT TIME INCREMENT *promIntegrationTimeIncrement
*Set Var promIntegrationTimeIncrementOld = promIntegrationTimeIncrement
*EndIf

*EndIf

STEP ID *StepIndex Type *GenData(Type_Analysis) NAME "*IntvData(LOAD_NAME) BC#*IntervalIndex(int)" *\
*Format "%10.9f"
AT *ATtime(real)
Load CASE
	  FIXED
*If(IntvData(Define_Loading_History,Int)==1)
*Set Var oj=Operation(StepNumberI*2+2)
*Set Var nl_multip=IntvData(Incremental_Multiplicators,*oj,real)
*Format "%10d * %10.5f"
       *IntervalIndex *Operation(1*nl_multip)
       *Operation(IntervalIndex+AddFireIncrementLC) ** 1.0 // absolute load case
*#
*If(IntvData(Add_Aditional_Load_Cases,Int)==1)
*for(adlc=1;adlc<=IntvData(Load_Cases,Int);adlc=adlc+5)
*Set Var adlcdvfrom=IntvData(Load_Cases,*Operation(adlc+2),int)
*Set Var adlcdvto=IntvData(Load_Cases,*Operation(adlc+3),int)
*Set Var adlcdvfixed=IntvData(Load_Cases,*Operation(adlc+4),int)
*Set Var adlcmultip=Operation(IntvData(Load_Cases,*Operation(adlc+1),real)*Operation(1*nl_multip))
*# *adlc *adlcdvfrom *adlcdvto
*If(StepNumberI>=adlcdvfrom && StepNumberI<=adlcdvto && adlcdvfixed==1)
      *IntvData(Load_Cases,*adlc,Int) ** *\
*Realformat "%10.4e"
*adlcmultip 
*EndIf
*End
*EndIf
*#
	  INCREMENT
*Format "%10d * %10.5f"
     *Operation(IntervalIndex+AddIncrementLC) *Operation(1*nl_multip)
*#   *Operation(IntervalIndex+AddIncrementLC) ** *Operation(multipINCREMENT*nl_multip)
*#
*If(IntvData(Add_Aditional_Load_Cases,Int)==1)
*for(adlc=1;adlc<=IntvData(Load_Cases,Int);adlc=adlc+5)
*Set Var adlcdvfrom=IntvData(Load_Cases,*Operation(adlc+2),int)
*Set Var adlcdvto=IntvData(Load_Cases,*Operation(adlc+3),int)
*Set Var adlcdvfixed=IntvData(Load_Cases,*Operation(adlc+4),int)
*Set Var adlcmultip=Operation(IntvData(Load_Cases,*Operation(adlc+1),real)*Operation(1*nl_multip))
*# *adlc *adlcdvfrom *adlcdvto
*If(StepNumberI>=adlcdvfrom && StepNumberI<=adlcdvto && adlcdvfixed==0)
      *IntvData(Load_Cases,*adlc,Int) ** *\
*Realformat "%10.4e"
*adlcmultip 
*EndIf
*End
*EndIf
*#
*Else
*Format "%10d * %10.5f"
      *IntervalIndex *multipFIXED
      *Operation(IntervalIndex+AddFireIncrementLC) ** 1.0 // absolute load case      
*#
*If(IntvData(Add_Aditional_Load_Cases,Int)==1)
*for(adlc=1;adlc<=IntvData(Load_Cases,Int);adlc=adlc+5)
*Set Var adlcdvfrom=IntvData(Load_Cases,*Operation(adlc+2),int)
*Set Var adlcdvto=IntvData(Load_Cases,*Operation(adlc+3),int)
*Set Var adlcdvfixed=IntvData(Load_Cases,*Operation(adlc+4),int)
*Set Var adlcmultip=Operation(IntvData(Load_Cases,*Operation(adlc+1),real)*multipFIXED)
*# *adlc *adlcdvfrom *adlcdvto
*If(StepNumberI>=adlcdvfrom && StepNumberI<=adlcdvto && adlcdvfixed==1)
      *IntvData(Load_Cases,*adlc,Int) ** *\
*Realformat "%10.4e"
*adlcmultip 
*EndIf
*End
*EndIf
*#
*Format "%10d * %10.5f"
	  INCREMENT
      *Operation(IntervalIndex+AddIncrementLC) *multipINCREMENT 
*#
*If(IntvData(Add_Aditional_Load_Cases,Int)==1)
*for(adlc=1;adlc<=IntvData(Load_Cases,Int);adlc=adlc+5)
*Set Var adlcdvfrom=IntvData(Load_Cases,*Operation(adlc+2),int)
*Set Var adlcdvto=IntvData(Load_Cases,*Operation(adlc+3),int)
*Set Var adlcdvfixed=IntvData(Load_Cases,*Operation(adlc+4),int)
*Set Var adlcmultip=Operation(IntvData(Load_Cases,*Operation(adlc+1),real)*multipINCREMENT)
*# *adlc *adlcdvfrom *adlcdvto
*If(StepNumberI>=adlcdvfrom && StepNumberI<=adlcdvto && adlcdvfixed==0)
      *IntvData(Load_Cases,*adlc,Int) ** *\
*Realformat "%10.4e"
*adlcmultip 
*EndIf
*End
*EndIf
*#
*EndIf

*#
*#If(GenData(APPLY_IN_INTERVAL_DATA,Int)==1 && GenData(IMPORT_TRANSPORT_RESULTS,Int)==1 && IntvData(sw_READ_TRANSPORT_DATA,Int)==1 && IntvData(Number_of_Transport_LOAD_STEPs,Int)>0)
*#Set Var niLS=IntvData(Number_of_Transport_LOAD_STEPs,Int)
*#Set Var j=1
*#Format "%10d * %10.5f"
*##    *Operation(IntervalIndex*IncrTemperatureLC+StepNumberI) 1.0
*#If(strcmp(IntvData(TRANSPORT_IMPORT),"EACH_STEP")==0)
*#      *Operation(IntervalIndex*IncrTemperatureLC+i) 1.0
*#ElseIf(strcmp(IntvData(TRANSPORT_IMPORT),"INTERVAL_BEGINNING")==0)
*#      *Operation(IntervalIndex*IncrTemperatureLC+1) *Operation(1.0/IntvData(Number_of_LOAD_STEPs,Int))
*#EndIf
*#EndIf
*Set Var ATtime=Operation(ATtime+IntvData(INCREMENT_TRANSIENT_TIME,Real))
 ;
*endif
*End
*EndIf
