C
C     Common variables
C
      DOUBLE PRECISION    P(0:NBP1,0:NBP1)
C
      COMMON / PRES   /   P
C