Esope source files

   1 : C MATMAD    SOURCE    CHAT      05/01/13    01:34:36     5004           
   2 :       SUBROUTINE MATMAD(A,V,NL,NC,B)                                            
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : *                                                                               
   6 : * MULTIPLICATION MATRICE A PAR MATRICE DIAGONALE STOCKEE DANS V                 
   7 : *  LE RESULTAT EST MIS DANS B                                                   
   8 : *  B(NL,NC)= A(NL,NC)*C(NC,NC)                                                  
   9 : *  LE PREMIER INDICE EST DE LIGNE LE DEUXIEME DE COLONNE                        
  10 : *                                                                               
  11 : * PUIS ON TRANSPOSE B                                                           
  12 : *                                                                               
  13 :       DIMENSION A(NL,*),V(NC),B(NC,*)                                           
  14 :       DO 1 I=1,NC                                                               
  15 :       DO 2 J=1,NL                                                               
  16 :       B(I,J)=A(J,I)*V(I)                                                        
  17 :    2  CONTINUE                                                                  
  18 :    1  CONTINUE                                                                  
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :