octave-nkf: libcruft/arpack/src/sstatn.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     %---------------------------------------------%
+c     | Initialize statistic and timing information |
+c     | for nonsymmetric Arnoldi code.              |
+c     %---------------------------------------------%
+c
+c\Author
+c     Danny Sorensen               Phuong Vu
+c     Richard Lehoucq              CRPC / Rice University
+c     Dept. of Computational &     Houston, Texas
+c     Applied Mathematics
+c     Rice University
+c     Houston, Texas
+c
+c\SCCS Information: @(#)
+c FILE: statn.F   SID: 2.4   DATE OF SID: 4/20/96   RELEASE: 2
+c
+subroutine sstatn
+c
+c     %--------------------------------%
+c     | See stat.doc for documentation |
+c     %--------------------------------%
+c
+include   'stat.h'
+c
+c     %-----------------------%
+c     | Executable Statements |
+c     %-----------------------%
+c
+nopx   = 0
+nbx    = 0
+nrorth = 0
+nitref = 0
+nrstrt = 0
+c
+tnaupd = 0.0E+0
+tnaup2 = 0.0E+0
+tnaitr = 0.0E+0
+tneigh = 0.0E+0
+tngets = 0.0E+0
+tnapps = 0.0E+0
+tnconv = 0.0E+0
+titref = 0.0E+0
+tgetv0 = 0.0E+0
+trvec  = 0.0E+0
+c
+c     %----------------------------------------------------%
+c     | User time including reverse communication overhead |
+c     %----------------------------------------------------%
+c
+tmvopx = 0.0E+0
+tmvbx  = 0.0E+0
+c
+return
+c
+c
+c     %---------------%
+c     | End of sstatn |
+c     %---------------%
+c
+end

Mercurial > octave-nkf