C
C     Common variables
C
      DOUBLE PRECISION    A,           RE,          S1,          S2
      DOUBLE PRECISION    S3
C
      COMMON / COEFS  /   S1,          S2,          S3,          RE
      COMMON / COEFS  /   A
C