HP Fortran Programmer's Reference

Intrinsic procedures
Intrinsic procedure specifications
Result type,
type parameters,
and shape
552
If MATRIX_A has rank one, MATRIX_B must have rank two. If MATRIX_B has
rank one, MATRIX_A must have rank two. The size of the first (or only)
dimension of MATRIX_B must equal the size of the last (or only) dimension of
MATRIX_A.
If the arguments are of numeric type, the type and kind type parameter of the result are
determined by the types of MATRIX_A and MATRIX_B.
If the arguments are of type logical, the result is of type logical with the kind type parameter
of the arguments.
The shape of the result depends on the shapes of the arguments as follows:
Case 1 If MATRIX_A has shape [n, m] andMATRIX_B has shape [m, k], the result has
shape [n, k].
Case 2 If MATRIX_A has shape [m] andMATRIX_B has shape [m, k], the result has
shape [k].
Case 3 If MATRIX_A has shape [n, m] andMATRIX_B has shape [m], the result has
shape [n].
Result value
Case 1 Element (i, j) of the result has the value SUM(MATRIX_A(i,:) *
MATRIX_B(:, j)) if the arguments are of numeric type and has the value
ANY(MATRIX_A(i, :) .AND. MATRIX_B(:, j)) if the arguments are of
logical type.
Case 2 Element (j) oftheresulthasthevalueSUM(MATRIX_A(:) * MATRIX_B(:,
j)) iftheargumentsareofnumerictypeandhasthevalue
ANY(MATRIX_A(:) .AND. MATRIX_B(:, j)) if the arguments are of logical
type.
Case 3 Element (i) oftheresulthasthevalueSUM(MATRIX_A(i, :) *
MATRIX_B(:)) if the arguments are of numeric type and has the value
ANY(MATRIX_A(i, :) .AND. MATRIX_B(:)) if the arguments are of logical
type.
Chapter 11