C
C     Common variables
C
      DOUBLE PRECISION    ALPHA0
C
      COMMON / LINKF  /   ALPHA0
C