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

Small cleanup of unused variables. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9287 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2012-08-13 15:13:10 +00:00
parent 6c0d60f65b
commit 31845f94b9
6 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PHonon/PH/dynmat.f90
View File

@ -71,7 +71,7 @@ end Module dynamical
! !
USE kinds, ONLY: DP USE kinds, ONLY: DP
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
USE mp_global, ONLY : nproc, mpime, mp_startup, mp_global_end USE mp_global, ONLY : mp_startup, mp_global_end
USE io_global, ONLY : ionode, ionode_id, stdout USE io_global, ONLY : ionode, ionode_id, stdout
USE environment, ONLY : environment_start, environment_end USE environment, ONLY : environment_start, environment_end
USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, & USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, &

2
PHonon/PH/matdyn.f90
View File

@ -127,7 +127,7 @@ PROGRAM matdyn
! !
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
USE mp_global, ONLY : nproc, mpime, mp_startup, mp_global_end USE mp_global, ONLY : mp_startup, mp_global_end
USE environment, ONLY : environment_start, environment_end USE environment, ONLY : environment_start, environment_end
USE io_global, ONLY : ionode, ionode_id, stdout USE io_global, ONLY : ionode, ionode_id, stdout
USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, & USE io_dyn_mat, ONLY : read_dyn_mat_param, read_dyn_mat_header, &

2
PHonon/PH/phq_readin.f90
View File

@ -51,7 +51,7 @@ SUBROUTINE phq_readin()
USE ldaU, ONLY : lda_plus_u USE ldaU, ONLY : lda_plus_u
USE control_flags, ONLY : iverbosity, modenum, twfcollect USE control_flags, ONLY : iverbosity, modenum, twfcollect
USE io_global, ONLY : ionode, stdout USE io_global, ONLY : ionode, stdout
USE mp_global, ONLY : nproc, nproc_pool, nproc_pool_file, & USE mp_global, ONLY : nproc_pool, nproc_pool_file, &
nimage, my_image_id, & nimage, my_image_id, &
nproc_image_file, nproc_image, npool nproc_image_file, nproc_image, npool
USE paw_variables, ONLY : okpaw USE paw_variables, ONLY : okpaw

2
PHonon/PH/q2r.f90
View File

@ -60,7 +60,7 @@ PROGRAM q2r
! !
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
USE mp_global, ONLY : nproc, mpime, mp_startup, mp_global_end USE mp_global, ONLY : mp_startup, mp_global_end
USE dynamicalq, ONLY : phiq, tau, ityp, zeu USE dynamicalq, ONLY : phiq, tau, ityp, zeu
USE fft_scalar, ONLY : cfft3d USE fft_scalar, ONLY : cfft3d
USE io_global, ONLY : ionode_id, ionode, stdout USE io_global, ONLY : ionode_id, ionode, stdout

3
PW/src/cdiagh.f90
View File

@ -14,8 +14,7 @@ SUBROUTINE cdiagh( n, h, ldh, e, v )
! ... hermitean matrix H. On output, the matrix is unchanged ! ... hermitean matrix H. On output, the matrix is unchanged
! !
USE kinds, ONLY : DP USE kinds, ONLY : DP
USE mp_global, ONLY : nproc, nbgrp, nproc_bgrp, me_bgrp, & USE mp_global, ONLY : nbgrp, me_bgrp, root_bgrp, intra_bgrp_comm
root_bgrp, intra_bgrp_comm
USE mp, ONLY : mp_bcast USE mp, ONLY : mp_bcast
! !
IMPLICIT NONE IMPLICIT NONE

2
PW/src/exx.f90
View File

@ -227,7 +227,7 @@ CONTAINS
USE wvfct, ONLY : nbnd USE wvfct, ONLY : nbnd
USE io_global, ONLY : stdout USE io_global, ONLY : stdout
! !
USE mp_global, ONLY : nproc, npool, nimage USE mp_global, ONLY : npool
! !
IMPLICIT NONE IMPLICIT NONE
! !