1 |       SUBROUTINE cor_tab_ck(g,phi1,phi2,rap)
   2 |       IMPLICIT NONE
   3 | 
   4 | !      INCLUDE 'cecile.inc'
   5 | 
   6 | !      include 'propradia.inc'
   7 | !      include 'propradiabis.inc'
   8 | 
   9 | !      include 'radiatif.inc' 
  10 | !      include 'entre.inc'
  11 | 
  12 | 
  13 |       DOUBLE PRECISION g,phi1,phi2,rap
  14 |       DOUBLE PRECISION a1,a2
  15 | 
  16 |       CALL adg_tab(phi1,g,a1)
  17 |       CALL adg_tab(phi2,g,a2)
  18 |       rap=a2/a1
  19 | !      rap = 1.D+0
  20 | !      print *, 'g, phi1,phi2:  ',g,phi1,phi2,
  21 | !      print * ,'  rap: ',rap , kgskgbar(1),kgskgbar(2),kgskgbar(3)
  22 |       RETURN
  23 |       END