program test_write
c
      parameter (nptsx=185,nptsy=168,nptsz=70,ntimes=18)

      real data(nptsx,nptsy,nptsz)
c
      do nz=1,nptsz
        do ny=1,nptsy
          do nx=1,nptsx
            data(nx,ny,nz)=1000.
          enddo
        enddo
      enddo
c
      do t = 1, ntimes
         do j = 1, nptsy
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
            write (10) ((data(i,j,k), i=1,nptsx), k=1,nptsz) 
         enddo
      enddo
c
      stop
      end