psblas3:

base/modules/psb_base_tools_mod.f90
 base/modules/psb_error_mod.F90
 docs/html/node106.html
 docs/html/node43.html
 docs/psblas-3.0.pdf
 docs/src/toolsrout.tex

New CDALL.

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)

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_)