C
C     Common variables
C
      DOUBLE PRECISION    Z(0:NBP1,0:NBP1)
C
      COMMON / PTDS   /   Z
C