Télécharger scndc.eso

Retour à la liste

Numérotation des lignes :

scndc
  1. C SCNDC SOURCE PV 19/09/26 21:15:20 10309
  2. SUBROUTINE SCNDC(N,XA,XB)
  3. C-------------------------------------------------------------------
  4. C
  5. C DEPLACER LE CONTENU D'UN TABLEAU DANS UN AUTRE
  6. C Avec unrolling
  7. C
  8. implicit real*8 (a-h,o-z)
  9.  
  10. real*8 xa(*),xb(*)
  11. C
  12. C* DO I =1,N
  13. C* XB(I)=XA(I)
  14. C* ENDDO
  15. do i=1,n-3,4
  16. xb(i)=xa(i)
  17. xb(i+1)=xa(i+1)
  18. xb(i+2)=xa(i+2)
  19. xb(i+3)=xa(i+3)
  20. enddo
  21. do j=i,n
  22. xb(j)=xa(j)
  23. enddo
  24.  
  25. END
  26.  
  27.  

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