Esope source files

   1 : C SCALPR    SOURCE    AM        11/05/26    21:16:40     6982           
   2 :       subroutine SCALPR (irang, VEC1, VEC2, SCAL)
   3 : C     SCAL=VEC1xVEC2
   4 : 
   5 :         IMPLICIT INTEGER(I-N)
   6 :         IMPLICIT REAL*8(A-H,O-Z)
   7 :         DIMENSION VEC1(irang), VEC2(irang)
   8 : *
   9 :         sum=0
  10 :         do i=1,irang
  11 :            sum=sum+VEC1(i)*VEC2(i)
  12 :         enddo
  13 :         SCAL=sum
  14 : 
  15 :         return
  16 :         end
  17 :