// *\
*#WarningBox Info: At the End of Input File is writen information about Load Intervals and Steps
*#WarningBox Info: Input file was written and is ready to be executed in AtenaWin

*If(strcmp(GenData(Calculate_In),"AtenaWin")==0)
*#WarningBox Info: Input file was written and is ready to be executed in AtenaWin
*tcl(TK_CTRLclear)*\
*tcl(TK_CTRLc "Info: Input file was written and is ready to be executed in AtenaWin " " ")*\
*tcl(TK_TK_WarnWinTextTK_CTRLv)*\
*ElseIf(strcmp(GenData(Calculate_In),"AtenaStudio")==0)
*#WarningBox Info: Input file was written and is executed in AtenaStudio
*tcl(TK_CTRLclear)*\
*tcl(TK_CTRLc "Info: Input file was written and is executed in AtenaStudio " " ")*\
*tcl(TK_TK_WarnWinTextTK_CTRLv)*\
*ElseIf(strcmp(GenData(Calculate_In),"AtenaConsole")==0)
*#WarningBox Info: Input file was written and is executed in AtenaConsole
*tcl(TK_CTRLclear)*\
*tcl(TK_CTRLc "Info: Input file was written and is ready to be executed in AtenaConsole " " ")*\
*tcl(TK_TK_WarnWinTextTK_CTRLv)*\
*Else
*WarningBox Info: Unknown file to executed
*EndIf

// OUTPUT FILE "Results.out" 
// OUTPUT LOCATION NODES DATA ALL ;

*Set Var StepIndex=1
*Set Var IntervalIndex=1
*Set Var IntervalIndexreal=1
*loop intervals
*Set Var pocet=IntvData(Number_of_LOAD_STEPs,Int)
*#
*#
// *\
*# WarningBox Warning: 
*If(IntvData(Interval_Is_Active,real)==1)
*Set Var oStep1Index=StepIndex
*Set Var oStep2Index=Operation(StepIndex+IntvData(Number_of_LOAD_STEPs,Int)-1)
GiD Interval Number: *IntervalIndex(Int); Name: *IntvData(LOAD_NAME);	Saving: *IntvData(Store_Data_for_this_Interval_Steps);	STEPs: *oStep1Index - *oStep2Index
*Set Var StepIndex=Operation(StepIndex+pocet)
*Else
GiD Interval Number: *IntervalIndex(Int); Name: *IntvData(LOAD_NAME);	Saving: *IntvData(Store_Data_for_this_Interval_Steps);	STEPs: disabled
*EndIf
*Set Var IntervalIndex=Operation(IntervalIndex+1)
*End intervals
