← Back to branch summary

~ubuntu-branches/ubuntu/saucy/python-scipy/saucy

« back to all changes in this revision

Viewing changes to scipy/sandbox/arpack/ARPACK/UTIL/second.f

  • Committer: Bazaar Package Importer
  • Author(s): Ondrej Certik
  • Date: 2008-06-16 22:58:01 UTC
  • mfrom: (2.1.24 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080616225801-irdhrpcwiocfbcmt
Tags: 0.6.0-12
http://bugs.debian.org/489149
* The description updated to match the current SciPy (Closes: #489149).
* Standards-Version bumped to 3.8.0 (no action needed)
* Build-Depends: netcdf-dev changed to libnetcdf-dev

Show diffs side-by-side

added added

removed removed

Lines of Context:
scipy/sandbox/arpack/ARPACK/UTIL/second.f
 
1
      SUBROUTINE SECOND( T )
 
2
*
 
3
      REAL       T
 
4
*
 
5
*  -- LAPACK auxiliary routine (preliminary version) --
 
6
*     Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,
 
7
*     Courant Institute, Argonne National Lab, and Rice University
 
8
*     July 26, 1991
 
9
*
 
10
*  Purpose
 
11
*  =======
 
12
*
 
13
*  SECOND returns the user time for a process in seconds.
 
14
*  This version gets the time from the system function ETIME.
 
15
*
 
16
*     .. Local Scalars ..
 
17
      REAL               T1
 
18
*     ..
 
19
*     .. Local Arrays ..
 
20
      REAL               TARRAY( 2 )
 
21
*     ..
 
22
*     .. External Functions ..
 
23
      REAL               ETIME
 
24
*      EXTERNAL           ETIME
 
25
*     ..
 
26
*     .. Executable Statements ..
 
27
*
 
28
 
 
29
      T1 = ETIME( TARRAY )
 
30
      T  = TARRAY( 1 )
 
31
 
 
32
      RETURN
 
33
*
 
34
*     End of SECOND
 
35
*
 
36
      END