mirror of https://gitlab.com/QEF/q-e.git
53 lines
1.7 KiB
Fortran
53 lines
1.7 KiB
Fortran
!
|
|
! Copyright (C) 2003-2021 Quantum ESPRESSO 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 .
|
|
!
|
|
!-----------------------------------------------------------------------
|
|
subroutine input_pp_summary ( )
|
|
!-----------------------------------------------------------------------
|
|
!
|
|
! In this routine the first processor sends the acfdt input to all
|
|
! the other processors
|
|
!
|
|
!
|
|
USE run_info, ONLY : title
|
|
USE io_global, ONLY : stdout, ionode
|
|
USE mp, ONLY : mp_bcast
|
|
USE io_files, ONLY : tmp_dir, prefix
|
|
USE control_kcw
|
|
!
|
|
implicit none
|
|
!
|
|
IF (ionode) THEN
|
|
!
|
|
WRITE( stdout, '(/, 5X, "KC_PP INPUT SUMMARY ")')
|
|
!!!! CONTOL NAMELIST
|
|
WRITE(stdout,'(5X, 42("="))')
|
|
WRITE(stdout, 41) "# title =", TRIM(title)
|
|
WRITE(stdout, 41) "# out_dir =", TRIM(tmp_dir)
|
|
WRITE(stdout, 42) "# prefix =", TRIM(prefix)
|
|
WRITE(stdout, 42) "# seedname =", TRIM(seedname)
|
|
WRITE(stdout, 45) "# kcw_iverbosity =", kcw_iverbosity
|
|
WRITE(stdout, 45) "# num_wann =", num_wann
|
|
WRITE(stdout, 47) "# MP grid =", mp1, mp2, mp3
|
|
WRITE(stdout, 43) "# use_ws_distance =", use_ws_distance
|
|
WRITE(stdout, 43) "# have_empty =", have_empty
|
|
WRITE(stdout,'(5X, 42("="),/)')
|
|
!
|
|
ENDIF
|
|
!
|
|
41 FORMAT(5X, A23, A18)
|
|
42 FORMAT(5X, A23, A18)
|
|
43 FORMAT(5X, A23, L18)
|
|
44 FORMAT(5X, A23, F12.8, 3x, " [Ry]")
|
|
45 FORMAT(5X, A23, I18)
|
|
46 FORMAT(5X, A23, E18.2)
|
|
47 FORMAT(5X, A23, 3I6)
|
|
!
|
|
RETURN
|
|
!
|
|
end subroutine input_pp_summary
|