Télécharger equv.eso

Retour à la liste

Numérotation des lignes :

equv
  1. C EQUV SOURCE CHAT 05/01/12 23:44:49 5004
  2. CCC
  3. C x = y
  4. CCC
  5. SUBROUTINE EQUV (X,Y,N)
  6. IMPLICIT INTEGER(I-N)
  7. integer n,i
  8. real*8 x(n),y(n)
  9. do i=1,n
  10. x(i)=y(i)
  11. enddo
  12. return
  13. end
  14.  
  15.  
  16.  

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