C
C     Common variables
C
      DOUBLE PRECISION    PHIA(0:NBP1,0:NBP1),      PHIAN(0:NBP1,0:NBP1)
      DOUBLE PRECISION    PHIN(0:NBP1,0:NBP1),      PHINN(0:NBP1,0:NBP1)
C
      COMMON / PHI    /   PHIN,        PHINN,       PHIA,        PHIAN
C