Télécharger addima.eso

Retour à la liste

Numérotation des lignes :

  1. C ADDIMA SOURCE CHAT 05/01/12 21:17:32 5004
  2. SUBROUTINE ADDIMA(A,B,N,M,ICLE)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION A(N,*),B(N,*)
  6. IF(ICLE.EQ.1) THEN
  7. DO 1 I = 1,M
  8. DO 1 J=1,N
  9. 1 A(J,I)=A(J,I)+B(J,I)
  10. ELSEIF(ICLE.EQ.2) THEN
  11. DO 2 I = 1,M
  12. DO 2 J=1,N
  13. 2 A(J,I)=A(J,I)-B(J,I)
  14. ELSE
  15. CALL ERREUR(5)
  16. ENDIF
  17. RETURN
  18. END
  19.  
  20.  

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