2006-04-03 18:33:22 +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 .
|
|
|
|
!
|
|
|
|
!-----------------------------------------------------------------------
|
2010-06-19 00:54:19 +08:00
|
|
|
SUBROUTINE print_clock_vdw
|
2006-04-03 18:33:22 +08:00
|
|
|
!-----------------------------------------------------------------------
|
|
|
|
|
|
|
|
USE io_global, ONLY : stdout
|
2010-06-19 00:54:19 +08:00
|
|
|
USE uspp, ONLY: okvan
|
2006-04-03 18:33:22 +08:00
|
|
|
USE ramanm, ONLY: lraman, elop
|
|
|
|
USE nlcc_ph, ONLY: nlcc_any
|
2010-06-19 00:54:19 +08:00
|
|
|
IMPLICIT NONE
|
2006-04-03 18:33:22 +08:00
|
|
|
!
|
|
|
|
WRITE( stdout, * )
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('VdW')
|
2006-04-03 18:33:22 +08:00
|
|
|
!
|
|
|
|
WRITE( stdout, * )
|
|
|
|
WRITE( stdout, * ) ' INITIALIZATION: '
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('vdw_init')
|
2006-04-03 18:33:22 +08:00
|
|
|
WRITE( stdout, * )
|
|
|
|
!
|
|
|
|
WRITE( stdout, * )
|
|
|
|
WRITE( stdout, * ) ' EFFECTIVE POTENTIAL:'
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('eff_pot')
|
|
|
|
CALL print_clock ('ite_veff')
|
2006-04-03 18:33:22 +08:00
|
|
|
!
|
|
|
|
WRITE( stdout, * )
|
|
|
|
WRITE( stdout, * ) ' POLARIZABILITY:'
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('solve_e')
|
|
|
|
CALL print_clock ('polariz')
|
|
|
|
WRITE( stdout, * )
|
|
|
|
CALL print_clock ('dvpsi_e')
|
|
|
|
CALL print_clock ('adddvscf')
|
|
|
|
CALL print_clock ('gmressolve')
|
|
|
|
CALL print_clock ('incdrhoscf')
|
|
|
|
CALL print_clock ('dv_of_drho')
|
|
|
|
CALL print_clock ('mix_pot')
|
2006-04-03 18:33:22 +08:00
|
|
|
!
|
|
|
|
WRITE( stdout, * )
|
|
|
|
WRITE( stdout, * ) ' General routines'
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('calbec')
|
2010-08-30 01:28:28 +08:00
|
|
|
CALL print_clock ('fft')
|
|
|
|
CALL print_clock ('ffts')
|
|
|
|
CALL print_clock ('fftw')
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('davcio')
|
2006-04-03 18:33:22 +08:00
|
|
|
WRITE( stdout, * )
|
|
|
|
#ifdef __PARA
|
|
|
|
WRITE( stdout, * ) ' Parallel routines'
|
2010-06-19 00:54:19 +08:00
|
|
|
CALL print_clock ('reduce')
|
2006-04-03 18:33:22 +08:00
|
|
|
WRITE( stdout, * )
|
|
|
|
#endif
|
2010-06-19 00:54:19 +08:00
|
|
|
RETURN
|
|
|
|
END SUBROUTINE print_clock_vdw
|