Télécharger xity.eso

Retour à la liste

Numérotation des lignes :

  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.  
  22.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales