*If(1==1) *#GenData(Stored_Step_For_Restart,Int) < StepIndex || GenData(Restart_of_Analysis,Int)==0)
*If(IntvData(Calculate_Eigenvalues-Vectors,Int)==1)
*include ..\include.src.bas\EigenSolutionParameters.bas
EIGENVECTORS  LOAD CASE  
	*IntervalIndex ** 1.0
*If(strcmp(GenData(Calculation_Analysis),"Dynamic")==0)
	*Operation(IntervalIndex+AddIncrementLC) ** 0.0
*EndIf
*#
*If(IntvData(Add_Aditional_Load_Cases,Int)==1)
*Set Var StepNumberEigen = StepNumberI - 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 adlcmultip=Operation(IntvData(Load_Cases,*Operation(adlc+1),real)*multip)
*# *adlc *adlcdvfrom *adlcdvto
*If(StepNumberEigen>=adlcdvfrom && StepNumberEigen<=adlcdvto)
  *IntvData(Load_Cases,*adlc,Int) ** *\
*Realformat "%10.4e"
*# *adlcmultip
0.0
*EndIf
*End
*EndIf
*#
*#
STORE TO 
*include ..\include.src.bas\EigenValuesStoreStepID.bas
*If(IntvData(Print_Eigenvalues-Vectors_to_output_file,Int)==1)
OUTPUT STANDARD RECORD LENGTH 800 
LOCATION OUTPUT_DATA 
DATA LIST "EIGENVALUES" END ;
*EndIf
*EndIf
*EndIf
