!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
      integer npkappa,nqsatvp
      parameter (npkappa=1400, nqsatvp=844)
      real pkappa(npkappa), qsatvp(nqsatvp)
      common /tables/ pkappa,qsatvp