Renaming inner precaply.

18 years ago · 5e81a61cf9
parent 002adffb28
commit 5e81a61cf9
1 changed files with 2 additions and 2 deletions
--- a/prec/psb_zgen_precaply.f90
+++ b/prec/psb_zgen_precaply.f90
@ -28,7 +28,7 @@
 !!$  POSSIBILITY OF SUCH DAMAGE.
 !!$ 
 !!$  
-subroutine psb_zbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
+subroutine psb_zgen_precaply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  !
  !  Compute   Y <-  beta*Y + alpha*K^-1 X 
  !  where K is a a basic preconditioner stored in prec
@ -145,5 +145,5 @@ subroutine psb_zbaseprc_aply(alpha,prec,x,beta,y,desc_data,trans,work,info)
  end if
  return

-end subroutine psb_zbaseprc_aply
+end subroutine psb_zgen_precaply