         integer NXMAX
	 parameter ( NXMAX = 5000 )

         integer NYMAX
	 parameter ( NYMAX = 5000 )

         integer NZMAX
	 parameter ( NZMAX = 5000000 )  
         
         integer NNMAX
	 parameter ( NNMAX = (NXMAX+2)*NYMAX )
