Télécharger ottopr.eso

Retour à la liste

Numérotation des lignes :

  1. C OTTOPR SOURCE CHAT 05/01/13 02:07:47 5004
  2. SUBROUTINE OTTOPR(D,DDEF,DSIGMA)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. PARAMETER (DEUX=2.D0)
  7. *
  8. DIMENSION DDEF(6),DSIGMA(6),D(18)
  9. *
  10. DSIGMA(1)=D(1)*DDEF(1)+D(6)*DDEF(2)+D(5)*DDEF(3)
  11. DSIGMA(2)=D(6)*DDEF(1)+D(2)*DDEF(2)+D(4)*DDEF(3)
  12. DSIGMA(3)=D(5)*DDEF(1)+D(4)*DDEF(2)+D(3)*DDEF(3)
  13. DSIGMA(4)=D(10)*DDEF(1)+D(11)*DDEF(2)+D(12)*DDEF(3)
  14. & +DEUX*D(7)*DDEF(4)
  15. DSIGMA(5)=D(13)*DDEF(1)+D(14)*DDEF(2)+D(15)*DDEF(3)
  16. & +DEUX*D(8)*DDEF(5)
  17. DSIGMA(6)=D(16)*DDEF(1)+D(17)*DDEF(2)+D(18)*DDEF(3)
  18. & +DEUX*D(9)*DDEF(6)
  19. *
  20. RETURN
  21. END
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  

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