Sources Esope | Cast3M

xity
C XITY      SOURCE    CB215821  26/08/24    21:18:55     12622          
*
      SUBROUTINE XITY(X,Y,NL,A)
*
***********************************************************************
*     CE SOUS PROGRAMME EFFECTUE LE CALCUL DE LA MATRICE X.I.TY       *
*              OU NL EST LE NOMBRE DE LIGNE DE X ET Y                 *
*                                                                     *
***********************************************************************
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION A(NL,NL),X(NL),Y(NL)
*
      DO 2 I=1,NL
         DO 1 J=1,NL
            A(I,J)=X(I)*Y(J)
    1 CONTINUE
    2 CONTINUE
      RETURN
      END