Télécharger scal2.eso

Retour à la liste

Numérotation des lignes :

  1. C SCAL2 SOURCE CHAT 05/01/13 03:12:22 5004
  2. SUBROUTINE SCAL2(ENT,SOR,VAL)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION ENT(3),SOR(3)
  6. C
  7. C-----------------------------------------------------
  8. C CALCUL DE LE PRODUIT SCALAIRE SIG * EPS
  9. C POUR LE MODELE BETON
  10. C-----------------------------------------------------
  11. C
  12. VAL=SOR(1)*ENT(1)+SOR(2)*ENT(2)+2.D0*SOR(3)*ENT(3)
  13. RETURN
  14. END
  15.  
  16.  

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