Logo Search packages:      
Sourcecode: eigen3 version File versions  Download package

dmxm.f
      SUBROUTINE DMXM(A,N,B,M,C,L)
**
**    C = A * B
**    A ET B MATRICES A(N,M)  B(M,L) ==> C(N,L)
**
*>A      PREMIERE MATRICE
*>N      PREMIERE DIMENSION DE A ET DE C
*>B      DEUXIEME MATRICE
*>M      DEUXIEME DIMENSION DE A ET PERMIERE DE B
*<C      MATRICE PRODUIT DE A ET DE B
*>L      DEUXIEME DIMENSION DE B ET DE C
*A R. SANCHEZ ( EARLY WINTER 1987 )
*V M.F. ROBEAU
*M AM BAUDRON - AVRIL 94
*: ERREUR DANS L'APPEL A L'UTILITAIRE SGEMM
*: APPEL A L'UTILITAIRE SGEMM DE LA LIBRAIRIE BLAS SUR HP
*M AM BAUDRON - NOVEMBRE 1991
*: ERREUR ( SOMME SUR LES TERMES PAS FAITE )
*: APPEL A L'UTILITAIRE SGEMM DE LA LIBRAIRIE BLAS SUR RISC
*M AM BAUDRON - MAI 1993
*: CHANGEMENT DES %IF LOCAL SUN MIPS SUITE A INTRODUCTION VERSION IBM
      REAL*8 A(N,M),B(M,L),C(N,L),R
      DO 20 I=1,N
      DO 20 J=1,L
         R=0.
         DO 10 K=1,M
            R=R+A(I,K)*B(K,J)
   10    CONTINUE
         C(I,J)=R
   20 CONTINUE
      RETURN
      END

Generated by  Doxygen 1.6.0   Back to index