Esope source files

   1 : C XITY      SOURCE    CHAT      05/01/13    04:13:39     5004           
   2 : *                                                                               
   3 :       SUBROUTINE XITY(X,Y,NL,A)                                                 
   4 : *                                                                               
   5 : ***********************************************************************         
   6 : *     CE SOUS PROGRAMME EFFECTUE LE CALCUL DE LA MATRICE X.I.TY       *         
   7 : *              OU NL EST LE NOMBRE DE LIGNE DE X ET Y                 *         
   8 : *                                                                     *         
   9 : ***********************************************************************         
  10 : *                                                                               
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
  13 :       DIMENSION A(NL,NL),X(NL),Y(NL)                                            
  14 : *                                                                               
  15 :       DO 1 I=1,NL                                                               
  16 :          DO 1 J=1,NL                                                            
  17 :             A(I,J)=X(I)*Y(J)                                                    
  18 :     1 CONTINUE                                                                  
  19 :       RETURN                                                                    
  20 :       END                                                                       
  21 :