scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Changed `sub_name` to `routine`

This commit is contained in:
Edan Bainglass 2022-05-02 19:03:25 -05:00
parent 35564e843b
commit e6a2ba6779
3 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CPV/src/environ_cp_module.f90
View File

@ -40,7 +40,7 @@ CONTAINS
INTEGER :: i
REAL(DP) :: dvtot(dfftp%nnr)
!
CHARACTER(LEN=80) :: sub_name = 'add_environ_potential'
CHARACTER(LEN=80) :: routine = 'add_environ_potential'
!
!--------------------------------------------------------------------------------
!
@ -82,7 +82,7 @@ CONTAINS
LOGICAL :: update_venviron = .FALSE.
REAL(DP) :: rhoaux(dfftp%nnr)
!
CHARACTER(LEN=80) :: sub_name = 'calc_environ_potential'
CHARACTER(LEN=80) :: routine = 'calc_environ_potential'
!
!--------------------------------------------------------------------------------
! update electrons-related quantities in environ

24
Modules/environ_base_module.f90
View File

@ -78,7 +78,7 @@ CONTAINS
!
CHARACTER(LEN=*), OPTIONAL, INTENT(IN) :: prog
!
CHARACTER(LEN=80) :: sub_name = 'init_environ_setup'
CHARACTER(LEN=80) :: routine = 'init_environ_setup'
!
!--------------------------------------------------------------------------------
!
@ -105,7 +105,7 @@ CONTAINS
!
INTEGER :: nr(3)
!
CHARACTER(LEN=80) :: sub_name = 'init_environ_base'
CHARACTER(LEN=80) :: routine = 'init_environ_base'
!
!--------------------------------------------------------------------------------
!
@ -135,7 +135,7 @@ CONTAINS
!
LOGICAL :: local_flag
!
CHARACTER(LEN=80) :: sub_name = 'clean_environ'
CHARACTER(LEN=80) :: routine = 'clean_environ'
!
!--------------------------------------------------------------------------------
!
@ -178,7 +178,7 @@ CONTAINS
END IF
!
CASE DEFAULT
CALL errore(sub_name, "Unexpected calling program", 1)
CALL errore(routine, "Unexpected calling program", 1)
!
END SELECT
!
@ -192,14 +192,14 @@ CONTAINS
!>
!!
!------------------------------------------------------------------------------------
SUBROUTINE check_environ_compatibility(routine)
SUBROUTINE check_environ_compatibility(calling_routine)
!--------------------------------------------------------------------------------
!
IMPLICIT NONE
!
CHARACTER(LEN=*), INTENT(IN) :: routine
CHARACTER(LEN=*), INTENT(IN) :: calling_routine
!
CHARACTER(LEN=80) :: sub_name = 'check_environ_compatibility'
CHARACTER(LEN=80) :: routine = 'check_environ_compatibility'
!
!--------------------------------------------------------------------------------
!
@ -224,7 +224,7 @@ CONTAINS
!
REAL(DP), OPTIONAL, INTENT(IN) :: tau(3, nat)
!
CHARACTER(LEN=80) :: sub_name = 'update_environ_ions'
CHARACTER(LEN=80) :: routine = 'update_environ_ions'
!
!--------------------------------------------------------------------------------
!
@ -243,7 +243,7 @@ CONTAINS
!
REAL(DP), INTENT(IN) :: at(3, 3)
!
CHARACTER(LEN=80) :: sub_name = 'update_environ_cell'
CHARACTER(LEN=80) :: routine = 'update_environ_cell'
!
!--------------------------------------------------------------------------------
!
@ -272,7 +272,7 @@ CONTAINS
!
REAL(DP), INTENT(INOUT) :: plugin_etot
!
CHARACTER(LEN=80) :: sub_name = 'calc_environ_energy'
CHARACTER(LEN=80) :: routine = 'calc_environ_energy'
!
!--------------------------------------------------------------------------------
!
@ -299,7 +299,7 @@ CONTAINS
!
INTEGER :: i, j
!
CHARACTER(LEN=80) :: sub_name = 'calc_environ_force'
CHARACTER(LEN=80) :: routine = 'calc_environ_force'
!
!--------------------------------------------------------------------------------
!
@ -352,7 +352,7 @@ CONTAINS
!
CHARACTER(LEN=*), INTENT(IN) :: prog
!
CHARACTER(LEN=80) :: sub_name = 'print_environ_energies'
CHARACTER(LEN=80) :: routine = 'print_environ_energies'
!
!--------------------------------------------------------------------------------
!

6
PW/src/environ_pw_module.f90
View File

@ -52,7 +52,7 @@ CONTAINS
!
REAL(DP), INTENT(IN) :: vltot(dfftp%nnr)
!
CHARACTER(LEN=80) :: sub_name = 'update_environ_potential'
CHARACTER(LEN=80) :: routine = 'update_environ_potential'
!
!--------------------------------------------------------------------------------
!
@ -80,7 +80,7 @@ CONTAINS
!
REAL(DP) :: rhoaux(dfftp%nnr)
!
CHARACTER(LEN=80) :: sub_name = 'calc_environ_potential'
CHARACTER(LEN=80) :: routine = 'calc_environ_potential'
!
!--------------------------------------------------------------------------------
! Reduce output at each scf iteration
@ -198,7 +198,7 @@ CONTAINS
!
INTEGER, EXTERNAL :: find_free_unit
!
CHARACTER(LEN=80) :: sub_name = 'run_ms_gcs'
CHARACTER(LEN=80) :: routine = 'run_ms_gcs'
!
!--------------------------------------------------------------------------------
!