Esope source files

   1 : C REEMAT    SOURCE    CHAT      05/01/13    02:47:52     5004           
   2 :                                                                                 
   3 :       SUBROUTINE REEMAT(X,A,NL,NC)                                              
   4 : *                                                                               
   5 : ********************************************************************            
   6 : * CE SOUS PROGRAMME EFFECTUE LE PRODUIT D UNE MATRICE A(NL,NC) PAR *            
   7 : * UN REEL X                                                        *            
   8 : ********************************************************************            
   9 : *                                                                               
  10 :       IMPLICIT INTEGER(I-N)
  11 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  12 :       DIMENSION A(NL,NC)                                                        
  13 :       DO 1 J=1,NC                                                               
  14 :          DO 1 I=1,NL                                                            
  15 :             A(I,J)=A(I,J)*X                                                     
  16 :     1 CONTINUE                                                                  
  17 :       RETURN                                                                    
  18 :       END                                                                       
  19 :