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