1!
2! Copyright (C) 1996-2016	The SIESTA group
3!  This file is distributed under the terms of the
4!  GNU General Public License: see COPYING in the top directory
5!  or http://www.gnu.org/copyleft/gpl.txt.
6! See Docs/Contributors.txt for a list of contributors.
7!
8      SUBROUTINE CPUTIM (TIME)
9
10C  RETURNS CPU TIME IN SECONDS SINCE PROGRAM START
11C  WRITEN BY J.SOLER (JSOLER AT EMDUAM11)
12
13      DOUBLE PRECISION TIME
14      REAL TIMES(2)
15
16C  NEXT LINES FOR IBM SYSTEMS-370 (ASSEMBLE ROUTINE TASKTM REQUIRED)
17*     CALL TASKTM (ITIME)
18*     TIME = 1.D-4 * ITIME
19
20C  NEXT LINES FOR IBM-3090
21*     CALL CPUTIME (TIME,RCODE)
22*     TIME = 1.D-6 * TIME
23
24C  NEXT LINE FOR 1
25*     TIME = SECOND()
26
27C  NEXT LINE FOR SGI, SUN OR DEC WORKSTATIONS
28      TIME = ETIME(TIMES)
29
30C  NEXT LINE FOR IBM RS/6000 WORKSTATIONS
31*     TIME = MCLOCK()*0.01D0
32
33C  NEXT LINE FOR ANYTHING ELSE
34*     TIME = 0.D0
35      RETURN
36
37      END
38