← Back to branch summary

~ubuntu-branches/ubuntu/trusty/igraph/trusty-proposed

« back to all changes in this revision

Viewing changes to src/lapack/second.c

  • Committer: Package Import Robot
  • Author(s): Mathieu Malaterre
  • Date: 2013-05-27 14:01:54 UTC
  • mfrom: (4.1.1 experimental)
  • Revision ID: package-import@ubuntu.com-20130527140154-oxwwmr0gj3kdy4ol
Tags: 0.6.5-2
Upload to sid

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/lapack/second.c
 
1
/*  -- translated by f2c (version 20100827).
 
2
   You must link the resulting object file with libf2c:
 
3
        on Microsoft Windows system, link with libf2c.lib;
 
4
        on Linux or Unix systems, link with .../path/to/libf2c.a -lm
 
5
        or, if you install libf2c.a in a standard place, with -lf2c -lm
 
6
        -- in that order, at the end of the command line, as in
 
7
                cc *.o -lf2c -lm
 
8
        Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
 
9
 
 
10
                http://www.netlib.org/f2c/libf2c.zip
 
11
*/
 
12
 
 
13
#include "f2c.h"
 
14
 
 
15
/* Subroutine */ int igraphsecond_(real *t)
 
16
{
 
17
    real t1;
 
18
    extern doublereal etime_(real *);
 
19
    real tarray[2];
 
20
 
 
21
 
 
22
 
 
23
/*  -- LAPACK auxiliary routine (preliminary version) --   
 
24
       Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,   
 
25
       Courant Institute, Argonne National Lab, and Rice University   
 
26
       July 26, 1991   
 
27
 
 
28
    Purpose   
 
29
    =======   
 
30
 
 
31
    SECOND returns the user time for a process in seconds.   
 
32
    This version gets the time from the system function ETIME. */
 
33
 
 
34
 
 
35
    t1 = etime_(tarray);
 
36
    *t = tarray[0];
 
37
    return 0;
 
38
 
 
39
/*     End of SECOND */
 
40
 
 
41
} /* igraphsecond_ */
 
42