C
C     Common variables
C
      DOUBLE PRECISION    PEC
C
      COMMON / DIFFC  /   PEC
C