integer*4 khl,khh,kvl,kvh				      |	      integer khl,khh,kvl,kvh
      integer*4 nxsec,nysec,nzsec			      |	      integer nxsec,nysec,nzsec
      integer*4 nx,ny,nz,nxsec,nysec,ip,jp,nsfcfld,l	      |	      integer nx,ny,nz,nxsec,nysec,ip,jp,nsfcfld,l
							      |	        print*,'GDS in dutil'
							      >		print*, GDS
      integer*4 nx,ny,nz,dummy(7),nsfcfld,i,j,k,pres	      |	      integer nx,ny,nz,dummy(7),nsfcfld,i,j,k,pres