Eliminated debug writing forgotten in init_gipaw_1.f90

with the label 'ZZZ' probably inserted by Ari at some point
to debug the code.

Matteo Calandra


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5030 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
matteo.calandra 2008-06-30 14:44:47 +00:00
parent aa9b32b23e
commit 51d6d8b2af
1 changed files with 1 additions and 1 deletions

View File

@ -128,7 +128,7 @@ subroutine init_gipaw_1
nrc = COUNT ( rgrid(nt)%r(1:msh(nt)) <= rc )
nrs = COUNT ( rgrid(nt)%r(1:msh(nt)) <= rs )
!<debug>
write(stdout,*) "ZZZ: ", rc, rs, nrc, nrs
! write(stdout,*) "ZZZ: ", rc, rs, nrc, nrs
!</debug>
IF ( nrc < 1 .OR. nrc > msh(nt) ) &
CALL errore ( "init_gipaw_1", "impossible value for nrc", 1 )