anchor.diff:            CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
          temp_id = temp_id2
      ENDDO
  -! Compute blade/member/segment lengths and the ratios between member/segment and blade lengths
  +   ! Compute blade/member/segment lengths and the ratios between member/segment and blade lengths
      CALL AllocAry(p%member_length,InputFileData%member_total,2,'member length array',ErrStat2,ErrMsg2)
         CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
   
  
positive.code:       CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
        IF( ErrStat >= AbortErrLev ) RETURN
  
  !Read inputs from Driver/Glue code
  !1 Global position vector
  !2 Global rotation tensor
  !3 Gravity vector
     CALL AllocAry(p%GlbPos,3,'Global position vector',ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL AllocAry(p%GlbRot,3,3,'Global rotation tensor',ErrStat2,ErrMsg2)
  
negative.code:    IF( ErrStat >= AbortErrLev ) RETURN
  
     WRITE(*,*) "Finished Read Input"
     ! Allocate continuous states
     CALL AllocAry(x%q,p%dof_total,'x%q',ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL AllocAry(x%dqdt,p%dof_total,'x%dqdt',ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     ! Allocate other states: Acceleration and algorithm accelerations 
     ! for generalized-alpha time integator
     CALL AllocAry(OtherState%acc,p%dof_total,'OtherState%acc',ErrStat2,ErrMsg2)
        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
     CALL AllocAry(OtherState%xcc,p%dof_total,'OtherState%xcc',ErrStat2,ErrMsg2)
  