*Set Var krokVIntervalu=1
*Set Var krokVIntervaluActivity=1
*If(IntvData(Number_of_LOAD_STEPs,Int)>0 && (IntvData(Generate_Multiple_Steps,Int)>0 || IntvData(Define_Loading_History,Int)>0))
*#
*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(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 NumberOfSteps=IntvData(Number_of_LOAD_STEPs,Int)
*Set Var StepTIME=Operation(IncrementTIME/NumberOfSteps)
*Set Var NasTIME=Operation(StepTIME/2)
*if(IntvData(INTEGRATION_TIME_INCREMENT,Real) < NasTIME)
*Set Var NasTIME=IntvData(INTEGRATION_TIME_INCREMENT,Real)
*EndIf
*#Set Var NasTIME=Operation(IncrementTIME-((IntvData(Number_of_LOAD_STEPs,Int)-1)*StepTIME))
*If(NasTIME < 0)
*MessageBox error: Last time in this interval is negative
*EndIf
*SetFormatStandard
*#Format "%10.6f"
*#SET TRANSIENT TIME INCREMENT *NasTime
*# nemusi se dle LJ zapisovat..staci v definici stepu
*Else
*#Format "%10.6f"
*#SET TRANSIENT TIME INCREMENT *IntvData(INTEGRATION_TIME_INCREMENT,Real)
*# nemusi se dle LJ zapisovat..staci v definici stepu
*EndIf
*include ..\include.src.bas\ElementActivityStep.bas

STEP ID *StepIndex Execute 
*If( strcmp(IntvData(Store_Data_for_this_Interval_Steps),"WITHOUT_SAVING")==0)
*set var LabelFromStoreStep = 0
*include ..\include.src.bas\LabelStepID.bas
*EndIf
*If( strcmp(IntvData(Store_Data_for_this_Interval_Steps),"WITHOUT_SAVING")!=0) Then
*# Begin not without saving
*If( strcmp(IntvData(Store_Data_for_this_Interval_Steps),"SAVE_ALL")==0) 
*# Begin Save all
OUTPUT LOCATION ELEMENTS RECOVERY *GenData(Nodal_data_recovery) ;
STORE TO
*include ..\include.src.bas\StoreStepID.bas
*# End Save all
*#
*#
*ElseIf( strcmp(IntvData(Store_Data_for_this_Interval_Steps),"SAVE_EACH_Nth_PLUS_LAST_ONE")==0)
*#
*# Begin Save each n plus last one
*If(krokVIntervalu==IntvData(Nth_Step_to_Store,Int) || StepNumberI==IntvData(Number_of_LOAD_STEPs,Int) || StepNumberI==1)
*If( (StepNumberI!=1 && IntvData(Nth_Step_to_Store,Int)!=1) || (IntvData(Nth_Step_to_Store,Int)==1))
*set var krokVIntervalu=0
*EndIf
OUTPUT LOCATION ELEMENTS RECOVERY *GenData(Nodal_data_recovery) ;
STORE TO
*include ..\include.src.bas\StoreStepID.bas
*else
*set var LabelFromStoreStep = 0
*include ..\include.src.bas\LabelStepID.bas
*EndIf
*# End Save each n plus last one
*#
*#
*ElseIf( strcmp(IntvData(Store_Data_for_this_Interval_Steps),"SAVE_LAST_ONE")==0)
*# Begin Save last one
*If(StepNumberI==IntvData(Number_of_LOAD_STEPs,Int))
OUTPUT LOCATION ELEMENTS RECOVERY *GenData(Nodal_data_recovery) ;
STORE TO
*include ..\include.src.bas\StoreStepID.bas
*else
*set var LabelFromStoreStep = 0
*include ..\include.src.bas\LabelStepID.bas
*EndIf
*# End Save last one
*EndIf
*# End not without saving
*EndIf
*#
*#
*include ..\include.src.bas\PrintMonitor.bas
*#
*#
*Set Var krokVIntervalu=Operation(krokVIntervalu+1)
*Set Var krokVIntervaluActivity=Operation(krokVIntervaluActivity+1)
*#If(IntvData(Delete_BC_Data_After_Calculation,Int)==1)
*#include ..\include.src.bas\delete_transport_temperature.bas
*#EndIf
*#Set Var krokVIntervalu=Operation(krokVIntervalu+1)
*endif
*End
*EndIf
