Télécharger teta.eso

Retour à la liste

Numérotation des lignes :

  1. C TETA SOURCE JC220346 16/11/29 21:15:37 9221
  2. C---------------------------------------------------------------------|
  3. C |
  4. FUNCTION TETA(IF1,IF2,II,JJ)
  5. C |
  6. C CETTE FONCTION REELLE RENVOIE LA VALEUR DE L'ANGLE ENTRE |
  7. C LES 2 FACETTES IF1 ET IF2. |
  8. C ELLE RENVOIE 0 SI LES ANGLES DES ARETES NE SONT PAS CORRECTS |
  9. C |
  10. C---------------------------------------------------------------------|
  11. C
  12. IMPLICIT INTEGER(I-N)
  13. IMPLICIT REAL*8(A-H,O-Z)
  14. -INC TDEMAIT
  15. -INC CCOPTIO
  16. LOGICAL DROIT2
  17. C
  18. C
  19. LL=ISUCC(IF2,II)
  20. KK=IPRED(IF1,II)
  21. C
  22. * IF (.NOT. DROIT2(LL,II,KK)) GOTO 200
  23. * IF (.NOT. DROIT2(ISUCC(IF1,JJ),JJ,IPRED(IF2,JJ))) GOTO 200
  24. C
  25. TETA=ALPHA(II,KK,JJ,LL)
  26. GOTO 210
  27. C
  28. *200 CONTINUE
  29. * TETA=1E6
  30. C
  31. 210 CONTINUE
  32. C
  33. * WRITE(6,1000)IF1,IF2,TETA
  34. 1000 FORMAT(' IF1=',I3,' IF2=',I3,' +*+* TETA=',F7.2)
  35. C
  36. RETURN
  37. C FIN DE LA FONCTION TETA
  38. END
  39.  
  40.  
  41.  
  42.  

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