Télécharger la plaquette Cast3M


fr en

Télécharger teta.eso

Retour à la liste

Numérotation des lignes : 

teta

  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