Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/mathlibs/src/arpack/dstats.f
5177 views
1
c

2
c\SCCS Information: @(#) 

3
c FILE: stats.F   SID: 2.1   DATE OF SID: 4/19/96   RELEASE: 2

4
c     %---------------------------------------------%

5
c     | Initialize statistic and timing information |

6
c     | for symmetric Arnoldi code.                 |

7
c     %---------------------------------------------%

8
 

9
      subroutine dstats

10


11
c     %--------------------------------%

12
c     | See stat.doc for documentation |

13
c     %--------------------------------%

14
      include   'stat.h'

15
 

16
c     %-----------------------%

17
c     | Executable Statements |

18
c     %-----------------------%

19


20
      nopx   = 0

21
      nbx    = 0

22
      nrorth = 0

23
      nitref = 0

24
      nrstrt = 0

25
 

26
      tsaupd = 0.0D+0

27
      tsaup2 = 0.0D+0

28
      tsaitr = 0.0D+0

29
      tseigt = 0.0D+0

30
      tsgets = 0.0D+0

31
      tsapps = 0.0D+0

32
      tsconv = 0.0D+0

33
      titref = 0.0D+0

34
      tgetv0 = 0.0D+0

35
      trvec  = 0.0D+0

36
 

37
c     %----------------------------------------------------%

38
c     | User time including reverse communication overhead |

39
c     %----------------------------------------------------%

40
      tmvopx = 0.0D+0

41
      tmvbx  = 0.0D+0

42
 

43
      return

44
c

45
c     End of dstats

46
c

47
      end

48


49