SUBROUTINE DMATVEC( N, D, V, C )
INTEGER, INTENT(IN ) :: N ! input: dimension
REAL , INTENT(IN ) :: D( N ) ! input: diagonal matrix
REAL , INTENT(IN ) :: V( N ) ! input: vector
REAL , INTENT( OUT) :: C( N ) ! output: vector
USE M3UTILIO
DMATVEC() applies diagonal matrix D
to vector V to generate output
vector C:
C(K) = D(R)*V(R)See also subroutines
BMATVEC and BILIN, PMATVEC, SMATVEC, and UNGRIDBand programs
MTXBLEND, MTXBUILD, MTXCALC, MTXCPLE.
To: Models-3/EDSS I/O API: The Help Pages