Télécharger retour.eso

Retour à la liste

Numérotation des lignes :

  1. C RETOUR SOURCE CHAT 05/01/13 02:55:10 5004
  2. SUBROUTINE RETOUR(SIG1,SIG2,CC,SS,CS,ITENRZ)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. C
  7. DIMENSION SIG1(*),SIG2(*)
  8. C
  9. IF(ITENRZ.EQ.0) RETURN
  10. IF(ITENRZ.NE.2) GO TO 1
  11. SIG2(1)=0.D0
  12. SIG2(2)=0.D0
  13. SIG2(4)=0.D0
  14. GO TO 2
  15. 1 SIG2(1)=SIG1(1)*CC+SIG1(2)*SS-2.D0*SIG1(3)*CS
  16. SIG2(2)=SIG1(1)*SS+SIG1(2)*CC+2.D0*SIG1(3)*CS
  17. SIG2(4)=CS*(SIG1(1)-SIG1(2))+SIG1(3)*(CC-SS)
  18. C
  19. 2 RETURN
  20. END
  21.  
  22.  

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