Télécharger kaftan.eso

Retour à la liste

Numérotation des lignes :

  1. C KAFTAN SOURCE CB215821 16/04/21 21:17:21 8920
  2. SUBROUTINE KAFTAN(R1,Z1,RA,ZA,RB,ZB,A)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C----------------------------------------------------------------------
  6. C SP appele par KAINTE
  7. C existence d un point tangent associe au segment obstructeur AB
  8. C points (RA,ZA) et (RB,ZB)
  9. C resultat A : 2 si exterieur
  10. C : represente un cosinus sinon
  11. C----------------------------------------------------------------------
  12.  
  13. DMIN=1.D-3
  14. IF(ABS(ZB-ZA).LE.DMIN) THEN
  15. A=2.
  16. ELSE
  17. A=Z1*(RB-RA)+(RA*ZB-RB*ZA)
  18. A=A/R1/(ZB-ZA)
  19. ENDIF
  20. RETURN
  21. END
  22.  
  23.  
  24.  
  25.  

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