Télécharger dstats.eso

Retour à la liste

Numérotation des lignes :

  1. C DSTATS SOURCE BP208322 20/02/06 21:15:34 10512
  2. c
  3. c\SCCS Information: @(#)
  4. c FILE: stats.F SID: 2.1 DATE OF SID: 4/19/96 RELEASE: 2
  5. c %---------------------------------------------%
  6. c | Initialize statistic and timing information |
  7. c | for symmetric Arnoldi code. |
  8. c %---------------------------------------------%
  9.  
  10. c BP,2020 : suppression des variables de "timing"
  11.  
  12. subroutine dstats(nopx,nbx,nrorth,nitref,nrstrt)
  13.  
  14. c %--------------------------------%
  15. c | See stat.doc for documentation |
  16. c %--------------------------------%
  17.  
  18. c %-----------------------%
  19. c | Executable Statements |
  20. c %-----------------------%
  21.  
  22. nopx = 0
  23. nbx = 0
  24. nrorth = 0
  25. nitref = 0
  26. nrstrt = 0
  27.  
  28. c tsaupd = 0.0D+0
  29. c tsaup2 = 0.0D+0
  30. c tsaitr = 0.0D+0
  31. c tseigt = 0.0D+0
  32. c tsgets = 0.0D+0
  33. c tsapps = 0.0D+0
  34. c tsconv = 0.0D+0
  35. c titref = 0.0D+0
  36. c tgetv0 = 0.0D+0
  37. c trvec = 0.0D+0
  38.  
  39. c %----------------------------------------------------%
  40. c | User time including reverse communication overhead |
  41. c %----------------------------------------------------%
  42. c
  43. c tmvopx = 0.0D+0
  44. c tmvbx = 0.0D+0
  45.  
  46. c return
  47. c
  48. c %---------------%
  49. c | End of dstats |
  50. c %---------------%
  51. c
  52. end
  53.  
  54.  
  55.  

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