anchor.diff:  
      USE ModMesh_Types
      IMPLICIT NONE
  -!   PRIVATE
   
      INTEGER, PARAMETER :: BUMPUP = 64  ! do not set to less than 2
   
  
positive.code:      INTEGER(IntKi),              INTENT(OUT)   :: ErrStat  ! Error code
       CHARACTER(*),                INTENT(OUT)   :: ErrMess  ! Error message
      ! Optional arguments (used only if CtrlCode is MESH_SIBLING):
       LOGICAL,        OPTIONAL,    INTENT(IN)    :: Force             ! If present and true, allocate Force field
       LOGICAL,        OPTIONAL,    INTENT(IN)    :: Moment            ! If present and true, allocate Moment field
       LOGICAL,        OPTIONAL,    INTENT(IN)    :: Orientation       ! If present and true, allocate Orientation field
  
negative.code:      SzOnly = .FALSE.
       IF ( PRESENT(SizeOnly) ) SzOnly = SizeOnly
  
  
  !bjj: if we modify the code below to check if things are allocated/etc we can remove this requirement
       IF (.NOT. Mesh%Committed ) THEN
          ErrStat = ErrID_Fatal
          ErrMess = " MeshPack: Uncommitted meshes cannot be packed."
          RETURN
       END IF
  
      ! Traverse the element list and calculate size needed to store element records
       n_int = 0
       nelem = 0
  