Fixed stupid interface bug in mld_zslu_bld.

17 years ago · df016d8b60
parent 51a5c24713
commit df016d8b60
1 changed files with 1 additions and 1 deletions
--- 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