Télécharger avm.eso

Retour à la liste

Numérotation des lignes :

  1. C AVM SOURCE CHAT 05/01/12 21:30:40 5004
  2. FUNCTION AVM(S,DS)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. DIMENSION S(*),DS(*)
  6. XX=0.5D0*((S(1)-S(2))*(DS(1)-DS(2))+(S(2)-S(3))*(DS(2)-DS(3))
  7. .+(S(3)-S(1))*(DS(3)-DS(1)))
  8. YY=3.D0*(S(4)*DS(4)+S(5)*DS(5)+S(6)*DS(6))
  9. AVM=XX+YY
  10. RETURN
  11. END
  12.  
  13.  
  14.  

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