      module parameters
      integer, parameter  :: PX=1,PY=1 !number of processors
      end module parameters




























