Télécharger copive.eso

Retour à la liste

Numérotation des lignes :

  1. C COPIVE SOURCE CHAT 05/01/12 22:20:24 5004
  2. SUBROUTINE COPIVE(V1,IDIMC,V2)
  3. C ***************************************************************
  4. C COPIE UN VECTEUR DANS UN AUTRE : V2 <- V1
  5. C ***************************************************************
  6. IMPLICIT INTEGER(I-N)
  7. INTEGER IDIMC
  8. REAL*8 V1(*),V2(*)
  9. C
  10. INTEGER I
  11. C
  12. IF(IDIMC.LE.0) RETURN
  13. DO 10 I=1,IDIMC
  14. V2(I) = V1(I)
  15. 10 CONTINUE
  16. END
  17.  
  18.  
  19.  

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