anchor.diff:    integer(MPI_address_kind),save::baseMPI
     integer,save::typeNodeMPI,typePointMPI,typeLineMPI,typeTriMPI,typeQuadMPI,typeTetMPI,typeHexMPI,&
     &             typeFacetMPI,typeEleMPI
  +  integer,allocatable,save::mapNode(:),mapPoint(:),mapLine(:),mapTri(:),mapQuad(:),mapTet(:),&
  +  &                         mapHex(:),mapFacet(:),mapEle(:)
   end module
   
   !****************************
  
positive.code:   call MPI_type_free(typeEleMPI,errMPI)
    call MPI_finalize(errMPI)
  end subroutine
  
negative.code:   call MPI_comm_rank(MPI_comm_world,pidMPI,errMPI)
    call MPI_comm_size(MPI_comm_world,sizeMPI,errMPI)
    
    ! Note: all the types are split into scalers to ensure correctness
    ! node struct
    nblkMPI=3
    allocate(llenMPI(nblkMPI))
  