integer imax,jmax,kmax,i,j,k
      integer i1  ,j1  ,k1
      parameter ( imax =256)
      parameter ( jmax =  4)
      parameter ( kmax =256)
      parameter ( i1 =imax+1)
      parameter ( j1 =jmax+1)
      parameter ( k1 =kmax+1)