C4.11. FMS Subroutine XNDVMM

RNDVMM
CNDVMM

PURPOSE: Vectors-Matrix Multiply

Premultiply a full incore matrix [F] by a group of vectors {X} and place the results in vectors {Y}, according to the FMS Parameter IACCUM

{Y} = {Z} - {X}[F], IACCUM = -1,


{Y} =       {X}[F], IACCUM =  0, (default)


{Y} = {Z} + {X}[F], IACCUM = +1,

SYNOPSIS


	CALL RNDVMM (LUX, F, LUY, NUMX, NUMY, LUZ)

	CALL CNDVMM (LUX, F, LUY, NUMX, NUMY, LUZ)

INPUT PARAMETERS:

LUX(25) = Integer array.
File attributes for the {X} vectors.
F(NUMX, NUMY) = Real array (RNDVMM).
F(NUMX, NUMY) = Complex array (CNDVMM).
Full incore matrix in standard FORTRAN format.
LUY(25) = Integer array.
File attributes for the file where the {Y} vectors are to be written. This parameter may be the same as LUX to overlay the {Y} vectors on the {X} vectors.
NUMX = Integer.
Number of {X} vectors.
NUMY = Integer.
Number of {Y} vectors.
LUZ(25) = Integer array.
File attributes for the {Z} vectors. This parameter is only used if the FMS Parameter IACCUM is set to a nonzero value. This parameter may be the same as LUY to accumulate the results in {Y}.

OUTPUT PARAMETERS:

None.

FMS PARAMETERS:

The following FMS Parameters are especially important to this routine:

Parameter Description
IACCUM Product accumulation flag
= -1, {Y} = {Z} - {X}[F], = 0, {Y} = {X}[F], (default) = +1, {Y} = {Z} - {X}[F],

IPRMV Vectors-matrix multiply print code

Parameter	Description
IACCUM	Product accumulation flag = -1, {Y} = {Z} - {X}[F], = 0, {Y} = {X}[F], (default) = +1, {Y} = {Z} - {X}[F],
IPRMV	Vectors-matrix multiply print code

DESCRIPTION:

This subroutine multiplies a full matrix [F] stored in memory by a group of vectors {X} stored on file LUX. The resulting vectors {Y} are written to file LUY, which may be the same as file LUX.

The array [F] must be aligned on a natural address boundary.