anchor.diff:  
         INTEGER(IntKi), INTENT(OUT)            :: ErrStat                       ! The error status.
         INTEGER(IntKi), INTENT(INOUT)          :: LineNum                       ! The number of the line to parse.
  +
  +      INTEGER,        INTENT(IN), OPTIONAL   :: UnEc                          ! I/O unit for echo file. If present and > 0, write to UnEc.
   
         CHARACTER(*),   INTENT(In)             :: AryName                       ! The array name we are trying to fill.
         CHARACTER(*),   INTENT(OUT)            :: ErrMsg                        ! The error message, if ErrStat /= 0.
  
positive.code:    END SUBROUTINE IntAry2Str
  !=======================================================================
     SUBROUTINE DLLTypePack( InData, ReKiBuf, DbKiBuf, IntKiBuf, ErrStat, ErrMsg, SizeOnly )
     
        ! This routine packs the DLL_Type data into an integer buffer.
     
        TYPE(DLL_Type),                INTENT(IN   ) :: InData
        REAL(ReKi),       ALLOCATABLE, INTENT(  OUT) :: ReKiBuf(:)
        REAL(DbKi),       ALLOCATABLE, INTENT(  OUT) :: DbKiBuf(:)
  
negative.code:             CALL WrScr('Error '//TRIM(Num2LStr(ErrStat))//' writing matrix in WrMatrix().')
              RETURN
           END IF
  
  
        END DO
  
     RETURN
     END SUBROUTINE WrMatrix2
  !=======================================================================
     SUBROUTINE WrML ( Str )
  
  
  