2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
! Copyright (C) 2001 PWSCF group
|
|
|
|
! This file is distributed under the terms of the
|
|
|
|
! GNU General Public License. See the file `License'
|
|
|
|
! in the root directory of the present distribution,
|
|
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
|
|
!
|
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
subroutine print_clock_d3
|
2003-11-06 21:06:49 +08:00
|
|
|
USE io_global, ONLY : stdout
|
2003-01-20 05:58:50 +08:00
|
|
|
use d3com
|
|
|
|
implicit none
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('D3TOTEN')
|
|
|
|
call print_clock ('d3_setup')
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('phq_init')
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('solve_linter')
|
|
|
|
call print_clock ('ortho')
|
|
|
|
call print_clock ('cgsolve')
|
|
|
|
call print_clock ('incdrhoscf')
|
|
|
|
call print_clock ('dv_of_drho')
|
2003-02-21 22:57:00 +08:00
|
|
|
#ifdef __PARA
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('psymdvscf')
|
|
|
|
call print_clock ('psymd0rho')
|
2003-01-20 05:58:50 +08:00
|
|
|
#else
|
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('symdvscf')
|
2003-01-20 05:58:50 +08:00
|
|
|
#endif
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('cgsolve')
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('ch_psi')
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('ch_psi')
|
|
|
|
call print_clock ('h_psiq')
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('last')
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('h_psiq')
|
|
|
|
call print_clock ('firstfft')
|
|
|
|
call print_clock ('product')
|
2003-01-20 05:58:50 +08:00
|
|
|
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('secondfft')
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
|
|
|
WRITE( stdout, * ) ' General routines'
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('ccalbec')
|
|
|
|
call print_clock ('cft3')
|
|
|
|
call print_clock ('cft3s')
|
|
|
|
call print_clock ('cinterpolate')
|
|
|
|
call print_clock ('davcio')
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * )
|
2003-02-21 22:57:00 +08:00
|
|
|
#ifdef __PARA
|
2003-11-06 21:06:49 +08:00
|
|
|
WRITE( stdout, * ) ' Parallel routines'
|
2003-02-08 00:04:36 +08:00
|
|
|
call print_clock ('reduce')
|
|
|
|
call print_clock ('poolreduce')
|
2003-01-20 05:58:50 +08:00
|
|
|
#endif
|
2003-02-08 00:04:36 +08:00
|
|
|
return
|
2003-01-20 05:58:50 +08:00
|
|
|
end subroutine print_clock_d3
|