1 |       INTEGER n_gtab_mx,n_gtab,i_gtab
   2 |       PARAMETER(n_gtab_mx=20)
   3 |       PARAMETER(n_gtab=n_gtab_mx)
   4 |       INTEGER n_phitab_mx,n_phitab,i_phitab
   5 |       PARAMETER(n_phitab_mx=200)
   6 |       PARAMETER(n_phitab=n_phitab_mx)
   7 |       DOUBLE PRECISION gtab(0:n_gtab_mx),fgtab(0:n_gtab_mx)
   8 |       DOUBLE PRECISION phitab(0:n_phitab_mx),lphitab(0:n_phitab_mx)
   9 |       DOUBLE PRECISION atab(0:n_phitab_mx,0:n_gtab_mx)
  10 |       DOUBLE PRECISION coef_fg

  11 |       PARAMETER(coef_fg=0.5D+0)
  12 |       COMMON/comck/gtab,fgtab,phitab,lphitab,atab