Esope source files

   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 :