Télécharger reemat.eso

Retour à la liste

Numérotation des lignes :

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

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