Télécharger initd.eso

Retour à la liste

Numérotation des lignes :

  1. C INITD SOURCE CHAT 05/01/13 00:38:08 5004
  2. SUBROUTINE INITD(A,LONG,VAL)
  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. REAL*8 A,VAL
  11. DIMENSION A(1)
  12. DO 1 I=1,LONG
  13. A(I)=VAL
  14. 1 CONTINUE
  15. RETURN
  16. END
  17.  
  18.  

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