Télécharger jdansi.eso

Retour à la liste

Numérotation des lignes :

  1. C JDANSI SOURCE CHAT 05/01/13 00:49:24 5004
  2. SUBROUTINE JDANSI ( I,J,L)
  3. C
  4. C MOVE J DANS I SUR 1 LONGUEUR DE L
  5. C
  6. IMPLICIT INTEGER(I-N)
  7. DIMENSION I(1),J(1)
  8. IF (L.EQ.0) GO TO 2
  9. DO 1 K=1,L
  10. I(K)=J(K)
  11. 1 CONTINUE
  12. 2 RETURN
  13. END
  14.  
  15.  

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