ddot Function

function ddot(n, dx, incx, dy, incy)

Arguments

Type IntentOptional Attributes Name
integer :: n
real(kind=8) :: dx(*)

@# KKRtags: deprecated @# KKRmerge: remove this as it is only used in ddet33, so n=3 

 forms the dot product of two vectors.
 uses unrolled loops for increments equal to one.
 jack dongarra, linpack, 3/11/78.
 modified 12/3/93, array(1) declarations changed to array(*)
integer :: incx
real(kind=8) :: dy(*)

@# KKRtags: deprecated @# KKRmerge: remove this as it is only used in ddet33, so n=3 

 forms the dot product of two vectors.
 uses unrolled loops for increments equal to one.
 jack dongarra, linpack, 3/11/78.
 modified 12/3/93, array(1) declarations changed to array(*)
integer :: incy

Return Value real(kind=8)