anchor.diff:       IF ( mesh_debug ) print*,'Called MeshConstructElement_6PT'
        ErrStat = ErrID_None
        ErrMess = ''
  -     ErrStat = 1
  +     ErrStat = ErrID_Fatal
        ErrMess = 'MeshConstructElement_6PT not supported'
      END SUBROUTINE MeshConstructElement_6PT
   
  
positive.code:      ErrMess = ''
      ! Safety first
       IF ( .NOT. Mesh%Initialized ) THEN
         ErrStat = -1
         WRITE(ErrMess,'("MeshConstructElement_1PT: attempt to use uncreated mesh.")')
       ENDIF
       IF ( P1 .LT. 1 .OR. P1 .GT. Mesh%Nnodes ) THEN
         WRITE(ErrMess,'("MeshConstructElement_1PT: invalid P1 ",i10," for mesh with ",i10," nodes.")')P1,Mesh%Nnodes
       ENDIF
       IF ( ErrStat .NE. 0 ) THEN
          WRITE(0,*)TRIM(ErrMess)
          RETURN  !  early return on error
       ENDIF
      ! Business
  
negative.code:      ErrMess = ""
      ! Safety first
       IF ( .NOT. Mesh%Initialized ) THEN
         ErrStat = ErrID_Fatal
         ErrMess = "MeshConstructElement_1PT: attempt to use uncreated mesh."
       ENDIF
       IF ( P1 .LT. 1 .OR. P1 .GT. Mesh%Nnodes .OR. &
            P2 .LT. 1 .OR. P2 .GT. Mesh%Nnodes ) THEN
         ErrMess ="MeshConstructElement_2PT: invalid P1 ("//TRIM(Num2LStr(P1))//") or P2 ("//TRIM(Num2LStr(P2))//&
                       ") for mesh with "//TRIM(Num2LStr(Mesh%Nnodes))//" nodes."
       ENDIF
  ! TODO: hook the element into a list of elements stored in this mesh to
  ! allow traversal over elements
       IF ( ErrStat .NE. ErrID_None ) THEN
          CALL WrScr( TRIM(ErrMess) )
          RETURN  !  early return on error
       ENDIF
      ! Business
  