subroutine ksvprd (x,y,prod,nrow) implicit double precision (a-h,o-z) dimension x(1),y(1) c c routine to multiply vectors x and y c c author - Gregory A. Wrenn c location - Lockheed Engineering and Sciences Co. c 144 Research Drive c Hampton, Va. 23666 c c last modification - 9 July 1988 c prod = 0.0 do 10 i = 1,nrow prod = prod + x(i) * y(i) 10 continue c return end