mirror of https://gitlab.com/QEF/q-e.git
Small change: An incorrect routine name in an error message.
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7123 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
a930abc082
commit
8c45bcf3d0
|
@ -674,8 +674,8 @@ subroutine read_gamma (nqs, nat, ifn, xq, gaminp)
|
|||
do na=1,nat
|
||||
do nb=1,nat
|
||||
read(ifn,*) i,j
|
||||
if (i.ne.na) call errore('read_f','wrong na read',na)
|
||||
if (j.ne.nb) call errore('read_f','wrong nb read',nb)
|
||||
if (i.ne.na) call errore('read_gamma','wrong na read',na)
|
||||
if (j.ne.nb) call errore('read_gamma','wrong nb read',nb)
|
||||
do i=1,3
|
||||
read (ifn,*) (phir(j),phii(j),j=1,3)
|
||||
do j = 1,3
|
||||
|
|
Loading…
Reference in New Issue