Sources Esope | Cast3M

ooozmr_f
C OOOZMR_F  SOURCE    PV090527  26/04/24    21:15:07     12524          
%IF UNIX32,WIN32,UNIX64,WIN64
      SUBROUTINE OOOZMR_F(IA,N)
%ENDIF
%IF PORTABLE
      SUBROUTINE OOOZMR (IA,N)
%ENDIF
C----------------------------------------------------------------------
C
C                     REMISE A ZERO D'UN TABLEAU
C
      INTEGER   IA(N)
C
      DO   I =1,N
        IA(I)=0
      ENDDO
 
      END