Fix typo.

17 years ago · b42020e950
parent acd870aa6e
commit b42020e950
1 changed files with 1 additions and 1 deletions
--- a/mlprec/mld_dmlprec_aply.f90
+++ b/mlprec/mld_dmlprec_aply.f90
@ -126,7 +126,7 @@
 !      baseprecv(ilev)%nlaggr    -  integer, dimension(:), allocatable.
 !                                   The number of aggregates (rows of A(ilev)) on the
 !                                   various processes. 
-!      baseprecv(ilev)%base_a    -  type(psb_zspmat_type), pointer.
+!      baseprecv(ilev)%base_a    -  type(psb_dspmat_type), pointer.
 !                                   Pointer (really a pointer!) to the base matrix of
 !                                   the current level, i.e. the local part of A(ilev);
 !                                   so we have a unified treatment of residuals. We