From e36788bbbe6d5f7378ad7f1d6b84c8bee85bcd71 Mon Sep 17 00:00:00 2001
From: dalcorso <dalcorso@c92efa57-630b-4861-b058-cf58834340f0>
Date: Fri, 1 May 2009 12:44:37 +0000
Subject: [PATCH] Use rmatch_augfun also in the US case.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5540 c92efa57-630b-4861-b058-cf58834340f0
---
 atomic/pseudo_q.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/atomic/pseudo_q.f90 b/atomic/pseudo_q.f90
index c8ea45b66..b46462cfa 100644
--- a/atomic/pseudo_q.f90
+++ b/atomic/pseudo_q.f90
@@ -9,7 +9,8 @@ SUBROUTINE pseudo_q (qfunc, qfuncl)
 USE kinds, ONLY : DP
 USE io_global, ONLY : stdout
 USE ld1_parameters, ONLY : nwfsx
-USE ld1inc, ONLY : rcut, lls,  grid, ndmx, lmx2, nbeta, ikk, ecutrho
+USE ld1inc, ONLY : rcut, lls,  grid, ndmx, lmx2, nbeta, ikk, ecutrho, &
+            rmatch_augfun
 IMPLICIT NONE
 !
 REAL(DP), INTENT(IN) :: qfunc(ndmx,nwfsx,nwfsx)
@@ -34,7 +35,8 @@ do ns=1,nbeta
       !  Find the matching point
       !
       ik=0
-      rmatch=min(rcut(ns),rcut(ns1))
+!      rmatch=min(rcut(ns),rcut(ns1))
+      rmatch=rmatch_augfun
       do n=1,mesh
          if (grid%r(n)>rmatch) then
             ik=n