anchor.diff:    INTEGER(IntKi)                 :: i2, i2_l, i2_u  !  bounds (upper/lower) for an array dimension 2
     INTEGER(IntKi)                 :: i3, i3_l, i3_u  !  bounds (upper/lower) for an array dimension 3
     INTEGER(IntKi)                 :: ErrStat2
  -  CHARACTER(1024)                :: ErrMsg2
  +  CHARACTER(ErrMsgLen)           :: ErrMsg2
     CHARACTER(*), PARAMETER        :: RoutineName = 'NWTC_Library_UnPackMeshMapType'
    ! buffers to store meshes, if any
     REAL(ReKi),      ALLOCATABLE   :: Re_Buf(:)
  
positive.code:   INTEGER(IntKi)                 :: Db_Xferred
    INTEGER(IntKi)                 :: Int_BufSz
    INTEGER(IntKi)                 :: Int_Xferred
    INTEGER(IntKi)                 :: i,i1,i2,i3,i4,i5     
    LOGICAL                        :: OnlySize ! if present and true, do not pack, just allocate buffers
    INTEGER(IntKi)                 :: ErrStat2
    CHARACTER(1024)                :: ErrMsg2
    CHARACTER(*), PARAMETER        :: RoutineName = 'NWTC_Library_PackMeshMapType'
   ! buffers to store subtypes, if any
    REAL(ReKi),      ALLOCATABLE   :: Re_Buf(:)
  
negative.code:     DEALLOCATE(mask2)
    END IF
   END SUBROUTINE NWTC_Library_UnPackMeshMapType
  
  !*********************************************************************************************************************************
  !ENDOFREGISTRYGENERATEDFILE
  
  