From 327e05d4af0729e27bec482c584e750f33e253e5 Mon Sep 17 00:00:00 2001 From: giannozz Date: Mon, 4 Feb 2013 20:27:54 +0000 Subject: [PATCH] More unused variables removed git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9930 c92efa57-630b-4861-b058-cf58834340f0 --- Modules/ptoolkit.f90 | 1 - Modules/xml_io_base.f90 | 2 +- Modules/zhpev_drv.f90 | 4 ---- 3 files changed, 1 insertion(+), 6 deletions(-) diff --git a/Modules/ptoolkit.f90 b/Modules/ptoolkit.f90 index 5deda95f8..8f6244aee 100644 --- a/Modules/ptoolkit.f90 +++ b/Modules/ptoolkit.f90 @@ -10,7 +10,6 @@ !==----------------------------------------------==! USE kinds, ONLY : DP - USE io_global, ONLY : stdout USE parallel_include IMPLICIT NONE diff --git a/Modules/xml_io_base.f90 b/Modules/xml_io_base.f90 index f6e6d752f..0a53f2c9a 100644 --- a/Modules/xml_io_base.f90 +++ b/Modules/xml_io_base.f90 @@ -20,7 +20,7 @@ MODULE xml_io_base USE kinds, ONLY : DP USE io_files, ONLY : tmp_dir, prefix, iunpun, xmlpun, & current_fmt_version => qexml_version - USE io_global, ONLY : ionode, ionode_id, stdout + USE io_global, ONLY : ionode, ionode_id USE mp, ONLY : mp_bcast USE parser, ONLY : version_compare ! diff --git a/Modules/zhpev_drv.f90 b/Modules/zhpev_drv.f90 index 2713b59e4..3f13719a4 100644 --- a/Modules/zhpev_drv.f90 +++ b/Modules/zhpev_drv.f90 @@ -45,7 +45,6 @@ CONTAINS ! USE kinds, ONLY : DP - USE io_global, ONLY : stdout IMPLICIT NONE @@ -468,7 +467,6 @@ CONTAINS SUBROUTINE pzupgtr( n, nrl, ap, lda, tau, q, ldq, nproc, me, comm) USE kinds, ONLY : DP - USE io_global, ONLY : stdout ! ! Parallel MPI version of the LAPACK routine ZUPGTR ! @@ -755,7 +753,6 @@ CONTAINS ! Courant Institute, Argonne National Lab, and Rice University ! USE kinds, ONLY : DP - USE io_global, ONLY : stdout IMPLICIT NONE @@ -1390,7 +1387,6 @@ CONTAINS SUBROUTINE zhpev_drv( JOBZ, UPLO, N, AP, W, Z, LDZ ) USE kinds, ONLY : DP - USE io_global, ONLY : stdout IMPLICIT NONE