HP Fortran Programmer's Reference (September 2007)

Intrinsic procedures
Intrinsic procedure specifications
Chapter 11 545
Argument
I must be of type character.
Result type
Double precision.
DOT_PRODUCT(VECTOR_A, VECTOR_B)
Description
Performs dot-product multiplication of numeric or logical vectors.
Class
Transformational function.
Arguments
VECTOR_A must be of numeric type (integer, real, or complex) or of logical type. It must
be array valued and of rank one.
VECTOR_B must be of numeric type if VECTOR_A is of numeric type or of type logical if
VECTOR_A is of type logical. It must be array valued and of rank one. It must
be of the same size as VECTOR_A.
Result type,
type parameters,
and shape
The result is scalar.
If the arguments are of numeric type, the type and kind type parameter of the result are those
of the expression VECTOR_A * VECTOR_B determined by the types of the arguments.
If the arguments are of type logical, the result is of type logical with the kind type parameter
of the expression VECTOR_A .AND. VECTOR_B.
Result value
Case 1 If VECTOR_A is of type integer or real, the result has the value
SUM(VECTOR_A*VECTOR_B). If the vectors have size zero, the result has the
value zero.