*Set Var SignMinus=-1.0
*Set Var PreviousType=0
*Set Var PreviousIndex=0
*Set Var oMaxIndexElemGroups=0
*Set Var oMinIndexElemGroups=90000
*Set Var ElemConstrActiv=0
*Set Var oldElemsMat=0
*#Set Var index=0
*Set Var ioSpring=0
*Set Var groupID=0
*Set Var CurrentType=-1
*Set Var oMaxReinfGroups=-1
*Set Var oMinReinfGroups=2000000000
*#
*Set Var AddingGapElemID=20
*Set Var AddingNonLinElemID=30
*Set Var AddingBarWithBond=3
*#
*Set Var AddIncrementLC=510000
*Set Var IncrTemperatureLC=1100000
*#
*Set Var AddingConstruction=3000
*Set Var AddTranspAnalysis=0
*#
*Set Var InitSpringID=110000
*Set Var IncrSpringID=11000
*Set Var InitElemSpringID=160000
*Set Var IncrElemSpringID=50
*#
*Set Var InitCablesID=110000000
*#
*Set Var IncrFireFunctionID=11000
*Set Var AddFireIncrementLC=610000
*Set Var IsIntervalWithFire=0
*Set Var AddAbsolutIncrementLC=610000
*#
*Set Var InitFunctionID=0
*Set Var IncrAdvancedFunID=10000
*#
*Set Var IncrAdvancedMatID=10000
*Set Var InitMaterialID=0
*Set Var IncrMaterialID=100
*#
*Set Var LoadCase=0
*Set Var shellmaterial=-1
*Set Var nshells=0
*Set Var nbeam=0
*Set Var nMasterNodes=0
*Set Var ReinfExecution=1
*If(strcmp(GenData(Calculation_Analysis),"SandwichStatic3D")==0)
*Set Var ReinfExecution=0
*EndIf
*Set var icounter=0
*#
*# // DebugControl = 1 If is in debuging mode
*Set var DebugControl=0
*#
*Set Var ExpWriteAllAIS=-1
*If(strcmp(GenData(Calculation_Analysis),"Static")==0 )
*# // Applycation of loads in Static from problem Type Creep
*# 1 is true - as Write all; 0 is false - as no Write all
*Set Var ExpWriteAllAIS=1
*Else
*# v jinych problemtypech to musi byt V3zdy 0
*Set Var ExpWriteAllAIS=0
*EndIf
*#
*Set Var nVel=0
*Set Var nAccel=0
*Set Var nLumpedMass=0
*Set Var oJdeoShell=0
*set var VypsatUpozorneniMonitorOnlyFirstInterval=0
*#set var VypsatUpozorneniTrussCablesOnlyFirstInterval=0
*Set Var QuadraticGapMeshWarning = 0