anchor.diff:     CHARACTER(*), INTENT(OUT)              :: ErrMess
   
      INTEGER                                   :: ErrStatLcL        ! Error status returned by called routines.
  -   CHARACTER(LEN(ErrMess))                   :: ErrMessLcl          ! Error message returned by called routines.
  +   CHARACTER(ErrMsgLen)                      :: ErrMessLcl          ! Error message returned by called routines.
      
      ErrStat = ErrID_None
      ErrMess = ""
  
positive.code: CHARACTER(1024)              :: LINE
  
     INTEGER                    :: ErrStatLcL        ! Error status returned by called routines.
     CHARACTER(LEN(ErrMess))    :: ErrMessLcl          ! Error message returned by called routines.
  
  
  
  
negative.code:    REAL(ReKi)                 :: VN
  
     INTEGER                                   :: ErrStatLcL        ! Error status returned by called routines.
     CHARACTER(ErrMsgLen)                      :: ErrMessLcl          ! Error message returned by called routines.
  
     ErrStat = ErrID_None
     ErrMess = ""
  