octave-nkf: libcruft/arpack/src/zstatn.f comparison

import ARPACK sources to libcruft from Debian package libarpack2 2.1+parpack96.dfsg-3+b1

comparison

equal deleted inserted replaced

-:83133b5bf392
+:9f5d2ef078e8
+c
+c\SCCS Information: @(#)
+c FILE: statn.F   SID: 2.2   DATE OF SID: 4/20/96   RELEASE: 2
+c
+c     %---------------------------------------------%
+c     | Initialize statistic and timing information |
+c     | for complex nonsymmetric Arnoldi code.      |
+c     %---------------------------------------------%
+subroutine zstatn
+c
+c     %--------------------------------%
+c     | See stat.doc for documentation |
+c     %--------------------------------%
+c
+include   'stat.h'
+c     %-----------------------%
+c     | Executable Statements |
+c     %-----------------------%
+nopx   = 0
+nbx    = 0
+nrorth = 0
+nitref = 0
+nrstrt = 0
+tcaupd = 0.0D+0
+tcaup2 = 0.0D+0
+tcaitr = 0.0D+0
+tceigh = 0.0D+0
+tcgets = 0.0D+0
+tcapps = 0.0D+0
+tcconv = 0.0D+0
+titref = 0.0D+0
+tgetv0 = 0.0D+0
+trvec  = 0.0D+0
+c     %----------------------------------------------------%
+c     | User time including reverse communication overhead |
+c     %----------------------------------------------------%
+tmvopx = 0.0D+0
+tmvbx  = 0.0D+0
+return
+c
+c     %---------------%
+c     | End of zstatn |
+c     %---------------%
+c
+end

Mercurial > octave-nkf