"Fossies" - the Fresh Open Source Software Archive

Member "getdp-3.1.0-source/contrib/Arpack/cstatn.f" (31 Jul 2018, 1221 Bytes) of package /linux/privat/getdp-3.1.0-source.tgz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Fortran 77 source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. For more information about "cstatn.f" see the Fossies "Dox" file reference documentation.

    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