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
10      DOUBLE PRECISION TIME
11      REAL TIMEreal
12C
13      call cpu_time(timereal)
14      TIME = timereal
15      END
16