~ubuntu-branches/ubuntu/lucid/python-scipy/lucid

« back to all changes in this revision

Viewing changes to Lib/sandbox/arpack/ARPACK/SRC/cstatn.f

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-01-07 14:12:12 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20070107141212-mm0ebkh5b37hcpzn
* Remove build dependency on python-numpy-dev.
* python-scipy: Depend on python-numpy instead of python-numpy-dev.
* Package builds on other archs than i386. Closes: #402783.

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
c
 
2
c\SCCS Information: @(#)
 
3
c FILE: statn.F   SID: 2.2   DATE OF SID: 4/20/96   RELEASE: 2
 
4
c
 
5
c     %---------------------------------------------%
 
6
c     | Initialize statistic and timing information |
 
7
c     | for complex nonsymmetric Arnoldi code.      |
 
8
c     %---------------------------------------------%
 
9
 
 
10
      subroutine cstatn
 
11
c
 
12
c     %--------------------------------%
 
13
c     | See stat.doc for documentation |
 
14
c     %--------------------------------%
 
15
c
 
16
      include   'stat.h'
 
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
      tcaupd = 0.0E+0
 
29
      tcaup2 = 0.0E+0
 
30
      tcaitr = 0.0E+0
 
31
      tceigh = 0.0E+0
 
32
      tcgets = 0.0E+0
 
33
      tcapps = 0.0E+0
 
34
      tcconv = 0.0E+0
 
35
      titref = 0.0E+0
 
36
      tgetv0 = 0.0E+0
 
37
      trvec  = 0.0E+0
 
38
 
 
39
c     %----------------------------------------------------%
 
40
c     | User time including reverse communication overhead |
 
41
c     %----------------------------------------------------%
 
42
      tmvopx = 0.0E+0
 
43
      tmvbx  = 0.0E+0
 
44
 
 
45
      return
 
46
c
 
47
c     %---------------%
 
48
c     | End of cstatn |
 
49
c     %---------------%
 
50
c
 
51
      end