INTEGER choice
      REAL  gammas, alphas, betas, Fmax, qqa1, qqa2, qqa3, scut
      REAL  Qcoef1max,Qcoef2max,Supcrit1,Supcrit2
C
      COMMON/YOMCST2/gammas,    alphas, betas, Fmax, choice, scut,
     $               qqa1, qqa2, qqa3,
     $               Qcoef1max,Qcoef2max,
     $               Supcrit1, Supcrit2
C    --------------------------------------------------------------------