      // Load Cases definition
*If(ApplyInSubIncrement==1)
Load CASE ID *Operation(IntervalIndex+AddAbsolutIncrementLC) NAME "LoadName *IntvData(LOAD_NAME) -- load case only for Absolute conditions"

*# Begin block of ASR
*include ..\include.src.bas\Asr_for_elems.bas
*# End block of ASR
*#
*# Begin block of Carbonation
*include ..\include.src.bas\Carbonation_for_surfaces.bas
*# End block of Carbonation
*#
*# Begin block of Chlorides
*include ..\include.src.bas\Chlorides_for_surfaces.bas
*# End block of Carbonation
*#
*# Begin block of Carbonation
*include ..\include.src.bas\Carbonation_for_lines.bas
*# End block of Carbonation
*#
*# Begin block of Chlorides
*include ..\include.src.bas\Chlorides_for_lines.bas
*# End block of Chlorides
*#     
*EndIf

*#
*If(ApplyInSubIncrement==1)
Load CASE ID *IntervalIndex NAME "LoadName *IntvData(LOAD_NAME)"
*Else
Load CASE ID *Operation(IntervalIndex+AddIncrementLC) NAME "LoadName *IntvData(LOAD_NAME)"
*EndIf

*#
*# Begin block of Supports
*include ..\include.src.bas\Support_for_nodes.bas
*# End block of Supports
*#
*# Begin block of Loads
*include ..\include.src.bas\Load_Force_for.bas
*# End block of Loads
*#
*# Begin block of Prescribed Displacements
*include ..\include.src.bas\Displacement_for_nodes.bas
*include ..\include.src.bas\Rotation_for_nodes.bas
*# End block of Prescribed Displacements
*#
*# Begin block of Weight
*include ..\include.src.bas\Weight_for_elems.bas
*# End block of Volumes Weight
*#
*# Begin block of Const Temperatura
*include ..\include.src.bas\Temperature_for_elems.bas
*# End block of Const Temperatura
*#
*# Begin block of initial Strain
*include ..\include.src.bas\Initial_Strain_for_elems.bas
*# End block of initial Strain
*#
*# Begin block of prestressing reinforcement
*include ..\include.src.bas\Prestressing.bas
*# End block of prestressing reinforcement
*#
*# Begin block of initial Stress
*include ..\include.src.bas\Initial_Stress_for_elems.bas
*# End block of Volumes InitialStress
*# Begin block of initial Gap load
*include ..\include.src.bas\Initial_Gap_Load_for_elems.bas
*# End block of Volumes Initial Gap load
*#
*# Begin block of MASTER/SLAVE cond
*#If(ndime==3)
*include ..\include.src.bas\Fixed_Contact_for_Surface.bas
*include ..\include.src.bas\Fixed_2D_Shell_to_Solid_for.bas
*include ..\include.src.bas\Fixed_1D_Beam_to_Solid_for.bas
*#include ..\include.src.bas\Fixed_1D_Beam_to_2D_Shell_for.bas
*#EndIf
*include ..\include.src.bas\Load_universally_for.bas

BEAM_NL_CONNECTION
MAX_COORDS_TOL *GenData(Max_Coords_Tol,REAL)
 
      //	-> block of Supports - number of condition #*nSupport
      //
      //	-> block of Loads - Point number of condition #*nLoad1D
      //	-> block of Loads - Line number of condition #*nLoad2D
      //	-> block of Loads - Surface number of condition #*nLoad3D/*nLoadCND3D
      //
      //	-> block of Prescribed Displacements - number of condition #*nDisplacement
      //
      //	-> block of Weight - Line number of condition #*nWeight1D
      //	-> block of Weight - Surface number of condition #*nWeight2D
      //	-> block of Weight - Volume number of condition #*nWeight3D
      //
      //	-> block of Temperatura - number of condition #*nTemperatura
      //
      //	-> block of InitialStrain - Line number of condition #*nInitialStrain1D
      //	-> block of InitialStrain - Surface number of condition #*nInitialStrain2D
      //	-> block of InitialStrain - Volume number of condition #*nInitialStrain3D
      //
*#      //	-> block of InitialStress - Line number of condition #*nInitialStress1D
*#      //	-> block of InitialStress - Surface number of condition #*nInitialStress2D
*#      //	-> block of InitialStress - Volume number of condition #*nInitialStress3D
*#      //
      //	-> block of Prestressing - Line number of condition #*nPrestress1D
      //
      //	-> block of Master/Slave  #*nMasterSlaveIndex

                                                                                 
