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.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18. LOGICAL DROIT2
  19. C
  20. C
  21. LL=ISUCC(IF2,II)
  22. KK=IPRED(IF1,II)
  23. C
  24. * IF (.NOT. DROIT2(LL,II,KK)) GOTO 200
  25. * IF (.NOT. DROIT2(ISUCC(IF1,JJ),JJ,IPRED(IF2,JJ))) GOTO 200
  26. C
  27. TETA=ALPHA(II,KK,JJ,LL)
  28. GOTO 210
  29. C
  30. *200 CONTINUE
  31. * TETA=1E6
  32. C
  33. 210 CONTINUE
  34. C
  35. * WRITE(6,1000)IF1,IF2,TETA
  36. 1000 FORMAT(' IF1=',I3,' IF2=',I3,' +*+* TETA=',F7.2)
  37. C
  38. RETURN
  39. C FIN DE LA FONCTION TETA
  40. END
  41.  
  42.  
  43.  
  44.  

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