anchor.diff:     
         ! for loose coupling:
      CALL AllocAry( OtherState%IC,  NMX,   'IC',   ErrStat, ErrMsg )
  -   IF ( ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
      
      
      
      CALL AllocAry(OtherState%BlPitch, p%NumBl, 'BlPitch', ErrStat, ErrMsg )
  -      IF (ErrStat /= ErrID_None) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
      OtherState%BlPitch = InputFileData%BlPitch(1:p%NumBl)
   
      CALL AllocAry( OtherState%AugMat,       p%NDOF,          p%NAug,          'AugMat',       ErrStat, ErrMsg )
  -      IF ( ErrStat /= ErrID_None ) RETURN                                    
  +      IF ( ErrStat >= AbortErrLev ) RETURN
   !   CALL AllocAry( OtherState%AugMatOut,    p%NDOF,          p%NAug,          'AugMatOut',    ErrStat, ErrMsg )
   !      IF ( ErrStat /= ErrID_None ) RETURN 
      CALL AllocAry( OtherState%SolnVec,      p%DOFs%NActvDOF,                  'SolnVec',      ErrStat, ErrMsg )
  -      IF ( ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
      CALL AllocAry( OtherState%AugMat_pivot, p%DOFs%NActvDOF,                  'AugMat_pivot', ErrStat, ErrMsg )
  -      IF ( ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
      CALL AllocAry( OtherState%AugMat_factor,p%DOFs%NActvDOF, p%DOFs%NActvDOF, 'AugMat_factor',ErrStat, ErrMsg )
  -      IF ( ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
   
      
         ! Now initialize the IC array = (/NMX, NMX-1, ... , 1 /)
  
positive.code:       ! First allocate the arrays stored here:
  
     CALL Alloc_RtHS( OtherState%RtHS, p, ErrStat, ErrMsg  )
        IF (ErrStat /= ErrID_None ) RETURN
  
     CALL Alloc_CoordSys( OtherState%CoordSys, p, ErrStat, ErrMsg )
        IF (ErrStat /= ErrID_None ) RETURN
     
     CALL AllocAry( OtherState%QD2T, p%NDOF,   'OtherState%QD2T',  ErrStat, ErrMsg )
        IF ( ErrStat /= ErrID_None ) RETURN
  
     
     ALLOCATE ( OtherState%AllOuts(0:MaxOutPts) , STAT=ErrStat )
  
negative.code:    !
     !OtherState%QD2 = 0.0_ReKi
  
  
     OtherState%n   = -1  ! we haven't updated OtherState%xdot, yet
     
     DO i = LBOUND(OtherState%xdot,1), UBOUND(OtherState%xdot,1)
        CALL ED_CopyContState( x, OtherState%xdot(i), MESH_NEWCOPY, ErrStat, ErrMsg)
           IF ( ErrStat >= AbortErrLev ) RETURN 
     ENDDO
     
   
     
  