Télécharger clveca.eso

Retour à la liste

Numérotation des lignes :

  1. C CLVECA SOURCE CHAT 05/01/12 22:08:58 5004
  2. SUBROUTINE CLVECA (SIGMA,VECZ,ANGLE,IANGLE)
  3. C
  4. IMPLICIT INTEGER(I-N)
  5. IMPLICIT REAL*8(A-H,O-Z)
  6. C
  7. DIMENSION SIGMA(*),SIG(3),VECZ(*)
  8. C
  9. C INITIALISATION
  10. C
  11. UNIT=0.0174532925199432957692D0
  12. SIG(1)=SIGMA(1)
  13. SIG(2)=SIGMA(2)
  14. SIG(3)=SIGMA(4)
  15. C
  16. IF(IANGLE.EQ.0) THEN
  17. CALL VPMAX3 (SIGMA,SIGMAX,VECZ)
  18. RETURN
  19. ENDIF
  20. C
  21. IF(IANGLE.GT.0) THEN
  22. CALL DIAGOD (SIG)
  23. ANGLE=SIG(3)
  24. IF(IANGLE.EQ.2) ANGLE=ANGLE*UNIT
  25. RETURN
  26. ENDIF
  27. C
  28. END
  29.  
  30.  

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