Sources Esope | Cast3M

addima
C ADDIMA    SOURCE    CB215821  26/08/24    21:15:08     12622          
      SUBROUTINE ADDIMA(A,B,N,M,ICLE)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION A(N,*),B(N,*)
      IF(ICLE.EQ.1) THEN
          DO 3 I = 1,M
          DO 1 J=1,N
          A(J,I)=A(J,I)+B(J,I)
    1     CONTINUE
    3     CONTINUE
      ELSEIF(ICLE.EQ.2) THEN
          DO 4 I = 1,M
          DO 2 J=1,N
          A(J,I)=A(J,I)-B(J,I)
    2     CONTINUE
    4     CONTINUE
      ELSE
          CALL ERREUR(5)
      ENDIF
      RETURN
      END