Télécharger rsetd.eso

Retour à la liste

Numérotation des lignes :

  1. C RSETD SOURCE CHAT 05/01/13 03:07:27 5004
  2. SUBROUTINE RSETD(A,B,LONG)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C************************************************************************
  6. C
  7. C SOUS PROGRAMME DOUBLE PRECISION
  8. C
  9. C************************************************************************
  10.  
  11. DIMENSION A(LONG),B(LONG)
  12. Z=0.
  13. DO 1 I=1,LONG
  14. A(I)=B(I)
  15. 1 CONTINUE
  16. RETURN
  17. END
  18.  
  19.  
  20.  

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