Sources Esope | Cast3M

ooozde
C OOOZDE    SOURCE    PV090527  26/04/24    08:23:37     12524          
      SUBROUTINE OOOZDE (IA,IB,N)
C-------------------------------------------------------------------
C
C                    IA(I) = IB(I)   POUR I = 1,N
C
C
%INC IOOADR
      INTEGER   IA(*),IB(*)
C
      DO   I =1,N
        IA(I)=IB(I)
      ENDDO
 
      MZJSS(DEPLACES) = MZJSS(DEPLACES)+1
      MZJSM(DEPLACES) = MZJSM(DEPLACES)+N
 
      END