./18_timing/timein.F90

ABINIT/timein

ABINIT/timein [ Functions ]

NAME

  timein

FUNCTION

  Timing routine. Returns cpu and wall clock time in seconds since some arbitrary start.
  For wall clock time, call the F90 intrinsic date_and_time .

  Copyright (C) 1998-2018 ABINIT group (DCA, XG, GMR, LSI, MM, MT)
  This file is distributed under the terms of the
  GNU General Public License, see ~abinit/COPYING
  or http://www.gnu.org/copyleft/gpl.txt .
  For the initials of contributors, see
  ~abinit/doc/developers/contributors.txt .

INPUTS

  (no inputs)

OUTPUT

  cpu= cpu time in seconds
  wall= wall clock time in seconds

NOTES

  For CPU time, contains machine-dependent code (choice will be selected
  by C preprocessor, see abi_cpu_time).

TODO

  Should be replaced by cwtime

PARENTS

      abinit,aim,aim_follow,anaddb,bsepostproc,conducti,cpdrv,cut3d,drvaim
      elphon,first_rec,m_exit,mrgddb,mrgscr,multibinit,optic,rsurf,surf,timab

CHILDREN

SOURCE

40 #if defined HAVE_CONFIG_H
41 #include "config.h"
42 #endif
43 
44 #include "abi_common.h"
45 
46 subroutine timein(cpu,wall)
47 
48  use defs_basis
49  use m_time
50 
51 !This section has been created automatically by the script Abilint (TD).
52 !Do not modify the following lines by hand.
53 #undef ABI_FUNC
54 #define ABI_FUNC 'timein'
55 !End of the abilint section
56 
57  implicit none
58 
59 !Arguments ------------------------------------
60 !scalars
61  real(dp),intent(out) :: cpu,wall
62 ! *************************************************************************
63 
64 !CPU time
65  cpu = abi_cpu_time()
66 
67 !Wall time
68  wall = abi_wtime()
69 
70 end subroutine timein

TABLE OF CONTENTS

ABINIT/timein [ Functions ]