anchor.diff:     INTEGER                    :: NP1
   
      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(  3)                         :: Vel_Unit
                                            
     CHARACTER(1),PARAMETER                 :: Delim = ' '  ! bjj: made this a parameter because I don't think tabs work very well in a summary file
     CHARACTER(LEN(ErrMess))                :: ErrMessLcl
  
  
     ErrStat = ErrID_None
  
negative.code: CHARACTER(1024)              :: LINE
  
     INTEGER                    :: ErrStatLcL        ! Error status returned by called routines.
     CHARACTER(ErrMsgLen)       :: ErrMessLcl          ! Error message returned by called routines.
  
  
  
  