source: trunk/LMDZ.MARS/libf/bibio/mxv.F @ 1242

Last change on this file since 1242 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM

File size: 401 bytes
Line 
1      SUBROUTINE MXV(A,NRA,B,NCA,C)
2      IMPLICIT NONE
3
4      INTEGER NRA,NCA
5      REAL A(NRA,NCA), B(NCA), C(NRA)
6
7      INTEGER I,J
8
9c     initialize product
10      DO 100 I = 1, NRA
11         C(I) = 0.
12100   CONTINUE
13c     multiply matrix A and vector B
14      DO 220 J = 1, NCA
15         DO 210 I = 1, NRA
16            C(I) = C(I) + A(I,J)*B(J)
17210     CONTINUE
18220   CONTINUE
19      RETURN
20      END
Note: See TracBrowser for help on using the repository browser.