SUBROUTINE PMATVEC( NCOLS, NROWS, NCOFF, N, I, U, V ) INTEGER, INTENT(IN ) :: NCOLS ! length of input vector INTEGER, INTENT(IN ) :: NROWS ! length of output vector INTEGER, INTENT(IN ) :: NCOFF ! max number of coefficients INTEGER, INTENT(IN ) :: N( NROWS ) ! number of entries per row INTEGER, INTENT(IN ) :: I( NCOFF ) ! columns list REAL , INTENT(IN ) :: U( NCOLS ) ! input vector REAL , INTENT( OUT) :: V( NROWS ) ! output vector
C(R) = SUMK=N(R-1)-1N(R) U(I(K))See also subroutines
BMATVEC and BILIN, DMATVEC, SMATVEC, and UNGRIDBand programs
MTXBLEND, MTXBUILD, MTXCALC, MTXCPLE.
USE M3UTILIO
!! under construction !!
To: Models-3/EDSS I/O API: The Help Pages