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