1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
! ! Copyright (C) 1996-2016 The SIESTA group ! This file is distributed under the terms of the ! GNU General Public License: see COPYING in the top directory ! or http://www.gnu.org/copyleft/gpl.txt. ! See Docs/Contributors.txt for a list of contributors. ! SUBROUTINE CPUTIM (TIME) DOUBLE PRECISION TIME REAL TIMES(2) real, external :: etime C TIME = ETIME(TIMES) END |