1 |       SUBROUTINE cor_ck(g,phi1,phi2,rap)
   2 |       IMPLICIT NONE
   3 | 
   4 |       DOUBLE PRECISION g,phi1,phi2,rap
   5 |       DOUBLE PRECISION a1,a2
   6 |       
   7 | 
   8 |       !print *,'-----DEDANS: ',phi1,phi2,'A',g
   9 |       CALL cofg(phi1,1.D+0,g,g,a1)
  10 |       !print *,'-----SORTIE_1  ',a1
  11 |       CALL cofg(phi2,1.D+0,g,g,a2)
  12 |       !print *,'-----SORTIE_2'
  13 |       rap=a2/a1
  14 | 
  15 |       RETURN
  16 |       END