diff --git a/base/modules/psb_base_tools_mod.f90 b/base/modules/psb_base_tools_mod.f90
index 730f7412..0a38cf80 100644
--- a/base/modules/psb_base_tools_mod.f90
+++ b/base/modules/psb_base_tools_mod.f90
@@ -527,7 +527,7 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche
end subroutine psb_cdrep
end interface
character(len=20) :: name
- integer :: err_act, n_, flag_, i, me, np, nlp
+ integer :: err_act, n_, flag_, i, me, np, nlp, nnv
integer, allocatable :: itmpsz(:)
@@ -580,10 +580,20 @@ subroutine psb_cdall(ictxt, desc, info,mg,ng,parts,vg,vl,flag,nl,repl, globalche
else
flag_=0
endif
- call psb_cdalv(vg, ictxt, desc, info, flag=flag_)
+ if (present(mg)) then
+ nnv = min(mg,size(vg))
+ else
+ nnv = size(vg)
+ end if
+ call psb_cdalv(vg(1:nnv), ictxt, desc, info, flag=flag_)
else if (present(vl)) then
- call psb_cd_inloc(vl,ictxt,desc,info, globalcheck=globalcheck)
+ if (present(nl)) then
+ nnv = min(nl,size(vl))
+ else
+ nnv = size(vl)
+ end if
+ call psb_cd_inloc(vl(1:nnv),ictxt,desc,info, globalcheck=globalcheck)
else if (present(nl)) then
allocate(itmpsz(0:np-1),stat=info)
diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index 98620c50..61eb52e8 100644
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@@ -388,7 +388,7 @@ contains
write (error_unit,'("partition function passed as input argument n. ",i0," returns wrong processes identifier")')i_e_d(1)
write (error_unit,'("on global point ",i0,". Current value returned is : ",i0)')i_e_d(3),i_e_d(2)
case(psb_err_no_optional_arg_)
- write (error_unit,'("Exactly one of the optional arguments ",a," must be present")')a_e_d
+ write (error_unit,'("One of the optional arguments ",a," must be present")')a_e_d
case(psb_err_arg_m_required_)
write (error_unit,'("Argument M is required when argument PARTS is specified")')
case(psb_err_spmat_invalid_state_)
diff --git a/docs/html/node106.html b/docs/html/node106.html
index 71873b22..0ab38ea4 100644
--- a/docs/html/node106.html
+++ b/docs/html/node106.html
@@ -63,7 +63,7 @@ Mathematics Department, Macquarie University, Sydney.
The command line arguments were:
latex2html -local_icons -noaddress -dir ../../html userhtml.tex
-The translation was initiated by on 2010-05-13
+The translation was initiated by on 2010-05-26