Télécharger trace.eso

Retour à la liste

Numérotation des lignes :

  1. C TRACE SOURCE CHAT 05/01/13 03:44:16 5004
  2. FUNCTION TRACE(STOT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION STOT(*)
  6. X=0.
  7. DO 1 I=1,3
  8. X=X+STOT(I)
  9. 1 CONTINUE
  10. RETURN
  11. END
  12.  
  13.  

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