!
!  main_mem.f90
!
module main_memory
       integer, parameter :: irzp=100,iizp=400,iczp=400
       integer :: irz,iiz,icz,idz
       save irz,iiz,icz,idz
end module