Télécharger la plaquette Cast3M


fr en

Télécharger dstats.eso

Retour à la liste

Numérotation des lignes : 

dstats

  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