Esope source files

   1 : C PROSC1    SOURCE    CHAT      05/01/13    02:34:53     5004           
   2 :       SUBROUTINE PROSC1(VECTB,VECTC,X,LONVEC)                                   
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : C SOUS-PROGRAMME APPELE PAR PROJ3                                               
   6 :       DIMENSION VECTB(1),VECTC(1)                                               
   7 :       X=0.D0                                                                    
   8 :       DO 1 I=1,LONVEC                                                           
   9 :       X=X+VECTB(I)*VECTC(I)                                                     
  10 :     1 CONTINUE                                                                  
  11 :       RETURN                                                                    
  12 :       END                                                                       
  13 :