      integer ktotp, laxtp
      parameter (ktotp = lx1*ly1*lz1*lelt)
      parameter (laxtp = mxprev)
c
      integer         napproxp(2)
      common /prthoi/ napproxp

      real            approxp(ktotp,0:laxtp)
      common /prthov/ approxp

      character*4     name4p
      common /prthoc/ name4p
