Esope source files

   1 : C SDT3      SOURCE    CHAT      05/01/13    03:13:10     5004           
   2 :       FUNCTION SDT3(N,A,B,C)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 :       REAL*8 SDT3,AUX,A(1),B(1),C(1)
   6 : C
   7 :       AUX=0.D0
   8 :       DO 1 I=1,N
   9 :       AUX=AUX+A(I)*B(I)*C(I)
  10 :  1    CONTINUE
  11 :       SDT3=AUX
  12 :       RETURN
  13 :       END
  14 :  
  15 :