Registering Chunk Data
!- Fortran driver subroutine

use my_block_mod
interface
      subroutine pup_my_block(p,m)
          use my_block_mod
          INTEGER :: p
          TYPE(my_block) :: m
      end subroutine
end interface
TYPE(my_block) :: m
CALL FEM_Register(m,pup_my_block)