Télécharger diffve.eso

Retour à la liste

Numérotation des lignes :

  1. C DIFFVE SOURCE CHAT 05/01/12 22:50:15 5004
  2. SUBROUTINE DIFFVE(V1,V2,IDIMC,V12)
  3. C ***************************************************************
  4. C FAIT LA DIFFERENCE ENTRE 2 VECTEURS V12 = V1 - V2
  5. C ***************************************************************
  6. IMPLICIT INTEGER(I-N)
  7. INTEGER IDIMC
  8. REAL*8 V1(*),V2(*),V12(*)
  9. C
  10. INTEGER I
  11. C
  12. IF(IDIMC.LE.0) RETURN
  13. DO 10 I=1,IDIMC
  14. V12(I) = V1(I) - V2(I)
  15. 10 CONTINUE
  16. END
  17.  
  18.  
  19.  

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