Télécharger shiftd.eso

Retour à la liste

Numérotation des lignes :

  1. C SHIFTD SOURCE CHAT 05/01/13 03:15:38 5004
  2. SUBROUTINE SHIFTD(X,Y,LX)
  3. IMPLICIT INTEGER(I-N)
  4. REAL*8 X,Y
  5. DIMENSION X(*),Y(*)
  6. DO 1 IA=1,LX
  7. Y(IA)=X(IA)
  8. 1 CONTINUE
  9. RETURN
  10. END
  11.  
  12.  

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