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