Renaming inner precaply.

psblas3-type-indexed
Salvatore Filippone 18 years ago
parent 002adffb28
commit 5e81a61cf9

@ -28,7 +28,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE. !!$ 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 ! Compute Y <- beta*Y + alpha*K^-1 X
! where K is a a basic preconditioner stored in prec ! 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 end if
return return
end subroutine psb_zbaseprc_aply end subroutine psb_zgen_precaply
Loading…
Cancel
Save