Télécharger rota.eso

Retour à la liste

Numérotation des lignes :

  1. C ROTA SOURCE CHAT 05/01/13 03:04:57 5004
  2. FUNCTION ROTA(S,CC,SS,CS,I)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8 (A-H,O-Z)
  6. C
  7. DIMENSION S(*)
  8. C
  9. GO TO(1,2,3),I
  10. C
  11. 1 ROTA=S(1)*CC+2.D0*CS*S(4)+S(2)*SS
  12. GO TO 4
  13. 2 ROTA=S(1)*SS-2.D0*CS*S(4)+S(2)*CC
  14. GO TO 4
  15. 3 ROTA=CS*(S(2)-S(1))+S(4)*(CC-SS)
  16. C
  17. 4 RETURN
  18. END
  19.  
  20.  
  21.  

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