Sources Esope | Cast3M

ooozmv
C OOOZMV    SOURCE    PV090527  26/04/24    08:23:38     12524          
      SUBROUTINE OOOZMV (IA,IB,N)
C-------------------------------------------------------------------
C
C            DEPLACER LE CONTENU D'UN TABLEAU DANS UN AUTRE
C
C            unrolling car probleme en gcc 4.9 et meilleure performances
C  PV 16/6/14
C
C
      INTEGER   IA(*),IB(*)
C
C*    DO   I =1,N
C*      IB(I)=IA(I)
C*    ENDDO
      do  i=1,n-3,4
       ib(i)=ia(i)
       ib(i+1)=ia(i+1)
       ib(i+2)=ia(i+2)
       ib(i+3)=ia(i+3)
      enddo
      do j=i,n
       ib(j)=ia(j)
      enddo
 
      END