*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))
*If(1==1) *#GenData(Restart_of_Analysis,Int)==0 || StepIndex >= Operation(GenData(Stored_Step_For_Restart,Int)+IntvData(Number_of_LOAD_STEPs,Int)) )
*Set Var StepIndex=Operation(StepIndex-IntvData(Number_of_LOAD_STEPs,Int))
*EndIf
*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) )
*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
*#
*EndIf
*#
*End
*EndIf
