      INTEGER    i,j,k,imax,jmax,kmax,i1,j1,k1,iwork,isave

      PARAMETER (imax = 64)  	
      PARAMETER (jmax = 32)
      PARAMETER (kmax = 96) 

      PARAMETER (i1 = imax + 1)
      PARAMETER (j1 = jmax + 1)
      PARAMETER (k1 = kmax + 1)

c *** reduce work space for non-used CFP solver ***

      PARAMETER (iwork = 1)
      PARAMETER (isave = 1)


