Télécharger aeqapb.eso

Retour à la liste

Numérotation des lignes :

  1. C AEQAPB SOURCE CHAT 05/01/12 21:19:04 5004
  2. SUBROUTINE AEQAPB(A,B,LA)
  3. C
  4. C CALCUL DE A=A+B
  5. C A ET B TABLEAUX DIMENSIONNES A LA
  6. C
  7. IMPLICIT INTEGER(I-N)
  8. IMPLICIT REAL*8(A-H,O-Z)
  9. DIMENSION A(*),B(*)
  10. DO 1 IA=1,LA
  11. 1 A(IA)=A(IA)+B(IA)
  12. RETURN
  13. END
  14.  
  15.  

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