Télécharger calff.eso

Retour à la liste

Numérotation des lignes :

  1. C CALFF SOURCE CB215821 16/04/21 21:15:28 8920
  2. SUBROUTINE CALFF(A,FE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. IF((1+A).LT.1E-3) THEN
  6. FE = -1.5
  7. ELSE
  8. IF ((A-1).GT.-1E-3) THEN
  9. FE = -1.5 + LOG(4.D0)
  10. ELSE
  11. B = SQRT(1.-A*A)
  12. FE = -1.5 +((1+A)/2)*LOG(2*(1+A))
  13. * + B* (ATAN((1+A)/B) - ATAN(A/B) )
  14. ENDIF
  15. ENDIF
  16. RETURN
  17. END
  18.  
  19.  
  20.  
  21.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales