2 ***********************************************************
3 $SNARK_Header: S N A R K 1 4 - A PICTURE RECONSTRUCTION PROGRAM $
4 $HeadURL: svn://dig.cs.gc.cuny.edu/snark/trunk/src/snark/second.cpp $
5 $LastChangedRevision: 96 $
6 $Date: 2014-07-02 20:06:42 -0400 (Wed, 02 Jul 2014) $
8 ***********************************************************
10 THIS SUBROUTINE IS PECULIAR TO THE BURROUGH'S B1700 SERIES.
11 THE SUBROUTINE IS STANDARD ON THE CDC 6000 AND CYBER SERIES.
12 ON OTHER MACHINES IT MUST BE MODIFIED TO CONFORM TO THE
13 OPERATING SYSTEMS CONVENTIONS OF RETURNING THE ELAPSED CPU TIME
14 SINCE THE BEGINNING OF THE JOB.
16 CALLS FORTRAN INTRINSIC FUNCTION 'TIME'; INTEGER FUNCTION
17 WITH INTEGER ARGUMENTS ; TIME IN TENTHS OF SECONDS
19 FOR VM-CMS ON A VMX THERE IS NO TIME ROUTINE
23 #include <sys/resource.h>
29 void second(REAL* ctime)
33 getrusage(RUSAGE_SELF, &usage);
34 *ctime = usage.ru_utime.tv_sec + usage.ru_utime.tv_usec * 0.000001;