Télécharger amul1k.eso

Retour à la liste

Numérotation des lignes :

  1. C AMUL1K SOURCE CHAT 05/01/12 21:21:53 5004
  2. SUBROUTINE AMUL1K(A,LA,X,B)
  3. C***********************************************************************
  4. C ROUTINE PRISE COMME TELLE DANS INCA (AMULX) LE 10 FEVRIER 86
  5. C***********************************************************************
  6. IMPLICIT INTEGER(I-N)
  7. IMPLICIT REAL*8(A-H,O-Z)
  8. C=======================================================================
  9. C CALCUL DE B=A*X+B
  10. C
  11. C X SCALAIRE
  12. C A ET B TABLEAUX DE LONGUEUR LA
  13. C=======================================================================
  14. DIMENSION A(1),B(1)
  15. IF(LA.LE.0) RETURN
  16. DO 1 IA=1,LA
  17. B(IA)=X*A(IA)+B(IA)
  18. 1 CONTINUE
  19. RETURN
  20. END
  21.  
  22.  

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