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

2
c     %---------------------------------------------%

3
c     | Initialize statistic and timing information |

4
c     | for nonsymmetric Arnoldi code.              |

5
c     %---------------------------------------------%

6
c

7
c\Author

8
c     Danny Sorensen               Phuong Vu

9
c     Richard Lehoucq              CRPC / Rice University

10
c     Dept. of Computational &     Houston, Texas

11
c     Applied Mathematics

12
c     Rice University           

13
c     Houston, Texas    

14
c

15
c\SCCS Information: @(#) 

16
c FILE: statn.F   SID: 2.4   DATE OF SID: 4/20/96   RELEASE: 2

17
c

18
      subroutine dstatn

19
c

20
c     %--------------------------------%

21
c     | See stat.doc for documentation |

22
c     %--------------------------------%

23
c

24
      include   'stat.h'

25
c 

26
c     %-----------------------%

27
c     | Executable Statements |

28
c     %-----------------------%

29
c

30
      nopx   = 0

31
      nbx    = 0

32
      nrorth = 0

33
      nitref = 0

34
      nrstrt = 0

35
c 

36
      tnaupd = 0.0D+0

37
      tnaup2 = 0.0D+0

38
      tnaitr = 0.0D+0

39
      tneigh = 0.0D+0

40
      tngets = 0.0D+0

41
      tnapps = 0.0D+0

42
      tnconv = 0.0D+0

43
      titref = 0.0D+0

44
      tgetv0 = 0.0D+0

45
      trvec  = 0.0D+0

46
c 

47
c     %----------------------------------------------------%

48
c     | User time including reverse communication overhead |

49
c     %----------------------------------------------------%

50
c

51
      tmvopx = 0.0D+0

52
      tmvbx  = 0.0D+0

53
c 

54
      return

55
c

56
c

57
c     %---------------%

58
c     | End of dstatn |

59
c     %---------------%

60
c

61
      end

62


63