C SCALPR    SOURCE    AM        11/05/26    21:16:40     6982           
      subroutine SCALPR (irang, VEC1, VEC2, SCAL)
C     SCAL=VEC1xVEC2

        IMPLICIT INTEGER(I-N)
        IMPLICIT REAL*8(A-H,O-Z)
        DIMENSION VEC1(irang), VEC2(irang)
*
        sum=0
        do i=1,irang
           sum=sum+VEC1(i)*VEC2(i)
        enddo
        SCAL=sum

        return
        end