anchor.diff:     ! write initial condition for q1
      !CALL WrScr  ( '  '//Num2LStr(t_global)//'  '//Num2LStr( BDyn_ContinuousState%q)//'  '//Num2LStr(BDyn_ContinuousState%q))   
      
  -n=2
  +n=1
   
   !DO j=1,1	!ADDED LOOP TO RUN THROUGH ALL LOAD STEP SCENARIOS, NJ 3/18/2014
   !	CALL StaticSolutionGL(BD_Parameter%uuN0, BD_OtherState%uuNf,&
  
positive.code: !
  !**********************************************************************************************************************************
  PROGRAM MAIN
   
     USE BeamDynLSGL
     USE BeamDyn_Types
  
  
negative.code:    Integer(IntKi)                     :: j               ! counter for various loops
     Integer(IntKi)                     :: k               ! counter for various loops
     Integer(IntKi)                     :: n               ! counter load reduction
  
     OPEN(unit = OutUnit, file = 'BeamDyn.out', status = 'REPLACE',ACTION = 'WRITE')
     OPEN(unit = OutQiUnit, file = 'QiStaticDisp.out', status = 'REPLACE',ACTION = 'WRITE')
  