diff --git a/prec/psb_zgen_precaply b/prec/psb_zgen_precaply.f90
similarity index 98%
rename from prec/psb_zgen_precaply
rename to prec/psb_zgen_precaply.f90
index cdabda41..0b6e7a66 100644
--- a/prec/psb_zgen_precaply
+++ 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