Télécharger rseti.eso

Retour à la liste

Numérotation des lignes :

  1. C RSETI SOURCE CHAT 05/01/13 03:07:38 5004
  2. SUBROUTINE RSETI(IA,IB,LONG)
  3. C************************************************************************
  4. C
  5. C SOUS PROGRAMME POUR LES ENTIERS
  6. C
  7. C************************************************************************
  8. IMPLICIT INTEGER(I-N)
  9. DIMENSION IA(LONG),IB(LONG)
  10. DO 1 L=1,LONG
  11. IA(L)=IB(L)
  12. 1 CONTINUE
  13. RETURN
  14. END
  15.  
  16.  

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