From df016d8b6018e31ec3b337272081be26eb7d8bc1 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 6 May 2008 16:09:51 +0000 Subject: [PATCH] Fixed stupid interface bug in mld_zslu_bld. --- mlprec/mld_zslu_bld.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mlprec/mld_zslu_bld.f90 b/mlprec/mld_zslu_bld.f90 index d6b00ab0..c9b837f4 100644 --- a/mlprec/mld_zslu_bld.f90 +++ b/mlprec/mld_zslu_bld.f90 @@ -77,7 +77,7 @@ subroutine mld_zslu_bld(a,desc_a,p,info) implicit none ! Arguments - type(psb_dspmat_type), intent(inout) :: a + type(psb_zspmat_type), intent(inout) :: a type(psb_desc_type), intent(in) :: desc_a type(mld_zbaseprc_type), intent(inout) :: p integer, intent(out) :: info