anchor.diff:        ! First allocate the arrays stored here:
   
      CALL Alloc_RtHS( OtherState%RtHS, p, ErrStat, ErrMsg  )
  -      IF (ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
   
      CALL Alloc_CoordSys( OtherState%CoordSys, p, ErrStat, ErrMsg )
  -      IF (ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
      
      CALL AllocAry( OtherState%QD2T, p%NDOF,   'OtherState%QD2T',  ErrStat, ErrMsg )
  -      IF ( ErrStat /= ErrID_None ) RETURN
  +      IF ( ErrStat >= AbortErrLev ) RETURN
   
      
      ALLOCATE ( OtherState%AllOuts(0:MaxOutPts) , STAT=ErrStat )
  
positive.code: 
        ! local variables
        TYPE(ED_InputType)                             :: u_interp
           
        INTEGER(IntKi)                                 :: ErrStat2    ! local error status
        CHARACTER(LEN(ErrMsg))                         :: ErrMsg2     ! local error message (ErrMsg)
  
  
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
     
   
     
  