diff --git a/.gitignore b/.gitignore index 9d711cb9..7227f784 100644 --- a/.gitignore +++ b/.gitignore @@ -4,8 +4,8 @@ *~ # header files generated -cbind/*.h -util/psb_metis_int.h +/cbind/*.h +/util/psb_metis_int.h # Make.inc generated /Make.inc @@ -13,8 +13,8 @@ config.log config.status # generated folder -include/ -#modules/ +/include/ +/modules/ docs/src/tmp autom4te.cache diff --git a/Changelog b/Changelog index 7cfc2997..88684099 100644 --- a/Changelog +++ b/Changelog @@ -1,5 +1,14 @@ Changelog. A lot less detailed than usual, at least for past history. +2022/05/20: Merge changes for REMOTE build. Bump v 3.8 +2022/03/28: Introduce new non-blocking collectives. +2021/06/01: New CTXT object +2021/04/20: OpenMP integration +2021/04/10: Recognize MPICXX in configure +2021/02/10: Take out precset interface, only prec%set now. +2020/09/20: New getelem function to extract vector entries +2020/07/21: Fix configure for METIS sizes +2020/06/01: reworked bild internals for descriptors 2019/12/18: New internals and algorithms for FND_OWNER, faster and less memory hungry. 2019/07/20: New SCAN collective; improve handling of SYMmetric diff --git a/LICENSE b/LICENSE index 861ebc4c..5ff86d89 100644 --- a/LICENSE +++ b/LICENSE @@ -1,5 +1,5 @@ - Parallel Sparse BLAS version 3.5 - (C) Copyright 2006-2018 + Parallel Sparse BLAS version 3.8 + (C) Copyright 2006-2022 Salvatore Filippone Alfredo Buttari diff --git a/Makefile b/Makefile index b28ae207..a0f5ec3e 100644 --- a/Makefile +++ b/Makefile @@ -1,30 +1,38 @@ include Make.inc -all: libd based precd kryld utild cbindd +all: dirs based precd kryld utild cbindd libd @echo "=====================================" @echo "PSBLAS libraries Compilation Successful." -based: libd +dirs: + (if test ! -d lib ; then mkdir lib; fi) + (if test ! -d include ; then mkdir include; fi; $(INSTALL_DATA) Make.inc include/Make.inc.psblas) + (if test ! -d modules ; then mkdir modules; fi;) + precd: based utild: based kryld: precd -cbindd: precd kryld utild +cbindd: based precd kryld utild -libd: - (if test ! -d lib ; then mkdir lib; fi) - (if test ! -d include ; then mkdir include; fi; $(INSTALL_DATA) Make.inc include/Make.inc.psblas) - (if test ! -d modules ; then mkdir modules; fi;) -based: +libd: based precd kryld utild cbindd $(MAKE) -C base lib -precd: $(MAKE) -C prec lib -kryld: $(MAKE) -C krylov lib -utild: $(MAKE) -C util lib + $(MAKE) -C cbind lib + +based: + $(MAKE) -C base objs +precd: + $(MAKE) -C prec objs +kryld: + $(MAKE) -C krylov objs +utild: + $(MAKE) -C util objs cbindd: - $(MAKE) -C cbind lib + $(MAKE) -C cbind objs + install: all mkdir -p $(INSTALL_INCLUDEDIR) &&\ diff --git a/README.md b/README.md index a86db934..d2f19f95 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,4 @@ -PSBLAS library, version 3.7 +PSBLAS library, version 3.8 =========================== The architecture of the Fortran 2003 sparse BLAS is described in: @@ -25,7 +25,7 @@ Harwell-Boeing and MatrixMarket file formats. DOCUMENTATION ------------- -See docs/psblas-3.5.pdf; an HTML version of the same document is +See docs/psblas-3.8.pdf; an HTML version of the same document is available in docs/html. Please consult the sample programs, especially test/pargen/psb_[sd]_pde[23]d.f90 @@ -58,7 +58,8 @@ prerequisites (see also SERIAL below): directories but only if you specify `--with-metis`. 4. If you have the AMD package of Davis, Duff and Amestoy, you can - specify `--with-amd` (see `./configure --help` for more details). + specify `--with-amd` (see `./configure --help` for more details). + We use the C interface to AMD. The configure script will generate a Make.inc file suitable for building the library. The script is capable of recognizing the needed libraries @@ -97,11 +98,15 @@ that enables running in pure serial mode; no MPI installation is needed in this case (but note that the fake MPI stubs are only guaranteed to cover what we use internally, it's not a complete replacement). -LONG INTEGERS +INTEGER SIZES ------------- -We have an experimental flag `--enable-long-integers` that will enable -having 8-byte integer data, allowing an index space larger than 2G; some -small cases have been tested but we do not offer full guarantee (yet). +We have two kind of integers: IPK for local indices, and LPK for +global indices. They can be specified independently at configure time, +e.g. +--with-ipk=4 --with-lpk=8 +which is asking for 4-bytes local indices, and 8-bytes global indices +(this is the default). + TODO diff --git a/ReleaseNews b/ReleaseNews index 558b497c..5a6664c2 100644 --- a/ReleaseNews +++ b/ReleaseNews @@ -1,5 +1,13 @@ WHAT'S NEW +Version 3.8.0-2 + 1. CTXT is now an opaque object. + 2. OpenMP is now better integrated. + 3. New non-blocking collectives. + 4. Now allowing remote builds (i.e. local contributions can + now be sent to the final destination process) + 5. Restore Makefiles to work on parallel builds. + Version 3.7.0.1 1. PREC%DESCR method now requires a mandatory INFO argument. diff --git a/base/Makefile b/base/Makefile index 039a5963..3348013f 100644 --- a/base/Makefile +++ b/base/Makefile @@ -6,24 +6,31 @@ INCDIR=../include MODDIR=../modules LIBNAME=$(BASELIBNAME) -lib: mods sr cm in pb tl +objs: mods sr cm in pb tl + +lib: objs + $(MAKE) -C modules lib LIBNAME=$(BASELIBNAME) F90="$(MPF90)" F90COPT="$(F90COPT) $(MPI_OPT)" + $(MAKE) -C serial lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C comm lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C internals lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C psblas lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C tools lib LIBNAME=$(BASELIBNAME) /bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR) - /bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR) sr cm in pb tl: mods mods: - $(MAKE) -C modules lib LIBNAME=$(BASELIBNAME) F90="$(MPF90)" F90COPT="$(F90COPT) $(MPI_OPT)" + $(MAKE) -C modules objs F90="$(MPF90)" F90COPT="$(F90COPT) $(MPI_OPT)" sr: - $(MAKE) -C serial lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C serial objs cm: - $(MAKE) -C comm lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C comm objs in: - $(MAKE) -C internals lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C internals objs pb: - $(MAKE) -C psblas lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C psblas objs tl: - $(MAKE) -C tools lib LIBNAME=$(BASELIBNAME) + $(MAKE) -C tools objs clean: ($(MAKE) -C modules clean) diff --git a/base/comm/Makefile b/base/comm/Makefile index 950a95a0..dfa1bed8 100644 --- a/base/comm/Makefile +++ b/base/comm/Makefile @@ -27,12 +27,15 @@ INCDIR=.. MODDIR=../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) -lib: interns mpfobjs $(OBJS) +objs: interns mpfobjs $(OBJS) + +lib: objs + $(MAKE) -C internals lib LIBNAME=$(LIBNAME) $(AR) $(LIBDIR)/$(LIBNAME) $(MPFOBJS) $(OBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) interns: - $(MAKE) -C internals lib + $(MAKE) -C internals objs mpfobjs: $(MAKE) $(MPFOBJS) FC="$(MPFC)" diff --git a/base/comm/internals/Makefile b/base/comm/internals/Makefile index 45a7ad46..695f2065 100644 --- a/base/comm/internals/Makefile +++ b/base/comm/internals/Makefile @@ -31,7 +31,8 @@ MODDIR=../../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) CINCLUDES=-I. -lib: mpfobjs $(FOBJS) $(MPFOBJS) +objs: mpfobjs $(FOBJS) $(MPFOBJS) +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(MPFOBJS) $(MPFOBJS2) $(FOBJS) $(FOBJS2) $(COBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/internals/Makefile b/base/internals/Makefile index 73fcfca4..1bb3f105 100644 --- a/base/internals/Makefile +++ b/base/internals/Makefile @@ -16,7 +16,8 @@ MODDIR=../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) CINCLUDES=-I. -lib: mpfobjs $(FOBJS) $(FOBJS2) $(COBJS) $(MPFOBJS2) $(MPFOBJS) +objs: mpfobjs $(FOBJS) $(FOBJS2) $(COBJS) $(MPFOBJS2) $(MPFOBJS) +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(MPFOBJS) $(MPFOBJS2) $(FOBJS) $(FOBJS2) $(COBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/internals/psi_graph_fnd_owner.F90 b/base/internals/psi_graph_fnd_owner.F90 index 966af403..e5eed8c6 100644 --- a/base/internals/psi_graph_fnd_owner.F90 +++ b/base/internals/psi_graph_fnd_owner.F90 @@ -41,6 +41,8 @@ ! ! iprc(:) - integer(psb_ipk_), allocatable Output: process identifiers ! for the corresponding indices +! ladj(:) - integer(psb_ipk_), allocatable Output: A list of adjacent processes +! ! idxmap - class(psb_indx_map). The index map ! info - integer. return code. ! @@ -76,7 +78,7 @@ ! thereby limiting the memory footprint to a predefined maximum ! (that the user can force with psb_cd_set_maxspace()). ! -subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) +subroutine psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) use psb_serial_mod use psb_const_mod use psb_error_mod @@ -93,13 +95,13 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) include 'mpif.h' #endif integer(psb_lpk_), intent(in) :: idx(:) - integer(psb_ipk_), allocatable, intent(out) :: iprc(:) - class(psb_indx_map), intent(inout) :: idxmap - integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), allocatable, intent(out) :: iprc(:), ladj(:) + class(psb_indx_map), intent(in) :: idxmap + integer(psb_ipk_), intent(out) :: info integer(psb_lpk_), allocatable :: tidx(:) - integer(psb_ipk_), allocatable :: tprc(:), tsmpl(:), ladj(:) + integer(psb_ipk_), allocatable :: tprc(:), tsmpl(:) integer(psb_mpk_) :: icomm, minfo integer(psb_ipk_) :: i,n_row,n_col,err_act,ip,j, nsampl_out,& & nv, n_answers, nqries, nsampl_in, locr_max, ist, iend,& @@ -208,7 +210,7 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) if (trace.and.(me == 0)) write(0,*) ' Initial sweep on user-defined topology',& & nsampl_in call psi_adj_fnd_sweep(idx,iprc,ladj,idxmap,nsampl_in,n_answers) - call idxmap%xtnd_p_adjcncy(ladj) + nqries = nv - n_answers nqries_max = nqries call psb_max(ctxt,nqries_max) @@ -253,13 +255,12 @@ subroutine psi_graph_fnd_owner(idx,iprc,idxmap,info) n_answers = n_answers + nlansw nqries = nv - n_answers ! - ! 3. Extract the resulting adjacency list and add it to the - ! indxmap; + ! 3. Extract the resulting adjacency list ? AND ADD IT TO THE EXISTING ONE ? ! ladj = tprc(1:nlansw) call psb_msort_unique(ladj,nadj) call psb_realloc(nadj,ladj,info) - call idxmap%xtnd_p_adjcncy(ladj) + ! call idxmap%xtnd_p_adjcncy(ladj) if (do_timings) call psb_toc(idx_loop_a2a) if (do_timings) call psb_tic(idx_loop_neigh) ! @@ -368,7 +369,7 @@ contains integer(psb_ipk_), intent(in) :: n_samples integer(psb_ipk_), intent(inout) :: iprc(:), n_answers integer(psb_ipk_), intent(in) :: adj(:) - class(psb_indx_map), intent(inout) :: idxmap + class(psb_indx_map), intent(in) :: idxmap ! type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: ipnt, ns_in, ns_out, n_rem, me, np, isw, n_reml,iend, nv diff --git a/base/internals/psi_indx_map_fnd_owner.F90 b/base/internals/psi_indx_map_fnd_owner.F90 index 0ecade3d..157b73a1 100644 --- a/base/internals/psi_indx_map_fnd_owner.F90 +++ b/base/internals/psi_indx_map_fnd_owner.F90 @@ -51,7 +51,7 @@ ! 2. Check if TEMPVG(:) is allocated, and use it; or ! 3. Call the general method PSI_GRAPH_FND_OWNER. ! -subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) +subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info,adj) use psb_serial_mod use psb_const_mod use psb_error_mod @@ -66,15 +66,15 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) #ifdef MPI_H include 'mpif.h' #endif - integer(psb_lpk_), intent(in) :: idx(:) + integer(psb_lpk_), intent(in) :: idx(:) integer(psb_ipk_), allocatable, intent(out) :: iprc(:) - class(psb_indx_map), intent(inout) :: idxmap + class(psb_indx_map), intent(in) :: idxmap integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, allocatable, intent(out) :: adj(:) - - integer(psb_ipk_), allocatable :: hhidx(:) + integer(psb_ipk_), allocatable :: hhidx(:), ladj(:) integer(psb_mpk_) :: icomm, minfo - integer(psb_ipk_) :: i, err_act, hsize + integer(psb_ipk_) :: i, err_act, hsize, nadj integer(psb_lpk_) :: nv integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt @@ -131,7 +131,6 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) iprc(i) = -1 end if end do - else if (allocated(idxmap%tempvg)) then !!$ write(0,*) me,trim(name),' indxmap%tempvg shortcut' ! Use temporary vector @@ -183,7 +182,7 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) tidx(k2) = idx(k1) end if end do - call psi_graph_fnd_owner(tidx,tprc,idxmap,info) + call psi_graph_fnd_owner(tidx,tprc,ladj,idxmap,info) k2 = 0 do k1 = 1, nv if (iprc(k1) < 0) then @@ -198,12 +197,15 @@ subroutine psi_indx_map_fnd_owner(idx,iprc,idxmap,info) end do end block else - call psi_graph_fnd_owner(idx,iprc,idxmap,info) + call psi_graph_fnd_owner(idx,iprc,ladj,idxmap,info) end if - - + + end if + if (present(adj)) then + adj = iprc + call psb_msort_unique(adj,nadj) + call psb_realloc(nadj,adj,info) end if - if (gettime) then call psb_barrier(ctxt) t1 = psb_wtime() diff --git a/base/modules/Makefile b/base/modules/Makefile index 8d50011f..399add1f 100644 --- a/base/modules/Makefile +++ b/base/modules/Makefile @@ -108,15 +108,18 @@ UTIL_MODS = desc/psb_desc_const_mod.o desc/psb_indx_map_mod.o\ MODULES=$(BASIC_MODS) $(SERIAL_MODS) $(UTIL_MODS) OBJS = error.o psb_base_mod.o $(EXTRA_COBJS) cutil.o -LIBDIR=.. +MODDIR=../../modules +LIBDIR=../ CINCLUDES=-I. FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG). $(FIFLAG). -lib: $(LIBDIR)/$(LIBNAME) - /bin/cp -p $(CPUPDFLAG) *$(.mod) $(LIBDIR) +objs: $(MODULES) $(OBJS) $(MPFOBJS) + /bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR) -$(LIBDIR)/$(LIBNAME): $(MODULES) $(OBJS) $(MPFOBJS) +lib: objs $(LIBDIR)/$(LIBNAME) + +$(LIBDIR)/$(LIBNAME): objs $(AR) $(LIBDIR)/$(LIBNAME) $(MODULES) $(OBJS) $(MPFOBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) @@ -358,8 +361,8 @@ tools/psb_c_tools_mod.o tools/psb_z_tools_mod.o tools/psb_m_tools_a_mod.o tools/ tools/psb_s_tools_a_mod.o tools/psb_d_tools_a_mod.o\ tools/psb_c_tools_a_mod.o tools/psb_z_tools_a_mod.o: desc/psb_desc_mod.o psi_mod.o serial/psb_mat_mod.o -tools/psb_i_tools_mod.o: serial/psb_i_vect_mod.o -tools/psb_l_tools_mod.o: serial/psb_l_vect_mod.o +tools/psb_i_tools_mod.o: serial/psb_i_vect_mod.o tools/psb_m_tools_a_mod.o tools/psb_e_tools_a_mod.o +tools/psb_l_tools_mod.o: serial/psb_l_vect_mod.o tools/psb_m_tools_a_mod.o tools/psb_e_tools_a_mod.o tools/psb_s_tools_mod.o: serial/psb_s_vect_mod.o tools/psb_d_tools_mod.o: serial/psb_d_vect_mod.o tools/psb_c_tools_mod.o: serial/psb_c_vect_mod.o @@ -375,7 +378,7 @@ psblas/psb_s_psblas_mod.o psblas/psb_c_psblas_mod.o psblas/psb_d_psblas_mod.o ps psb_base_mod.o: $(MODULES) -penv/psi_penv_mod.o: penv/psi_penv_mod.F90 psb_const_mod.o serial/psb_vect_mod.o serial/psb_mat_mod.o +penv/psi_penv_mod.o: penv/psi_penv_mod.F90 psb_const_mod.o serial/psb_vect_mod.o serial/psb_mat_mod.o desc/psb_desc_const_mod.o $(FC) $(FINCLUDES) $(FDEFINES) $(FCOPT) $(EXTRA_OPT) -c $< -o $@ psb_penv_mod.o: psb_penv_mod.F90 $(COMMINT) $(BASIC_MODS) diff --git a/base/modules/auxil/psb_c_realloc_mod.F90 b/base/modules/auxil/psb_c_realloc_mod.F90 index 938ef36f..9e6af5a8 100644 --- a/base/modules/auxil/psb_c_realloc_mod.F90 +++ b/base/modules/auxil/psb_c_realloc_mod.F90 @@ -131,7 +131,7 @@ Contains ! ...Local Variables complex(psb_spk_),allocatable :: tmp(:) - integer(psb_mpk_) :: dim, lb_, lbi,ub_ + integer(psb_mpk_) :: dim, lb_, lbi,ub_, i integer(psb_ipk_) :: err_act,err character(len=30) :: name logical, parameter :: debug=.false. @@ -179,7 +179,10 @@ Contains end if endif if (present(pad)) then - rrax(lb_-1+dim+1:lb_-1+len) = pad + !$omp parallel do private(i) shared(dim,len) + do i=lb_-1+dim+1,lb_-1+len + rrax(i) = pad + end do endif call psb_erractionrestore(err_act) return @@ -204,7 +207,7 @@ Contains complex(psb_spk_),allocatable :: tmp(:,:) integer(psb_ipk_) :: err_act,err - integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2 + integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2, i character(len=30) :: name name='psb_r_m_c_rk2' @@ -267,8 +270,14 @@ Contains end if endif if (present(pad)) then - rrax(lb1_-1+dim+1:lb1_-1+len1,:) = pad - rrax(lb1_:lb1_-1+dim,lb2_-1+dim2+1:lb2_-1+len2) = pad + !$omp parallel do private(i) shared(lb1_,dim,len1) + do i=lb1_-1+dim+1,lb1_-1+len1 + rrax(i,:) = pad + end do + !$omp parallel do private(i) shared(lb1_,dim,len1,lb2_,dim2,len2) + do i=lb1_,lb1_-1+len1 + rrax(i,lb2_-1+dim2+1:lb2_-1+len2) = pad + end do endif call psb_erractionrestore(err_act) return diff --git a/base/modules/auxil/psb_d_realloc_mod.F90 b/base/modules/auxil/psb_d_realloc_mod.F90 index 868a6657..672b4677 100644 --- a/base/modules/auxil/psb_d_realloc_mod.F90 +++ b/base/modules/auxil/psb_d_realloc_mod.F90 @@ -131,7 +131,7 @@ Contains ! ...Local Variables real(psb_dpk_),allocatable :: tmp(:) - integer(psb_mpk_) :: dim, lb_, lbi,ub_ + integer(psb_mpk_) :: dim, lb_, lbi,ub_, i integer(psb_ipk_) :: err_act,err character(len=30) :: name logical, parameter :: debug=.false. @@ -179,7 +179,10 @@ Contains end if endif if (present(pad)) then - rrax(lb_-1+dim+1:lb_-1+len) = pad + !$omp parallel do private(i) shared(dim,len) + do i=lb_-1+dim+1,lb_-1+len + rrax(i) = pad + end do endif call psb_erractionrestore(err_act) return @@ -204,7 +207,7 @@ Contains real(psb_dpk_),allocatable :: tmp(:,:) integer(psb_ipk_) :: err_act,err - integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2 + integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2, i character(len=30) :: name name='psb_r_m_d_rk2' @@ -267,8 +270,14 @@ Contains end if endif if (present(pad)) then - rrax(lb1_-1+dim+1:lb1_-1+len1,:) = pad - rrax(lb1_:lb1_-1+dim,lb2_-1+dim2+1:lb2_-1+len2) = pad + !$omp parallel do private(i) shared(lb1_,dim,len1) + do i=lb1_-1+dim+1,lb1_-1+len1 + rrax(i,:) = pad + end do + !$omp parallel do private(i) shared(lb1_,dim,len1,lb2_,dim2,len2) + do i=lb1_,lb1_-1+len1 + rrax(i,lb2_-1+dim2+1:lb2_-1+len2) = pad + end do endif call psb_erractionrestore(err_act) return diff --git a/base/modules/auxil/psb_e_realloc_mod.F90 b/base/modules/auxil/psb_e_realloc_mod.F90 index c5645bf0..0f2431fd 100644 --- a/base/modules/auxil/psb_e_realloc_mod.F90 +++ b/base/modules/auxil/psb_e_realloc_mod.F90 @@ -131,7 +131,7 @@ Contains ! ...Local Variables integer(psb_epk_),allocatable :: tmp(:) - integer(psb_mpk_) :: dim, lb_, lbi,ub_ + integer(psb_mpk_) :: dim, lb_, lbi,ub_, i integer(psb_ipk_) :: err_act,err character(len=30) :: name logical, parameter :: debug=.false. @@ -179,7 +179,10 @@ Contains end if endif if (present(pad)) then - rrax(lb_-1+dim+1:lb_-1+len) = pad + !$omp parallel do private(i) shared(dim,len) + do i=lb_-1+dim+1,lb_-1+len + rrax(i) = pad + end do endif call psb_erractionrestore(err_act) return @@ -204,7 +207,7 @@ Contains integer(psb_epk_),allocatable :: tmp(:,:) integer(psb_ipk_) :: err_act,err - integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2 + integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2, i character(len=30) :: name name='psb_r_m_e_rk2' @@ -267,8 +270,14 @@ Contains end if endif if (present(pad)) then - rrax(lb1_-1+dim+1:lb1_-1+len1,:) = pad - rrax(lb1_:lb1_-1+dim,lb2_-1+dim2+1:lb2_-1+len2) = pad + !$omp parallel do private(i) shared(lb1_,dim,len1) + do i=lb1_-1+dim+1,lb1_-1+len1 + rrax(i,:) = pad + end do + !$omp parallel do private(i) shared(lb1_,dim,len1,lb2_,dim2,len2) + do i=lb1_,lb1_-1+len1 + rrax(i,lb2_-1+dim2+1:lb2_-1+len2) = pad + end do endif call psb_erractionrestore(err_act) return diff --git a/base/modules/auxil/psb_i2_realloc_mod.F90 b/base/modules/auxil/psb_i2_realloc_mod.F90 index cbe0d130..22e85d36 100644 --- a/base/modules/auxil/psb_i2_realloc_mod.F90 +++ b/base/modules/auxil/psb_i2_realloc_mod.F90 @@ -131,7 +131,7 @@ Contains ! ...Local Variables integer(psb_i2pk_),allocatable :: tmp(:) - integer(psb_mpk_) :: dim, lb_, lbi,ub_ + integer(psb_mpk_) :: dim, lb_, lbi,ub_, i integer(psb_ipk_) :: err_act,err character(len=30) :: name logical, parameter :: debug=.false. @@ -179,7 +179,10 @@ Contains end if endif if (present(pad)) then - rrax(lb_-1+dim+1:lb_-1+len) = pad + !$omp parallel do private(i) shared(dim,len) + do i=lb_-1+dim+1,lb_-1+len + rrax(i) = pad + end do endif call psb_erractionrestore(err_act) return @@ -204,7 +207,7 @@ Contains integer(psb_i2pk_),allocatable :: tmp(:,:) integer(psb_ipk_) :: err_act,err - integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2 + integer(psb_mpk_) :: dim,dim2,lb1_, lb2_, ub1_, ub2_,lbi1, lbi2, i character(len=30) :: name name='psb_r_m_i2_rk2' @@ -267,8 +270,14 @@ Contains end if endif if (present(pad)) then - rrax(lb1_-1+dim+1:lb1_-1+len1,:) = pad - rrax(lb1_:lb1_-1+dim,lb2_-1+dim2+1:lb2_-1+len2) = pad + !$omp parallel do private(i) shared(lb1_,dim,len1) + do i=lb1_-1+dim+1,lb1_-1+len1 + rrax(i,:) = pad + end do + !$omp parallel do private(i) shared(lb1_,dim,len1,lb2_,dim2,len2) + do i=lb1_,lb1_-1+len1 + rrax(i,lb2_-1+dim2+1:lb2_-1+len2) = pad + end do endif call psb_erractionrestore(err_act) return diff --git a/base/modules/auxil/psb_i_sort_mod.f90 b/base/modules/auxil/psb_i_sort_mod.f90 deleted file mode 100644 index bd48f628..00000000 --- a/base/modules/auxil/psb_i_sort_mod.f90 +++ /dev/null @@ -1,578 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! Sorting routines -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -module psb_i_sort_mod - use psb_const_mod - - interface psb_isaperm - logical function psb_iisaperm(n,eip) - import - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_), intent(in) :: eip(n) - end function psb_iisaperm - end interface psb_isaperm - - - interface psb_msort_unique - subroutine psb_imsort_u(x,nout,dir) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(out) :: nout - integer(psb_ipk_), optional, intent(in) :: dir - end subroutine psb_imsort_u - end interface psb_msort_unique - - type psb_i_heap - integer(psb_ipk_) :: last, dir - integer(psb_ipk_), allocatable :: keys(:) - contains - procedure, pass(heap) :: init => psb_i_init_heap - procedure, pass(heap) :: howmany => psb_i_howmany - procedure, pass(heap) :: insert => psb_i_insert_heap - procedure, pass(heap) :: get_first => psb_i_heap_get_first - procedure, pass(heap) :: dump => psb_i_dump_heap - procedure, pass(heap) :: free => psb_i_free_heap - end type psb_i_heap - - type psb_i_idx_heap - integer(psb_ipk_) :: last, dir - integer(psb_ipk_), allocatable :: keys(:) - integer(psb_ipk_), allocatable :: idxs(:) - contains - procedure, pass(heap) :: init => psb_i_idx_init_heap - procedure, pass(heap) :: howmany => psb_i_idx_howmany - procedure, pass(heap) :: insert => psb_i_idx_insert_heap - procedure, pass(heap) :: get_first => psb_i_idx_heap_get_first - procedure, pass(heap) :: dump => psb_i_idx_dump_heap - procedure, pass(heap) :: free => psb_i_idx_free_heap - end type psb_i_idx_heap - - - interface psb_msort - subroutine psb_imsort(x,ix,dir,flag) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - end subroutine psb_imsort - end interface psb_msort - - - interface psb_bsrch - function psb_ibsrch(key,n,v) result(ipos) - import - integer(psb_ipk_) :: ipos, n - integer(psb_ipk_) :: key - integer(psb_ipk_) :: v(:) - end function psb_ibsrch - end interface psb_bsrch - - interface psb_ssrch - function psb_issrch(key,n,v) result(ipos) - import - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_ipk_) :: key - integer(psb_ipk_) :: v(:) - end function psb_issrch - end interface psb_ssrch - - interface - subroutine psi_i_msort_up(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - end subroutine psi_i_msort_up - subroutine psi_i_msort_dw(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - end subroutine psi_i_msort_dw - end interface - interface - subroutine psi_i_amsort_up(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - end subroutine psi_i_amsort_up - subroutine psi_i_amsort_dw(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - end subroutine psi_i_amsort_dw - end interface - - - interface psb_qsort - subroutine psb_iqsort(x,ix,dir,flag) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - end subroutine psb_iqsort - end interface psb_qsort - - interface psb_isort - subroutine psb_iisort(x,ix,dir,flag) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - end subroutine psb_iisort - end interface psb_isort - - - interface psb_hsort - subroutine psb_ihsort(x,ix,dir,flag) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - end subroutine psb_ihsort - end interface psb_hsort - - - interface - subroutine psi_i_insert_heap(key,last,heap,dir,info) - import - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_ipk_), intent(in) :: key - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - end subroutine psi_i_insert_heap - end interface - - interface - subroutine psi_i_idx_insert_heap(key,index,last,heap,idxs,dir,info) - import - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_ipk_), intent(in) :: key - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(in) :: index - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: idxs(:) - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - end subroutine psi_i_idx_insert_heap - end interface - - - interface - subroutine psi_i_heap_get_first(key,last,heap,dir,info) - import - implicit none - integer(psb_ipk_), intent(inout) :: key - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: info - end subroutine psi_i_heap_get_first - end interface - - interface - subroutine psi_i_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import - integer(psb_ipk_), intent(inout) :: key - integer(psb_ipk_), intent(out) :: index - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(inout) :: idxs(:) - integer(psb_ipk_), intent(out) :: info - end subroutine psi_i_idx_heap_get_first - end interface - - interface - subroutine psi_iisrx_up(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iisrx_up - subroutine psi_iisrx_dw(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iisrx_dw - subroutine psi_iisr_up(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iisr_up - subroutine psi_iisr_dw(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iisr_dw - subroutine psi_iaisrx_up(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaisrx_up - subroutine psi_iaisrx_dw(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaisrx_dw - subroutine psi_iaisr_up(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaisr_up - subroutine psi_iaisr_dw(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaisr_dw - end interface - - interface - subroutine psi_iqsrx_up(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iqsrx_up - subroutine psi_iqsrx_dw(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iqsrx_dw - subroutine psi_iqsr_up(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iqsr_up - subroutine psi_iqsr_dw(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iqsr_dw - subroutine psi_iaqsrx_up(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaqsrx_up - subroutine psi_iaqsrx_dw(n,x,ix) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: ix(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaqsrx_dw - subroutine psi_iaqsr_up(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaqsr_up - subroutine psi_iaqsr_dw(n,x) - import - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - end subroutine psi_iaqsr_dw - end interface - -contains - - subroutine psb_i_init_heap(heap,info,dir) - use psb_realloc_mod, only : psb_ensure_size - implicit none - class(psb_i_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), intent(in), optional :: dir - - info = psb_success_ - heap%last=0 - if (present(dir)) then - heap%dir = dir - else - heap%dir = psb_sort_up_ - endif - select case(heap%dir) - case (psb_sort_up_,psb_sort_down_,psb_asort_up_,psb_asort_down_) - ! ok, do nothing - case default - write(psb_err_unit,*) 'Invalid direction, defaulting to psb_sort_up_' - heap%dir = psb_sort_up_ - end select - call psb_ensure_size(psb_heap_resize,heap%keys,info) - - return - end subroutine psb_i_init_heap - - - function psb_i_howmany(heap) result(res) - implicit none - class(psb_i_heap), intent(in) :: heap - integer(psb_ipk_) :: res - res = heap%last - end function psb_i_howmany - - subroutine psb_i_insert_heap(key,heap,info) - use psb_realloc_mod, only : psb_ensure_size - implicit none - - integer(psb_ipk_), intent(in) :: key - class(psb_i_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - - info = psb_success_ - if (heap%last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',heap%last - info = heap%last - return - endif - - call psb_ensure_size(heap%last+1,heap%keys,info,addsz=psb_heap_resize) - if (info /= psb_success_) then - write(psb_err_unit,*) 'Memory allocation failure in heap_insert' - info = -5 - return - end if - call psi_i_insert_heap(key,& - & heap%last,heap%keys,heap%dir,info) - - return - end subroutine psb_i_insert_heap - - subroutine psb_i_heap_get_first(key,heap,info) - implicit none - - class(psb_i_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), intent(out) :: key - - - info = psb_success_ - - call psi_i_heap_get_first(key,& - & heap%last,heap%keys,heap%dir,info) - - return - end subroutine psb_i_heap_get_first - - subroutine psb_i_dump_heap(iout,heap,info) - - implicit none - class(psb_i_heap), intent(in) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), intent(in) :: iout - - info = psb_success_ - if (iout < 0) then - write(psb_err_unit,*) 'Invalid file ' - info =-1 - return - end if - - write(iout,*) 'Heap direction ',heap%dir - write(iout,*) 'Heap size ',heap%last - if ((heap%last > 0).and.((.not.allocated(heap%keys)).or.& - & (size(heap%keys) 0).and.((.not.allocated(heap%keys)).or.& - & (size(heap%keys) 0).and.((.not.allocated(heap%idxs)).or.& - & (size(heap%idxs) psb_l_init_heap - procedure, pass(heap) :: howmany => psb_l_howmany - procedure, pass(heap) :: insert => psb_l_insert_heap - procedure, pass(heap) :: get_first => psb_l_heap_get_first - procedure, pass(heap) :: dump => psb_l_dump_heap - procedure, pass(heap) :: free => psb_l_free_heap - end type psb_l_heap - - type psb_l_idx_heap - integer(psb_ipk_) :: last, dir - integer(psb_lpk_), allocatable :: keys(:) - integer(psb_lpk_), allocatable :: idxs(:) - contains - procedure, pass(heap) :: init => psb_l_idx_init_heap - procedure, pass(heap) :: howmany => psb_l_idx_howmany - procedure, pass(heap) :: insert => psb_l_idx_insert_heap - procedure, pass(heap) :: get_first => psb_l_idx_heap_get_first - procedure, pass(heap) :: dump => psb_l_idx_dump_heap - procedure, pass(heap) :: free => psb_l_idx_free_heap - end type psb_l_idx_heap - - - interface psb_msort - subroutine psb_lmsort(x,ix,dir,flag) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - end subroutine psb_lmsort - end interface psb_msort - - - interface psb_bsrch - function psb_lbsrch(key,n,v) result(ipos) - import - integer(psb_ipk_) :: ipos, n - integer(psb_lpk_) :: key - integer(psb_lpk_) :: v(:) - end function psb_lbsrch - end interface psb_bsrch - - interface psb_ssrch - function psb_lssrch(key,n,v) result(ipos) - import - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_lpk_) :: key - integer(psb_lpk_) :: v(:) - end function psb_lssrch - end interface psb_ssrch - - interface - subroutine psi_l_msort_up(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - end subroutine psi_l_msort_up - subroutine psi_l_msort_dw(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - end subroutine psi_l_msort_dw - end interface - interface - subroutine psi_l_amsort_up(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - end subroutine psi_l_amsort_up - subroutine psi_l_amsort_dw(n,k,l,iret) - import - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - end subroutine psi_l_amsort_dw - end interface - - - interface psb_qsort - subroutine psb_lqsort(x,ix,dir,flag) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - end subroutine psb_lqsort - end interface psb_qsort - - interface psb_isort - subroutine psb_lisort(x,ix,dir,flag) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - end subroutine psb_lisort - end interface psb_isort - - - interface psb_hsort - subroutine psb_lhsort(x,ix,dir,flag) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - end subroutine psb_lhsort - end interface psb_hsort - - - interface - subroutine psi_l_insert_heap(key,last,heap,dir,info) - import - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_lpk_), intent(in) :: key - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - end subroutine psi_l_insert_heap - end interface - - interface - subroutine psi_l_idx_insert_heap(key,index,last,heap,idxs,dir,info) - import - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_lpk_), intent(in) :: key - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_lpk_), intent(in) :: index - integer(psb_ipk_), intent(in) :: dir - integer(psb_lpk_), intent(inout) :: idxs(:) - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - end subroutine psi_l_idx_insert_heap - end interface - - - interface - subroutine psi_l_heap_get_first(key,last,heap,dir,info) - import - implicit none - integer(psb_lpk_), intent(inout) :: key - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(in) :: dir - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: info - end subroutine psi_l_heap_get_first - end interface - - interface - subroutine psi_l_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - import - integer(psb_lpk_), intent(inout) :: key - integer(psb_lpk_), intent(out) :: index - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: last - integer(psb_lpk_), intent(inout) :: idxs(:) - integer(psb_ipk_), intent(out) :: info - end subroutine psi_l_idx_heap_get_first - end interface - - interface - subroutine psi_lisrx_up(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lisrx_up - subroutine psi_lisrx_dw(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lisrx_dw - subroutine psi_lisr_up(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lisr_up - subroutine psi_lisr_dw(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lisr_dw - subroutine psi_laisrx_up(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laisrx_up - subroutine psi_laisrx_dw(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laisrx_dw - subroutine psi_laisr_up(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laisr_up - subroutine psi_laisr_dw(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laisr_dw - end interface - - interface - subroutine psi_lqsrx_up(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lqsrx_up - subroutine psi_lqsrx_dw(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lqsrx_dw - subroutine psi_lqsr_up(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lqsr_up - subroutine psi_lqsr_dw(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_lqsr_dw - subroutine psi_laqsrx_up(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laqsrx_up - subroutine psi_laqsrx_dw(n,x,ix) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: ix(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laqsrx_dw - subroutine psi_laqsr_up(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laqsr_up - subroutine psi_laqsr_dw(n,x) - import - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - end subroutine psi_laqsr_dw - end interface - -contains - - subroutine psb_l_init_heap(heap,info,dir) - use psb_realloc_mod, only : psb_ensure_size - implicit none - class(psb_l_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), intent(in), optional :: dir - - info = psb_success_ - heap%last=0 - if (present(dir)) then - heap%dir = dir - else - heap%dir = psb_sort_up_ - endif - select case(heap%dir) - case (psb_sort_up_,psb_sort_down_,psb_asort_up_,psb_asort_down_) - ! ok, do nothing - case default - write(psb_err_unit,*) 'Invalid direction, defaulting to psb_sort_up_' - heap%dir = psb_sort_up_ - end select - call psb_ensure_size(psb_heap_resize,heap%keys,info) - - return - end subroutine psb_l_init_heap - - - function psb_l_howmany(heap) result(res) - implicit none - class(psb_l_heap), intent(in) :: heap - integer(psb_ipk_) :: res - res = heap%last - end function psb_l_howmany - - subroutine psb_l_insert_heap(key,heap,info) - use psb_realloc_mod, only : psb_ensure_size - implicit none - - integer(psb_lpk_), intent(in) :: key - class(psb_l_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - - info = psb_success_ - if (heap%last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',heap%last - info = heap%last - return - endif - - call psb_ensure_size(heap%last+1,heap%keys,info,addsz=psb_heap_resize) - if (info /= psb_success_) then - write(psb_err_unit,*) 'Memory allocation failure in heap_insert' - info = -5 - return - end if - call psi_l_insert_heap(key,& - & heap%last,heap%keys,heap%dir,info) - - return - end subroutine psb_l_insert_heap - - subroutine psb_l_heap_get_first(key,heap,info) - implicit none - - class(psb_l_heap), intent(inout) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_lpk_), intent(out) :: key - - - info = psb_success_ - - call psi_l_heap_get_first(key,& - & heap%last,heap%keys,heap%dir,info) - - return - end subroutine psb_l_heap_get_first - - subroutine psb_l_dump_heap(iout,heap,info) - - implicit none - class(psb_l_heap), intent(in) :: heap - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), intent(in) :: iout - - info = psb_success_ - if (iout < 0) then - write(psb_err_unit,*) 'Invalid file ' - info =-1 - return - end if - - write(iout,*) 'Heap direction ',heap%dir - write(iout,*) 'Heap size ',heap%last - if ((heap%last > 0).and.((.not.allocated(heap%keys)).or.& - & (size(heap%keys) 0).and.((.not.allocated(heap%keys)).or.& - & (size(heap%keys) 0).and.((.not.allocated(heap%idxs)).or.& - & (size(heap%idxs) psb_c_is_repeatable_updates procedure, pass(a) :: get_fmt => psb_c_get_fmt procedure, pass(a) :: sizeof => psb_c_sizeof + procedure, pass(a) :: is_remote_build => psb_c_is_remote_build + ! Setters procedure, pass(a) :: set_nrows => psb_c_set_nrows @@ -125,6 +129,7 @@ module psb_c_mat_mod procedure, pass(a) :: set_symmetric => psb_c_set_symmetric procedure, pass(a) :: set_unit => psb_c_set_unit procedure, pass(a) :: set_repeatable_updates => psb_c_set_repeatable_updates + procedure, pass(a) :: set_remote_build => psb_c_set_remote_build ! Memory/data management procedure, pass(a) :: csall => psb_c_csall @@ -2292,7 +2297,25 @@ contains end function c_mat_is_sync + function psb_c_is_remote_build(a) result(res) + implicit none + class(psb_cspmat_type), intent(in) :: a + logical :: res + res = (a%remote_build == psb_matbld_remote_) + end function psb_c_is_remote_build + subroutine psb_c_set_remote_build(a,val) + implicit none + class(psb_cspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + a%remote_build = val + else + a%remote_build = psb_matbld_remote_ + end if + end subroutine psb_c_set_remote_build + function psb_c_is_repeatable_updates(a) result(res) implicit none class(psb_cspmat_type), intent(in) :: a diff --git a/base/modules/serial/psb_c_vect_mod.F90 b/base/modules/serial/psb_c_vect_mod.F90 index 0edb7245..1a336d11 100644 --- a/base/modules/serial/psb_c_vect_mod.F90 +++ b/base/modules/serial/psb_c_vect_mod.F90 @@ -39,15 +39,27 @@ ! module psb_c_vect_mod + use psb_realloc_mod use psb_c_base_vect_mod use psb_i_vect_mod type psb_c_vect_type class(psb_c_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + complex(psb_spk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => c_vect_get_nrows procedure, pass(x) :: sizeof => c_vect_sizeof procedure, pass(x) :: get_fmt => c_vect_get_fmt + procedure, pass(x) :: is_remote_build => c_vect_is_remote_build + procedure, pass(x) :: set_remote_build => c_vect_set_remote_build + procedure, pass(x) :: get_dupl => c_vect_get_dupl + procedure, pass(x) :: set_dupl => c_vect_set_dupl + procedure, pass(x) :: get_nrmv => c_vect_get_nrmv + procedure, pass(x) :: set_nrmv => c_vect_set_nrmv procedure, pass(x) :: all => c_vect_all procedure, pass(x) :: reall => c_vect_reall procedure, pass(x) :: zero => c_vect_zero @@ -145,7 +157,9 @@ module psb_c_vect_mod & c_vect_cnv, c_vect_set_scal, & & c_vect_set_vect, c_vect_clone, c_vect_sync, c_vect_is_host, & & c_vect_is_dev, c_vect_is_sync, c_vect_set_host, & - & c_vect_set_dev, c_vect_set_sync + & c_vect_set_dev, c_vect_set_sync, & + & c_vect_set_remote_build, c_is_remote_build, & + & c_vect_set_dupl, c_get_dupl, c_vect_set_nrmv, c_get_nrmv private :: c_vect_dot_v, c_vect_dot_a, c_vect_axpby_v, c_vect_axpby_a, & & c_vect_mlt_v, c_vect_mlt_a, c_vect_mlt_a_2, c_vect_mlt_v_2, & @@ -167,7 +181,60 @@ module psb_c_vect_mod contains + function c_vect_get_dupl(x) result(res) + implicit none + class(psb_c_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function c_vect_get_dupl + + subroutine c_vect_set_dupl(x,val) + implicit none + class(psb_c_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine c_vect_set_dupl + + function c_vect_get_nrmv(x) result(res) + implicit none + class(psb_c_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function c_vect_get_nrmv + + subroutine c_vect_set_nrmv(x,val) + implicit none + class(psb_c_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + x%nrmv = val + end subroutine c_vect_set_nrmv + + + function c_vect_is_remote_build(x) result(res) + implicit none + class(psb_c_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function c_vect_is_remote_build + + subroutine c_vect_set_remote_build(x,val) + implicit none + class(psb_c_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine c_vect_set_remote_build + subroutine psb_c_set_vect_default(v) implicit none class(psb_c_base_vect_type), intent(in) :: v @@ -365,8 +432,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(inout) :: x - class(psb_c_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_c_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -381,7 +448,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine c_vect_all subroutine c_vect_reall(n, x, info) @@ -412,13 +478,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_c_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine c_vect_asb subroutine c_vect_gthab(n,idx,alpha,x,beta,y) @@ -469,44 +535,44 @@ contains end subroutine c_vect_free - subroutine c_vect_ins_a(n,irl,val,dupl,x,info) + subroutine c_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_c_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine c_vect_ins_a - subroutine c_vect_ins_v(n,irl,val,dupl,x,info) + subroutine c_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_c_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_c_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine c_vect_ins_v @@ -526,9 +592,11 @@ contains allocate(tmp,stat=info,mold=psb_c_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -1182,7 +1250,6 @@ contains end module psb_c_vect_mod - module psb_c_multivect_mod use psb_c_base_multivect_mod @@ -1194,11 +1261,19 @@ module psb_c_multivect_mod type psb_c_multivect_type class(psb_c_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + complex(psb_spk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => c_vect_get_nrows procedure, pass(x) :: get_ncols => c_vect_get_ncols procedure, pass(x) :: sizeof => c_vect_sizeof procedure, pass(x) :: get_fmt => c_vect_get_fmt + procedure, pass(x) :: is_remote_build => c_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => c_mvect_set_remote_build + procedure, pass(x) :: get_dupl => c_mvect_get_dupl + procedure, pass(x) :: set_dupl => c_mvect_set_dupl procedure, pass(x) :: all => c_vect_all procedure, pass(x) :: reall => c_vect_reall @@ -1266,6 +1341,46 @@ module psb_c_multivect_mod contains + + function c_mvect_get_dupl(x) result(res) + implicit none + class(psb_c_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function c_mvect_get_dupl + + subroutine c_mvect_set_dupl(x,val) + implicit none + class(psb_c_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine c_mvect_set_dupl + + + function c_mvect_is_remote_build(x) result(res) + implicit none + class(psb_c_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function c_mvect_is_remote_build + + subroutine c_mvect_set_remote_build(x,val) + implicit none + class(psb_c_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine c_mvect_set_remote_build + subroutine psb_c_set_multivect_default(v) implicit none @@ -1570,23 +1685,23 @@ contains end subroutine c_vect_free - subroutine c_vect_ins(n,irl,val,dupl,x,info) + subroutine c_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_c_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) complex(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine c_vect_ins diff --git a/base/modules/serial/psb_d_base_mat_mod.F90 b/base/modules/serial/psb_d_base_mat_mod.F90 index 48e9ec1e..eb49905d 100644 --- a/base/modules/serial/psb_d_base_mat_mod.F90 +++ b/base/modules/serial/psb_d_base_mat_mod.F90 @@ -1865,26 +1865,29 @@ module psb_d_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_d_fix_coo_inner end interface - interface - subroutine psb_d_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_d_fix_coo_inner_colmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) real(psb_dpk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_d_fix_coo_inner_rowmajor + end subroutine psb_d_fix_coo_inner_colmajor end interface - interface - subroutine psb_d_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_d_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) real(psb_dpk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_d_fix_coo_inner_colmajor - + end subroutine psb_d_fix_coo_inner_rowmajor end interface ! diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90 index ad64e6c9..a28d12f6 100644 --- a/base/modules/serial/psb_d_base_vect_mod.F90 +++ b/base/modules/serial/psb_d_base_vect_mod.F90 @@ -1215,7 +1215,7 @@ contains if (beta == done) then return else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) end do @@ -1233,7 +1233,7 @@ contains z%v(i) = z%v(i) + y(i)*x(i) end do else - !$omp parallel do private(i) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do @@ -1250,24 +1250,24 @@ contains z%v(i) = z%v(i) - y(i)*x(i) end do else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else if (beta == dzero) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = alpha*y(i)*x(i) end do else if (beta == done) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do else - !$omp parallel do private(i) shared(alpha, beta) + !$omp parallel do private(i) shared(alpha, beta) do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do diff --git a/base/modules/serial/psb_d_mat_mod.F90 b/base/modules/serial/psb_d_mat_mod.F90 index ff51d1cb..8f967ce1 100644 --- a/base/modules/serial/psb_d_mat_mod.F90 +++ b/base/modules/serial/psb_d_mat_mod.F90 @@ -84,7 +84,9 @@ module psb_d_mat_mod type :: psb_dspmat_type - class(psb_d_base_sparse_mat), allocatable :: a + class(psb_d_base_sparse_mat), allocatable :: a + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + type(psb_ld_coo_sparse_mat), allocatable :: rmta contains ! Getters @@ -109,6 +111,8 @@ module psb_d_mat_mod procedure, pass(a) :: is_repeatable_updates => psb_d_is_repeatable_updates procedure, pass(a) :: get_fmt => psb_d_get_fmt procedure, pass(a) :: sizeof => psb_d_sizeof + procedure, pass(a) :: is_remote_build => psb_d_is_remote_build + ! Setters procedure, pass(a) :: set_nrows => psb_d_set_nrows @@ -125,6 +129,7 @@ module psb_d_mat_mod procedure, pass(a) :: set_symmetric => psb_d_set_symmetric procedure, pass(a) :: set_unit => psb_d_set_unit procedure, pass(a) :: set_repeatable_updates => psb_d_set_repeatable_updates + procedure, pass(a) :: set_remote_build => psb_d_set_remote_build ! Memory/data management procedure, pass(a) :: csall => psb_d_csall @@ -2292,7 +2297,25 @@ contains end function d_mat_is_sync + function psb_d_is_remote_build(a) result(res) + implicit none + class(psb_dspmat_type), intent(in) :: a + logical :: res + res = (a%remote_build == psb_matbld_remote_) + end function psb_d_is_remote_build + subroutine psb_d_set_remote_build(a,val) + implicit none + class(psb_dspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + a%remote_build = val + else + a%remote_build = psb_matbld_remote_ + end if + end subroutine psb_d_set_remote_build + function psb_d_is_repeatable_updates(a) result(res) implicit none class(psb_dspmat_type), intent(in) :: a diff --git a/base/modules/serial/psb_d_vect_mod.F90 b/base/modules/serial/psb_d_vect_mod.F90 index ec928584..88fa3262 100644 --- a/base/modules/serial/psb_d_vect_mod.F90 +++ b/base/modules/serial/psb_d_vect_mod.F90 @@ -39,15 +39,27 @@ ! module psb_d_vect_mod + use psb_realloc_mod use psb_d_base_vect_mod use psb_i_vect_mod type psb_d_vect_type class(psb_d_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + real(psb_dpk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => d_vect_get_nrows procedure, pass(x) :: sizeof => d_vect_sizeof procedure, pass(x) :: get_fmt => d_vect_get_fmt + procedure, pass(x) :: is_remote_build => d_vect_is_remote_build + procedure, pass(x) :: set_remote_build => d_vect_set_remote_build + procedure, pass(x) :: get_dupl => d_vect_get_dupl + procedure, pass(x) :: set_dupl => d_vect_set_dupl + procedure, pass(x) :: get_nrmv => d_vect_get_nrmv + procedure, pass(x) :: set_nrmv => d_vect_set_nrmv procedure, pass(x) :: all => d_vect_all procedure, pass(x) :: reall => d_vect_reall procedure, pass(x) :: zero => d_vect_zero @@ -152,7 +164,9 @@ module psb_d_vect_mod & d_vect_cnv, d_vect_set_scal, & & d_vect_set_vect, d_vect_clone, d_vect_sync, d_vect_is_host, & & d_vect_is_dev, d_vect_is_sync, d_vect_set_host, & - & d_vect_set_dev, d_vect_set_sync + & d_vect_set_dev, d_vect_set_sync, & + & d_vect_set_remote_build, d_is_remote_build, & + & d_vect_set_dupl, d_get_dupl, d_vect_set_nrmv, d_get_nrmv private :: d_vect_dot_v, d_vect_dot_a, d_vect_axpby_v, d_vect_axpby_a, & & d_vect_mlt_v, d_vect_mlt_a, d_vect_mlt_a_2, d_vect_mlt_v_2, & @@ -174,7 +188,60 @@ module psb_d_vect_mod contains + function d_vect_get_dupl(x) result(res) + implicit none + class(psb_d_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function d_vect_get_dupl + + subroutine d_vect_set_dupl(x,val) + implicit none + class(psb_d_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine d_vect_set_dupl + + function d_vect_get_nrmv(x) result(res) + implicit none + class(psb_d_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function d_vect_get_nrmv + + subroutine d_vect_set_nrmv(x,val) + implicit none + class(psb_d_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + x%nrmv = val + end subroutine d_vect_set_nrmv + + + function d_vect_is_remote_build(x) result(res) + implicit none + class(psb_d_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function d_vect_is_remote_build + + subroutine d_vect_set_remote_build(x,val) + implicit none + class(psb_d_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine d_vect_set_remote_build + subroutine psb_d_set_vect_default(v) implicit none class(psb_d_base_vect_type), intent(in) :: v @@ -372,8 +439,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(inout) :: x - class(psb_d_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_d_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -388,7 +455,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine d_vect_all subroutine d_vect_reall(n, x, info) @@ -419,13 +485,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_d_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine d_vect_asb subroutine d_vect_gthab(n,idx,alpha,x,beta,y) @@ -476,44 +542,44 @@ contains end subroutine d_vect_free - subroutine d_vect_ins_a(n,irl,val,dupl,x,info) + subroutine d_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_d_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine d_vect_ins_a - subroutine d_vect_ins_v(n,irl,val,dupl,x,info) + subroutine d_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_d_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_d_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine d_vect_ins_v @@ -533,9 +599,11 @@ contains allocate(tmp,stat=info,mold=psb_d_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -1261,7 +1329,6 @@ contains end module psb_d_vect_mod - module psb_d_multivect_mod use psb_d_base_multivect_mod @@ -1273,11 +1340,19 @@ module psb_d_multivect_mod type psb_d_multivect_type class(psb_d_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + real(psb_dpk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => d_vect_get_nrows procedure, pass(x) :: get_ncols => d_vect_get_ncols procedure, pass(x) :: sizeof => d_vect_sizeof procedure, pass(x) :: get_fmt => d_vect_get_fmt + procedure, pass(x) :: is_remote_build => d_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => d_mvect_set_remote_build + procedure, pass(x) :: get_dupl => d_mvect_get_dupl + procedure, pass(x) :: set_dupl => d_mvect_set_dupl procedure, pass(x) :: all => d_vect_all procedure, pass(x) :: reall => d_vect_reall @@ -1345,6 +1420,46 @@ module psb_d_multivect_mod contains + + function d_mvect_get_dupl(x) result(res) + implicit none + class(psb_d_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function d_mvect_get_dupl + + subroutine d_mvect_set_dupl(x,val) + implicit none + class(psb_d_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine d_mvect_set_dupl + + + function d_mvect_is_remote_build(x) result(res) + implicit none + class(psb_d_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function d_mvect_is_remote_build + + subroutine d_mvect_set_remote_build(x,val) + implicit none + class(psb_d_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine d_mvect_set_remote_build + subroutine psb_d_set_multivect_default(v) implicit none @@ -1649,23 +1764,23 @@ contains end subroutine d_vect_free - subroutine d_vect_ins(n,irl,val,dupl,x,info) + subroutine d_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_d_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) real(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine d_vect_ins diff --git a/base/modules/serial/psb_i_vect_mod.F90 b/base/modules/serial/psb_i_vect_mod.F90 index 75064b81..ab371bd5 100644 --- a/base/modules/serial/psb_i_vect_mod.F90 +++ b/base/modules/serial/psb_i_vect_mod.F90 @@ -39,14 +39,26 @@ ! module psb_i_vect_mod + use psb_realloc_mod use psb_i_base_vect_mod type psb_i_vect_type class(psb_i_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + integer(psb_ipk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => i_vect_get_nrows procedure, pass(x) :: sizeof => i_vect_sizeof procedure, pass(x) :: get_fmt => i_vect_get_fmt + procedure, pass(x) :: is_remote_build => i_vect_is_remote_build + procedure, pass(x) :: set_remote_build => i_vect_set_remote_build + procedure, pass(x) :: get_dupl => i_vect_get_dupl + procedure, pass(x) :: set_dupl => i_vect_set_dupl + procedure, pass(x) :: get_nrmv => i_vect_get_nrmv + procedure, pass(x) :: set_nrmv => i_vect_set_nrmv procedure, pass(x) :: all => i_vect_all procedure, pass(x) :: reall => i_vect_reall procedure, pass(x) :: zero => i_vect_zero @@ -97,7 +109,9 @@ module psb_i_vect_mod & i_vect_cnv, i_vect_set_scal, & & i_vect_set_vect, i_vect_clone, i_vect_sync, i_vect_is_host, & & i_vect_is_dev, i_vect_is_sync, i_vect_set_host, & - & i_vect_set_dev, i_vect_set_sync + & i_vect_set_dev, i_vect_set_sync, & + & i_vect_set_remote_build, i_is_remote_build, & + & i_vect_set_dupl, i_get_dupl, i_vect_set_nrmv, i_get_nrmv class(psb_i_base_vect_type), allocatable, target,& @@ -114,7 +128,60 @@ module psb_i_vect_mod contains + function i_vect_get_dupl(x) result(res) + implicit none + class(psb_i_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function i_vect_get_dupl + + subroutine i_vect_set_dupl(x,val) + implicit none + class(psb_i_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine i_vect_set_dupl + + function i_vect_get_nrmv(x) result(res) + implicit none + class(psb_i_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function i_vect_get_nrmv + + subroutine i_vect_set_nrmv(x,val) + implicit none + class(psb_i_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + + x%nrmv = val + end subroutine i_vect_set_nrmv + + + function i_vect_is_remote_build(x) result(res) + implicit none + class(psb_i_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function i_vect_is_remote_build + + subroutine i_vect_set_remote_build(x,val) + implicit none + class(psb_i_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine i_vect_set_remote_build + subroutine psb_i_set_vect_default(v) implicit none class(psb_i_base_vect_type), intent(in) :: v @@ -312,8 +379,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: x - class(psb_i_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_i_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -328,7 +395,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine i_vect_all subroutine i_vect_reall(n, x, info) @@ -359,13 +425,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine i_vect_asb subroutine i_vect_gthab(n,idx,alpha,x,beta,y) @@ -416,44 +482,44 @@ contains end subroutine i_vect_free - subroutine i_vect_ins_a(n,irl,val,dupl,x,info) + subroutine i_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_i_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) integer(psb_ipk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine i_vect_ins_a - subroutine i_vect_ins_v(n,irl,val,dupl,x,info) + subroutine i_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_i_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_i_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine i_vect_ins_v @@ -473,9 +539,11 @@ contains allocate(tmp,stat=info,mold=psb_i_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -557,7 +625,6 @@ contains end module psb_i_vect_mod - module psb_i_multivect_mod use psb_i_base_multivect_mod @@ -569,11 +636,19 @@ module psb_i_multivect_mod type psb_i_multivect_type class(psb_i_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + integer(psb_ipk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => i_vect_get_nrows procedure, pass(x) :: get_ncols => i_vect_get_ncols procedure, pass(x) :: sizeof => i_vect_sizeof procedure, pass(x) :: get_fmt => i_vect_get_fmt + procedure, pass(x) :: is_remote_build => i_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => i_mvect_set_remote_build + procedure, pass(x) :: get_dupl => i_mvect_get_dupl + procedure, pass(x) :: set_dupl => i_mvect_set_dupl procedure, pass(x) :: all => i_vect_all procedure, pass(x) :: reall => i_vect_reall @@ -623,6 +698,46 @@ module psb_i_multivect_mod contains + + function i_mvect_get_dupl(x) result(res) + implicit none + class(psb_i_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function i_mvect_get_dupl + + subroutine i_mvect_set_dupl(x,val) + implicit none + class(psb_i_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine i_mvect_set_dupl + + + function i_mvect_is_remote_build(x) result(res) + implicit none + class(psb_i_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function i_mvect_is_remote_build + + subroutine i_mvect_set_remote_build(x,val) + implicit none + class(psb_i_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine i_mvect_set_remote_build + subroutine psb_i_set_multivect_default(v) implicit none @@ -927,23 +1042,23 @@ contains end subroutine i_vect_free - subroutine i_vect_ins(n,irl,val,dupl,x,info) + subroutine i_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_i_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) integer(psb_ipk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine i_vect_ins diff --git a/base/modules/serial/psb_l_vect_mod.F90 b/base/modules/serial/psb_l_vect_mod.F90 index 3c86f8a2..779d4723 100644 --- a/base/modules/serial/psb_l_vect_mod.F90 +++ b/base/modules/serial/psb_l_vect_mod.F90 @@ -39,15 +39,27 @@ ! module psb_l_vect_mod + use psb_realloc_mod use psb_l_base_vect_mod use psb_i_vect_mod type psb_l_vect_type class(psb_l_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + integer(psb_lpk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => l_vect_get_nrows procedure, pass(x) :: sizeof => l_vect_sizeof procedure, pass(x) :: get_fmt => l_vect_get_fmt + procedure, pass(x) :: is_remote_build => l_vect_is_remote_build + procedure, pass(x) :: set_remote_build => l_vect_set_remote_build + procedure, pass(x) :: get_dupl => l_vect_get_dupl + procedure, pass(x) :: set_dupl => l_vect_set_dupl + procedure, pass(x) :: get_nrmv => l_vect_get_nrmv + procedure, pass(x) :: set_nrmv => l_vect_set_nrmv procedure, pass(x) :: all => l_vect_all procedure, pass(x) :: reall => l_vect_reall procedure, pass(x) :: zero => l_vect_zero @@ -98,7 +110,9 @@ module psb_l_vect_mod & l_vect_cnv, l_vect_set_scal, & & l_vect_set_vect, l_vect_clone, l_vect_sync, l_vect_is_host, & & l_vect_is_dev, l_vect_is_sync, l_vect_set_host, & - & l_vect_set_dev, l_vect_set_sync + & l_vect_set_dev, l_vect_set_sync, & + & l_vect_set_remote_build, l_is_remote_build, & + & l_vect_set_dupl, l_get_dupl, l_vect_set_nrmv, l_get_nrmv class(psb_l_base_vect_type), allocatable, target,& @@ -115,7 +129,60 @@ module psb_l_vect_mod contains + function l_vect_get_dupl(x) result(res) + implicit none + class(psb_l_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function l_vect_get_dupl + + subroutine l_vect_set_dupl(x,val) + implicit none + class(psb_l_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine l_vect_set_dupl + + function l_vect_get_nrmv(x) result(res) + implicit none + class(psb_l_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function l_vect_get_nrmv + + subroutine l_vect_set_nrmv(x,val) + implicit none + class(psb_l_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + x%nrmv = val + end subroutine l_vect_set_nrmv + + + function l_vect_is_remote_build(x) result(res) + implicit none + class(psb_l_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function l_vect_is_remote_build + + subroutine l_vect_set_remote_build(x,val) + implicit none + class(psb_l_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine l_vect_set_remote_build + subroutine psb_l_set_vect_default(v) implicit none class(psb_l_base_vect_type), intent(in) :: v @@ -313,8 +380,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_l_vect_type), intent(inout) :: x - class(psb_l_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_l_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -329,7 +396,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine l_vect_all subroutine l_vect_reall(n, x, info) @@ -360,13 +426,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_l_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine l_vect_asb subroutine l_vect_gthab(n,idx,alpha,x,beta,y) @@ -417,44 +483,44 @@ contains end subroutine l_vect_free - subroutine l_vect_ins_a(n,irl,val,dupl,x,info) + subroutine l_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_l_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) integer(psb_lpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine l_vect_ins_a - subroutine l_vect_ins_v(n,irl,val,dupl,x,info) + subroutine l_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_l_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_l_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine l_vect_ins_v @@ -474,9 +540,11 @@ contains allocate(tmp,stat=info,mold=psb_l_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -558,7 +626,6 @@ contains end module psb_l_vect_mod - module psb_l_multivect_mod use psb_l_base_multivect_mod @@ -570,11 +637,19 @@ module psb_l_multivect_mod type psb_l_multivect_type class(psb_l_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + integer(psb_lpk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => l_vect_get_nrows procedure, pass(x) :: get_ncols => l_vect_get_ncols procedure, pass(x) :: sizeof => l_vect_sizeof procedure, pass(x) :: get_fmt => l_vect_get_fmt + procedure, pass(x) :: is_remote_build => l_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => l_mvect_set_remote_build + procedure, pass(x) :: get_dupl => l_mvect_get_dupl + procedure, pass(x) :: set_dupl => l_mvect_set_dupl procedure, pass(x) :: all => l_vect_all procedure, pass(x) :: reall => l_vect_reall @@ -624,6 +699,46 @@ module psb_l_multivect_mod contains + + function l_mvect_get_dupl(x) result(res) + implicit none + class(psb_l_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function l_mvect_get_dupl + + subroutine l_mvect_set_dupl(x,val) + implicit none + class(psb_l_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine l_mvect_set_dupl + + + function l_mvect_is_remote_build(x) result(res) + implicit none + class(psb_l_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function l_mvect_is_remote_build + + subroutine l_mvect_set_remote_build(x,val) + implicit none + class(psb_l_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine l_mvect_set_remote_build + subroutine psb_l_set_multivect_default(v) implicit none @@ -928,23 +1043,23 @@ contains end subroutine l_vect_free - subroutine l_vect_ins(n,irl,val,dupl,x,info) + subroutine l_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_l_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) integer(psb_lpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine l_vect_ins diff --git a/base/modules/serial/psb_s_base_mat_mod.F90 b/base/modules/serial/psb_s_base_mat_mod.F90 index 62706c1c..79c8222b 100644 --- a/base/modules/serial/psb_s_base_mat_mod.F90 +++ b/base/modules/serial/psb_s_base_mat_mod.F90 @@ -1865,26 +1865,29 @@ module psb_s_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_s_fix_coo_inner end interface - interface - subroutine psb_s_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_s_fix_coo_inner_colmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) real(psb_spk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_s_fix_coo_inner_rowmajor + end subroutine psb_s_fix_coo_inner_colmajor end interface - interface - subroutine psb_s_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_s_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) real(psb_spk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_s_fix_coo_inner_colmajor - + end subroutine psb_s_fix_coo_inner_rowmajor end interface ! diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90 index e3b1cbd5..4bd6bbfb 100644 --- a/base/modules/serial/psb_s_base_vect_mod.F90 +++ b/base/modules/serial/psb_s_base_vect_mod.F90 @@ -1215,7 +1215,7 @@ contains if (beta == sone) then return else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) end do @@ -1233,7 +1233,7 @@ contains z%v(i) = z%v(i) + y(i)*x(i) end do else - !$omp parallel do private(i) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do @@ -1250,24 +1250,24 @@ contains z%v(i) = z%v(i) - y(i)*x(i) end do else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else if (beta == szero) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = alpha*y(i)*x(i) end do else if (beta == sone) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do else - !$omp parallel do private(i) shared(alpha, beta) + !$omp parallel do private(i) shared(alpha, beta) do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do diff --git a/base/modules/serial/psb_s_mat_mod.F90 b/base/modules/serial/psb_s_mat_mod.F90 index 849c64c3..43f1c619 100644 --- a/base/modules/serial/psb_s_mat_mod.F90 +++ b/base/modules/serial/psb_s_mat_mod.F90 @@ -84,7 +84,9 @@ module psb_s_mat_mod type :: psb_sspmat_type - class(psb_s_base_sparse_mat), allocatable :: a + class(psb_s_base_sparse_mat), allocatable :: a + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + type(psb_ls_coo_sparse_mat), allocatable :: rmta contains ! Getters @@ -109,6 +111,8 @@ module psb_s_mat_mod procedure, pass(a) :: is_repeatable_updates => psb_s_is_repeatable_updates procedure, pass(a) :: get_fmt => psb_s_get_fmt procedure, pass(a) :: sizeof => psb_s_sizeof + procedure, pass(a) :: is_remote_build => psb_s_is_remote_build + ! Setters procedure, pass(a) :: set_nrows => psb_s_set_nrows @@ -125,6 +129,7 @@ module psb_s_mat_mod procedure, pass(a) :: set_symmetric => psb_s_set_symmetric procedure, pass(a) :: set_unit => psb_s_set_unit procedure, pass(a) :: set_repeatable_updates => psb_s_set_repeatable_updates + procedure, pass(a) :: set_remote_build => psb_s_set_remote_build ! Memory/data management procedure, pass(a) :: csall => psb_s_csall @@ -2292,7 +2297,25 @@ contains end function s_mat_is_sync + function psb_s_is_remote_build(a) result(res) + implicit none + class(psb_sspmat_type), intent(in) :: a + logical :: res + res = (a%remote_build == psb_matbld_remote_) + end function psb_s_is_remote_build + subroutine psb_s_set_remote_build(a,val) + implicit none + class(psb_sspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + a%remote_build = val + else + a%remote_build = psb_matbld_remote_ + end if + end subroutine psb_s_set_remote_build + function psb_s_is_repeatable_updates(a) result(res) implicit none class(psb_sspmat_type), intent(in) :: a diff --git a/base/modules/serial/psb_s_vect_mod.F90 b/base/modules/serial/psb_s_vect_mod.F90 index 8f378c6d..7a54ecf0 100644 --- a/base/modules/serial/psb_s_vect_mod.F90 +++ b/base/modules/serial/psb_s_vect_mod.F90 @@ -39,15 +39,27 @@ ! module psb_s_vect_mod + use psb_realloc_mod use psb_s_base_vect_mod use psb_i_vect_mod type psb_s_vect_type class(psb_s_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + real(psb_spk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => s_vect_get_nrows procedure, pass(x) :: sizeof => s_vect_sizeof procedure, pass(x) :: get_fmt => s_vect_get_fmt + procedure, pass(x) :: is_remote_build => s_vect_is_remote_build + procedure, pass(x) :: set_remote_build => s_vect_set_remote_build + procedure, pass(x) :: get_dupl => s_vect_get_dupl + procedure, pass(x) :: set_dupl => s_vect_set_dupl + procedure, pass(x) :: get_nrmv => s_vect_get_nrmv + procedure, pass(x) :: set_nrmv => s_vect_set_nrmv procedure, pass(x) :: all => s_vect_all procedure, pass(x) :: reall => s_vect_reall procedure, pass(x) :: zero => s_vect_zero @@ -152,7 +164,9 @@ module psb_s_vect_mod & s_vect_cnv, s_vect_set_scal, & & s_vect_set_vect, s_vect_clone, s_vect_sync, s_vect_is_host, & & s_vect_is_dev, s_vect_is_sync, s_vect_set_host, & - & s_vect_set_dev, s_vect_set_sync + & s_vect_set_dev, s_vect_set_sync, & + & s_vect_set_remote_build, s_is_remote_build, & + & s_vect_set_dupl, s_get_dupl, s_vect_set_nrmv, s_get_nrmv private :: s_vect_dot_v, s_vect_dot_a, s_vect_axpby_v, s_vect_axpby_a, & & s_vect_mlt_v, s_vect_mlt_a, s_vect_mlt_a_2, s_vect_mlt_v_2, & @@ -174,7 +188,60 @@ module psb_s_vect_mod contains + function s_vect_get_dupl(x) result(res) + implicit none + class(psb_s_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function s_vect_get_dupl + + subroutine s_vect_set_dupl(x,val) + implicit none + class(psb_s_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine s_vect_set_dupl + + function s_vect_get_nrmv(x) result(res) + implicit none + class(psb_s_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function s_vect_get_nrmv + + subroutine s_vect_set_nrmv(x,val) + implicit none + class(psb_s_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + x%nrmv = val + end subroutine s_vect_set_nrmv + + + function s_vect_is_remote_build(x) result(res) + implicit none + class(psb_s_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function s_vect_is_remote_build + + subroutine s_vect_set_remote_build(x,val) + implicit none + class(psb_s_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine s_vect_set_remote_build + subroutine psb_s_set_vect_default(v) implicit none class(psb_s_base_vect_type), intent(in) :: v @@ -372,8 +439,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(inout) :: x - class(psb_s_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_s_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -388,7 +455,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine s_vect_all subroutine s_vect_reall(n, x, info) @@ -419,13 +485,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_s_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine s_vect_asb subroutine s_vect_gthab(n,idx,alpha,x,beta,y) @@ -476,44 +542,44 @@ contains end subroutine s_vect_free - subroutine s_vect_ins_a(n,irl,val,dupl,x,info) + subroutine s_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_s_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine s_vect_ins_a - subroutine s_vect_ins_v(n,irl,val,dupl,x,info) + subroutine s_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_s_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_s_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine s_vect_ins_v @@ -533,9 +599,11 @@ contains allocate(tmp,stat=info,mold=psb_s_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -1261,7 +1329,6 @@ contains end module psb_s_vect_mod - module psb_s_multivect_mod use psb_s_base_multivect_mod @@ -1273,11 +1340,19 @@ module psb_s_multivect_mod type psb_s_multivect_type class(psb_s_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + real(psb_spk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => s_vect_get_nrows procedure, pass(x) :: get_ncols => s_vect_get_ncols procedure, pass(x) :: sizeof => s_vect_sizeof procedure, pass(x) :: get_fmt => s_vect_get_fmt + procedure, pass(x) :: is_remote_build => s_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => s_mvect_set_remote_build + procedure, pass(x) :: get_dupl => s_mvect_get_dupl + procedure, pass(x) :: set_dupl => s_mvect_set_dupl procedure, pass(x) :: all => s_vect_all procedure, pass(x) :: reall => s_vect_reall @@ -1345,6 +1420,46 @@ module psb_s_multivect_mod contains + + function s_mvect_get_dupl(x) result(res) + implicit none + class(psb_s_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function s_mvect_get_dupl + + subroutine s_mvect_set_dupl(x,val) + implicit none + class(psb_s_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine s_mvect_set_dupl + + + function s_mvect_is_remote_build(x) result(res) + implicit none + class(psb_s_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function s_mvect_is_remote_build + + subroutine s_mvect_set_remote_build(x,val) + implicit none + class(psb_s_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine s_mvect_set_remote_build + subroutine psb_s_set_multivect_default(v) implicit none @@ -1649,23 +1764,23 @@ contains end subroutine s_vect_free - subroutine s_vect_ins(n,irl,val,dupl,x,info) + subroutine s_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_s_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) real(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine s_vect_ins diff --git a/base/modules/serial/psb_z_base_mat_mod.F90 b/base/modules/serial/psb_z_base_mat_mod.F90 index ea7e0de5..5b6ca07b 100644 --- a/base/modules/serial/psb_z_base_mat_mod.F90 +++ b/base/modules/serial/psb_z_base_mat_mod.F90 @@ -1865,26 +1865,29 @@ module psb_z_base_mat_mod integer(psb_ipk_), intent(in), optional :: idir end subroutine psb_z_fix_coo_inner end interface - interface - subroutine psb_z_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_z_fix_coo_inner_colmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) complex(psb_dpk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_z_fix_coo_inner_rowmajor + end subroutine psb_z_fix_coo_inner_colmajor end interface - interface - subroutine psb_z_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,info) + + interface + subroutine psb_z_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,& + & ia,ja,val,iaux,nzout,info) import integer(psb_ipk_), intent(in) :: nr,nc,nzin,dupl integer(psb_ipk_), intent(inout) :: ia(:), ja(:), iaux(:) complex(psb_dpk_), intent(inout) :: val(:) integer(psb_ipk_), intent(out) :: nzout integer(psb_ipk_), intent(out) :: info - end subroutine psb_z_fix_coo_inner_colmajor - + end subroutine psb_z_fix_coo_inner_rowmajor end interface ! diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90 index 3a95a983..c52dcd59 100644 --- a/base/modules/serial/psb_z_base_vect_mod.F90 +++ b/base/modules/serial/psb_z_base_vect_mod.F90 @@ -1208,7 +1208,7 @@ contains if (beta == zone) then return else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) end do @@ -1226,7 +1226,7 @@ contains z%v(i) = z%v(i) + y(i)*x(i) end do else - !$omp parallel do private(i) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) + y(i)*x(i) end do @@ -1243,24 +1243,24 @@ contains z%v(i) = z%v(i) - y(i)*x(i) end do else - !$omp parallel do private(i) shared(beta) + !$omp parallel do private(i) shared(beta) do i=1, n z%v(i) = beta*z%v(i) - y(i)*x(i) end do end if else if (beta == zzero) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = alpha*y(i)*x(i) end do else if (beta == zone) then - !$omp parallel do private(i) shared(alpha) + !$omp parallel do private(i) shared(alpha) do i=1, n z%v(i) = z%v(i) + alpha*y(i)*x(i) end do else - !$omp parallel do private(i) shared(alpha, beta) + !$omp parallel do private(i) shared(alpha, beta) do i=1, n z%v(i) = beta*z%v(i) + alpha*y(i)*x(i) end do diff --git a/base/modules/serial/psb_z_mat_mod.F90 b/base/modules/serial/psb_z_mat_mod.F90 index fc16ca80..c534cad5 100644 --- a/base/modules/serial/psb_z_mat_mod.F90 +++ b/base/modules/serial/psb_z_mat_mod.F90 @@ -84,7 +84,9 @@ module psb_z_mat_mod type :: psb_zspmat_type - class(psb_z_base_sparse_mat), allocatable :: a + class(psb_z_base_sparse_mat), allocatable :: a + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + type(psb_lz_coo_sparse_mat), allocatable :: rmta contains ! Getters @@ -109,6 +111,8 @@ module psb_z_mat_mod procedure, pass(a) :: is_repeatable_updates => psb_z_is_repeatable_updates procedure, pass(a) :: get_fmt => psb_z_get_fmt procedure, pass(a) :: sizeof => psb_z_sizeof + procedure, pass(a) :: is_remote_build => psb_z_is_remote_build + ! Setters procedure, pass(a) :: set_nrows => psb_z_set_nrows @@ -125,6 +129,7 @@ module psb_z_mat_mod procedure, pass(a) :: set_symmetric => psb_z_set_symmetric procedure, pass(a) :: set_unit => psb_z_set_unit procedure, pass(a) :: set_repeatable_updates => psb_z_set_repeatable_updates + procedure, pass(a) :: set_remote_build => psb_z_set_remote_build ! Memory/data management procedure, pass(a) :: csall => psb_z_csall @@ -2292,7 +2297,25 @@ contains end function z_mat_is_sync + function psb_z_is_remote_build(a) result(res) + implicit none + class(psb_zspmat_type), intent(in) :: a + logical :: res + res = (a%remote_build == psb_matbld_remote_) + end function psb_z_is_remote_build + subroutine psb_z_set_remote_build(a,val) + implicit none + class(psb_zspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + a%remote_build = val + else + a%remote_build = psb_matbld_remote_ + end if + end subroutine psb_z_set_remote_build + function psb_z_is_repeatable_updates(a) result(res) implicit none class(psb_zspmat_type), intent(in) :: a diff --git a/base/modules/serial/psb_z_vect_mod.F90 b/base/modules/serial/psb_z_vect_mod.F90 index 60c5b6f0..e8a34859 100644 --- a/base/modules/serial/psb_z_vect_mod.F90 +++ b/base/modules/serial/psb_z_vect_mod.F90 @@ -39,15 +39,27 @@ ! module psb_z_vect_mod + use psb_realloc_mod use psb_z_base_vect_mod use psb_i_vect_mod type psb_z_vect_type class(psb_z_base_vect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + complex(psb_dpk_), allocatable :: rmtv(:) + integer(psb_lpk_), allocatable :: rmidx(:) contains procedure, pass(x) :: get_nrows => z_vect_get_nrows procedure, pass(x) :: sizeof => z_vect_sizeof procedure, pass(x) :: get_fmt => z_vect_get_fmt + procedure, pass(x) :: is_remote_build => z_vect_is_remote_build + procedure, pass(x) :: set_remote_build => z_vect_set_remote_build + procedure, pass(x) :: get_dupl => z_vect_get_dupl + procedure, pass(x) :: set_dupl => z_vect_set_dupl + procedure, pass(x) :: get_nrmv => z_vect_get_nrmv + procedure, pass(x) :: set_nrmv => z_vect_set_nrmv procedure, pass(x) :: all => z_vect_all procedure, pass(x) :: reall => z_vect_reall procedure, pass(x) :: zero => z_vect_zero @@ -145,7 +157,9 @@ module psb_z_vect_mod & z_vect_cnv, z_vect_set_scal, & & z_vect_set_vect, z_vect_clone, z_vect_sync, z_vect_is_host, & & z_vect_is_dev, z_vect_is_sync, z_vect_set_host, & - & z_vect_set_dev, z_vect_set_sync + & z_vect_set_dev, z_vect_set_sync, & + & z_vect_set_remote_build, z_is_remote_build, & + & z_vect_set_dupl, z_get_dupl, z_vect_set_nrmv, z_get_nrmv private :: z_vect_dot_v, z_vect_dot_a, z_vect_axpby_v, z_vect_axpby_a, & & z_vect_mlt_v, z_vect_mlt_a, z_vect_mlt_a_2, z_vect_mlt_v_2, & @@ -167,7 +181,60 @@ module psb_z_vect_mod contains + function z_vect_get_dupl(x) result(res) + implicit none + class(psb_z_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function z_vect_get_dupl + + subroutine z_vect_set_dupl(x,val) + implicit none + class(psb_z_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine z_vect_set_dupl + + function z_vect_get_nrmv(x) result(res) + implicit none + class(psb_z_vect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%nrmv + end function z_vect_get_nrmv + + subroutine z_vect_set_nrmv(x,val) + implicit none + class(psb_z_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in) :: val + x%nrmv = val + end subroutine z_vect_set_nrmv + + + function z_vect_is_remote_build(x) result(res) + implicit none + class(psb_z_vect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function z_vect_is_remote_build + + subroutine z_vect_set_remote_build(x,val) + implicit none + class(psb_z_vect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine z_vect_set_remote_build + subroutine psb_z_set_vect_default(v) implicit none class(psb_z_base_vect_type), intent(in) :: v @@ -365,8 +432,8 @@ contains implicit none integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(inout) :: x - class(psb_z_base_vect_type), intent(in), optional :: mold integer(psb_ipk_), intent(out) :: info + class(psb_z_base_vect_type), intent(in), optional :: mold if (allocated(x%v)) & & call x%free(info) @@ -381,7 +448,6 @@ contains else info = psb_err_alloc_dealloc_ end if - end subroutine z_vect_all subroutine z_vect_reall(n, x, info) @@ -412,13 +478,13 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - integer(psb_ipk_), intent(in) :: n + integer(psb_ipk_), intent(in) :: n class(psb_z_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(out) :: info - - if (allocated(x%v)) & - & call x%v%asb(n,info) + integer(psb_ipk_), intent(out) :: info + if (allocated(x%v)) then + call x%v%asb(n,info) + end if end subroutine z_vect_asb subroutine z_vect_gthab(n,idx,alpha,x,beta,y) @@ -469,44 +535,44 @@ contains end subroutine z_vect_free - subroutine z_vect_ins_a(n,irl,val,dupl,x,info) + subroutine z_vect_ins_a(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_z_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine z_vect_ins_a - subroutine z_vect_ins_v(n,irl,val,dupl,x,info) + subroutine z_vect_ins_v(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_z_vect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n class(psb_i_vect_type), intent(inout) :: irl class(psb_z_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.(allocated(x%v).and.allocated(irl%v).and.allocated(val%v))) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl%v,val%v,dupl,info) end subroutine z_vect_ins_v @@ -526,9 +592,11 @@ contains allocate(tmp,stat=info,mold=psb_z_get_base_vect_default()) end if if (allocated(x%v)) then - call x%v%sync() - if (info == psb_success_) call tmp%bld(x%v%v) - call x%v%free(info) + if (allocated(x%v%v)) then + call x%v%sync() + if (info == psb_success_) call tmp%bld(x%v%v) + call x%v%free(info) + endif end if call move_alloc(tmp,x%v) @@ -1182,7 +1250,6 @@ contains end module psb_z_vect_mod - module psb_z_multivect_mod use psb_z_base_multivect_mod @@ -1194,11 +1261,19 @@ module psb_z_multivect_mod type psb_z_multivect_type class(psb_z_base_multivect_type), allocatable :: v + integer(psb_ipk_) :: nrmv = 0 + integer(psb_ipk_) :: remote_build=psb_matbld_noremote_ + integer(psb_ipk_) :: dupl = psb_dupl_add_ + complex(psb_dpk_), allocatable :: rmtv(:,:) contains procedure, pass(x) :: get_nrows => z_vect_get_nrows procedure, pass(x) :: get_ncols => z_vect_get_ncols procedure, pass(x) :: sizeof => z_vect_sizeof procedure, pass(x) :: get_fmt => z_vect_get_fmt + procedure, pass(x) :: is_remote_build => z_mvect_is_remote_build + procedure, pass(x) :: set_remote_build => z_mvect_set_remote_build + procedure, pass(x) :: get_dupl => z_mvect_get_dupl + procedure, pass(x) :: set_dupl => z_mvect_set_dupl procedure, pass(x) :: all => z_vect_all procedure, pass(x) :: reall => z_vect_reall @@ -1266,6 +1341,46 @@ module psb_z_multivect_mod contains + + function z_mvect_get_dupl(x) result(res) + implicit none + class(psb_z_multivect_type), intent(in) :: x + integer(psb_ipk_) :: res + res = x%dupl + end function z_mvect_get_dupl + + subroutine z_mvect_set_dupl(x,val) + implicit none + class(psb_z_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%dupl = val + else + x%dupl = psb_dupl_def_ + end if + end subroutine z_mvect_set_dupl + + + function z_mvect_is_remote_build(x) result(res) + implicit none + class(psb_z_multivect_type), intent(in) :: x + logical :: res + res = (x%remote_build == psb_matbld_remote_) + end function z_mvect_is_remote_build + + subroutine z_mvect_set_remote_build(x,val) + implicit none + class(psb_z_multivect_type), intent(inout) :: x + integer(psb_ipk_), intent(in), optional :: val + + if (present(val)) then + x%remote_build = val + else + x%remote_build = psb_matbld_remote_ + end if + end subroutine z_mvect_set_remote_build + subroutine psb_z_set_multivect_default(v) implicit none @@ -1570,23 +1685,23 @@ contains end subroutine z_vect_free - subroutine z_vect_ins(n,irl,val,dupl,x,info) + subroutine z_vect_ins(n,irl,val,x,info) use psi_serial_mod implicit none class(psb_z_multivect_type), intent(inout) :: x - integer(psb_ipk_), intent(in) :: n, dupl + integer(psb_ipk_), intent(in) :: n integer(psb_ipk_), intent(in) :: irl(:) complex(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i + integer(psb_ipk_) :: i, dupl info = 0 if (.not.allocated(x%v)) then info = psb_err_invalid_vect_state_ return end if - + dupl = x%get_dupl() call x%v%ins(n,irl,val,dupl,info) end subroutine z_vect_ins diff --git a/base/modules/tools/psb_c_tools_a_mod.f90 b/base/modules/tools/psb_c_tools_a_mod.f90 index 6c864ead..8dd592b3 100644 --- a/base/modules/tools/psb_c_tools_a_mod.f90 +++ b/base/modules/tools/psb_c_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_c_tools_a_mod end subroutine psb_cinsvi end interface + + interface psb_remote_vect + subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + complex(psb_spk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + complex(psb_spk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_c_remote_vect + end interface psb_remote_vect + end module psb_c_tools_a_mod diff --git a/base/modules/tools/psb_c_tools_mod.F90 b/base/modules/tools/psb_c_tools_mod.F90 index 378e146b..2de8f906 100644 --- a/base/modules/tools/psb_c_tools_mod.F90 +++ b/base/modules/tools/psb_c_tools_mod.F90 @@ -40,28 +40,31 @@ Module psb_c_tools_mod use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_calloc_vect(x, desc_a,info) + subroutine psb_calloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_c_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_calloc_vect - subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_c_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_calloc_vect_r2 - subroutine psb_calloc_multivect(x, desc_a,info,n) + subroutine psb_calloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_c_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_calloc_multivect end interface @@ -123,7 +126,7 @@ Module psb_c_tools_mod interface psb_geins - subroutine psb_cins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_cins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -132,10 +135,9 @@ Module psb_c_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_cins_vect - subroutine psb_cins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_cins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -144,10 +146,9 @@ Module psb_c_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_c_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_cins_vect_v - subroutine psb_cins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_cins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -156,10 +157,9 @@ Module psb_c_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_cins_vect_r2 - subroutine psb_cins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_cins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -168,11 +168,10 @@ Module psb_c_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_cins_multivect end interface - + interface psb_cdbldext Subroutine psb_ccdbldext(a,desc_a,novr,desc_ov,info,extype) import @@ -239,29 +238,41 @@ Module psb_c_tools_mod interface psb_spall - subroutine psb_cspalloc(a, desc_a, info, nnz) + subroutine psb_cspalloc(a, desc_a, info, nnz, dupl, bldmode) import implicit none - type(psb_desc_type), intent(in) :: desc_a - type(psb_cspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_cspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz, bldmode + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_cspalloc end interface interface psb_spasb - subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl,mold) + subroutine psb_cspasb(a,desc_a, info, afmt, upd, mold) import implicit none type(psb_cspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a + type(psb_desc_type), intent(inout) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd + integer(psb_ipk_),optional, intent(in) :: upd character(len=*), optional, intent(in) :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: mold end subroutine psb_cspasb end interface + interface psb_remote_mat + subroutine psb_lc_remote_mat(a,desc_a,b, info) + import + implicit none + type(psb_lc_coo_sparse_mat),Intent(inout) :: a + type(psb_desc_type),intent(inout) :: desc_a + type(psb_lc_coo_sparse_mat),Intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lc_remote_mat + end interface psb_remote_mat + interface psb_spfree subroutine psb_cspfree(a, desc_a,info) import diff --git a/base/modules/tools/psb_d_tools_a_mod.f90 b/base/modules/tools/psb_d_tools_a_mod.f90 index 1ce3d774..638953b4 100644 --- a/base/modules/tools/psb_d_tools_a_mod.f90 +++ b/base/modules/tools/psb_d_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_d_tools_a_mod end subroutine psb_dinsvi end interface + + interface psb_remote_vect + subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + real(psb_dpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_d_remote_vect + end interface psb_remote_vect + end module psb_d_tools_a_mod diff --git a/base/modules/tools/psb_d_tools_mod.F90 b/base/modules/tools/psb_d_tools_mod.F90 index 81c75ece..30e45d53 100644 --- a/base/modules/tools/psb_d_tools_mod.F90 +++ b/base/modules/tools/psb_d_tools_mod.F90 @@ -40,28 +40,31 @@ Module psb_d_tools_mod use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_dalloc_vect(x, desc_a,info) + subroutine psb_dalloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_d_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_dalloc_vect - subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_d_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_dalloc_vect_r2 - subroutine psb_dalloc_multivect(x, desc_a,info,n) + subroutine psb_dalloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_d_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_dalloc_multivect end interface @@ -123,7 +126,7 @@ Module psb_d_tools_mod interface psb_geins - subroutine psb_dins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_dins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -132,10 +135,9 @@ Module psb_d_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_dins_vect - subroutine psb_dins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_dins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -144,10 +146,9 @@ Module psb_d_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_d_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_dins_vect_v - subroutine psb_dins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_dins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -156,10 +157,9 @@ Module psb_d_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_dins_vect_r2 - subroutine psb_dins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_dins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -168,11 +168,10 @@ Module psb_d_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_dins_multivect end interface - + interface psb_cdbldext Subroutine psb_dcdbldext(a,desc_a,novr,desc_ov,info,extype) import @@ -239,29 +238,41 @@ Module psb_d_tools_mod interface psb_spall - subroutine psb_dspalloc(a, desc_a, info, nnz) + subroutine psb_dspalloc(a, desc_a, info, nnz, dupl, bldmode) import implicit none - type(psb_desc_type), intent(in) :: desc_a - type(psb_dspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_dspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz, bldmode + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_dspalloc end interface interface psb_spasb - subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl,mold) + subroutine psb_dspasb(a,desc_a, info, afmt, upd, mold) import implicit none type(psb_dspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a + type(psb_desc_type), intent(inout) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd + integer(psb_ipk_),optional, intent(in) :: upd character(len=*), optional, intent(in) :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: mold end subroutine psb_dspasb end interface + interface psb_remote_mat + subroutine psb_ld_remote_mat(a,desc_a,b, info) + import + implicit none + type(psb_ld_coo_sparse_mat),Intent(inout) :: a + type(psb_desc_type),intent(inout) :: desc_a + type(psb_ld_coo_sparse_mat),Intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ld_remote_mat + end interface psb_remote_mat + interface psb_spfree subroutine psb_dspfree(a, desc_a,info) import diff --git a/base/modules/tools/psb_e_tools_a_mod.f90 b/base/modules/tools/psb_e_tools_a_mod.f90 index bce8cb40..f8a27cb5 100644 --- a/base/modules/tools/psb_e_tools_a_mod.f90 +++ b/base/modules/tools/psb_e_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_e_tools_a_mod end subroutine psb_einsvi end interface + + interface psb_remote_vect + subroutine psb_e_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + integer(psb_epk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_epk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_e_remote_vect + end interface psb_remote_vect + end module psb_e_tools_a_mod diff --git a/base/modules/tools/psb_i2_tools_a_mod.f90 b/base/modules/tools/psb_i2_tools_a_mod.f90 index 860a55b1..b8d52bb4 100644 --- a/base/modules/tools/psb_i2_tools_a_mod.f90 +++ b/base/modules/tools/psb_i2_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_i2_tools_a_mod end subroutine psb_i2insvi end interface + + interface psb_remote_vect + subroutine psb_i2_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + integer(psb_i2pk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_i2pk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_i2_remote_vect + end interface psb_remote_vect + end module psb_i2_tools_a_mod diff --git a/base/modules/tools/psb_i_tools_mod.F90 b/base/modules/tools/psb_i_tools_mod.F90 index 5cc6e836..1c207fac 100644 --- a/base/modules/tools/psb_i_tools_mod.F90 +++ b/base/modules/tools/psb_i_tools_mod.F90 @@ -32,33 +32,38 @@ Module psb_i_tools_mod use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_lpk_, psb_success_ use psb_i_vect_mod, only : psb_i_base_vect_type, psb_i_vect_type + use psb_m_tools_a_mod + use psb_e_tools_a_mod use psb_l_vect_mod, only : psb_l_vect_type use psb_i_multivect_mod, only : psb_i_base_multivect_type, psb_i_multivect_type use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_ialloc_vect(x, desc_a,info) + subroutine psb_ialloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_i_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_ialloc_vect - subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_i_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_ialloc_vect_r2 - subroutine psb_ialloc_multivect(x, desc_a,info,n) + subroutine psb_ialloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_i_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_ialloc_multivect end interface @@ -120,7 +125,7 @@ Module psb_i_tools_mod interface psb_geins - subroutine psb_iins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_iins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -129,10 +134,9 @@ Module psb_i_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_ipk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_iins_vect - subroutine psb_iins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_iins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -141,10 +145,9 @@ Module psb_i_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_i_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_iins_vect_v - subroutine psb_iins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_iins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -153,10 +156,9 @@ Module psb_i_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_ipk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_iins_vect_r2 - subroutine psb_iins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_iins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -165,9 +167,8 @@ Module psb_i_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_ipk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_iins_multivect end interface - + end module psb_i_tools_mod diff --git a/base/modules/tools/psb_l_tools_mod.F90 b/base/modules/tools/psb_l_tools_mod.F90 index 56617798..058403d6 100644 --- a/base/modules/tools/psb_l_tools_mod.F90 +++ b/base/modules/tools/psb_l_tools_mod.F90 @@ -32,33 +32,38 @@ Module psb_l_tools_mod use psb_desc_mod, only : psb_desc_type, psb_ipk_, psb_lpk_, psb_success_ use psb_l_vect_mod, only : psb_l_base_vect_type, psb_l_vect_type + use psb_m_tools_a_mod + use psb_e_tools_a_mod ! use psb_i_vect_mod, only : psb_i_vect_type use psb_l_multivect_mod, only : psb_l_base_multivect_type, psb_l_multivect_type use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_lalloc_vect(x, desc_a,info) + subroutine psb_lalloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_l_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_lalloc_vect - subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_l_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_lalloc_vect_r2 - subroutine psb_lalloc_multivect(x, desc_a,info,n) + subroutine psb_lalloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_l_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_lalloc_multivect end interface @@ -120,7 +125,7 @@ Module psb_l_tools_mod interface psb_geins - subroutine psb_lins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_lins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -129,10 +134,9 @@ Module psb_l_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_lpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_lins_vect - subroutine psb_lins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_lins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -141,10 +145,9 @@ Module psb_l_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_l_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_lins_vect_v - subroutine psb_lins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_lins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -153,10 +156,9 @@ Module psb_l_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_lpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_lins_vect_r2 - subroutine psb_lins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_lins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -165,9 +167,8 @@ Module psb_l_tools_mod integer(psb_lpk_), intent(in) :: irw(:) integer(psb_lpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_lins_multivect end interface - + end module psb_l_tools_mod diff --git a/base/modules/tools/psb_m_tools_a_mod.f90 b/base/modules/tools/psb_m_tools_a_mod.f90 index a5dfdd72..a1de6caa 100644 --- a/base/modules/tools/psb_m_tools_a_mod.f90 +++ b/base/modules/tools/psb_m_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_m_tools_a_mod end subroutine psb_minsvi end interface + + interface psb_remote_vect + subroutine psb_m_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + integer(psb_mpk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_mpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_m_remote_vect + end interface psb_remote_vect + end module psb_m_tools_a_mod diff --git a/base/modules/tools/psb_s_tools_a_mod.f90 b/base/modules/tools/psb_s_tools_a_mod.f90 index 32f445cb..85a2b029 100644 --- a/base/modules/tools/psb_s_tools_a_mod.f90 +++ b/base/modules/tools/psb_s_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_s_tools_a_mod end subroutine psb_sinsvi end interface + + interface psb_remote_vect + subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + real(psb_spk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + real(psb_spk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_s_remote_vect + end interface psb_remote_vect + end module psb_s_tools_a_mod diff --git a/base/modules/tools/psb_s_tools_mod.F90 b/base/modules/tools/psb_s_tools_mod.F90 index fa82a53e..5d2f8d00 100644 --- a/base/modules/tools/psb_s_tools_mod.F90 +++ b/base/modules/tools/psb_s_tools_mod.F90 @@ -40,28 +40,31 @@ Module psb_s_tools_mod use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_salloc_vect(x, desc_a,info) + subroutine psb_salloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_s_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_salloc_vect - subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_s_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_salloc_vect_r2 - subroutine psb_salloc_multivect(x, desc_a,info,n) + subroutine psb_salloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_s_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_salloc_multivect end interface @@ -123,7 +126,7 @@ Module psb_s_tools_mod interface psb_geins - subroutine psb_sins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_sins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -132,10 +135,9 @@ Module psb_s_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_sins_vect - subroutine psb_sins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_sins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -144,10 +146,9 @@ Module psb_s_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_s_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_sins_vect_v - subroutine psb_sins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_sins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -156,10 +157,9 @@ Module psb_s_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_sins_vect_r2 - subroutine psb_sins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_sins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -168,11 +168,10 @@ Module psb_s_tools_mod integer(psb_lpk_), intent(in) :: irw(:) real(psb_spk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_sins_multivect end interface - + interface psb_cdbldext Subroutine psb_scdbldext(a,desc_a,novr,desc_ov,info,extype) import @@ -239,29 +238,41 @@ Module psb_s_tools_mod interface psb_spall - subroutine psb_sspalloc(a, desc_a, info, nnz) + subroutine psb_sspalloc(a, desc_a, info, nnz, dupl, bldmode) import implicit none - type(psb_desc_type), intent(in) :: desc_a - type(psb_sspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_sspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz, bldmode + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_sspalloc end interface interface psb_spasb - subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl,mold) + subroutine psb_sspasb(a,desc_a, info, afmt, upd, mold) import implicit none type(psb_sspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a + type(psb_desc_type), intent(inout) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd + integer(psb_ipk_),optional, intent(in) :: upd character(len=*), optional, intent(in) :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: mold end subroutine psb_sspasb end interface + interface psb_remote_mat + subroutine psb_ls_remote_mat(a,desc_a,b, info) + import + implicit none + type(psb_ls_coo_sparse_mat),Intent(inout) :: a + type(psb_desc_type),intent(inout) :: desc_a + type(psb_ls_coo_sparse_mat),Intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + end subroutine psb_ls_remote_mat + end interface psb_remote_mat + interface psb_spfree subroutine psb_sspfree(a, desc_a,info) import diff --git a/base/modules/tools/psb_z_tools_a_mod.f90 b/base/modules/tools/psb_z_tools_a_mod.f90 index 21f7ff0f..4c421f26 100644 --- a/base/modules/tools/psb_z_tools_a_mod.f90 +++ b/base/modules/tools/psb_z_tools_a_mod.f90 @@ -116,4 +116,19 @@ Module psb_z_tools_a_mod end subroutine psb_zinsvi end interface + + interface psb_remote_vect + subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info) + import + implicit none + integer(psb_ipk_), intent(in) :: n + complex(psb_dpk_), intent(in) :: v(:) + integer(psb_lpk_), intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + complex(psb_dpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + end subroutine psb_z_remote_vect + end interface psb_remote_vect + end module psb_z_tools_a_mod diff --git a/base/modules/tools/psb_z_tools_mod.F90 b/base/modules/tools/psb_z_tools_mod.F90 index 233f2c20..9d6bd77b 100644 --- a/base/modules/tools/psb_z_tools_mod.F90 +++ b/base/modules/tools/psb_z_tools_mod.F90 @@ -40,28 +40,31 @@ Module psb_z_tools_mod use psi_mod, only : psb_snd, psb_rcv ! Needed only for psb_getelem interface psb_geall - subroutine psb_zalloc_vect(x, desc_a,info) + subroutine psb_zalloc_vect(x, desc_a,info, dupl, bldmode) import implicit none type(psb_z_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_zalloc_vect - subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) + subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) import implicit none type(psb_z_vect_type), allocatable, intent(out) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n, lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_zalloc_vect_r2 - subroutine psb_zalloc_multivect(x, desc_a,info,n) + subroutine psb_zalloc_multivect(x, desc_a,info,n, dupl, bldmode) import implicit none type(psb_z_multivect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode end subroutine psb_zalloc_multivect end interface @@ -123,7 +126,7 @@ Module psb_z_tools_mod interface psb_geins - subroutine psb_zins_vect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_zins_vect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -132,10 +135,9 @@ Module psb_z_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_zins_vect - subroutine psb_zins_vect_v(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_zins_vect_v(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -144,10 +146,9 @@ Module psb_z_tools_mod type(psb_l_vect_type), intent(inout) :: irw type(psb_z_vect_type), intent(inout) :: val integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_zins_vect_v - subroutine psb_zins_vect_r2(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_zins_vect_r2(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -156,10 +157,9 @@ Module psb_z_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_zins_vect_r2 - subroutine psb_zins_multivect(m,irw,val,x,desc_a,info,dupl,local) + subroutine psb_zins_multivect(m,irw,val,x,desc_a,info,local) import implicit none integer(psb_ipk_), intent(in) :: m @@ -168,11 +168,10 @@ Module psb_z_tools_mod integer(psb_lpk_), intent(in) :: irw(:) complex(psb_dpk_), intent(in) :: val(:,:) integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local end subroutine psb_zins_multivect end interface - + interface psb_cdbldext Subroutine psb_zcdbldext(a,desc_a,novr,desc_ov,info,extype) import @@ -239,29 +238,41 @@ Module psb_z_tools_mod interface psb_spall - subroutine psb_zspalloc(a, desc_a, info, nnz) + subroutine psb_zspalloc(a, desc_a, info, nnz, dupl, bldmode) import implicit none - type(psb_desc_type), intent(in) :: desc_a - type(psb_zspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_zspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz, bldmode + integer(psb_ipk_), optional, intent(in) :: dupl end subroutine psb_zspalloc end interface interface psb_spasb - subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl,mold) + subroutine psb_zspasb(a,desc_a, info, afmt, upd, mold) import implicit none type(psb_zspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a + type(psb_desc_type), intent(inout) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd + integer(psb_ipk_),optional, intent(in) :: upd character(len=*), optional, intent(in) :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: mold end subroutine psb_zspasb end interface + interface psb_remote_mat + subroutine psb_lz_remote_mat(a,desc_a,b, info) + import + implicit none + type(psb_lz_coo_sparse_mat),Intent(inout) :: a + type(psb_desc_type),intent(inout) :: desc_a + type(psb_lz_coo_sparse_mat),Intent(inout) :: b + integer(psb_ipk_), intent(out) :: info + end subroutine psb_lz_remote_mat + end interface psb_remote_mat + interface psb_spfree subroutine psb_zspfree(a, desc_a,info) import diff --git a/base/psblas/Makefile b/base/psblas/Makefile index a16ab35c..7d03f1f0 100644 --- a/base/psblas/Makefile +++ b/base/psblas/Makefile @@ -24,7 +24,9 @@ MODDIR=../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) -lib: $(OBJS) +objs: $(OBJS) + +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(OBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/serial/Makefile b/base/serial/Makefile index 0f17a0a4..ec0e2c82 100644 --- a/base/serial/Makefile +++ b/base/serial/Makefile @@ -20,18 +20,19 @@ INCDIR=.. MODDIR=../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) -lib: impld sortd lib1 $(FOBJS) + +objs: impld sortd $(FOBJS) +lib: objs + $(MAKE) -C impl lib + $(MAKE) -C sort lib $(AR) $(LIBDIR)/$(LIBNAME) $(FOBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) -#cood csrd jadd - -lib1: $(FOBJS) impld: - $(MAKE) -C impl lib + $(MAKE) -C impl objs sortd: - $(MAKE) -C sort lib + $(MAKE) -C sort objs clean: /bin/rm -f $(FOBJS) *$(.mod) ($(MAKE) -C impl clean) diff --git a/base/serial/impl/Makefile b/base/serial/impl/Makefile index 97662ba6..00088741 100644 --- a/base/serial/impl/Makefile +++ b/base/serial/impl/Makefile @@ -36,9 +36,9 @@ LIBFILE=$(LIBDIR)/$(LIBNAME) # -default: lib +objs: $(OBJS) -lib: $(OBJS) +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(OBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/serial/impl/psb_c_coo_impl.F90 b/base/serial/impl/psb_c_coo_impl.F90 index 5818c77b..830b7400 100644 --- a/base/serial/impl/psb_c_coo_impl.F90 +++ b/base/serial/impl/psb_c_coo_impl.F90 @@ -728,7 +728,7 @@ subroutine psb_c_coo_print(iout,a,iv,head,ivr,ivc) character(len=80) :: frmt integer(psb_ipk_) :: i,j, ni, nr, nc, nz - write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' if (present(head)) write(iout,'(a,a)') '% ',head write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' @@ -3172,9 +3172,9 @@ subroutine psb_c_cp_coo_from_coo(a,b,info) integer(psb_ipk_) :: i !$omp parallel do private(i) do i=1, nz - a%ia(i) = b%ia(i) - a%ja(i) = b%ja(i) - a%val(i) = b%val(i) + a%ia(i) = b%ia(i) + a%ja(i) = b%ja(i) + a%val(i) = b%val(i) end do end block #else @@ -3671,6 +3671,12 @@ subroutine psb_c_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -4357,6 +4363,11 @@ subroutine psb_c_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() if (nc <= nzin) then ! Avoid strange situations with large indices @@ -5268,13 +5279,13 @@ function psb_lc_coo_maxval(a) result(res) implicit none class(psb_lc_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - + integer(psb_lpk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='c_coo_maxval' logical, parameter :: debug=.false. - + if (a%is_dev()) call a%sync() - + if (a%is_unit()) then res = sone else @@ -5284,18 +5295,18 @@ function psb_lc_coo_maxval(a) result(res) if (allocated(a%val)) then nnz = min(nnz,size(a%val)) #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, nnz - res = max(res,abs(a%val(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, nnz + res = max(res,abs(a%val(i))) + end do + end block #else res = maxval(abs(a%val(1:nnz))) #endif end if - + end function psb_lc_coo_maxval function psb_lc_coo_csnmi(a) result(res) @@ -5351,13 +5362,13 @@ function psb_lc_coo_csnmi(a) result(res) vt(i) = vt(i) + abs(a%val(j)) end do #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, m - res = max(res,abs(vt(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, m + res = max(res,abs(vt(i))) + end do + end block #else res = maxval(vt(1:m)) #endif @@ -5403,11 +5414,11 @@ function psb_lc_coo_csnm1(a) result(res) #if defined(OPENMP) block integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) + !$omp parallel do private(i) do i=1, n res = max(res,abs(vt(i))) end do - end block + end block #else res = maxval(vt(1:n)) #endif @@ -6661,7 +6672,7 @@ contains integer(psb_lpk_), optional :: iren(:) integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd integer(psb_ipk_) :: debug_level, debug_unit, inza - character(len=20) :: name='coo_getrow' + character(len=20) :: name='lcoo_getrow' debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() @@ -6856,7 +6867,7 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz < 0) then info = psb_err_iarg_neg_ -3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) +3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if if (size(ia) < nz) then @@ -6878,7 +6889,6 @@ subroutine psb_lc_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz == 0) return - nza = a%get_nzeros() isza = a%get_size() if (a%is_bld()) then diff --git a/base/serial/impl/psb_c_csr_impl.F90 b/base/serial/impl/psb_c_csr_impl.F90 index 87b0872b..fa5f2edf 100644 --- a/base/serial/impl/psb_c_csr_impl.F90 +++ b/base/serial/impl/psb_c_csr_impl.F90 @@ -1328,8 +1328,8 @@ function psb_c_csr_csnmi(a) result(res) res = szero if (a%is_dev()) call a%sync() - !$omp parallel do private(i,acc) reduction(max: res) - do i = 1, a%get_nrows() + !$omp parallel do private(i,j,acc) reduction(max: res) + do i = 1, a%get_nrows() acc = szero do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) @@ -1562,8 +1562,12 @@ subroutine psb_c_csr_get_diag(a,d,info) if (a%is_unit()) then - d(1:mnm) = cone + !$omp parallel do private(i) + do i=1, mnm + d(i) = cone + end do else + !$omp parallel do private(i,j,k) do i=1, mnm d(i) = czero do k=a%irp(i),a%irp(i+1)-1 @@ -1574,6 +1578,7 @@ subroutine psb_c_csr_get_diag(a,d,info) enddo end do end if + !$omp parallel do private(i) do i=mnm+1,size(d) d(i) = czero end do @@ -1629,6 +1634,7 @@ subroutine psb_c_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1, m do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) @@ -1643,6 +1649,7 @@ subroutine psb_c_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1681,6 +1688,7 @@ subroutine psb_c_csr_scals(d,a,info) call a%make_nonunit() end if + !$omp parallel do private(i) do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo diff --git a/base/serial/impl/psb_c_mat_impl.F90 b/base/serial/impl/psb_c_mat_impl.F90 index 088b012d..df5c4cd9 100644 --- a/base/serial/impl/psb_c_mat_impl.F90 +++ b/base/serial/impl/psb_c_mat_impl.F90 @@ -675,7 +675,12 @@ subroutine psb_c_free(a) call a%a%free() deallocate(a%a) endif - + if (allocated(a%rmta)) then + call a%rmta%free() + deallocate(a%rmta) + end if + a%remote_build = psb_matbld_noremote_ + end subroutine psb_c_free diff --git a/base/serial/impl/psb_d_coo_impl.F90 b/base/serial/impl/psb_d_coo_impl.F90 index 21590eb2..24b486e2 100644 --- a/base/serial/impl/psb_d_coo_impl.F90 +++ b/base/serial/impl/psb_d_coo_impl.F90 @@ -728,7 +728,7 @@ subroutine psb_d_coo_print(iout,a,iv,head,ivr,ivc) character(len=80) :: frmt integer(psb_ipk_) :: i,j, ni, nr, nc, nz - write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' if (present(head)) write(iout,'(a,a)') '% ',head write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' @@ -3172,9 +3172,9 @@ subroutine psb_d_cp_coo_from_coo(a,b,info) integer(psb_ipk_) :: i !$omp parallel do private(i) do i=1, nz - a%ia(i) = b%ia(i) - a%ja(i) = b%ja(i) - a%val(i) = b%val(i) + a%ia(i) = b%ia(i) + a%ja(i) = b%ja(i) + a%val(i) = b%val(i) end do end block #else @@ -3671,6 +3671,12 @@ subroutine psb_d_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -4357,6 +4363,11 @@ subroutine psb_d_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() if (nc <= nzin) then ! Avoid strange situations with large indices @@ -5268,13 +5279,13 @@ function psb_ld_coo_maxval(a) result(res) implicit none class(psb_ld_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - + integer(psb_lpk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='d_coo_maxval' logical, parameter :: debug=.false. - + if (a%is_dev()) call a%sync() - + if (a%is_unit()) then res = done else @@ -5284,18 +5295,18 @@ function psb_ld_coo_maxval(a) result(res) if (allocated(a%val)) then nnz = min(nnz,size(a%val)) #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, nnz - res = max(res,abs(a%val(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, nnz + res = max(res,abs(a%val(i))) + end do + end block #else res = maxval(abs(a%val(1:nnz))) #endif end if - + end function psb_ld_coo_maxval function psb_ld_coo_csnmi(a) result(res) @@ -5351,13 +5362,13 @@ function psb_ld_coo_csnmi(a) result(res) vt(i) = vt(i) + abs(a%val(j)) end do #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, m - res = max(res,abs(vt(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, m + res = max(res,abs(vt(i))) + end do + end block #else res = maxval(vt(1:m)) #endif @@ -5403,11 +5414,11 @@ function psb_ld_coo_csnm1(a) result(res) #if defined(OPENMP) block integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) + !$omp parallel do private(i) do i=1, n res = max(res,abs(vt(i))) end do - end block + end block #else res = maxval(vt(1:n)) #endif @@ -6661,7 +6672,7 @@ contains integer(psb_lpk_), optional :: iren(:) integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd integer(psb_ipk_) :: debug_level, debug_unit, inza - character(len=20) :: name='coo_getrow' + character(len=20) :: name='lcoo_getrow' debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() @@ -6856,7 +6867,7 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz < 0) then info = psb_err_iarg_neg_ -3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) +3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if if (size(ia) < nz) then @@ -6878,7 +6889,6 @@ subroutine psb_ld_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz == 0) return - nza = a%get_nzeros() isza = a%get_size() if (a%is_bld()) then diff --git a/base/serial/impl/psb_d_csr_impl.F90 b/base/serial/impl/psb_d_csr_impl.F90 index 3aadde20..faf422ae 100644 --- a/base/serial/impl/psb_d_csr_impl.F90 +++ b/base/serial/impl/psb_d_csr_impl.F90 @@ -1328,8 +1328,8 @@ function psb_d_csr_csnmi(a) result(res) res = dzero if (a%is_dev()) call a%sync() - !$omp parallel do private(i,acc) reduction(max: res) - do i = 1, a%get_nrows() + !$omp parallel do private(i,j,acc) reduction(max: res) + do i = 1, a%get_nrows() acc = dzero do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) @@ -1562,8 +1562,12 @@ subroutine psb_d_csr_get_diag(a,d,info) if (a%is_unit()) then - d(1:mnm) = done + !$omp parallel do private(i) + do i=1, mnm + d(i) = done + end do else + !$omp parallel do private(i,j,k) do i=1, mnm d(i) = dzero do k=a%irp(i),a%irp(i+1)-1 @@ -1574,6 +1578,7 @@ subroutine psb_d_csr_get_diag(a,d,info) enddo end do end if + !$omp parallel do private(i) do i=mnm+1,size(d) d(i) = dzero end do @@ -1629,6 +1634,7 @@ subroutine psb_d_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1, m do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) @@ -1643,6 +1649,7 @@ subroutine psb_d_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1681,6 +1688,7 @@ subroutine psb_d_csr_scals(d,a,info) call a%make_nonunit() end if + !$omp parallel do private(i) do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo diff --git a/base/serial/impl/psb_d_mat_impl.F90 b/base/serial/impl/psb_d_mat_impl.F90 index b21fa40f..2a6fb9a5 100644 --- a/base/serial/impl/psb_d_mat_impl.F90 +++ b/base/serial/impl/psb_d_mat_impl.F90 @@ -675,7 +675,12 @@ subroutine psb_d_free(a) call a%a%free() deallocate(a%a) endif - + if (allocated(a%rmta)) then + call a%rmta%free() + deallocate(a%rmta) + end if + a%remote_build = psb_matbld_noremote_ + end subroutine psb_d_free diff --git a/base/serial/impl/psb_s_coo_impl.F90 b/base/serial/impl/psb_s_coo_impl.F90 index 8b29e565..be4218de 100644 --- a/base/serial/impl/psb_s_coo_impl.F90 +++ b/base/serial/impl/psb_s_coo_impl.F90 @@ -728,7 +728,7 @@ subroutine psb_s_coo_print(iout,a,iv,head,ivr,ivc) character(len=80) :: frmt integer(psb_ipk_) :: i,j, ni, nr, nc, nz - write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' + write(iout,'(a)') '%%MatrixMarket matrix coordinate real general' if (present(head)) write(iout,'(a,a)') '% ',head write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' @@ -3172,9 +3172,9 @@ subroutine psb_s_cp_coo_from_coo(a,b,info) integer(psb_ipk_) :: i !$omp parallel do private(i) do i=1, nz - a%ia(i) = b%ia(i) - a%ja(i) = b%ja(i) - a%val(i) = b%val(i) + a%ia(i) = b%ia(i) + a%ja(i) = b%ja(i) + a%val(i) = b%val(i) end do end block #else @@ -3671,6 +3671,12 @@ subroutine psb_s_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -4357,6 +4363,11 @@ subroutine psb_s_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() if (nc <= nzin) then ! Avoid strange situations with large indices @@ -5268,13 +5279,13 @@ function psb_ls_coo_maxval(a) result(res) implicit none class(psb_ls_coo_sparse_mat), intent(in) :: a real(psb_spk_) :: res - + integer(psb_lpk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='s_coo_maxval' logical, parameter :: debug=.false. - + if (a%is_dev()) call a%sync() - + if (a%is_unit()) then res = sone else @@ -5284,18 +5295,18 @@ function psb_ls_coo_maxval(a) result(res) if (allocated(a%val)) then nnz = min(nnz,size(a%val)) #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, nnz - res = max(res,abs(a%val(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, nnz + res = max(res,abs(a%val(i))) + end do + end block #else res = maxval(abs(a%val(1:nnz))) #endif end if - + end function psb_ls_coo_maxval function psb_ls_coo_csnmi(a) result(res) @@ -5351,13 +5362,13 @@ function psb_ls_coo_csnmi(a) result(res) vt(i) = vt(i) + abs(a%val(j)) end do #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, m - res = max(res,abs(vt(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, m + res = max(res,abs(vt(i))) + end do + end block #else res = maxval(vt(1:m)) #endif @@ -5403,11 +5414,11 @@ function psb_ls_coo_csnm1(a) result(res) #if defined(OPENMP) block integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) + !$omp parallel do private(i) do i=1, n res = max(res,abs(vt(i))) end do - end block + end block #else res = maxval(vt(1:n)) #endif @@ -6661,7 +6672,7 @@ contains integer(psb_lpk_), optional :: iren(:) integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd integer(psb_ipk_) :: debug_level, debug_unit, inza - character(len=20) :: name='coo_getrow' + character(len=20) :: name='lcoo_getrow' debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() @@ -6856,7 +6867,7 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz < 0) then info = psb_err_iarg_neg_ -3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) +3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if if (size(ia) < nz) then @@ -6878,7 +6889,6 @@ subroutine psb_ls_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz == 0) return - nza = a%get_nzeros() isza = a%get_size() if (a%is_bld()) then diff --git a/base/serial/impl/psb_s_csr_impl.F90 b/base/serial/impl/psb_s_csr_impl.F90 index a554e13b..446e6791 100644 --- a/base/serial/impl/psb_s_csr_impl.F90 +++ b/base/serial/impl/psb_s_csr_impl.F90 @@ -1328,8 +1328,8 @@ function psb_s_csr_csnmi(a) result(res) res = szero if (a%is_dev()) call a%sync() - !$omp parallel do private(i,acc) reduction(max: res) - do i = 1, a%get_nrows() + !$omp parallel do private(i,j,acc) reduction(max: res) + do i = 1, a%get_nrows() acc = szero do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) @@ -1562,8 +1562,12 @@ subroutine psb_s_csr_get_diag(a,d,info) if (a%is_unit()) then - d(1:mnm) = sone + !$omp parallel do private(i) + do i=1, mnm + d(i) = sone + end do else + !$omp parallel do private(i,j,k) do i=1, mnm d(i) = szero do k=a%irp(i),a%irp(i+1)-1 @@ -1574,6 +1578,7 @@ subroutine psb_s_csr_get_diag(a,d,info) enddo end do end if + !$omp parallel do private(i) do i=mnm+1,size(d) d(i) = szero end do @@ -1629,6 +1634,7 @@ subroutine psb_s_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1, m do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) @@ -1643,6 +1649,7 @@ subroutine psb_s_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1681,6 +1688,7 @@ subroutine psb_s_csr_scals(d,a,info) call a%make_nonunit() end if + !$omp parallel do private(i) do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo diff --git a/base/serial/impl/psb_s_mat_impl.F90 b/base/serial/impl/psb_s_mat_impl.F90 index c624dc2f..ce7ce653 100644 --- a/base/serial/impl/psb_s_mat_impl.F90 +++ b/base/serial/impl/psb_s_mat_impl.F90 @@ -675,7 +675,12 @@ subroutine psb_s_free(a) call a%a%free() deallocate(a%a) endif - + if (allocated(a%rmta)) then + call a%rmta%free() + deallocate(a%rmta) + end if + a%remote_build = psb_matbld_noremote_ + end subroutine psb_s_free diff --git a/base/serial/impl/psb_z_coo_impl.F90 b/base/serial/impl/psb_z_coo_impl.F90 index 48ea3a50..4f99cb5c 100644 --- a/base/serial/impl/psb_z_coo_impl.F90 +++ b/base/serial/impl/psb_z_coo_impl.F90 @@ -728,7 +728,7 @@ subroutine psb_z_coo_print(iout,a,iv,head,ivr,ivc) character(len=80) :: frmt integer(psb_ipk_) :: i,j, ni, nr, nc, nz - write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' + write(iout,'(a)') '%%MatrixMarket matrix coordinate complex general' if (present(head)) write(iout,'(a,a)') '% ',head write(iout,'(a)') '%' write(iout,'(a,a)') '% COO' @@ -3172,9 +3172,9 @@ subroutine psb_z_cp_coo_from_coo(a,b,info) integer(psb_ipk_) :: i !$omp parallel do private(i) do i=1, nz - a%ia(i) = b%ia(i) - a%ja(i) = b%ja(i) - a%val(i) = b%val(i) + a%ia(i) = b%ia(i) + a%ja(i) = b%ja(i) + a%val(i) = b%val(i) end do end block #else @@ -3671,6 +3671,12 @@ subroutine psb_z_fix_coo_inner_rowmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + ! Row major order if (nr <= nzin) then ! Avoid strange situations with large indices @@ -4357,6 +4363,11 @@ subroutine psb_z_fix_coo_inner_colmajor(nr,nc,nzin,dupl,ia,ja,val,iaux,nzout,inf integer(psb_ipk_) :: saved_elem,old_val,nxt_val,err,act_row,act_col,maxthreads integer(psb_ipk_), allocatable :: sum(:),kaux(:),idxaux(:) #endif + info = psb_success_ + + call psb_erractionsave(err_act) + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() if (nc <= nzin) then ! Avoid strange situations with large indices @@ -5268,13 +5279,13 @@ function psb_lz_coo_maxval(a) result(res) implicit none class(psb_lz_coo_sparse_mat), intent(in) :: a real(psb_dpk_) :: res - + integer(psb_lpk_) :: i,j,k,m,n, nnz, ir, jc, nc, info character(len=20) :: name='z_coo_maxval' logical, parameter :: debug=.false. - + if (a%is_dev()) call a%sync() - + if (a%is_unit()) then res = done else @@ -5284,18 +5295,18 @@ function psb_lz_coo_maxval(a) result(res) if (allocated(a%val)) then nnz = min(nnz,size(a%val)) #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, nnz - res = max(res,abs(a%val(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, nnz + res = max(res,abs(a%val(i))) + end do + end block #else res = maxval(abs(a%val(1:nnz))) #endif end if - + end function psb_lz_coo_maxval function psb_lz_coo_csnmi(a) result(res) @@ -5351,13 +5362,13 @@ function psb_lz_coo_csnmi(a) result(res) vt(i) = vt(i) + abs(a%val(j)) end do #if defined(OPENMP) - block - integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) - do i=1, m - res = max(res,abs(vt(i))) - end do - end block + block + integer(psb_ipk_) :: i + !$omp parallel do private(i) + do i=1, m + res = max(res,abs(vt(i))) + end do + end block #else res = maxval(vt(1:m)) #endif @@ -5403,11 +5414,11 @@ function psb_lz_coo_csnm1(a) result(res) #if defined(OPENMP) block integer(psb_ipk_) :: i - !$omp parallel do private(i) reduction(max: res) + !$omp parallel do private(i) do i=1, n res = max(res,abs(vt(i))) end do - end block + end block #else res = maxval(vt(1:n)) #endif @@ -6661,7 +6672,7 @@ contains integer(psb_lpk_), optional :: iren(:) integer(psb_lpk_) :: nzin_, nza, idx,ip,jp,i,k, nzt, irw, lrw, nra, nca, nrd integer(psb_ipk_) :: debug_level, debug_unit, inza - character(len=20) :: name='coo_getrow' + character(len=20) :: name='lcoo_getrow' debug_unit = psb_get_debug_unit() debug_level = psb_get_debug_level() @@ -6856,7 +6867,7 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz < 0) then info = psb_err_iarg_neg_ -3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) +3 call psb_errpush(info,name,i_err=(/1_psb_ipk_/)) goto 9999 end if if (size(ia) < nz) then @@ -6878,7 +6889,6 @@ subroutine psb_lz_coo_csput_a(nz,ia,ja,val,a,imin,imax,jmin,jmax,info) if (nz == 0) return - nza = a%get_nzeros() isza = a%get_size() if (a%is_bld()) then diff --git a/base/serial/impl/psb_z_csr_impl.F90 b/base/serial/impl/psb_z_csr_impl.F90 index b2b0d3d1..5ec579d5 100644 --- a/base/serial/impl/psb_z_csr_impl.F90 +++ b/base/serial/impl/psb_z_csr_impl.F90 @@ -1328,8 +1328,8 @@ function psb_z_csr_csnmi(a) result(res) res = dzero if (a%is_dev()) call a%sync() - !$omp parallel do private(i,acc) reduction(max: res) - do i = 1, a%get_nrows() + !$omp parallel do private(i,j,acc) reduction(max: res) + do i = 1, a%get_nrows() acc = dzero do j=a%irp(i),a%irp(i+1)-1 acc = acc + abs(a%val(j)) @@ -1562,8 +1562,12 @@ subroutine psb_z_csr_get_diag(a,d,info) if (a%is_unit()) then - d(1:mnm) = zone + !$omp parallel do private(i) + do i=1, mnm + d(i) = zone + end do else + !$omp parallel do private(i,j,k) do i=1, mnm d(i) = zzero do k=a%irp(i),a%irp(i+1)-1 @@ -1574,6 +1578,7 @@ subroutine psb_z_csr_get_diag(a,d,info) enddo end do end if + !$omp parallel do private(i) do i=mnm+1,size(d) d(i) = zzero end do @@ -1629,6 +1634,7 @@ subroutine psb_z_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1, m do j = a%irp(i), a%irp(i+1) -1 a%val(j) = a%val(j) * d(i) @@ -1643,6 +1649,7 @@ subroutine psb_z_csr_scal(d,a,info,side) goto 9999 end if + !$omp parallel do private(i,j) do i=1,a%get_nzeros() j = a%ja(i) a%val(i) = a%val(i) * d(j) @@ -1681,6 +1688,7 @@ subroutine psb_z_csr_scals(d,a,info) call a%make_nonunit() end if + !$omp parallel do private(i) do i=1,a%get_nzeros() a%val(i) = a%val(i) * d enddo diff --git a/base/serial/impl/psb_z_mat_impl.F90 b/base/serial/impl/psb_z_mat_impl.F90 index e008dfdb..2cebf9e7 100644 --- a/base/serial/impl/psb_z_mat_impl.F90 +++ b/base/serial/impl/psb_z_mat_impl.F90 @@ -675,7 +675,12 @@ subroutine psb_z_free(a) call a%a%free() deallocate(a%a) endif - + if (allocated(a%rmta)) then + call a%rmta%free() + deallocate(a%rmta) + end if + a%remote_build = psb_matbld_noremote_ + end subroutine psb_z_free diff --git a/base/serial/sort/Makefile b/base/serial/sort/Makefile index c381e3f5..2ef6420a 100644 --- a/base/serial/sort/Makefile +++ b/base/serial/sort/Makefile @@ -27,9 +27,9 @@ LIBFILE=$(LIBDIR)/$(LIBNAME) # -default: lib +objs: $(OBJS) -lib: $(OBJS) +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(OBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/serial/sort/psb_i_hsort_impl.f90 b/base/serial/sort/psb_i_hsort_impl.f90 deleted file mode 100644 index 1c53650a..00000000 --- a/base/serial/sort/psb_i_hsort_impl.f90 +++ /dev/null @@ -1,678 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The merge-sort and quicksort routines are implemented in the -! serial/aux directory -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_ihsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_ihsort - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info - integer(psb_ipk_) :: key - integer(psb_ipk_) :: index - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_hsort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - select case(dir_) - case(psb_sort_up_,psb_sort_down_) - ! OK - case (psb_asort_up_,psb_asort_down_) - ! OK - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - n = size(x) - - ! - ! Dirty trick to sort with heaps: if we want - ! to sort in place upwards, first we set up a heap so that - ! we can easily get the LARGEST element, then we take it out - ! and put it in the last entry, and so on. - ! So, we invert dir_ - ! - dir_ = -dir_ - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_ == psb_sort_ovw_idx_) then - do i=1, n - ix(i) = i - end do - end if - l = 0 - do i=1, n - key = x(i) - index = ix(i) - call psi_idx_insert_heap(key,index,l,x,ix,dir_,info) - if (l /= i) then - write(psb_err_unit,*) 'Mismatch while heapifying ! ' - end if - end do - do i=n, 2, -1 - call psi_idx_heap_get_first(key,index,l,x,ix,dir_,info) - if (l /= i-1) then - write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i - end if - x(i) = key - ix(i) = index - end do - else if (.not.present(ix)) then - l = 0 - do i=1, n - key = x(i) - call psi_insert_heap(key,l,x,dir_,info) - if (l /= i) then - write(psb_err_unit,*) 'Mismatch while heapifying ! ',l,i - end if - end do - do i=n, 2, -1 - call psi_i_heap_get_first(key,l,x,dir_,info) - if (l /= i-1) then - write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i - end if - x(i) = key - end do - end if - - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_ihsort - - - -! -! These are packaged so that they can be used to implement -! a heapsort, should the need arise -! -! -! Programming note: -! In the implementation of the heap_get_first function -! we have code like this -! -! if ( ( heap(2*i) < heap(2*i+1) ) .or.& -! & (2*i == last)) then -! j = 2*i -! else -! j = 2*i + 1 -! end if -! -! It looks like the 2*i+1 could overflow the array, but this -! is not true because there is a guard statement -! if (i>last/2) exit -! and because last has just been reduced by 1 when defining the return value, -! therefore 2*i+1 may be greater than the current value of last, -! but cannot be greater than the value of last when the routine was entered -! hence it is safe. -! -! -! - -subroutine psi_i_insert_heap(key,last,heap,dir,info) - use psb_sort_mod, psb_protect_name => psi_i_insert_heap - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_ipk_), intent(in) :: key - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i, i2 - integer(psb_ipk_) :: temp - - info = psb_success_ - if (last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',last - info = last - return - endif - last = last + 1 - if (last > size(heap)) then - write(psb_err_unit,*) 'out of bounds ' - info = -1 - return - end if - i = last - heap(i) = key - - select case(dir) - case (psb_sort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) < heap(i2)) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_sort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) > heap(i2)) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - case (psb_asort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) < abs(heap(i2))) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_asort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) > abs(heap(i2))) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_i_insert_heap - - -subroutine psi_i_heap_get_first(key,last,heap,dir,info) - use psb_sort_mod, psb_protect_name => psi_i_heap_get_first - implicit none - - integer(psb_ipk_), intent(inout) :: key - integer(psb_ipk_), intent(inout) :: last - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i, j - integer(psb_ipk_) :: temp - - - info = psb_success_ - if (last <= 0) then - key = 0 - info = -1 - return - endif - - key = heap(1) - heap(1) = heap(last) - last = last - 1 - - select case(dir) - case (psb_sort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) < heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) > heap(j)) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_sort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) > heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) < heap(j)) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case (psb_asort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) < abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) > abs(heap(j))) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_asort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) > abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) < abs(heap(j))) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_i_heap_get_first - - -subroutine psi_i_idx_insert_heap(key,index,last,heap,idxs,dir,info) - use psb_sort_mod, psb_protect_name => psi_i_idx_insert_heap - - implicit none - ! - ! Input: - ! key: the new value - ! index: the new index - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! idxs: the indices - ! dir: sorting direction - - integer(psb_ipk_), intent(in) :: key - integer(psb_ipk_), intent(in) :: index,dir - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(inout) :: idxs(:),last - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i, i2, itemp - integer(psb_ipk_) :: temp - - info = psb_success_ - if (last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',last - info = last - return - endif - - last = last + 1 - if (last > size(heap)) then - write(psb_err_unit,*) 'out of bounds ' - info = -1 - return - end if - - i = last - heap(i) = key - idxs(i) = index - - select case(dir) - case (psb_sort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) < heap(i2)) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_sort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) > heap(i2)) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - case (psb_asort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) < abs(heap(i2))) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_asort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) > abs(heap(i2))) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_i_idx_insert_heap - -subroutine psi_i_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - use psb_sort_mod, psb_protect_name => psi_i_idx_heap_get_first - implicit none - - integer(psb_ipk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: index,info - integer(psb_ipk_), intent(inout) :: last,idxs(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_ipk_), intent(out) :: key - - integer(psb_ipk_) :: i, j,itemp - integer(psb_ipk_) :: temp - - info = psb_success_ - if (last <= 0) then - key = 0 - index = 0 - info = -1 - return - endif - - key = heap(1) - index = idxs(1) - heap(1) = heap(last) - idxs(1) = idxs(last) - last = last - 1 - - select case(dir) - case (psb_sort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) < heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) > heap(j)) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_sort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) > heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) < heap(j)) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case (psb_asort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) < abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) > abs(heap(j))) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_asort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) > abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) < abs(heap(j))) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_i_idx_heap_get_first - - - - diff --git a/base/serial/sort/psb_i_isort_impl.f90 b/base/serial/sort/psb_i_isort_impl.f90 deleted file mode 100644 index 41c1381f..00000000 --- a/base/serial/sort/psb_i_isort_impl.f90 +++ /dev/null @@ -1,341 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The insertion sort routines -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_iisort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_iisort - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, err_act - integer(psb_ipk_) :: n, i - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_iisort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_==psb_sort_ovw_idx_) then - do i=1,n - ix(i) = i - end do - end if - - select case(dir_) - case (psb_sort_up_) - call psi_iisrx_up(n,x,ix) - case (psb_sort_down_) - call psi_iisrx_dw(n,x,ix) - case (psb_asort_up_) - call psi_iaisrx_up(n,x,ix) - case (psb_asort_down_) - call psi_iaisrx_dw(n,x,ix) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - else - select case(dir_) - case (psb_sort_up_) - call psi_iisr_up(n,x) - case (psb_sort_down_) - call psi_iisr_dw(n,x) - case (psb_asort_up_) - call psi_iaisr_up(n,x) - case (psb_asort_down_) - call psi_iaisr_dw(n,x) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_iisort - -subroutine psi_iisrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iisrx_up - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j,ix - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) < x(j)) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (x(i) >= xx) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_iisrx_up - -subroutine psi_iisrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iisrx_dw - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j,ix - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) > x(j)) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (x(i) <= xx) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_iisrx_dw - - -subroutine psi_iisr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_iisr_up - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) < x(j)) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (x(i) >= xx) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_iisr_up - -subroutine psi_iisr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_iisr_dw - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) > x(j)) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (x(i) <= xx) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_iisr_dw - -subroutine psi_iaisrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iaisrx_up - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j,ix - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) < abs(x(j))) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) >= abs(xx)) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_iaisrx_up - -subroutine psi_iaisrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iaisrx_dw - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j,ix - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) > abs(x(j))) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) <= abs(xx)) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_iaisrx_dw - -subroutine psi_iaisr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_iaisr_up - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) < abs(x(j))) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) >= abs(xx)) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_iaisr_up - -subroutine psi_iaisr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_iaisr_dw - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_) :: i,j - integer(psb_ipk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) > abs(x(j))) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) <= abs(xx)) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_iaisr_dw - diff --git a/base/serial/sort/psb_i_msort_impl.f90 b/base/serial/sort/psb_i_msort_impl.f90 deleted file mode 100644 index 1e9ad9ec..00000000 --- a/base/serial/sort/psb_i_msort_impl.f90 +++ /dev/null @@ -1,713 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! - ! - ! The merge-sort routines - ! References: - ! D. Knuth - ! The Art of Computer Programming, vol. 3 - ! Addison-Wesley - ! - ! Aho, Hopcroft, Ullman - ! Data Structures and Algorithms - ! Addison-Wesley - ! - logical function psb_iisaperm(n,eip) - use psb_sort_mod, psb_protect_name => psb_iisaperm - implicit none - - integer(psb_ipk_), intent(in) :: n - integer(psb_ipk_), intent(in) :: eip(n) - integer(psb_ipk_), allocatable :: ip(:) - integer(psb_ipk_) :: i,j,m, info - - - psb_iisaperm = .true. - if (n <= 0) return - allocate(ip(n), stat=info) - if (info /= psb_success_) return - ! - ! sanity check first - ! - do i=1, n - ip(i) = eip(i) - if ((ip(i) < 1).or.(ip(i) > n)) then - write(psb_err_unit,*) 'Out of bounds in isaperm' ,ip(i), n - psb_iisaperm = .false. - return - endif - enddo - - ! - ! now work through the cycles, by marking each successive item as negative. - ! no cycle should intersect with any other, hence the >= 1 check. - ! - do m = 1, n - i = ip(m) - if (i < 0) then - ip(m) = -i - else if (i /= m) then - j = ip(i) - ip(i) = -j - i = j - do while ((j >= 1).and.(j /= m)) - j = ip(i) - ip(i) = -j - i = j - enddo - ip(m) = abs(ip(m)) - if (j /= m) then - psb_iisaperm = .false. - goto 9999 - endif - end if - enddo -9999 continue - - return - end function psb_iisaperm - - - subroutine psb_imsort_u(x,nout,dir) - use psb_sort_mod, psb_protect_name => psb_imsort_u - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(out) :: nout - integer(psb_ipk_), optional, intent(in) :: dir - - integer(psb_ipk_) :: n, k - integer(psb_ipk_) :: err_act - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_msort_u' - call psb_erractionsave(err_act) - - n = size(x) - - call psb_msort(x,dir=dir) - nout = min(1,n) - do k=2,n - if (x(k) /= x(nout)) then - nout = nout + 1 - x(nout) = x(k) - endif - enddo - - return - -9999 call psb_error_handler(err_act) - - return - end subroutine psb_imsort_u - - - function psb_ibsrch(key,n,v) result(ipos) - use psb_sort_mod, psb_protect_name => psb_ibsrch - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_ipk_) :: key - integer(psb_ipk_) :: v(:) - - integer(psb_ipk_) :: lb, ub, m, i - - ipos = -1 - if (n<5) then - do i=1,n - if (key.eq.v(i)) then - ipos = i - return - end if - enddo - return - end if - - lb = 1 - ub = n - - do while (lb.le.ub) - m = (lb+ub)/2 - if (key.eq.v(m)) then - ipos = m - lb = ub + 1 - else if (key < v(m)) then - ub = m-1 - else - lb = m + 1 - end if - enddo - return - end function psb_ibsrch - - function psb_issrch(key,n,v) result(ipos) - use psb_sort_mod, psb_protect_name => psb_issrch - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_ipk_) :: key - integer(psb_ipk_) :: v(:) - - integer(psb_ipk_) :: i - - ipos = -1 - do i=1,n - if (key.eq.v(i)) then - ipos = i - return - end if - enddo - - return - end function psb_issrch - - subroutine psb_imsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_imsort - use psb_error_mod - use psb_ip_reord_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, n, err_act - - integer(psb_ipk_), allocatable :: iaux(:) - integer(psb_ipk_) :: iret, info, i - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_imsort' - call psb_erractionsave(err_act) - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - select case(dir_) - case( psb_sort_up_, psb_sort_down_, psb_asort_up_, psb_asort_down_) - ! OK keep going - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case(psb_sort_ovw_idx_) - do i=1,n - ix(i) = i - end do - case (psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - allocate(iaux(0:n+1),stat=info) - if (info /= psb_success_) then - call psb_errpush(psb_err_alloc_dealloc_,r_name='psb_i_msort') - goto 9999 - endif - - select case(dir_) - case (psb_sort_up_) - call psi_i_msort_up(n,x,iaux,iret) - case (psb_sort_down_) - call psi_i_msort_dw(n,x,iaux,iret) - case (psb_asort_up_) - call psi_i_amsort_up(n,x,iaux,iret) - case (psb_asort_down_) - call psi_i_amsort_dw(n,x,iaux,iret) - end select - ! - ! Do the actual reordering, since the inner routines - ! only provide linked pointers. - ! - if (iret == 0 ) then - if (present(ix)) then - call psb_ip_reord(n,x,ix,iaux) - else - call psb_ip_reord(n,x,iaux) - end if - end if - - - return - -9999 call psb_error_handler(err_act) - - return - - - end subroutine psb_imsort - - subroutine psi_i_msort_up(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - ! - integer(psb_ipk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (k(p) <= k(p+1)) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (k(p) > k(q)) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (k(p) <= k(q)) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (k(p) > k(q)) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_i_msort_up - - subroutine psi_i_msort_dw(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - ! - integer(psb_ipk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (k(p) >= k(p+1)) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (k(p) < k(q)) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (k(p) >= k(q)) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (k(p) < k(q)) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_i_msort_dw - - subroutine psi_i_amsort_up(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - ! - integer(psb_ipk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (abs(k(p)) <= abs(k(p+1))) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (abs(k(p)) > abs(k(q))) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (abs(k(p)) <= abs(k(q))) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (abs(k(p)) > abs(k(q))) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_i_amsort_up - - subroutine psi_i_amsort_dw(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_ipk_) :: k(n) - integer(psb_ipk_) :: l(0:n+1) - ! - integer(psb_ipk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (abs(k(p)) >= abs(k(p+1))) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (abs(k(p)) < abs(k(q))) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (abs(k(p)) >= abs(k(q))) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (abs(k(p)) < abs(k(q))) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_i_amsort_dw - - - - - - - - diff --git a/base/serial/sort/psb_i_qsort_impl.f90 b/base/serial/sort/psb_i_qsort_impl.f90 deleted file mode 100644 index e5f0ac92..00000000 --- a/base/serial/sort/psb_i_qsort_impl.f90 +++ /dev/null @@ -1,1318 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The quicksort routines -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_iqsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_iqsort - use psb_error_mod - implicit none - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_ipk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, err_act, i - integer(psb_ipk_) :: n - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_iqsort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_==psb_sort_ovw_idx_) then - do i=1,n - ix(i) = i - end do - end if - - select case(dir_) - case (psb_sort_up_) - call psi_iqsrx_up(n,x,ix) - case (psb_sort_down_) - call psi_iqsrx_dw(n,x,ix) - case (psb_asort_up_) - call psi_iaqsrx_up(n,x,ix) - case (psb_asort_down_) - call psi_iaqsrx_dw(n,x,ix) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - else - select case(dir_) - case (psb_sort_up_) - call psi_iqsr_up(n,x) - case (psb_sort_down_) - call psi_iqsr_dw(n,x) - case (psb_asort_up_) - call psi_iaqsr_up(n,x) - case (psb_asort_down_) - call psi_iaqsr_dw(n,x) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_iqsort - -subroutine psi_iqsrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iqsrx_up - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk, xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv < x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv > x(j)) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv < x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = x(i) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_up2:do - j = j - 1 - xk = x(j) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_iqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisrx_up(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisrx_up(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_iisrx_up(n,x,idx) - endif -end subroutine psi_iqsrx_up - -subroutine psi_iqsrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iqsrx_dw - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk, xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv > x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv < x(j)) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv > x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = x(i) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_dw2:do - j = j - 1 - xk = x(j) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_iqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_iisrx_dw(n,x,idx) - endif - -end subroutine psi_iqsrx_dw - -subroutine psi_iqsr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_iqsr_up - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - ! .. - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xt, xk - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv < x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv > x(j)) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv < x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = x(i) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_up2:do - j = j - 1 - xk = x(j) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_iqsr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisr_up(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisr_up(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisr_up(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisr_up(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_iisr_up(n,x) - endif - -end subroutine psi_iqsr_up - -subroutine psi_iqsr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_iqsr_dw - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - ! .. - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xt, xk - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv > x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv < x(j)) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv > x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = x(i) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_dw2:do - j = j - 1 - xk = x(j) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_iqsr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisr_dw(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisr_dw(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iisr_dw(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iisr_dw(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_iisr_dw(n,x) - endif - -end subroutine psi_iqsr_dw - -subroutine psi_iaqsrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iaqsrx_up - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk - integer(psb_ipk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv < abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(j))) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = abs(x(i)) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_up2:do - j = j - 1 - xk = abs(x(j)) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_iaqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisrx_up(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisrx_up(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_iaisrx_up(n,x,idx) - endif - - -end subroutine psi_iaqsrx_up - -subroutine psi_iaqsrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_iaqsrx_dw - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(inout) :: idx(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk - integer(psb_ipk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv > abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(j))) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = abs(x(i)) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_dw2:do - j = j - 1 - xk = abs(x(j)) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_iaqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_iaisrx_dw(n,x,idx) - endif - -end subroutine psi_iaqsrx_dw - -subroutine psi_iaqsr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_iaqsr_up - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk - integer(psb_ipk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv < abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(j))) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = abs(x(i)) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_up2:do - j = j - 1 - xk = abs(x(j)) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_iqasr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisr_up(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisr_up(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisr_up(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisr_up(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_iaisr_up(n,x) - endif - -end subroutine psi_iaqsr_up - -subroutine psi_iaqsr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_iaqsr_dw - use psb_error_mod - implicit none - - integer(psb_ipk_), intent(inout) :: x(:) - integer(psb_ipk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_ipk_) :: piv, xk - integer(psb_ipk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_ipk_) :: n1, n2 - integer(psb_ipk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv > abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(j))) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = abs(x(i)) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_dw2:do - j = j - 1 - xk = abs(x(j)) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_iqasr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisr_dw(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisr_dw(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_iaisr_dw(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_iaisr_dw(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_iaisr_dw(n,x) - endif - -end subroutine psi_iaqsr_dw - - diff --git a/base/serial/sort/psb_l_hsort_impl.f90 b/base/serial/sort/psb_l_hsort_impl.f90 deleted file mode 100644 index f8337eb4..00000000 --- a/base/serial/sort/psb_l_hsort_impl.f90 +++ /dev/null @@ -1,678 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The merge-sort and quicksort routines are implemented in the -! serial/aux directory -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_lhsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_lhsort - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, n, i, l, err_act,info - integer(psb_lpk_) :: key - integer(psb_lpk_) :: index - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_hsort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - select case(dir_) - case(psb_sort_up_,psb_sort_down_) - ! OK - case (psb_asort_up_,psb_asort_down_) - ! OK - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - n = size(x) - - ! - ! Dirty trick to sort with heaps: if we want - ! to sort in place upwards, first we set up a heap so that - ! we can easily get the LARGEST element, then we take it out - ! and put it in the last entry, and so on. - ! So, we invert dir_ - ! - dir_ = -dir_ - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_ == psb_sort_ovw_idx_) then - do i=1, n - ix(i) = i - end do - end if - l = 0 - do i=1, n - key = x(i) - index = ix(i) - call psi_idx_insert_heap(key,index,l,x,ix,dir_,info) - if (l /= i) then - write(psb_err_unit,*) 'Mismatch while heapifying ! ' - end if - end do - do i=n, 2, -1 - call psi_idx_heap_get_first(key,index,l,x,ix,dir_,info) - if (l /= i-1) then - write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i - end if - x(i) = key - ix(i) = index - end do - else if (.not.present(ix)) then - l = 0 - do i=1, n - key = x(i) - call psi_insert_heap(key,l,x,dir_,info) - if (l /= i) then - write(psb_err_unit,*) 'Mismatch while heapifying ! ',l,i - end if - end do - do i=n, 2, -1 - call psi_l_heap_get_first(key,l,x,dir_,info) - if (l /= i-1) then - write(psb_err_unit,*) 'Mismatch while pulling out of heap ',l,i - end if - x(i) = key - end do - end if - - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_lhsort - - - -! -! These are packaged so that they can be used to implement -! a heapsort, should the need arise -! -! -! Programming note: -! In the implementation of the heap_get_first function -! we have code like this -! -! if ( ( heap(2*i) < heap(2*i+1) ) .or.& -! & (2*i == last)) then -! j = 2*i -! else -! j = 2*i + 1 -! end if -! -! It looks like the 2*i+1 could overflow the array, but this -! is not true because there is a guard statement -! if (i>last/2) exit -! and because last has just been reduced by 1 when defining the return value, -! therefore 2*i+1 may be greater than the current value of last, -! but cannot be greater than the value of last when the routine was entered -! hence it is safe. -! -! -! - -subroutine psi_l_insert_heap(key,last,heap,dir,info) - use psb_sort_mod, psb_protect_name => psi_l_insert_heap - implicit none - - ! - ! Input: - ! key: the new value - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! dir: sorting direction - - integer(psb_lpk_), intent(in) :: key - integer(psb_ipk_), intent(in) :: dir - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_lpk_), intent(inout) :: last - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i, i2 - integer(psb_lpk_) :: temp - - info = psb_success_ - if (last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',last - info = last - return - endif - last = last + 1 - if (last > size(heap)) then - write(psb_err_unit,*) 'out of bounds ' - info = -1 - return - end if - i = last - heap(i) = key - - select case(dir) - case (psb_sort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) < heap(i2)) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_sort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) > heap(i2)) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - case (psb_asort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) < abs(heap(i2))) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_asort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) > abs(heap(i2))) then - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_l_insert_heap - - -subroutine psi_l_heap_get_first(key,last,heap,dir,info) - use psb_sort_mod, psb_protect_name => psi_l_heap_get_first - implicit none - - integer(psb_lpk_), intent(inout) :: key - integer(psb_lpk_), intent(inout) :: last - integer(psb_ipk_), intent(in) :: dir - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: info - - integer(psb_ipk_) :: i, j - integer(psb_lpk_) :: temp - - - info = psb_success_ - if (last <= 0) then - key = 0 - info = -1 - return - endif - - key = heap(1) - heap(1) = heap(last) - last = last - 1 - - select case(dir) - case (psb_sort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) < heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) > heap(j)) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_sort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) > heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) < heap(j)) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case (psb_asort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) < abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) > abs(heap(j))) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_asort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) > abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) < abs(heap(j))) then - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_l_heap_get_first - - -subroutine psi_l_idx_insert_heap(key,index,last,heap,idxs,dir,info) - use psb_sort_mod, psb_protect_name => psi_l_idx_insert_heap - - implicit none - ! - ! Input: - ! key: the new value - ! index: the new index - ! last: pointer to the last occupied element in heap - ! heap: the heap - ! idxs: the indices - ! dir: sorting direction - - integer(psb_lpk_), intent(in) :: key - integer(psb_ipk_), intent(in) :: index,dir - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(inout) :: idxs(:),last - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_) :: i, i2, itemp - integer(psb_lpk_) :: temp - - info = psb_success_ - if (last < 0) then - write(psb_err_unit,*) 'Invalid last in heap ',last - info = last - return - endif - - last = last + 1 - if (last > size(heap)) then - write(psb_err_unit,*) 'out of bounds ' - info = -1 - return - end if - - i = last - heap(i) = key - idxs(i) = index - - select case(dir) - case (psb_sort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) < heap(i2)) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_sort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (heap(i) > heap(i2)) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - case (psb_asort_up_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) < abs(heap(i2))) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case (psb_asort_down_) - - do - if (i<=1) exit - i2 = i/2 - if (abs(heap(i)) > abs(heap(i2))) then - itemp = idxs(i) - idxs(i) = idxs(i2) - idxs(i2) = itemp - temp = heap(i) - heap(i) = heap(i2) - heap(i2) = temp - i = i2 - else - exit - end if - end do - - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_l_idx_insert_heap - -subroutine psi_l_idx_heap_get_first(key,index,last,heap,idxs,dir,info) - use psb_sort_mod, psb_protect_name => psi_l_idx_heap_get_first - implicit none - - integer(psb_lpk_), intent(inout) :: heap(:) - integer(psb_ipk_), intent(out) :: index,info - integer(psb_ipk_), intent(inout) :: last,idxs(:) - integer(psb_ipk_), intent(in) :: dir - integer(psb_lpk_), intent(out) :: key - - integer(psb_ipk_) :: i, j,itemp - integer(psb_lpk_) :: temp - - info = psb_success_ - if (last <= 0) then - key = 0 - index = 0 - info = -1 - return - endif - - key = heap(1) - index = idxs(1) - heap(1) = heap(last) - idxs(1) = idxs(last) - last = last - 1 - - select case(dir) - case (psb_sort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) < heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) > heap(j)) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_sort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (heap(2*i) > heap(2*i+1)) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (heap(i) < heap(j)) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case (psb_asort_up_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) < abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) > abs(heap(j))) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - - case (psb_asort_down_) - - i = 1 - do - if (i > (last/2)) exit - if ( (abs(heap(2*i)) > abs(heap(2*i+1))) .or.& - & (2*i == last)) then - j = 2*i - else - j = 2*i + 1 - end if - - if (abs(heap(i)) < abs(heap(j))) then - itemp = idxs(i) - idxs(i) = idxs(j) - idxs(j) = itemp - temp = heap(i) - heap(i) = heap(j) - heap(j) = temp - i = j - else - exit - end if - end do - - case default - write(psb_err_unit,*) 'Invalid direction in heap ',dir - end select - - return -end subroutine psi_l_idx_heap_get_first - - - - diff --git a/base/serial/sort/psb_l_isort_impl.f90 b/base/serial/sort/psb_l_isort_impl.f90 deleted file mode 100644 index 8d101759..00000000 --- a/base/serial/sort/psb_l_isort_impl.f90 +++ /dev/null @@ -1,341 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The insertion sort routines -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_lisort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_lisort - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, err_act - integer(psb_lpk_) :: n, i - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_lisort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_==psb_sort_ovw_idx_) then - do i=1,n - ix(i) = i - end do - end if - - select case(dir_) - case (psb_sort_up_) - call psi_lisrx_up(n,x,ix) - case (psb_sort_down_) - call psi_lisrx_dw(n,x,ix) - case (psb_asort_up_) - call psi_laisrx_up(n,x,ix) - case (psb_asort_down_) - call psi_laisrx_dw(n,x,ix) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - else - select case(dir_) - case (psb_sort_up_) - call psi_lisr_up(n,x) - case (psb_sort_down_) - call psi_lisr_dw(n,x) - case (psb_asort_up_) - call psi_laisr_up(n,x) - case (psb_asort_down_) - call psi_laisr_dw(n,x) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_lisort - -subroutine psi_lisrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_lisrx_up - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j,ix - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) < x(j)) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (x(i) >= xx) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_lisrx_up - -subroutine psi_lisrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_lisrx_dw - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j,ix - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) > x(j)) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (x(i) <= xx) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_lisrx_dw - - -subroutine psi_lisr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_lisr_up - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) < x(j)) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (x(i) >= xx) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_lisr_up - -subroutine psi_lisr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_lisr_dw - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (x(j+1) > x(j)) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (x(i) <= xx) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_lisr_dw - -subroutine psi_laisrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_laisrx_up - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j,ix - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) < abs(x(j))) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) >= abs(xx)) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_laisrx_up - -subroutine psi_laisrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_laisrx_dw - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j,ix - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) > abs(x(j))) then - xx = x(j) - ix = idx(j) - i=j+1 - do - x(i-1) = x(i) - idx(i-1) = idx(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) <= abs(xx)) exit - end do - x(i-1) = xx - idx(i-1) = ix - endif - enddo -end subroutine psi_laisrx_dw - -subroutine psi_laisr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_laisr_up - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) < abs(x(j))) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) >= abs(xx)) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_laisr_up - -subroutine psi_laisr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_laisr_dw - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_) :: i,j - integer(psb_lpk_) :: xx - - do j=n-1,1,-1 - if (abs(x(j+1)) > abs(x(j))) then - xx = x(j) - i=j+1 - do - x(i-1) = x(i) - i = i+1 - if (i>n) exit - if (abs(x(i)) <= abs(xx)) exit - end do - x(i-1) = xx - endif - enddo -end subroutine psi_laisr_dw - diff --git a/base/serial/sort/psb_l_msort_impl.f90 b/base/serial/sort/psb_l_msort_impl.f90 deleted file mode 100644 index 2508b332..00000000 --- a/base/serial/sort/psb_l_msort_impl.f90 +++ /dev/null @@ -1,713 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! - ! - ! The merge-sort routines - ! References: - ! D. Knuth - ! The Art of Computer Programming, vol. 3 - ! Addison-Wesley - ! - ! Aho, Hopcroft, Ullman - ! Data Structures and Algorithms - ! Addison-Wesley - ! - logical function psb_lisaperm(n,eip) - use psb_sort_mod, psb_protect_name => psb_lisaperm - implicit none - - integer(psb_lpk_), intent(in) :: n - integer(psb_lpk_), intent(in) :: eip(n) - integer(psb_lpk_), allocatable :: ip(:) - integer(psb_lpk_) :: i,j,m, info - - - psb_lisaperm = .true. - if (n <= 0) return - allocate(ip(n), stat=info) - if (info /= psb_success_) return - ! - ! sanity check first - ! - do i=1, n - ip(i) = eip(i) - if ((ip(i) < 1).or.(ip(i) > n)) then - write(psb_err_unit,*) 'Out of bounds in isaperm' ,ip(i), n - psb_lisaperm = .false. - return - endif - enddo - - ! - ! now work through the cycles, by marking each successive item as negative. - ! no cycle should intersect with any other, hence the >= 1 check. - ! - do m = 1, n - i = ip(m) - if (i < 0) then - ip(m) = -i - else if (i /= m) then - j = ip(i) - ip(i) = -j - i = j - do while ((j >= 1).and.(j /= m)) - j = ip(i) - ip(i) = -j - i = j - enddo - ip(m) = abs(ip(m)) - if (j /= m) then - psb_lisaperm = .false. - goto 9999 - endif - end if - enddo -9999 continue - - return - end function psb_lisaperm - - - subroutine psb_lmsort_u(x,nout,dir) - use psb_sort_mod, psb_protect_name => psb_lmsort_u - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(out) :: nout - integer(psb_ipk_), optional, intent(in) :: dir - - integer(psb_lpk_) :: n, k - integer(psb_ipk_) :: err_act - - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_msort_u' - call psb_erractionsave(err_act) - - n = size(x) - - call psb_msort(x,dir=dir) - nout = min(1,n) - do k=2,n - if (x(k) /= x(nout)) then - nout = nout + 1 - x(nout) = x(k) - endif - enddo - - return - -9999 call psb_error_handler(err_act) - - return - end subroutine psb_lmsort_u - - - function psb_lbsrch(key,n,v) result(ipos) - use psb_sort_mod, psb_protect_name => psb_lbsrch - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_lpk_) :: key - integer(psb_lpk_) :: v(:) - - integer(psb_ipk_) :: lb, ub, m, i - - ipos = -1 - if (n<5) then - do i=1,n - if (key.eq.v(i)) then - ipos = i - return - end if - enddo - return - end if - - lb = 1 - ub = n - - do while (lb.le.ub) - m = (lb+ub)/2 - if (key.eq.v(m)) then - ipos = m - lb = ub + 1 - else if (key < v(m)) then - ub = m-1 - else - lb = m + 1 - end if - enddo - return - end function psb_lbsrch - - function psb_lssrch(key,n,v) result(ipos) - use psb_sort_mod, psb_protect_name => psb_lssrch - implicit none - integer(psb_ipk_) :: ipos, n - integer(psb_lpk_) :: key - integer(psb_lpk_) :: v(:) - - integer(psb_ipk_) :: i - - ipos = -1 - do i=1,n - if (key.eq.v(i)) then - ipos = i - return - end if - enddo - - return - end function psb_lssrch - - subroutine psb_lmsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_lmsort - use psb_error_mod - use psb_ip_reord_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, n, err_act - - integer(psb_lpk_), allocatable :: iaux(:) - integer(psb_ipk_) :: iret, info, i - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_lmsort' - call psb_erractionsave(err_act) - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - select case(dir_) - case( psb_sort_up_, psb_sort_down_, psb_asort_up_, psb_asort_down_) - ! OK keep going - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case(psb_sort_ovw_idx_) - do i=1,n - ix(i) = i - end do - case (psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - allocate(iaux(0:n+1),stat=info) - if (info /= psb_success_) then - call psb_errpush(psb_err_alloc_dealloc_,r_name='psb_l_msort') - goto 9999 - endif - - select case(dir_) - case (psb_sort_up_) - call psi_l_msort_up(n,x,iaux,iret) - case (psb_sort_down_) - call psi_l_msort_dw(n,x,iaux,iret) - case (psb_asort_up_) - call psi_l_amsort_up(n,x,iaux,iret) - case (psb_asort_down_) - call psi_l_amsort_dw(n,x,iaux,iret) - end select - ! - ! Do the actual reordering, since the inner routines - ! only provide linked pointers. - ! - if (iret == 0 ) then - if (present(ix)) then - call psb_ip_reord(n,x,ix,iaux) - else - call psb_ip_reord(n,x,iaux) - end if - end if - - - return - -9999 call psb_error_handler(err_act) - - return - - - end subroutine psb_lmsort - - subroutine psi_l_msort_up(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - ! - integer(psb_lpk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (k(p) <= k(p+1)) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (k(p) > k(q)) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (k(p) <= k(q)) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (k(p) > k(q)) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_l_msort_up - - subroutine psi_l_msort_dw(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - ! - integer(psb_lpk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (k(p) >= k(p+1)) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (k(p) < k(q)) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (k(p) >= k(q)) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (k(p) < k(q)) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_l_msort_dw - - subroutine psi_l_amsort_up(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - ! - integer(psb_lpk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (abs(k(p)) <= abs(k(p+1))) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (abs(k(p)) > abs(k(q))) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (abs(k(p)) <= abs(k(q))) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (abs(k(p)) > abs(k(q))) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_l_amsort_up - - subroutine psi_l_amsort_dw(n,k,l,iret) - use psb_const_mod - implicit none - integer(psb_ipk_) :: n, iret - integer(psb_lpk_) :: k(n) - integer(psb_lpk_) :: l(0:n+1) - ! - integer(psb_lpk_) :: p,q,s,t - ! .. - iret = 0 - ! first step: we are preparing ordered sublists, exploiting - ! what order was already in the input data; negative links - ! mark the end of the sublists - l(0) = 1 - t = n + 1 - do p = 1,n - 1 - if (abs(k(p)) >= abs(k(p+1))) then - l(p) = p + 1 - else - l(t) = - (p+1) - t = p - end if - end do - l(t) = 0 - l(n) = 0 - ! see if the input was already sorted - if (l(n+1) == 0) then - iret = 1 - return - else - l(n+1) = abs(l(n+1)) - end if - - mergepass: do - ! otherwise, begin a pass through the list. - ! throughout all the subroutine we have: - ! p, q: pointing to the sublists being merged - ! s: pointing to the most recently processed record - ! t: pointing to the end of previously completed sublist - s = 0 - t = n + 1 - p = l(s) - q = l(t) - if (q == 0) exit mergepass - - outer: do - - if (abs(k(p)) < abs(k(q))) then - - l(s) = sign(q,l(s)) - s = q - q = l(q) - if (q > 0) then - do - if (abs(k(p)) >= abs(k(q))) cycle outer - s = q - q = l(q) - if (q <= 0) exit - end do - end if - l(s) = p - s = t - do - t = p - p = l(p) - if (p <= 0) exit - end do - - else - - l(s) = sign(p,l(s)) - s = p - p = l(p) - if (p>0) then - do - if (abs(k(p)) < abs(k(q))) cycle outer - s = p - p = l(p) - if (p <= 0) exit - end do - end if - ! otherwise, one sublist ended, and we append to it the rest - ! of the other one. - l(s) = q - s = t - do - t = q - q = l(q) - if (q <= 0) exit - end do - end if - - p = -p - q = -q - if (q == 0) then - l(s) = sign(p,l(s)) - l(t) = 0 - exit outer - end if - end do outer - end do mergepass - - end subroutine psi_l_amsort_dw - - - - - - - - diff --git a/base/serial/sort/psb_l_qsort_impl.f90 b/base/serial/sort/psb_l_qsort_impl.f90 deleted file mode 100644 index f02428e2..00000000 --- a/base/serial/sort/psb_l_qsort_impl.f90 +++ /dev/null @@ -1,1318 +0,0 @@ -! -! Parallel Sparse BLAS version 3.5 -! (C) Copyright 2006-2018 -! Salvatore Filippone -! Alfredo Buttari -! -! Redistribution and use in source and binary forms, with or without -! modification, are permitted provided that the following conditions -! are met: -! 1. Redistributions of source code must retain the above copyright -! notice, this list of conditions and the following disclaimer. -! 2. Redistributions in binary form must reproduce the above copyright -! notice, this list of conditions, and the following disclaimer in the -! documentation and/or other materials provided with the distribution. -! 3. The name of the PSBLAS group or the names of its contributors may -! not be used to endorse or promote products derived from this -! software without specific written permission. -! -! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS -! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED -! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR -! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS -! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF -! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS -! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN -! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) -! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -! POSSIBILITY OF SUCH DAMAGE. -! -! -! -! The quicksort routines -! References: -! D. Knuth -! The Art of Computer Programming, vol. 3 -! Addison-Wesley -! -! Aho, Hopcroft, Ullman -! Data Structures and Algorithms -! Addison-Wesley -! -subroutine psb_lqsort(x,ix,dir,flag) - use psb_sort_mod, psb_protect_name => psb_lqsort - use psb_error_mod - implicit none - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_ipk_), optional, intent(in) :: dir, flag - integer(psb_lpk_), optional, intent(inout) :: ix(:) - - integer(psb_ipk_) :: dir_, flag_, err_act, i - integer(psb_lpk_) :: n - integer(psb_ipk_) :: ierr(5) - character(len=20) :: name - - name='psb_lqsort' - call psb_erractionsave(err_act) - - if (present(flag)) then - flag_ = flag - else - flag_ = psb_sort_ovw_idx_ - end if - select case(flag_) - case( psb_sort_ovw_idx_, psb_sort_keep_idx_) - ! OK keep going - case default - ierr(1) = 4; ierr(2) = flag_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - if (present(dir)) then - dir_ = dir - else - dir_= psb_sort_up_ - end if - - n = size(x) - - if (present(ix)) then - if (size(ix) < n) then - ierr(1) = 2; ierr(2) = size(ix); - call psb_errpush(psb_err_input_asize_invalid_i_,name,i_err=ierr) - goto 9999 - end if - if (flag_==psb_sort_ovw_idx_) then - do i=1,n - ix(i) = i - end do - end if - - select case(dir_) - case (psb_sort_up_) - call psi_lqsrx_up(n,x,ix) - case (psb_sort_down_) - call psi_lqsrx_dw(n,x,ix) - case (psb_asort_up_) - call psi_laqsrx_up(n,x,ix) - case (psb_asort_down_) - call psi_laqsrx_dw(n,x,ix) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - else - select case(dir_) - case (psb_sort_up_) - call psi_lqsr_up(n,x) - case (psb_sort_down_) - call psi_lqsr_dw(n,x) - case (psb_asort_up_) - call psi_laqsr_up(n,x) - case (psb_asort_down_) - call psi_laqsr_dw(n,x) - case default - ierr(1) = 3; ierr(2) = dir_; - call psb_errpush(psb_err_input_value_invalid_i_,name,i_err=ierr) - goto 9999 - end select - - end if - - return - -9999 call psb_error_handler(err_act) - - return -end subroutine psb_lqsort - -subroutine psi_lqsrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_lqsrx_up - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk, xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv < x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv > x(j)) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv < x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = x(i) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_up2:do - j = j - 1 - xk = x(j) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_lqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisrx_up(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisrx_up(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_lisrx_up(n,x,idx) - endif -end subroutine psi_lqsrx_up - -subroutine psi_lqsrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_lqsrx_dw - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk, xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv > x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv < x(j)) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - if (piv > x(i)) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = x(lpiv) - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = x(i) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_dw2:do - j = j - 1 - xk = x(j) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_lqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_lisrx_dw(n,x,idx) - endif - -end subroutine psi_lqsrx_dw - -subroutine psi_lqsr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_lqsr_up - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - ! .. - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xt, xk - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv < x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv > x(j)) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv < x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = x(i) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_up2:do - j = j - 1 - xk = x(j) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_lqsr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisr_up(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisr_up(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisr_up(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisr_up(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_lisr_up(n,x) - endif - -end subroutine psi_lqsr_up - -subroutine psi_lqsr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_lqsr_dw - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - ! .. - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xt, xk - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = x(lpiv) - if (piv > x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv < x(j)) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - if (piv > x(i)) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = x(lpiv) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = x(i) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = xk - x(i) = piv - in_dw2:do - j = j - 1 - xk = x(j) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_lqsr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisr_dw(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisr_dw(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_lisr_dw(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_lisr_dw(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_lisr_dw(n,x) - endif - -end subroutine psi_lqsr_dw - -subroutine psi_laqsrx_up(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_laqsrx_up - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk - integer(psb_lpk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv < abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(j))) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = abs(x(i)) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_up2:do - j = j - 1 - xk = abs(x(j)) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_laqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisrx_up(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisrx_up(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisrx_up(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_laisrx_up(n,x,idx) - endif - - -end subroutine psi_laqsrx_up - -subroutine psi_laqsrx_dw(n,x,idx) - use psb_sort_mod, psb_protect_name => psi_laqsrx_dw - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(inout) :: idx(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk - integer(psb_lpk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv > abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(j))) then - xt = x(j) - ixt = idx(j) - x(j) = x(lpiv) - idx(j) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(i))) then - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - xt = x(i) - ixt = idx(i) - x(i) = x(lpiv) - idx(i) = idx(lpiv) - x(lpiv) = xt - idx(lpiv) = ixt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = abs(x(i)) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_dw2:do - j = j - 1 - xk = abs(x(j)) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - ixt = idx(i) - x(i) = x(j) - idx(i) = idx(j) - x(j) = xt - idx(j) = ixt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_laqsrx',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisrx_dw(n2,x(i:iux),idx(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisrx_dw(n1,x(ilx:i-1),idx(ilx:i-1)) - endif - endif - enddo - else - call psi_laisrx_dw(n,x,idx) - endif - -end subroutine psi_laqsrx_dw - -subroutine psi_laqsr_up(n,x) - use psb_sort_mod, psb_protect_name => psi_laqsr_up - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk - integer(psb_lpk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv < abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(j))) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_up: do - in_up1: do - i = i + 1 - xk = abs(x(i)) - if (xk >= piv) exit in_up1 - end do in_up1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_up2:do - j = j - 1 - xk = abs(x(j)) - if (xk <= piv) exit in_up2 - end do in_up2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_up - end if - end do outer_up - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_, & - & r_name='psi_lqasr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisr_up(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisr_up(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisr_up(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisr_up(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_laisr_up(n,x) - endif - -end subroutine psi_laqsr_up - -subroutine psi_laqsr_dw(n,x) - use psb_sort_mod, psb_protect_name => psi_laqsr_dw - use psb_error_mod - implicit none - - integer(psb_lpk_), intent(inout) :: x(:) - integer(psb_lpk_), intent(in) :: n - ! .. Local Scalars .. - integer(psb_lpk_) :: piv, xk - integer(psb_lpk_) :: xt - integer(psb_ipk_) :: i, j, ilx, iux, istp, lpiv - integer(psb_lpk_) :: n1, n2 - integer(psb_lpk_) :: ixt - - integer(psb_ipk_), parameter :: maxstack=64,nparms=3,ithrs=72 - integer(psb_ipk_) :: istack(nparms,maxstack) - - if (n > ithrs) then - ! - ! Init stack pointer - ! - istp = 1 - istack(1,istp) = 1 - istack(2,istp) = n - - do - if (istp <= 0) exit - ilx = istack(1,istp) - iux = istack(2,istp) - istp = istp - 1 - ! - ! Choose a pivot with median-of-three heuristics, leave it - ! in the LPIV location - ! - i = ilx - j = iux - lpiv = (i+j)/2 - piv = abs(x(lpiv)) - if (piv > abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv < abs(x(j))) then - xt = x(j) - x(j) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - if (piv > abs(x(i))) then - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - piv = abs(x(lpiv)) - endif - ! - ! now piv is correct; place it into first location - - xt = x(i) - x(i) = x(lpiv) - x(lpiv) = xt - - i = ilx - 1 - j = iux + 1 - - outer_dw: do - in_dw1: do - i = i + 1 - xk = abs(x(i)) - if (xk <= piv) exit in_dw1 - end do in_dw1 - ! - ! Ensure finite termination for next loop - ! - xt = x(i) - x(i) = piv - in_dw2:do - j = j - 1 - xk = abs(x(j)) - if (xk >= piv) exit in_dw2 - end do in_dw2 - x(i) = xt - - if (j > i) then - xt = x(i) - x(i) = x(j) - x(j) = xt - else - exit outer_dw - end if - end do outer_dw - if (i == ilx) then - if (x(i) /= piv) then - call psb_errpush(psb_err_internal_error_,& - & r_name='psi_lqasr',a_err='impossible pivot condition') - call psb_error() - endif - i = i + 1 - endif - - n1 = (i-1)-ilx+1 - n2 = iux-(i)+1 - if (n1 > n2) then - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisr_dw(n1,x(ilx:i-1)) - endif - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisr_dw(n2,x(i:iux)) - endif - else - if (n2 > ithrs) then - istp = istp + 1 - istack(1,istp) = i - istack(2,istp) = iux - else - call psi_laisr_dw(n2,x(i:iux)) - endif - if (n1 > ithrs) then - istp = istp + 1 - istack(1,istp) = ilx - istack(2,istp) = i-1 - else - call psi_laisr_dw(n1,x(ilx:i-1)) - endif - endif - enddo - else - call psi_laisr_dw(n,x) - endif - -end subroutine psi_laqsr_dw - - diff --git a/base/tools/Makefile b/base/tools/Makefile index 2c160616..771e85fc 100644 --- a/base/tools/Makefile +++ b/base/tools/Makefile @@ -30,14 +30,19 @@ FOBJS = psb_cdall.o psb_cdals.o psb_cdalv.o psb_cd_inloc.o psb_cdins.o psb_cdprt psb_cgetelem.o psb_dgetelem.o psb_sgetelem.o psb_zgetelem.o MPFOBJS = psb_icdasb.o psb_ssphalo.o psb_dsphalo.o psb_csphalo.o psb_zsphalo.o \ - psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o + psb_dcdbldext.o psb_zcdbldext.o psb_scdbldext.o psb_ccdbldext.o \ + psb_s_remote_mat.o psb_d_remote_mat.o psb_c_remote_mat.o psb_z_remote_mat.o \ + psb_s_remote_vect.o psb_d_remote_vect.o psb_c_remote_vect.o psb_z_remote_vect.o \ + psb_e_remote_vect.o psb_m_remote_vect.o LIBDIR=.. INCDIR=.. MODDIR=../modules FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) $(FMFLAG)$(INCDIR) $(FIFLAG)$(MODDIR) -lib: mpfobjs $(FOBJS) +objs: mpfobjs $(FOBJS) + +lib: objs $(AR) $(LIBDIR)/$(LIBNAME) $(MPFOBJS) $(FOBJS) $(RANLIB) $(LIBDIR)/$(LIBNAME) diff --git a/base/tools/psb_c_remote_mat.F90 b/base/tools/psb_c_remote_mat.F90 new file mode 100644 index 00000000..ae2eaaf2 --- /dev/null +++ b/base/tools/psb_c_remote_mat.F90 @@ -0,0 +1,276 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_c_remote_mat.f90 +! +! Subroutine: +! This routine does the retrieval of remote matrix rows. +! Retrieval is done through GETROW, therefore it should work +! for any matrix format in A; as for the output, default is CSR. +! +! There is also a specialized version lc_CSR whose interface +! is adapted for the needs of c_par_csr_spspmm. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! a - type(psb_cspmat_type) The local part of input matrix A +! desc_a - type(psb_desc_type). The communication descriptor. +! blck - type(psb_cspmat_type) The local part of output matrix BLCK +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +Subroutine psb_lc_remote_mat(a,desc_a,b,info) + use psb_base_mod, psb_protect_name => psb_lc_remote_mat + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + + Type(psb_lc_coo_sparse_mat),Intent(inout) :: a + Type(psb_lc_coo_sparse_mat),Intent(inout) :: b + Type(psb_desc_type), Intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, & + & n_elem, j, ipx,idxs,idxr + integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, & + & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem + integer(psb_lpk_) :: nz,nouth + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: iasnd(:), jasnd(:) + complex(psb_spk_), allocatable :: valsnd(:) + type(psb_lc_coo_sparse_mat), allocatable :: acoo + class(psb_i_base_vect_type), pointer :: pdxv + integer(psb_ipk_), allocatable :: ila(:), iprc(:) + logical :: rowcnv_,colcnv_,rowscale_,colscale_ + character(len=5) :: outfmt_ + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_c_remote_mat' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + + call b%free() + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), acoo,stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + + nz = a%get_nzeros() + !allocate(ila(nz)) + !write(0,*) me,name,' size :',nz,size(ila) + !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.) + !nouth = count(ila(1:nz)<0) + !write(0,*) me,name,' Count out of halo :',nouth + !call psb_max(ctxt,nouth) + !if ((nouth/=0).and.(me==0)) & + ! & write(0,*) 'Warning: would require reinit of DESC_A' + + call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:)=0 + rvsz(:)=0 + sdsi(:)=0 + rvsi(:)=0 + ipx = 1 + brvindx(:) = 0 + bsdindx(:) = 0 + counter=1 + idx = 0 + idxs = 0 + idxr = 0 + do i=1,nz + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr) + if (psb_errstatus_fatal()) then + write(0,*) 'Error from acoo%allocate ' + info = 4010 + goto 9999 + end if + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),& + & ' Send:',sdsz(:),' Receive:',rvsz(:) + !write(debug_unit,*) me,' ',trim(name),': ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info) + !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) + !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) + !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='ensure_size') + goto 9999 + end if + do k=1, nz + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + !rvsi(proc) = rvsi(proc) + 1 + iasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ia(k) + jasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ja(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_) + call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & acoo%val,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,& + & acoo%ia,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& + & acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_spk_,& + & acoo%val,rvsz,brvindx,psb_mpi_c_spk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + call acoo%set_nzeros(iszr) + call acoo%mv_to_coo(b,info) + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & iasnd,jasnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_lc_remote_mat diff --git a/base/tools/psb_c_remote_vect.F90 b/base/tools/psb_c_remote_vect.F90 new file mode 100644 index 00000000..bd5286fa --- /dev/null +++ b/base/tools/psb_c_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_c_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_c_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_c_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + complex(psb_spk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + complex(psb_spk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + complex(psb_spk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_c_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_spk_,& + & x,rvsz,brvindx,psb_mpi_c_spk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_c_remote_vect diff --git a/base/tools/psb_callc.f90 b/base/tools/psb_callc.f90 index 530a43a2..272ece8b 100644 --- a/base/tools/psb_callc.f90 +++ b/base/tools/psb_callc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_calloc_vect(x, desc_a,info) +subroutine psb_calloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_calloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_calloc_vect(x, desc_a,info) type(psb_c_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_calloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_calloc_vect(x, desc_a,info) return end subroutine psb_calloc_vect + ! Function: psb_calloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_calloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_calloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_calloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_calloc_vect_r2 -subroutine psb_calloc_multivect(x, desc_a,info,n) +subroutine psb_calloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_calloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_calloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_calloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_casb.f90 b/base/tools/psb_casb.f90 index de2e3890..83e2715b 100644 --- a/base/tools/psb_casb.f90 +++ b/base/tools/psb_casb.f90 @@ -64,7 +64,7 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_casb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + complex(psb_spk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_casb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_casb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_casb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_cd_inloc.f90 b/base/tools/psb_cd_inloc.f90 index b12e845f..e8b9578e 100644 --- a/base/tools/psb_cd_inloc.f90 +++ b/base/tools/psb_cd_inloc.f90 @@ -93,7 +93,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) nrt = loc_row call psb_sum(ctxt,nrt) call psb_max(ctxt,m) - + if (present(globalcheck)) then check_ = globalcheck else @@ -167,7 +167,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) if (check_.or.(.not.islarge)) then if (debug_size) & & write(debug_unit,*) me,' ',trim(name),': Going for global checks' - + allocate(tmpgidx(m,2),stat=info) if (info /= psb_success_) then info=psb_err_alloc_dealloc_ @@ -210,7 +210,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) info = psb_err_inconsistent_index_lists_ end if end if - + else novrl = 0 norphan = 0 @@ -244,36 +244,40 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) call psb_errpush(info,name,l_err=l_err) goto 9999 end if - - ! Sort, eliminate duplicates, then - ! scramble back into original position. - ix(1) = -1 - if (present(idx)) then - if (size(idx) >= loc_row) then + if (check_) then + ! Sort, eliminate duplicates, then + ! scramble back into original position. + ix(1) = -1 + if (present(idx)) then + if (size(idx) >= loc_row) then + !$omp parallel do private(i) + do i=1, loc_row + ix(i) = idx(i) + end do + end if + end if + if (ix(1) == -1) then + !$omp parallel do private(i) do i=1, loc_row - ix(i) = idx(i) + ix(i) = i end do end if - end if - if (ix(1) == -1) then - do i=1, loc_row - ix(i) = i + call psb_msort(vl,ix,flag=psb_sort_keep_idx_) + nlu = min(1,loc_row) + do i=2,loc_row + if (vl(i) /= vl(nlu)) then + nlu = nlu + 1 + vl(nlu) = vl(i) + ix(nlu) = ix(i) + end if end do - end if - call psb_msort(vl,ix,flag=psb_sort_keep_idx_) - nlu = min(1,loc_row) - do i=2,loc_row - if (vl(i) /= vl(nlu)) then - nlu = nlu + 1 - vl(nlu) = vl(i) - ix(nlu) = ix(i) - end if - end do - call psb_msort(ix(1:nlu),vl(1:nlu),flag=psb_sort_keep_idx_) - - if (debug_size) & - & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu + call psb_msort(ix(1:nlu),vl(1:nlu),flag=psb_sort_keep_idx_) + if (debug_size) & + & write(debug_unit,*) me,' ',trim(name),': After sort ',nlu + else + nlu = loc_row + end if call psb_nullify_desc(desc) if (do_timings) then call psb_barrier(ctxt) @@ -289,7 +293,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) if (novrl > 0) then if (debug_size) & & write(debug_unit,*) me,' ',trim(name),': Check overlap ' - + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': code for NOVRL>0',novrl,npr_ov @@ -335,7 +339,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) end if if (debug_size) & & write(debug_unit,*) me,' ',trim(name),': Done overlap ' - + ! allocate work vector allocate(l_temp_ovrlap(max(1,2*loc_row)),desc%lprm(1),& @@ -393,7 +397,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) end if if (debug_size) & & write(debug_unit,*) me,' ',trim(name),': Allocate indxmap' - + if (np == 1) then allocate(psb_repl_map :: desc%indxmap, stat=info) else @@ -414,7 +418,7 @@ subroutine psb_cd_inloc(v, ctxt, desc, info, globalcheck,idx,usehash) if (debug_size) & & write(debug_unit,*) me,' ',trim(name),': Done init indxmap' - + if (do_timings) then call psb_barrier(ctxt) t4 = psb_wtime() diff --git a/base/tools/psb_cdall.f90 b/base/tools/psb_cdall.f90 index bf5f4d52..e9ffdaf8 100644 --- a/base/tools/psb_cdall.f90 +++ b/base/tools/psb_cdall.f90 @@ -1,3 +1,39 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_cdall.f90 +! +! Subroutine: psb_cdall +! Allocate descriptor Outer routine +! subroutine psb_cdall(ctxt, desc, info,mg,ng,parts,& & vg,vl,flag,nl,repl,globalcheck,lidx,usehash) use psb_desc_mod @@ -62,14 +98,15 @@ subroutine psb_cdall(ctxt, desc, info,mg,ng,parts,& logical :: usehash_ integer(psb_ipk_), allocatable :: itmpv(:) integer(psb_lpk_), allocatable :: lvl(:) - + logical, parameter :: timings=.false. + real(psb_dpk_) :: t0, t1 if (psb_get_errstatus() /= 0) return info=psb_success_ name = 'psb_cdall' call psb_erractionsave(err_act) - + if (timings) t0 = psb_wtime() call psb_info(ctxt, me, np) if (count((/ present(vg),present(vl),& & present(parts),present(nl), present(repl) /)) < 1) then @@ -189,7 +226,11 @@ subroutine psb_cdall(ctxt, desc, info,mg,ng,parts,& endif if (info /= psb_success_) goto 9999 - + if (timings) then + t1 = psb_wtime() + write(0,*) name,' 1st phase:',t1-t0 + t0 = psb_wtime() + end if ! Finish off lr = desc%indxmap%get_lr() call psb_realloc(max(1,lr/2),desc%halo_index, info) @@ -203,6 +244,11 @@ subroutine psb_cdall(ctxt, desc, info,mg,ng,parts,& desc%ext_index(:) = -1 call psb_cd_set_bld(desc,info) if (info /= psb_success_) goto 9999 + if (timings) then + t1 = psb_wtime() + write(0,*) name,' 2nd phase:',t1-t0 + t0 = psb_wtime() + end if 9998 continue call psb_erractionrestore(err_act) diff --git a/base/tools/psb_cdalv.f90 b/base/tools/psb_cdalv.f90 index 28d2ecc3..fcc10c79 100644 --- a/base/tools/psb_cdalv.f90 +++ b/base/tools/psb_cdalv.f90 @@ -151,6 +151,7 @@ subroutine psb_cdalv(v, ctxt, desc, info, flag) itmpov = 0 temp_ovrlap(:) = -1 + !$omp parallel do private(i) reduction(+:counter) do i=1,m if (((v(i)-flag_) > np-1).or.((v(i)-flag_) < 0)) then @@ -158,7 +159,7 @@ subroutine psb_cdalv(v, ctxt, desc, info, flag) l_err(1)=3 l_err(2)=v(i) - flag_ l_err(3)=i - exit + !exit end if if ((v(i)-flag_) == me) then diff --git a/base/tools/psb_cins.f90 b/base/tools/psb_cins.f90 index e874c315..180520a3 100644 --- a/base/tools/psb_cins.f90 +++ b/base/tools/psb_cins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_c_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_cins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_cins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_cins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_cins_vect ! x - type(psb_c_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_cins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_c_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) complex(psb_spk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_cins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_cins_vect_v -subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_cins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_c_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_cins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_cins_vect_r2 -subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_cins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_c_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_cins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_cspalloc.f90 b/base/tools/psb_cspalloc.f90 index 69b9e1c2..7bec040c 100644 --- a/base/tools/psb_cspalloc.f90 +++ b/base/tools/psb_cspalloc.f90 @@ -41,21 +41,23 @@ ! nnz - integer(optional). The number of nonzeroes in the matrix. ! (local, user estimate) ! -subroutine psb_cspalloc(a, desc_a, info, nnz) +subroutine psb_cspalloc(a, desc_a, info, nnz, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_cspalloc implicit none !....parameters... - type(psb_desc_type), intent(in) :: desc_a - type(psb_cspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_cspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype - integer(psb_lpk_) :: m, n + integer(psb_ipk_) :: dupl_, bldmode_ + integer(psb_lpk_) :: m, n, nnzrmt_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -96,7 +98,7 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) else nnz_ = max(1,5*loc_row) endif - + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name), & & ':allocating size:',loc_row,loc_col,nnz_ @@ -109,6 +111,24 @@ subroutine psb_cspalloc(a, desc_a, info, nnz) goto 9999 end if + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call a%set_dupl(dupl_) + call a%set_remote_build(bldmode_) + if (a%is_remote_build()) then + allocate(a%rmta) + nnzrmt_ = max(100,(nnz_/100)) + call a%rmta%allocate(m,n,nnzrmt_) + end if + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': ', & & desc_a%get_dectype(),psb_desc_bld_ diff --git a/base/tools/psb_cspasb.f90 b/base/tools/psb_cspasb.f90 index 96ed7fe7..0c5f14ab 100644 --- a/base/tools/psb_cspasb.f90 +++ b/base/tools/psb_cspasb.f90 @@ -42,31 +42,29 @@ ! upd - character(optional). How will the matrix be updated? ! psb_upd_srch_ Simple strategy ! psb_upd_perm_ Permutation(more memory) -! dupl - integer(optional). Duplicate coefficient handling: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -! psb_dupl_err_ raise an error. ! ! -subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold) +subroutine psb_cspasb(a,desc_a, info, afmt, upd, mold) use psb_base_mod, psb_protect_name => psb_cspasb + use psb_sort_mod use psi_mod implicit none !...Parameters.... - type(psb_cspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd - character(len=*), optional, intent(in) :: afmt + type(psb_cspmat_type), intent (inout) :: a + type(psb_desc_type), intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: upd + character(len=*), optional, intent(in) :: afmt class(psb_c_base_sparse_mat), intent(in), optional :: mold !....Locals.... type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, err_act - integer(psb_ipk_) :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col, dupl_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err + class(psb_i_base_vect_type), allocatable :: ivm info = psb_success_ name = 'psb_spasb' @@ -92,28 +90,79 @@ subroutine psb_cspasb(a,desc_a, info, afmt, upd, dupl, mold) goto 9999 end if - if (debug_level >= psb_debug_ext_)& & write(debug_unit, *) me,' ',trim(name),& & ' Begin matrix assembly...' !check on errors encountered in psdspins - - if (a%is_bld()) then + if (a%is_bld()) then + dupl_ = a%get_dupl() ! ! First case: we come from a fresh build. ! - - n_row = desc_a%get_local_rows() - n_col = desc_a%get_local_cols() - call a%set_nrows(n_row) - call a%set_ncols(n_col) - end if - - if (a%is_bld()) then - call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_lc_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() + nzt = nz + call psb_sum(ctxt,nzt) + if (nzt>0) then + allocate(ivm, mold=desc_a%v_halo_index%v) + call psb_cd_reinit(desc_a, info) + end if + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm) + + end block + end if + call a%set_ncols(desc_a%get_local_cols()) + call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_) else if (a%is_upd()) then + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_lc_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() +!!$ write(0,*) me,name,' Nz to be added',nz + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + end block + end if call a%asb(mold=mold) else info = psb_err_invalid_mat_state_ diff --git a/base/tools/psb_cspins.F90 b/base/tools/psb_cspins.F90 index 15ea556f..27cfbd8e 100644 --- a/base/tools/psb_cspins.F90 +++ b/base/tools/psb_cspins.F90 @@ -70,6 +70,10 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_, local_ integer(psb_ipk_), allocatable :: ila(:),jla(:) + integer(psb_ipk_) :: i,k + integer(psb_lpk_) :: nnl + integer(psb_lpk_), allocatable :: lila(:),ljla(:) + complex(psb_spk_), allocatable :: lval(:) character(len=20) :: name info = psb_success_ @@ -147,6 +151,27 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(i) + ljla(k) = ja(i) + lval(k) = val(i) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if + else info = psb_err_invalid_a_and_cd_state_ call psb_errpush(info,name) @@ -168,8 +193,9 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) ila(1:nz) = ia(1:nz) jla(1:nz) = ja(1:nz) else - call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info) - if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info) + call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,& + & mask=(ila(1:nz)>0)) end if call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info) if (info /= psb_success_) then @@ -177,6 +203,25 @@ subroutine psb_cspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(k) + ljla(k) = ja(k) + lval(k) = val(k) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if else info = psb_err_invalid_cd_state_ call psb_errpush(info,name) diff --git a/base/tools/psb_d_remote_mat.F90 b/base/tools/psb_d_remote_mat.F90 new file mode 100644 index 00000000..35116dc5 --- /dev/null +++ b/base/tools/psb_d_remote_mat.F90 @@ -0,0 +1,276 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_d_remote_mat.f90 +! +! Subroutine: +! This routine does the retrieval of remote matrix rows. +! Retrieval is done through GETROW, therefore it should work +! for any matrix format in A; as for the output, default is CSR. +! +! There is also a specialized version ld_CSR whose interface +! is adapted for the needs of d_par_csr_spspmm. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! a - type(psb_dspmat_type) The local part of input matrix A +! desc_a - type(psb_desc_type). The communication descriptor. +! blck - type(psb_dspmat_type) The local part of output matrix BLCK +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +Subroutine psb_ld_remote_mat(a,desc_a,b,info) + use psb_base_mod, psb_protect_name => psb_ld_remote_mat + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + + Type(psb_ld_coo_sparse_mat),Intent(inout) :: a + Type(psb_ld_coo_sparse_mat),Intent(inout) :: b + Type(psb_desc_type), Intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, & + & n_elem, j, ipx,idxs,idxr + integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, & + & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem + integer(psb_lpk_) :: nz,nouth + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: iasnd(:), jasnd(:) + real(psb_dpk_), allocatable :: valsnd(:) + type(psb_ld_coo_sparse_mat), allocatable :: acoo + class(psb_i_base_vect_type), pointer :: pdxv + integer(psb_ipk_), allocatable :: ila(:), iprc(:) + logical :: rowcnv_,colcnv_,rowscale_,colscale_ + character(len=5) :: outfmt_ + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_d_remote_mat' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + + call b%free() + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), acoo,stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + + nz = a%get_nzeros() + !allocate(ila(nz)) + !write(0,*) me,name,' size :',nz,size(ila) + !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.) + !nouth = count(ila(1:nz)<0) + !write(0,*) me,name,' Count out of halo :',nouth + !call psb_max(ctxt,nouth) + !if ((nouth/=0).and.(me==0)) & + ! & write(0,*) 'Warning: would require reinit of DESC_A' + + call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:)=0 + rvsz(:)=0 + sdsi(:)=0 + rvsi(:)=0 + ipx = 1 + brvindx(:) = 0 + bsdindx(:) = 0 + counter=1 + idx = 0 + idxs = 0 + idxr = 0 + do i=1,nz + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr) + if (psb_errstatus_fatal()) then + write(0,*) 'Error from acoo%allocate ' + info = 4010 + goto 9999 + end if + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),& + & ' Send:',sdsz(:),' Receive:',rvsz(:) + !write(debug_unit,*) me,' ',trim(name),': ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info) + !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) + !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) + !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='ensure_size') + goto 9999 + end if + do k=1, nz + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + !rvsi(proc) = rvsi(proc) + 1 + iasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ia(k) + jasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ja(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_) + call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & acoo%val,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,& + & acoo%ia,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& + & acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_dpk_,& + & acoo%val,rvsz,brvindx,psb_mpi_r_dpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + call acoo%set_nzeros(iszr) + call acoo%mv_to_coo(b,info) + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & iasnd,jasnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_ld_remote_mat diff --git a/base/tools/psb_d_remote_vect.F90 b/base/tools/psb_d_remote_vect.F90 new file mode 100644 index 00000000..4a409fa5 --- /dev/null +++ b/base/tools/psb_d_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_d_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_d_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_d_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + real(psb_dpk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + real(psb_dpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + real(psb_dpk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_d_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_dpk_,& + & x,rvsz,brvindx,psb_mpi_r_dpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_d_remote_vect diff --git a/base/tools/psb_dallc.f90 b/base/tools/psb_dallc.f90 index 7989929b..108e2000 100644 --- a/base/tools/psb_dallc.f90 +++ b/base/tools/psb_dallc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_dalloc_vect(x, desc_a,info) +subroutine psb_dalloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_dalloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_dalloc_vect(x, desc_a,info) type(psb_d_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_dalloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_dalloc_vect(x, desc_a,info) return end subroutine psb_dalloc_vect + ! Function: psb_dalloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_dalloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_dalloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_dalloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_dalloc_vect_r2 -subroutine psb_dalloc_multivect(x, desc_a,info,n) +subroutine psb_dalloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_dalloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_dalloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_dalloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_dasb.f90 b/base/tools/psb_dasb.f90 index 5ebee093..19a19ff1 100644 --- a/base/tools/psb_dasb.f90 +++ b/base/tools/psb_dasb.f90 @@ -64,7 +64,7 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_dasb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + real(psb_dpk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_dasb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_dasb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_dasb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_dins.f90 b/base/tools/psb_dins.f90 index 3e873ded..d3529229 100644 --- a/base/tools/psb_dins.f90 +++ b/base/tools/psb_dins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_d_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_dins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_dins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_dins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_dins_vect ! x - type(psb_d_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_dins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_d_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) real(psb_dpk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_dins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_dins_vect_v -subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_dins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_d_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_dins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_dins_vect_r2 -subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_dins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_d_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_dins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_dspalloc.f90 b/base/tools/psb_dspalloc.f90 index 56ad6c93..433d7129 100644 --- a/base/tools/psb_dspalloc.f90 +++ b/base/tools/psb_dspalloc.f90 @@ -41,21 +41,23 @@ ! nnz - integer(optional). The number of nonzeroes in the matrix. ! (local, user estimate) ! -subroutine psb_dspalloc(a, desc_a, info, nnz) +subroutine psb_dspalloc(a, desc_a, info, nnz, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_dspalloc implicit none !....parameters... - type(psb_desc_type), intent(in) :: desc_a - type(psb_dspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_dspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype - integer(psb_lpk_) :: m, n + integer(psb_ipk_) :: dupl_, bldmode_ + integer(psb_lpk_) :: m, n, nnzrmt_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -96,7 +98,7 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) else nnz_ = max(1,5*loc_row) endif - + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name), & & ':allocating size:',loc_row,loc_col,nnz_ @@ -109,6 +111,24 @@ subroutine psb_dspalloc(a, desc_a, info, nnz) goto 9999 end if + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call a%set_dupl(dupl_) + call a%set_remote_build(bldmode_) + if (a%is_remote_build()) then + allocate(a%rmta) + nnzrmt_ = max(100,(nnz_/100)) + call a%rmta%allocate(m,n,nnzrmt_) + end if + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': ', & & desc_a%get_dectype(),psb_desc_bld_ diff --git a/base/tools/psb_dspasb.f90 b/base/tools/psb_dspasb.f90 index 457553f7..3132f249 100644 --- a/base/tools/psb_dspasb.f90 +++ b/base/tools/psb_dspasb.f90 @@ -42,31 +42,29 @@ ! upd - character(optional). How will the matrix be updated? ! psb_upd_srch_ Simple strategy ! psb_upd_perm_ Permutation(more memory) -! dupl - integer(optional). Duplicate coefficient handling: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -! psb_dupl_err_ raise an error. ! ! -subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold) +subroutine psb_dspasb(a,desc_a, info, afmt, upd, mold) use psb_base_mod, psb_protect_name => psb_dspasb + use psb_sort_mod use psi_mod implicit none !...Parameters.... - type(psb_dspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd - character(len=*), optional, intent(in) :: afmt + type(psb_dspmat_type), intent (inout) :: a + type(psb_desc_type), intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: upd + character(len=*), optional, intent(in) :: afmt class(psb_d_base_sparse_mat), intent(in), optional :: mold !....Locals.... type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, err_act - integer(psb_ipk_) :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col, dupl_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err + class(psb_i_base_vect_type), allocatable :: ivm info = psb_success_ name = 'psb_spasb' @@ -92,28 +90,79 @@ subroutine psb_dspasb(a,desc_a, info, afmt, upd, dupl, mold) goto 9999 end if - if (debug_level >= psb_debug_ext_)& & write(debug_unit, *) me,' ',trim(name),& & ' Begin matrix assembly...' !check on errors encountered in psdspins - - if (a%is_bld()) then + if (a%is_bld()) then + dupl_ = a%get_dupl() ! ! First case: we come from a fresh build. ! - - n_row = desc_a%get_local_rows() - n_col = desc_a%get_local_cols() - call a%set_nrows(n_row) - call a%set_ncols(n_col) - end if - - if (a%is_bld()) then - call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_ld_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() + nzt = nz + call psb_sum(ctxt,nzt) + if (nzt>0) then + allocate(ivm, mold=desc_a%v_halo_index%v) + call psb_cd_reinit(desc_a, info) + end if + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm) + + end block + end if + call a%set_ncols(desc_a%get_local_cols()) + call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_) else if (a%is_upd()) then + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_ld_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() +!!$ write(0,*) me,name,' Nz to be added',nz + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + end block + end if call a%asb(mold=mold) else info = psb_err_invalid_mat_state_ diff --git a/base/tools/psb_dspins.F90 b/base/tools/psb_dspins.F90 index 3e9ef0cc..2a70ab83 100644 --- a/base/tools/psb_dspins.F90 +++ b/base/tools/psb_dspins.F90 @@ -70,6 +70,10 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_, local_ integer(psb_ipk_), allocatable :: ila(:),jla(:) + integer(psb_ipk_) :: i,k + integer(psb_lpk_) :: nnl + integer(psb_lpk_), allocatable :: lila(:),ljla(:) + real(psb_dpk_), allocatable :: lval(:) character(len=20) :: name info = psb_success_ @@ -147,6 +151,27 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(i) + ljla(k) = ja(i) + lval(k) = val(i) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if + else info = psb_err_invalid_a_and_cd_state_ call psb_errpush(info,name) @@ -168,8 +193,9 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) ila(1:nz) = ia(1:nz) jla(1:nz) = ja(1:nz) else - call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info) - if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info) + call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,& + & mask=(ila(1:nz)>0)) end if call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info) if (info /= psb_success_) then @@ -177,6 +203,25 @@ subroutine psb_dspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(k) + ljla(k) = ja(k) + lval(k) = val(k) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if else info = psb_err_invalid_cd_state_ call psb_errpush(info,name) diff --git a/base/tools/psb_e_remote_vect.F90 b/base/tools/psb_e_remote_vect.F90 new file mode 100644 index 00000000..9fb15ff9 --- /dev/null +++ b/base/tools/psb_e_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_e_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_e_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_e_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + integer(psb_epk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_epk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + integer(psb_epk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_e_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_epk_,& + & x,rvsz,brvindx,psb_mpi_epk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_e_remote_vect diff --git a/base/tools/psb_i2_remote_vect.F90 b/base/tools/psb_i2_remote_vect.F90 new file mode 100644 index 00000000..3f6bffbd --- /dev/null +++ b/base/tools/psb_i2_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_i2_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_i2_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_i2_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + integer(psb_i2pk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_i2pk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + integer(psb_i2pk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_i2_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_i2pk_,& + & x,rvsz,brvindx,psb_mpi_i2pk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_i2_remote_vect diff --git a/base/tools/psb_iallc.f90 b/base/tools/psb_iallc.f90 index ac4ee840..7ed69ed6 100644 --- a/base/tools/psb_iallc.f90 +++ b/base/tools/psb_iallc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_ialloc_vect(x, desc_a,info) +subroutine psb_ialloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_ialloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_ialloc_vect(x, desc_a,info) type(psb_i_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_ialloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_ialloc_vect(x, desc_a,info) return end subroutine psb_ialloc_vect + ! Function: psb_ialloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_ialloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_ialloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_ialloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_ialloc_vect_r2 -subroutine psb_ialloc_multivect(x, desc_a,info,n) +subroutine psb_ialloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_ialloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_ialloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_ialloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_iasb.f90 b/base/tools/psb_iasb.f90 index d0cf2d83..f5e5669f 100644 --- a/base/tools/psb_iasb.f90 +++ b/base/tools/psb_iasb.f90 @@ -64,7 +64,7 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_iasb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + integer(psb_ipk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_iasb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_iasb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_iasb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_iins.f90 b/base/tools/psb_iins.f90 index c9c0ed9b..4fa53429 100644 --- a/base/tools/psb_iins.f90 +++ b/base/tools/psb_iins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_i_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_iins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_iins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_i_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_iins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_iins_vect ! x - type(psb_i_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_iins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_i_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) integer(psb_ipk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_iins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_iins_vect_v -subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_iins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_i_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_iins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_iins_vect_r2 -subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_iins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_i_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_iins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_lallc.f90 b/base/tools/psb_lallc.f90 index 85fd67e7..53857029 100644 --- a/base/tools/psb_lallc.f90 +++ b/base/tools/psb_lallc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_lalloc_vect(x, desc_a,info) +subroutine psb_lalloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_lalloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_lalloc_vect(x, desc_a,info) type(psb_l_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_lalloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_lalloc_vect(x, desc_a,info) return end subroutine psb_lalloc_vect + ! Function: psb_lalloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_lalloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_lalloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_lalloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_lalloc_vect_r2 -subroutine psb_lalloc_multivect(x, desc_a,info,n) +subroutine psb_lalloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_lalloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_lalloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_lalloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_lasb.f90 b/base/tools/psb_lasb.f90 index 1618abdb..baf55320 100644 --- a/base/tools/psb_lasb.f90 +++ b/base/tools/psb_lasb.f90 @@ -64,7 +64,7 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_lasb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + integer(psb_lpk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_lasb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_lasb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_lasb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_lins.f90 b/base/tools/psb_lins.f90 index 42559a94..90da8111 100644 --- a/base/tools/psb_lins.f90 +++ b/base/tools/psb_lins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_l_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_lins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_lins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_l_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_lins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_lins_vect ! x - type(psb_l_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_lins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_l_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) integer(psb_lpk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_lins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_lins_vect_v -subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_lins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_l_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_lins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_lins_vect_r2 -subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_lins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_l_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_lins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_m_remote_vect.F90 b/base/tools/psb_m_remote_vect.F90 new file mode 100644 index 00000000..01b5aeb3 --- /dev/null +++ b/base/tools/psb_m_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_m_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_m_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_m_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + integer(psb_mpk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + integer(psb_mpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + integer(psb_mpk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_m_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_mpk_,& + & x,rvsz,brvindx,psb_mpi_mpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_m_remote_vect diff --git a/base/tools/psb_s_remote_mat.F90 b/base/tools/psb_s_remote_mat.F90 new file mode 100644 index 00000000..df64266b --- /dev/null +++ b/base/tools/psb_s_remote_mat.F90 @@ -0,0 +1,276 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_s_remote_mat.f90 +! +! Subroutine: +! This routine does the retrieval of remote matrix rows. +! Retrieval is done through GETROW, therefore it should work +! for any matrix format in A; as for the output, default is CSR. +! +! There is also a specialized version ls_CSR whose interface +! is adapted for the needs of s_par_csr_spspmm. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! a - type(psb_sspmat_type) The local part of input matrix A +! desc_a - type(psb_desc_type). The communication descriptor. +! blck - type(psb_sspmat_type) The local part of output matrix BLCK +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +Subroutine psb_ls_remote_mat(a,desc_a,b,info) + use psb_base_mod, psb_protect_name => psb_ls_remote_mat + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + + Type(psb_ls_coo_sparse_mat),Intent(inout) :: a + Type(psb_ls_coo_sparse_mat),Intent(inout) :: b + Type(psb_desc_type), Intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, & + & n_elem, j, ipx,idxs,idxr + integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, & + & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem + integer(psb_lpk_) :: nz,nouth + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: iasnd(:), jasnd(:) + real(psb_spk_), allocatable :: valsnd(:) + type(psb_ls_coo_sparse_mat), allocatable :: acoo + class(psb_i_base_vect_type), pointer :: pdxv + integer(psb_ipk_), allocatable :: ila(:), iprc(:) + logical :: rowcnv_,colcnv_,rowscale_,colscale_ + character(len=5) :: outfmt_ + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_s_remote_mat' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + + call b%free() + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), acoo,stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + + nz = a%get_nzeros() + !allocate(ila(nz)) + !write(0,*) me,name,' size :',nz,size(ila) + !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.) + !nouth = count(ila(1:nz)<0) + !write(0,*) me,name,' Count out of halo :',nouth + !call psb_max(ctxt,nouth) + !if ((nouth/=0).and.(me==0)) & + ! & write(0,*) 'Warning: would require reinit of DESC_A' + + call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:)=0 + rvsz(:)=0 + sdsi(:)=0 + rvsi(:)=0 + ipx = 1 + brvindx(:) = 0 + bsdindx(:) = 0 + counter=1 + idx = 0 + idxs = 0 + idxr = 0 + do i=1,nz + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr) + if (psb_errstatus_fatal()) then + write(0,*) 'Error from acoo%allocate ' + info = 4010 + goto 9999 + end if + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),& + & ' Send:',sdsz(:),' Receive:',rvsz(:) + !write(debug_unit,*) me,' ',trim(name),': ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info) + !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) + !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) + !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='ensure_size') + goto 9999 + end if + do k=1, nz + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + !rvsi(proc) = rvsi(proc) + 1 + iasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ia(k) + jasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ja(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_) + call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & acoo%val,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,& + & acoo%ia,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& + & acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_spk_,& + & acoo%val,rvsz,brvindx,psb_mpi_r_spk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + call acoo%set_nzeros(iszr) + call acoo%mv_to_coo(b,info) + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & iasnd,jasnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_ls_remote_mat diff --git a/base/tools/psb_s_remote_vect.F90 b/base/tools/psb_s_remote_vect.F90 new file mode 100644 index 00000000..a8464663 --- /dev/null +++ b/base/tools/psb_s_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_s_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_s_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_s_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + real(psb_spk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + real(psb_spk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + real(psb_spk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_s_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_r_spk_,& + & x,rvsz,brvindx,psb_mpi_r_spk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_s_remote_vect diff --git a/base/tools/psb_sallc.f90 b/base/tools/psb_sallc.f90 index 941ce917..951d8128 100644 --- a/base/tools/psb_sallc.f90 +++ b/base/tools/psb_sallc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_salloc_vect(x, desc_a,info) +subroutine psb_salloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_salloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_salloc_vect(x, desc_a,info) type(psb_s_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_salloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_salloc_vect(x, desc_a,info) return end subroutine psb_salloc_vect + ! Function: psb_salloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_salloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_salloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_salloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_salloc_vect_r2 -subroutine psb_salloc_multivect(x, desc_a,info,n) +subroutine psb_salloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_salloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_salloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_salloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_sasb.f90 b/base/tools/psb_sasb.f90 index ac3a0684..315e24ff 100644 --- a/base/tools/psb_sasb.f90 +++ b/base/tools/psb_sasb.f90 @@ -64,7 +64,7 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_sasb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + real(psb_spk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_sasb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_sasb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_sasb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_sins.f90 b/base/tools/psb_sins.f90 index cb878c64..ddead81f 100644 --- a/base/tools/psb_sins.f90 +++ b/base/tools/psb_sins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_s_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_sins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_sins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_sins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_sins_vect ! x - type(psb_s_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_sins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_s_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) real(psb_spk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_sins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_sins_vect_v -subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_sins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_s_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_sins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_sins_vect_r2 -subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_sins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_s_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_sins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_sspalloc.f90 b/base/tools/psb_sspalloc.f90 index 15c3c538..8004e742 100644 --- a/base/tools/psb_sspalloc.f90 +++ b/base/tools/psb_sspalloc.f90 @@ -41,21 +41,23 @@ ! nnz - integer(optional). The number of nonzeroes in the matrix. ! (local, user estimate) ! -subroutine psb_sspalloc(a, desc_a, info, nnz) +subroutine psb_sspalloc(a, desc_a, info, nnz, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_sspalloc implicit none !....parameters... - type(psb_desc_type), intent(in) :: desc_a - type(psb_sspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_sspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype - integer(psb_lpk_) :: m, n + integer(psb_ipk_) :: dupl_, bldmode_ + integer(psb_lpk_) :: m, n, nnzrmt_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -96,7 +98,7 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) else nnz_ = max(1,5*loc_row) endif - + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name), & & ':allocating size:',loc_row,loc_col,nnz_ @@ -109,6 +111,24 @@ subroutine psb_sspalloc(a, desc_a, info, nnz) goto 9999 end if + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call a%set_dupl(dupl_) + call a%set_remote_build(bldmode_) + if (a%is_remote_build()) then + allocate(a%rmta) + nnzrmt_ = max(100,(nnz_/100)) + call a%rmta%allocate(m,n,nnzrmt_) + end if + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': ', & & desc_a%get_dectype(),psb_desc_bld_ diff --git a/base/tools/psb_sspasb.f90 b/base/tools/psb_sspasb.f90 index f4e6169d..cfa316eb 100644 --- a/base/tools/psb_sspasb.f90 +++ b/base/tools/psb_sspasb.f90 @@ -42,31 +42,29 @@ ! upd - character(optional). How will the matrix be updated? ! psb_upd_srch_ Simple strategy ! psb_upd_perm_ Permutation(more memory) -! dupl - integer(optional). Duplicate coefficient handling: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -! psb_dupl_err_ raise an error. ! ! -subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold) +subroutine psb_sspasb(a,desc_a, info, afmt, upd, mold) use psb_base_mod, psb_protect_name => psb_sspasb + use psb_sort_mod use psi_mod implicit none !...Parameters.... - type(psb_sspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd - character(len=*), optional, intent(in) :: afmt + type(psb_sspmat_type), intent (inout) :: a + type(psb_desc_type), intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: upd + character(len=*), optional, intent(in) :: afmt class(psb_s_base_sparse_mat), intent(in), optional :: mold !....Locals.... type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, err_act - integer(psb_ipk_) :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col, dupl_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err + class(psb_i_base_vect_type), allocatable :: ivm info = psb_success_ name = 'psb_spasb' @@ -92,28 +90,79 @@ subroutine psb_sspasb(a,desc_a, info, afmt, upd, dupl, mold) goto 9999 end if - if (debug_level >= psb_debug_ext_)& & write(debug_unit, *) me,' ',trim(name),& & ' Begin matrix assembly...' !check on errors encountered in psdspins - - if (a%is_bld()) then + if (a%is_bld()) then + dupl_ = a%get_dupl() ! ! First case: we come from a fresh build. ! - - n_row = desc_a%get_local_rows() - n_col = desc_a%get_local_cols() - call a%set_nrows(n_row) - call a%set_ncols(n_col) - end if - - if (a%is_bld()) then - call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_ls_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() + nzt = nz + call psb_sum(ctxt,nzt) + if (nzt>0) then + allocate(ivm, mold=desc_a%v_halo_index%v) + call psb_cd_reinit(desc_a, info) + end if + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm) + + end block + end if + call a%set_ncols(desc_a%get_local_cols()) + call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_) else if (a%is_upd()) then + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_ls_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() +!!$ write(0,*) me,name,' Nz to be added',nz + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + end block + end if call a%asb(mold=mold) else info = psb_err_invalid_mat_state_ diff --git a/base/tools/psb_sspins.F90 b/base/tools/psb_sspins.F90 index 1fd6eed0..aee7a900 100644 --- a/base/tools/psb_sspins.F90 +++ b/base/tools/psb_sspins.F90 @@ -70,6 +70,10 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_, local_ integer(psb_ipk_), allocatable :: ila(:),jla(:) + integer(psb_ipk_) :: i,k + integer(psb_lpk_) :: nnl + integer(psb_lpk_), allocatable :: lila(:),ljla(:) + real(psb_spk_), allocatable :: lval(:) character(len=20) :: name info = psb_success_ @@ -147,6 +151,27 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(i) + ljla(k) = ja(i) + lval(k) = val(i) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if + else info = psb_err_invalid_a_and_cd_state_ call psb_errpush(info,name) @@ -168,8 +193,9 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) ila(1:nz) = ia(1:nz) jla(1:nz) = ja(1:nz) else - call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info) - if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info) + call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,& + & mask=(ila(1:nz)>0)) end if call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info) if (info /= psb_success_) then @@ -177,6 +203,25 @@ subroutine psb_sspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(k) + ljla(k) = ja(k) + lval(k) = val(k) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if else info = psb_err_invalid_cd_state_ call psb_errpush(info,name) diff --git a/base/tools/psb_z_remote_mat.F90 b/base/tools/psb_z_remote_mat.F90 new file mode 100644 index 00000000..5461c5d5 --- /dev/null +++ b/base/tools/psb_z_remote_mat.F90 @@ -0,0 +1,276 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_z_remote_mat.f90 +! +! Subroutine: +! This routine does the retrieval of remote matrix rows. +! Retrieval is done through GETROW, therefore it should work +! for any matrix format in A; as for the output, default is CSR. +! +! There is also a specialized version lz_CSR whose interface +! is adapted for the needs of z_par_csr_spspmm. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! a - type(psb_zspmat_type) The local part of input matrix A +! desc_a - type(psb_desc_type). The communication descriptor. +! blck - type(psb_zspmat_type) The local part of output matrix BLCK +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +Subroutine psb_lz_remote_mat(a,desc_a,b,info) + use psb_base_mod, psb_protect_name => psb_lz_remote_mat + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + + Type(psb_lz_coo_sparse_mat),Intent(inout) :: a + Type(psb_lz_coo_sparse_mat),Intent(inout) :: b + Type(psb_desc_type), Intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, n_el_send,n_el_recv, & + & n_elem, j, ipx,idxs,idxr + integer(psb_lpk_) :: r, k, irmin, irmax, icmin, icmax, iszs, iszr, & + & lidx, l1, lnr, lnc, lnnz, idx, ngtz, tot_elem + integer(psb_lpk_) :: nz,nouth + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:),sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: iasnd(:), jasnd(:) + complex(psb_dpk_), allocatable :: valsnd(:) + type(psb_lz_coo_sparse_mat), allocatable :: acoo + class(psb_i_base_vect_type), pointer :: pdxv + integer(psb_ipk_), allocatable :: ila(:), iprc(:) + logical :: rowcnv_,colcnv_,rowscale_,colscale_ + character(len=5) :: outfmt_ + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_z_remote_mat' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + + call b%free() + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), acoo,stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + + nz = a%get_nzeros() + !allocate(ila(nz)) + !write(0,*) me,name,' size :',nz,size(ila) + !call desc_a%g2l(a%ia(1:nz),ila(1:nz),info,owned=.false.) + !nouth = count(ila(1:nz)<0) + !write(0,*) me,name,' Count out of halo :',nouth + !call psb_max(ctxt,nouth) + !if ((nouth/=0).and.(me==0)) & + ! & write(0,*) 'Warning: would require reinit of DESC_A' + + call desc_a%indxmap%fnd_owner(a%ia(1:nz),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:)=0 + rvsz(:)=0 + sdsi(:)=0 + rvsi(:)=0 + ipx = 1 + brvindx(:) = 0 + bsdindx(:) = 0 + counter=1 + idx = 0 + idxs = 0 + idxr = 0 + do i=1,nz + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call acoo%allocate(desc_a%get_global_rows(),desc_a%get_global_cols(),iszr) + if (psb_errstatus_fatal()) then + write(0,*) 'Error from acoo%allocate ' + info = 4010 + goto 9999 + end if + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Sizes:',acoo%get_size(),& + & ' Send:',sdsz(:),' Receive:',rvsz(:) + !write(debug_unit,*) me,' ',trim(name),': ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),iasnd,info) + !write(debug_unit,*) me,' ',trim(name),' iasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),jasnd,info) + !write(debug_unit,*) me,' ',trim(name),' jasnd: ',info + if (info == psb_success_) call psb_ensure_size(max(iszs,1),valsnd,info) + !write(debug_unit,*) me,' ',trim(name),' valsnd: ',info + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='ensure_size') + goto 9999 + end if + do k=1, nz + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + !rvsi(proc) = rvsi(proc) + 1 + iasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ia(k) + jasnd(bsdindx(proc+1)+sdsi(proc+1)) = a%ja(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = a%val(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_) + call psb_simple_triad_a2av(valsnd,iasnd,jasnd,sdsz,bsdindx,& + & acoo%val,acoo%ia,acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & acoo%val,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(iasnd,sdsz,bsdindx,& + & acoo%ia,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(jasnd,sdsz,bsdindx,& + & acoo%ja,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_dpk_,& + & acoo%val,rvsz,brvindx,psb_mpi_c_dpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(iasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ia,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(jasnd,sdsz,bsdindx,psb_mpi_lpk_,& + & acoo%ja,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + call acoo%set_nzeros(iszr) + call acoo%mv_to_coo(b,info) + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & iasnd,jasnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_lz_remote_mat diff --git a/base/tools/psb_z_remote_vect.F90 b/base/tools/psb_z_remote_vect.F90 new file mode 100644 index 00000000..ed705bb5 --- /dev/null +++ b/base/tools/psb_z_remote_vect.F90 @@ -0,0 +1,223 @@ +! +! Parallel Sparse BLAS version 3.5 +! (C) Copyright 2006-2018 +! Salvatore Filippone +! Alfredo Buttari +! +! Redistribution and use in source and binary forms, with or without +! modification, are permitted provided that the following conditions +! are met: +! 1. Redistributions of source code must retain the above copyright +! notice, this list of conditions and the following disclaimer. +! 2. Redistributions in binary form must reproduce the above copyright +! notice, this list of conditions, and the following disclaimer in the +! documentation and/or other materials provided with the distribution. +! 3. The name of the PSBLAS group or the names of its contributors may +! not be used to endorse or promote products derived from this +! software without specific written permission. +! +! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +! ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED +! TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR +! PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE PSBLAS GROUP OR ITS CONTRIBUTORS +! BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +! CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +! SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +! INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +! CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +! ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +! POSSIBILITY OF SUCH DAMAGE. +! +! +! File: psb_z_remote_vect.f90 +! +! Subroutine: +! This routine does the retrieval of remote vector entries. +! +! There are three possible exchange algorithms: +! 1. Use MPI_Alltoallv +! 2. Use psb_simple_a2av +! 3. Use psb_simple_triad_a2av +! Default choice is 3. The MPI variant has proved to be inefficient; +! that is because it is not persistent, therefore you pay the initialization price +! every time, and it is not optimized for a sparse communication pattern, +! most MPI implementations assume that all communications are non-empty. +! The PSB_SIMPLE variants reuse the same communicator, and go for a simplistic +! sequence of sends/receive that is quite efficient for a sparse communication +! pattern. To be refined/reviewed in the future to compare with neighbour +! persistent collectives. +! +! Arguments: +! desc_a - type(psb_desc_type). The communication descriptor. +! info - integer. Return code +! rowcnv - logical Should row/col indices be converted +! colcnv - logical to/from global numbering when sent/received? +! default is .TRUE. +! rowscale - logical Should row/col indices on output be remapped +! colscale - logical from MIN:MAX to 1:(MAX-MIN+1) ? +! default is .FALSE. +! (commmon use is ROWSCALE=.TRUE., COLSCALE=.FALSE.) +! data - integer Which index list in desc_a should be used to retrieve +! rows, default psb_comm_halo_ +! psb_comm_halo_ use halo_index +! psb_comm_ext_ use ext_index +! psb_comm_ovrl_ DISABLED for this routine. +! +subroutine psb_z_remote_vect(n,v,iv,desc_a,x,ix, info) + use psb_base_mod, psb_protect_name => psb_z_remote_vect + +#ifdef MPI_MOD + use mpi +#endif + Implicit None +#ifdef MPI_H + include 'mpif.h' +#endif + integer(psb_ipk_), intent(in) :: n + complex(psb_dpk_), Intent(in) :: v(:) + integer(psb_lpk_), Intent(in) :: iv(:) + type(psb_desc_type),intent(in) :: desc_a + complex(psb_dpk_), allocatable, intent(out) :: x(:) + integer(psb_lpk_), allocatable, intent(out) :: ix(:) + integer(psb_ipk_), intent(out) :: info + ! ...local scalars.... + type(psb_ctxt_type) :: ctxt + integer(psb_ipk_) :: np,me + integer(psb_ipk_) :: counter, proc, i, & + & j, idxs,idxr, k, iszs, iszr + integer(psb_ipk_) :: nrcvs, nsnds + integer(psb_mpk_) :: icomm, minfo + integer(psb_mpk_), allocatable :: brvindx(:), & + & rvsz(:), bsdindx(:), sdsz(:), sdsi(:), rvsi(:) + integer(psb_lpk_), allocatable :: lsnd(:) + complex(psb_dpk_), allocatable :: valsnd(:) + integer(psb_ipk_), allocatable :: iprc(:) + integer(psb_ipk_) :: debug_level, debug_unit, err_act + character(len=20) :: name, ch_err + + info=psb_success_ + name='psb_z_remote_vect' + call psb_erractionsave(err_act) + if (psb_errstatus_fatal()) then + info = psb_err_internal_error_ ; goto 9999 + end if + debug_unit = psb_get_debug_unit() + debug_level = psb_get_debug_level() + + ctxt = desc_a%get_context() + icomm = desc_a%get_mpic() + + Call psb_info(ctxt, me, np) + + if (debug_level >= psb_debug_outer_) & + & write(debug_unit,*) me,' ',trim(name),': Start' + + Allocate(rvsz(np),sdsz(np),sdsi(np),rvsi(np),brvindx(np+1),& + & bsdindx(np+1), stat=info) + + if (info /= psb_success_) then + info=psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + + call desc_a%indxmap%fnd_owner(iv(1:n),iprc,info) + + icomm = desc_a%get_mpic() + sdsz(:) = 0 + rvsz(:) = 0 + sdsi(:) = 0 + rvsi(:) = 0 + brvindx(:) = 0 + bsdindx(:) = 0 + counter = 1 + idxs = 0 + idxr = 0 + do i=1,n + if (iprc(i) >=0) then + sdsz(iprc(i)+1) = sdsz(iprc(i)+1) +1 + else + write(0,*)me,name,' Error from fnd_owner: ',iprc(i) + end if + end do + call mpi_alltoall(sdsz,1,psb_mpi_mpk_,& + & rvsz,1,psb_mpi_mpk_,icomm,minfo) + if (minfo /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='mpi_alltoall') + goto 9999 + end if + !write(0,*)me,name,' sdsz ',sdsz(:),' rvsz:',rvsz(:) + nsnds = count(sdsz /= 0) + nrcvs = count(rvsz /= 0) + idxs = 0 + idxr = 0 + counter = 1 + Do proc=0,np-1 + bsdindx(proc+1) = idxs + idxs = idxs + sdsz(proc+1) + brvindx(proc+1) = idxr + idxr = idxr + rvsz(proc+1) + Enddo + + iszs = sum(sdsz) + iszr = sum(rvsz) + call psb_realloc(iszs,lsnd,info) + if (info == 0) call psb_realloc(iszs,valsnd,info) + if (info == 0) call psb_realloc(iszr,x,info) + if (info == 0) call psb_realloc(iszr,ix,info) + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='realloc') + goto 9999 + end if + do k=1, n + proc = iprc(k) + sdsi(proc+1) = sdsi(proc+1) + 1 + lsnd(bsdindx(proc+1)+sdsi(proc+1)) = iv(k) + valsnd(bsdindx(proc+1)+sdsi(proc+1)) = v(k) + end do + do proc=0,np-1 + if (sdsi(proc+1) /= sdsz(proc+1)) & + & write(0,*) me,name,'Send mismacth ',sdsi(proc+1),sdsz(proc+1) + end do + + select case(psb_get_sp_a2av_alg()) + case(psb_sp_a2av_smpl_triad_,psb_sp_a2av_smpl_v_) + call psb_simple_a2av(valsnd,sdsz,bsdindx,& + & x,rvsz,brvindx,ctxt,info) + if (info == psb_success_) call psb_simple_a2av(lsnd,sdsz,bsdindx,& + & ix,rvsz,brvindx,ctxt,info) + case(psb_sp_a2av_mpi_) + + call mpi_alltoallv(valsnd,sdsz,bsdindx,psb_mpi_c_dpk_,& + & x,rvsz,brvindx,psb_mpi_c_dpk_,icomm,minfo) + if (minfo == mpi_success) & + & call mpi_alltoallv(lsnd,sdsz,bsdindx,psb_mpi_lpk_,& + & ix,rvsz,brvindx,psb_mpi_lpk_,icomm,minfo) + if (minfo /= mpi_success) info = minfo + case default + info = psb_err_internal_error_ + call psb_errpush(info,name,a_err='wrong A2AV alg selector') + goto 9999 + end select + + if (info /= psb_success_) then + info=psb_err_from_subroutine_ + call psb_errpush(info,name,a_err='alltoallv') + goto 9999 + end if + + Deallocate(brvindx,bsdindx,rvsz,sdsz,& + & lsnd,valsnd,stat=info) + if (debug_level >= psb_debug_outer_)& + & write(debug_unit,*) me,' ',trim(name),': Done' + + call psb_erractionrestore(err_act) + return + +9999 call psb_error_handler(ctxt,err_act) + + return + +End Subroutine psb_z_remote_vect diff --git a/base/tools/psb_zallc.f90 b/base/tools/psb_zallc.f90 index fa84827e..be4d9089 100644 --- a/base/tools/psb_zallc.f90 +++ b/base/tools/psb_zallc.f90 @@ -40,7 +40,7 @@ ! x - the vector to be allocated. ! desc_a - the communication descriptor. ! info - Return code -subroutine psb_zalloc_vect(x, desc_a,info) +subroutine psb_zalloc_vect(x, desc_a,info, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_zalloc_vect use psi_mod implicit none @@ -49,9 +49,11 @@ subroutine psb_zalloc_vect(x, desc_a,info) type(psb_z_vect_type), intent(out) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals integer(psb_ipk_) :: np,me,nr,i,err_act + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -102,6 +104,25 @@ subroutine psb_zalloc_vect(x, desc_a,info) endif call x%zero() + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + call x%set_nrmv(0) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + call psb_ensure_size(nrmt_,x%rmtv,info) + call psb_ensure_size(nrmt_,x%rmidx,info) + end if + call psb_erractionrestore(err_act) return @@ -110,6 +131,7 @@ subroutine psb_zalloc_vect(x, desc_a,info) return end subroutine psb_zalloc_vect + ! Function: psb_zalloc_vect_r2 ! Allocates a vector of dense vectors for PSBLAS routines. ! The descriptor may be in either the build or assembled state. @@ -121,7 +143,7 @@ end subroutine psb_zalloc_vect ! n - optional number of columns. ! lb - optional lower bound on column indices -subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) +subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_zalloc_vect_r2 use psi_mod implicit none @@ -131,10 +153,12 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n,lb + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -208,6 +232,26 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) if (info /= 0) exit end do end if + + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + + do i=lb_, lb_+n_-1 + call x(i)%set_dupl(dupl_) + call x(i)%set_remote_build(bldmode_) + if (x(i)%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x(i)%rmtv(nrmt_)) + end if + end do if (psb_errstatus_fatal()) then info=psb_err_alloc_request_ call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') @@ -224,7 +268,7 @@ subroutine psb_zalloc_vect_r2(x, desc_a,info,n,lb) end subroutine psb_zalloc_vect_r2 -subroutine psb_zalloc_multivect(x, desc_a,info,n) +subroutine psb_zalloc_multivect(x, desc_a,info,n, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_zalloc_multivect use psi_mod implicit none @@ -234,10 +278,12 @@ subroutine psb_zalloc_multivect(x, desc_a,info,n) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_),intent(out) :: info integer(psb_ipk_), optional, intent(in) :: n + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me,nr,i,err_act, n_, lb_ + integer(psb_ipk_) :: dupl_, bldmode_, nrmt_ integer(psb_ipk_) :: exch(1) integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -306,6 +352,23 @@ subroutine psb_zalloc_multivect(x, desc_a,info,n) call psb_errpush(info,name,i_err=(/nr/),a_err='real(psb_spk_)') goto 9999 endif + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call x%set_dupl(dupl_) + call x%set_remote_build(bldmode_) + if (x%is_remote_build()) then + nrmt_ = max(100,(desc_a%get_local_cols()-desc_a%get_local_rows())) + allocate(x%rmtv(nrmt_,n_)) + end if + call psb_erractionrestore(err_act) return diff --git a/base/tools/psb_zasb.f90 b/base/tools/psb_zasb.f90 index 34706841..decbfdec 100644 --- a/base/tools/psb_zasb.f90 +++ b/base/tools/psb_zasb.f90 @@ -64,7 +64,7 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -83,7 +83,7 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - + dupl_ = x%get_dupl() ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -104,6 +104,23 @@ subroutine psb_zasb_vect(x, desc_a, info, mold, scratch) call x%free(info) call x%bld(ncol,mold=mold) else + + if (x%is_remote_build()) then + block + integer(psb_lpk_), allocatable :: lvx(:) + complex(psb_dpk_), allocatable :: vx(:) + integer(psb_ipk_), allocatable :: ivx(:) + integer(psb_ipk_) :: nrmv, nx, i + + nrmv = x%get_nrmv() + call psb_remote_vect(nrmv,x%rmtv,x%rmidx,desc_a,vx,lvx,info) + nx = size(vx) + call psb_realloc(nx,ivx,info) + call desc_a%g2l(lvx,ivx,info,owned=.true.) + call x%ins(nx,ivx,vx,info) + end block + end if + call x%asb(ncol,info) ! ..update halo elements.. call psb_halo(x,desc_a,info) @@ -140,7 +157,7 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, i, n - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name,ch_err @@ -159,7 +176,6 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch) scratch_ = .false. if (present(scratch)) scratch_ = scratch call psb_info(ctxt, me, np) - ! ....verify blacs grid correctness.. if (np == -1) then info = psb_err_context_error_ @@ -185,6 +201,7 @@ subroutine psb_zasb_vect_r2(x, desc_a, info, mold, scratch) else do i=1, n + dupl_ = x(i)%get_dupl() call x(i)%asb(ncol,info) if (info /= 0) exit ! ..update halo elements.. @@ -225,7 +242,7 @@ subroutine psb_zasb_multivect(x, desc_a, info, mold, scratch,n) ! local variables type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me - integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_ + integer(psb_ipk_) :: i1sz,nrow,ncol, err_act, n_, dupl_ logical :: scratch_ integer(psb_ipk_) :: debug_level, debug_unit @@ -271,6 +288,7 @@ subroutine psb_zasb_multivect(x, desc_a, info, mold, scratch,n) if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': sizes: ',nrow,ncol + dupl_ = x%get_dupl() if (scratch_) then call x%free(info) call x%bld(ncol,n_,mold=mold) diff --git a/base/tools/psb_zins.f90 b/base/tools/psb_zins.f90 index 19020379..43e5d5cd 100644 --- a/base/tools/psb_zins.f90 +++ b/base/tools/psb_zins.f90 @@ -42,10 +42,7 @@ ! x - type(psb_z_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_zins_vect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_zins_vect use psi_mod implicit none @@ -57,14 +54,14 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local) type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob + integer(psb_ipk_) :: dupl_ type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_,err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -112,7 +109,6 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local) endif - allocate(irl(m),stat=info) if (info /= psb_success_) then info = psb_err_alloc_dealloc_ @@ -120,11 +116,6 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -136,11 +127,33 @@ subroutine psb_zins_vect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 end if + if (x%is_remote_build()) then + block + integer(psb_ipk_) :: j,k + k = x%get_nrmv() + do j=1,m + if (irl(j) < 0 ) then + k = k + 1 + call psb_ensure_size(k,x%rmtv,info) + if (info == 0) call psb_ensure_size(k,x%rmidx,info) + if (info /= 0) then + info = psb_err_alloc_dealloc_ + call psb_errpush(info,name) + goto 9999 + end if + x%rmtv(k) = val(j) + x%rmidx(k) = irw(j) + call x%set_nrmv(k) + end if + end do + end block + end if + deallocate(irl) call psb_erractionrestore(err_act) @@ -166,10 +179,7 @@ end subroutine psb_zins_vect ! x - type(psb_z_vect_type) The destination vector ! desc_a - type(psb_desc_type). The communication descriptor. ! info - integer. return code -! dupl - integer What to do with duplicates: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_zins_vect_v use psi_mod implicit none @@ -185,14 +195,13 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local) type(psb_z_vect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols,err_act integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_ + integer(psb_ipk_) :: np, me integer(psb_ipk_), allocatable :: irl(:) complex(psb_dpk_), allocatable :: lval(:) logical :: local_ @@ -239,14 +248,6 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call psb_errpush(info,name) goto 9999 endif - - - - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -260,7 +261,7 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local) call desc_a%indxmap%g2l(irw%v%v(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,lval,dupl_,info) + call x%ins(m,irl,lval,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 @@ -275,7 +276,7 @@ subroutine psb_zins_vect_v(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_zins_vect_v -subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_zins_vect_r2 use psi_mod implicit none @@ -291,14 +292,13 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) type(psb_z_vect_type), intent(inout) :: x(:) type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols, n integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -353,11 +353,6 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -371,8 +366,9 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end if do i=1,n + if (.not.allocated(x(i)%v)) info = psb_err_invalid_vect_state_ - if (info == 0) call x(i)%ins(m,irl,val(:,i),dupl_,info) + if (info == 0) call x(i)%ins(m,irl,val(:,i),info) if (info /= 0) exit end do if (info /= 0) then @@ -390,7 +386,7 @@ subroutine psb_zins_vect_r2(m, irw, val, x, desc_a, info, dupl,local) end subroutine psb_zins_vect_r2 -subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local) +subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, local) use psb_base_mod, psb_protect_name => psb_zins_multivect use psi_mod implicit none @@ -406,14 +402,13 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local) type(psb_z_multivect_type), intent(inout) :: x type(psb_desc_type), intent(in) :: desc_a integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: dupl logical, intent(in), optional :: local !locals..... integer(psb_ipk_) :: i, loc_rows,loc_cols integer(psb_lpk_) :: mglob type(psb_ctxt_type) :: ctxt - integer(psb_ipk_) :: np, me, dupl_, err_act + integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_), allocatable :: irl(:) logical :: local_ character(len=20) :: name @@ -469,11 +464,6 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local) goto 9999 endif - if (present(dupl)) then - dupl_ = dupl - else - dupl_ = psb_dupl_ovwrt_ - endif if (present(local)) then local_ = local else @@ -485,7 +475,7 @@ subroutine psb_zins_multivect(m, irw, val, x, desc_a, info, dupl,local) else call desc_a%indxmap%g2l(irw(1:m),irl(1:m),info,owned=.true.) end if - call x%ins(m,irl,val,dupl_,info) + call x%ins(m,irl,val,info) if (info /= 0) then call psb_errpush(info,name) goto 9999 diff --git a/base/tools/psb_zspalloc.f90 b/base/tools/psb_zspalloc.f90 index 16d48734..308774ef 100644 --- a/base/tools/psb_zspalloc.f90 +++ b/base/tools/psb_zspalloc.f90 @@ -41,21 +41,23 @@ ! nnz - integer(optional). The number of nonzeroes in the matrix. ! (local, user estimate) ! -subroutine psb_zspalloc(a, desc_a, info, nnz) +subroutine psb_zspalloc(a, desc_a, info, nnz, dupl, bldmode) use psb_base_mod, psb_protect_name => psb_zspalloc implicit none !....parameters... - type(psb_desc_type), intent(in) :: desc_a - type(psb_zspmat_type), intent(inout) :: a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_), optional, intent(in) :: nnz + type(psb_desc_type), intent(in) :: desc_a + type(psb_zspmat_type), intent(inout) :: a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: nnz + integer(psb_ipk_), optional, intent(in) :: dupl, bldmode !locals type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np, me, err_act integer(psb_ipk_) :: loc_row,loc_col, nnz_, dectype - integer(psb_lpk_) :: m, n + integer(psb_ipk_) :: dupl_, bldmode_ + integer(psb_lpk_) :: m, n, nnzrmt_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name @@ -96,7 +98,7 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) else nnz_ = max(1,5*loc_row) endif - + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name), & & ':allocating size:',loc_row,loc_col,nnz_ @@ -109,6 +111,24 @@ subroutine psb_zspalloc(a, desc_a, info, nnz) goto 9999 end if + if (present(bldmode)) then + bldmode_ = bldmode + else + bldmode_ = psb_matbld_noremote_ + end if + if (present(dupl)) then + dupl_ = dupl + else + dupl_ = psb_dupl_def_ + end if + call a%set_dupl(dupl_) + call a%set_remote_build(bldmode_) + if (a%is_remote_build()) then + allocate(a%rmta) + nnzrmt_ = max(100,(nnz_/100)) + call a%rmta%allocate(m,n,nnzrmt_) + end if + if (debug_level >= psb_debug_ext_) & & write(debug_unit,*) me,' ',trim(name),': ', & & desc_a%get_dectype(),psb_desc_bld_ diff --git a/base/tools/psb_zspasb.f90 b/base/tools/psb_zspasb.f90 index b5966110..aeeef94d 100644 --- a/base/tools/psb_zspasb.f90 +++ b/base/tools/psb_zspasb.f90 @@ -42,31 +42,29 @@ ! upd - character(optional). How will the matrix be updated? ! psb_upd_srch_ Simple strategy ! psb_upd_perm_ Permutation(more memory) -! dupl - integer(optional). Duplicate coefficient handling: -! psb_dupl_ovwrt_ overwrite -! psb_dupl_add_ add -! psb_dupl_err_ raise an error. ! ! -subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold) +subroutine psb_zspasb(a,desc_a, info, afmt, upd, mold) use psb_base_mod, psb_protect_name => psb_zspasb + use psb_sort_mod use psi_mod implicit none !...Parameters.... - type(psb_zspmat_type), intent (inout) :: a - type(psb_desc_type), intent(in) :: desc_a - integer(psb_ipk_), intent(out) :: info - integer(psb_ipk_),optional, intent(in) :: dupl, upd - character(len=*), optional, intent(in) :: afmt + type(psb_zspmat_type), intent (inout) :: a + type(psb_desc_type), intent(inout) :: desc_a + integer(psb_ipk_), intent(out) :: info + integer(psb_ipk_), optional, intent(in) :: upd + character(len=*), optional, intent(in) :: afmt class(psb_z_base_sparse_mat), intent(in), optional :: mold !....Locals.... type(psb_ctxt_type) :: ctxt integer(psb_ipk_) :: np,me, err_act - integer(psb_ipk_) :: n_row,n_col + integer(psb_ipk_) :: n_row,n_col, dupl_ integer(psb_ipk_) :: debug_level, debug_unit character(len=20) :: name, ch_err + class(psb_i_base_vect_type), allocatable :: ivm info = psb_success_ name = 'psb_spasb' @@ -92,28 +90,79 @@ subroutine psb_zspasb(a,desc_a, info, afmt, upd, dupl, mold) goto 9999 end if - if (debug_level >= psb_debug_ext_)& & write(debug_unit, *) me,' ',trim(name),& & ' Begin matrix assembly...' !check on errors encountered in psdspins - - if (a%is_bld()) then + if (a%is_bld()) then + dupl_ = a%get_dupl() ! ! First case: we come from a fresh build. ! - - n_row = desc_a%get_local_rows() - n_col = desc_a%get_local_cols() - call a%set_nrows(n_row) - call a%set_ncols(n_col) - end if - - if (a%is_bld()) then - call a%cscnv(info,type=afmt,dupl=dupl, mold=mold) + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_lz_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() + nzt = nz + call psb_sum(ctxt,nzt) + if (nzt>0) then + allocate(ivm, mold=desc_a%v_halo_index%v) + call psb_cd_reinit(desc_a, info) + end if + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + if (nzt > 0) call psb_cdasb(desc_a,info,mold=ivm) + + end block + end if + call a%set_ncols(desc_a%get_local_cols()) + call a%cscnv(info,type=afmt,mold=mold,dupl=dupl_) else if (a%is_upd()) then + if (a%is_remote_build()) then + !write(0,*) me,name,' Size of rmta:',a%rmta%get_nzeros() + block + type(psb_lz_coo_sparse_mat) :: a_add + integer(psb_ipk_), allocatable :: ila(:), jla(:) + integer(psb_ipk_) :: nz, nzt,k + call psb_remote_mat(a%rmta,desc_a,a_add,info) + nz = a_add%get_nzeros() +!!$ write(0,*) me,name,' Nz to be added',nz + if (nz > 0) then + ! + ! Should we check for new indices here? + ! + call psb_realloc(nz,ila,info) + call psb_realloc(nz,jla,info) + call desc_a%indxmap%g2l(a_add%ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l_ins(a_add%ja(1:nz),jla(1:nz),info) + !write(0,*) me,name,' Check before insert',a%get_nzeros() + n_row = desc_a%get_local_rows() + n_col = desc_a%get_local_cols() + call a%set_ncols(desc_a%get_local_cols()) + call a%csput(nz,ila,jla,a_add%val,ione,n_row,ione,n_col,info) + !write(0,*) me,name,' Check after insert',a%get_nzeros(),nz + end if + end block + end if call a%asb(mold=mold) else info = psb_err_invalid_mat_state_ diff --git a/base/tools/psb_zspins.F90 b/base/tools/psb_zspins.F90 index 525ed415..abe64251 100644 --- a/base/tools/psb_zspins.F90 +++ b/base/tools/psb_zspins.F90 @@ -70,6 +70,10 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) integer(psb_ipk_), parameter :: relocsz=200 logical :: rebuild_, local_ integer(psb_ipk_), allocatable :: ila(:),jla(:) + integer(psb_ipk_) :: i,k + integer(psb_lpk_) :: nnl + integer(psb_lpk_), allocatable :: lila(:),ljla(:) + complex(psb_dpk_), allocatable :: lval(:) character(len=20) :: name info = psb_success_ @@ -147,6 +151,27 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(i) + ljla(k) = ja(i) + lval(k) = val(i) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if + else info = psb_err_invalid_a_and_cd_state_ call psb_errpush(info,name) @@ -168,8 +193,9 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) ila(1:nz) = ia(1:nz) jla(1:nz) = ja(1:nz) else - call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info) - if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info) + call desc_a%indxmap%g2l(ia(1:nz),ila(1:nz),info,owned=.true.) + if (info == 0) call desc_a%indxmap%g2l(ja(1:nz),jla(1:nz),info,& + & mask=(ila(1:nz)>0)) end if call a%csput(nz,ila,jla,val,ione,nrow,ione,ncol,info) if (info /= psb_success_) then @@ -177,6 +203,25 @@ subroutine psb_zspins(nz,ia,ja,val,a,desc_a,info,rebuild,local) call psb_errpush(info,name,a_err='a%csput') goto 9999 end if + if (a%is_remote_build()) then + nnl = count(ila(1:nz)<0) + if (nnl > 0) then + !write(0,*) 'Check on insert ',nnl + allocate(lila(nnl),ljla(nnl),lval(nnl)) + k = 0 + do i=1,nz + if (ila(i)<0) then + k=k+1 + lila(k) = ia(k) + ljla(k) = ja(k) + lval(k) = val(k) + end if + end do + if (k /= nnl) write(0,*) name,' Wrong conversion?',k,nnl + call a%rmta%csput(nnl,lila,ljla,lval,1_psb_lpk_,desc_a%get_global_rows(),& + & 1_psb_lpk_,desc_a%get_global_rows(),info) + end if + end if else info = psb_err_invalid_cd_state_ call psb_errpush(info,name) diff --git a/cbind/Makefile b/cbind/Makefile index 2abb6cfe..acc82fa9 100644 --- a/cbind/Makefile +++ b/cbind/Makefile @@ -6,20 +6,25 @@ INCDIR=../include MODDIR=../modules/ LIBNAME=$(CBINDLIBNAME) -lib: based precd krylovd utild - /bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR) +objs: based precd krylovd utild /bin/cp -p $(CPUPDFLAG) *.h $(INCDIR) /bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR) +lib: objs + cd base && $(MAKE) lib LIBNAME=$(LIBNAME) + cd prec && $(MAKE) lib LIBNAME=$(LIBNAME) + cd krylov && $(MAKE) lib LIBNAME=$(LIBNAME) + cd util && $(MAKE) lib LIBNAME=$(LIBNAME) + /bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR) based: - cd base && $(MAKE) lib LIBNAME=$(LIBNAME) + cd base && $(MAKE) objs LIBNAME=$(LIBNAME) precd: based - cd prec && $(MAKE) lib LIBNAME=$(LIBNAME) + cd prec && $(MAKE) objs LIBNAME=$(LIBNAME) krylovd: based precd - cd krylov && $(MAKE) lib LIBNAME=$(LIBNAME) + cd krylov && $(MAKE) objs LIBNAME=$(LIBNAME) utild: based - cd util && $(MAKE) lib LIBNAME=$(LIBNAME) + cd util && $(MAKE) objs LIBNAME=$(LIBNAME) clean: cd base && $(MAKE) clean diff --git a/cbind/base/Makefile b/cbind/base/Makefile index e66da0c4..2b744829 100644 --- a/cbind/base/Makefile +++ b/cbind/base/Makefile @@ -27,10 +27,11 @@ OBJS=$(FOBJS) $(COBJS) LIBNAME=$(CBINDLIBNAME) -lib: $(OBJS) $(CMOD) +objs: $(OBJS) $(CMOD) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) +lib: objs $(AR) $(HERE)/$(LIBNAME) $(OBJS) $(RANLIB) $(HERE)/$(LIBNAME) - /bin/cp -p *$(.mod) $(CMOD) $(HERE) $(COBJS): $(CMOD) diff --git a/cbind/base/psb_base_tools_cbind_mod.F90 b/cbind/base/psb_base_tools_cbind_mod.F90 index dc05fd66..7126ced8 100644 --- a/cbind/base/psb_base_tools_cbind_mod.F90 +++ b/cbind/base/psb_base_tools_cbind_mod.F90 @@ -100,6 +100,47 @@ contains end function psb_c_cdall_vl + function psb_c_cdall_vl_opt(nl,vl,cctxt,cdh) bind(c,name='psb_c_cdall_vl_opt') result(res) + implicit none + + integer(psb_c_ipk_) :: res + type(psb_c_object_type), value :: cctxt + integer(psb_c_ipk_), value :: nl + integer(psb_c_lpk_) :: vl(*) + type(psb_c_object_type) :: cdh + type(psb_desc_type), pointer :: descp + integer(psb_c_ipk_) :: info, ixb + type(psb_ctxt_type) :: ctxt + ctxt = psb_c2f_ctxt(cctxt) + + res = -1 + if (nl <=0) then + write(0,*) 'Invalid size' + return + end if + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + call descp%free(info) + if (info == 0) deallocate(descp,stat=info) + if (info /= 0) return + end if + + allocate(descp,stat=info) + if (info < 0) return + + ixb = psb_c_get_index_base() + + if (ixb == 1) then + call psb_cdall(ctxt,descp,info,vl=vl(1:nl),globalcheck=.true.) + else + call psb_cdall(ctxt,descp,info,vl=(vl(1:nl)+(1-ixb)),globalcheck=.true.) + end if + cdh%item = c_loc(descp) + res = info + + end function psb_c_cdall_vl_opt + function psb_c_cdall_nl(nl,cctxt,cdh) bind(c,name='psb_c_cdall_nl') result(res) implicit none diff --git a/cbind/base/psb_c_cbase.h b/cbind/base/psb_c_cbase.h index dd64d6e2..bff9633a 100644 --- a/cbind/base/psb_c_cbase.h +++ b/cbind/base/psb_c_cbase.h @@ -24,6 +24,7 @@ psb_i_t psb_c_cvect_zero(psb_c_cvector *xh); psb_i_t *psb_c_cvect_f_get_pnt(psb_c_cvector *xh); psb_i_t psb_c_cgeall(psb_c_cvector *xh, psb_c_descriptor *cdh); +psb_i_t psb_c_cgeall_remote(psb_c_cvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_cgeins(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val, psb_c_cvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_cgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_c_t *val, @@ -35,6 +36,7 @@ psb_c_t psb_c_cgetelem(psb_c_cvector *xh,psb_l_t index,psb_c_descriptor *cd); /* sparse matrices*/ psb_c_cspmat* psb_c_new_cspmat(); psb_i_t psb_c_cspall(psb_c_cspmat *mh, psb_c_descriptor *cdh); +psb_i_t psb_c_cspall_remote(psb_c_cspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_cspasb(psb_c_cspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_cspfree(psb_c_cspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_cspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, diff --git a/cbind/base/psb_c_dbase.h b/cbind/base/psb_c_dbase.h index 8c2c6a61..591f885b 100644 --- a/cbind/base/psb_c_dbase.h +++ b/cbind/base/psb_c_dbase.h @@ -24,6 +24,7 @@ psb_i_t psb_c_dvect_zero(psb_c_dvector *xh); psb_d_t *psb_c_dvect_f_get_pnt( psb_c_dvector *xh); psb_i_t psb_c_dgeall(psb_c_dvector *xh, psb_c_descriptor *cdh); +psb_i_t psb_c_dgeall_remote(psb_c_dvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_dgeins(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val, psb_c_dvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_dgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_d_t *val, @@ -35,6 +36,7 @@ psb_d_t psb_c_dgetelem(psb_c_dvector *xh,psb_l_t index,psb_c_descriptor *cd); /* sparse matrices*/ psb_c_dspmat* psb_c_new_dspmat(); psb_i_t psb_c_dspall(psb_c_dspmat *mh, psb_c_descriptor *cdh); +psb_i_t psb_c_dspall_remote(psb_c_dspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_dspasb(psb_c_dspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_dspfree(psb_c_dspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_dspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, diff --git a/cbind/base/psb_c_sbase.h b/cbind/base/psb_c_sbase.h index b2e18ba5..68abefdd 100644 --- a/cbind/base/psb_c_sbase.h +++ b/cbind/base/psb_c_sbase.h @@ -24,6 +24,7 @@ psb_i_t psb_c_svect_zero(psb_c_svector *xh); psb_s_t *psb_c_svect_f_get_pnt( psb_c_svector *xh); psb_i_t psb_c_sgeall(psb_c_svector *xh, psb_c_descriptor *cdh); +psb_i_t psb_c_sgeall_remote(psb_c_svector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_sgeins(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val, psb_c_svector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_sgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_s_t *val, @@ -35,6 +36,7 @@ psb_s_t psb_c_sgetelem(psb_c_svector *xh,psb_l_t index,psb_c_descriptor *cd); /* sparse matrices*/ psb_c_sspmat* psb_c_new_sspmat(); psb_i_t psb_c_sspall(psb_c_sspmat *mh, psb_c_descriptor *cdh); +psb_i_t psb_c_sspall_remote(psb_c_sspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_sspasb(psb_c_sspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_sspfree(psb_c_sspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_sspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, diff --git a/cbind/base/psb_c_tools_cbind_mod.F90 b/cbind/base/psb_c_tools_cbind_mod.F90 index 84fea6d7..8f64cbb0 100644 --- a/cbind/base/psb_c_tools_cbind_mod.F90 +++ b/cbind/base/psb_c_tools_cbind_mod.F90 @@ -5,10 +5,11 @@ module psb_c_tools_cbind_mod use psb_objhandle_mod use psb_base_string_cbind_mod use psb_base_tools_cbind_mod - + contains - function psb_c_cgeall(xh,cdh) bind(c) result(res) + ! Should define geall_opt with DUPL argument + function psb_c_cgeall(xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -37,6 +38,35 @@ contains return end function psb_c_cgeall + function psb_c_cgeall_remote(xh,cdh) bind(c) result(res) + + implicit none + integer(psb_c_ipk_) :: res + type(psb_c_cvector) :: xh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_c_vect_type), pointer :: xp + integer(psb_c_ipk_) :: info + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + return + end if + allocate(xp) + call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) + xh%item = c_loc(xp) + res = min(0,info) + + return + end function psb_c_cgeall_remote + function psb_c_cgeasb(xh,cdh) bind(c) result(res) implicit none @@ -101,7 +131,7 @@ contains end function psb_c_cgefree - function psb_c_cgeins(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_cgeins(nz,irw,val,xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -131,10 +161,10 @@ contains ixb = psb_c_get_index_base() if (ixb == 1) then call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) else call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) end if res = min(0,info) @@ -142,20 +172,16 @@ contains return end function psb_c_cgeins - - function psb_c_cgeins_add(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_cspall(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res - integer(psb_c_ipk_), value :: nz - integer(psb_c_lpk_) :: irw(*) - complex(c_float_complex) :: val(*) - type(psb_c_cvector) :: xh + type(psb_c_cspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp - type(psb_c_vect_type), pointer :: xp - integer(psb_c_ipk_) :: ixb, info + type(psb_cspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -163,27 +189,19 @@ contains else return end if - if (c_associated(xh%item)) then - call c_f_pointer(xh%item,xp) - else + if (c_associated(mh%item)) then return end if - - ixb = psb_c_get_index_base() - if (ixb == 1) then - call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - else - call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - end if + allocate(ap) + call psb_spall(ap,descp,info) + mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_cgeins_add + end function psb_c_cspall - function psb_c_cspall(mh,cdh) bind(c) result(res) + function psb_c_cspall_remote(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -204,14 +222,12 @@ contains return end if allocate(ap) - call psb_spall(ap,descp,info) + call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_cspall - - + end function psb_c_cspall_remote function psb_c_cspasb(mh,cdh) bind(c) result(res) @@ -241,7 +257,6 @@ contains return end function psb_c_cspasb - function psb_c_cspfree(mh,cdh) bind(c) result(res) implicit none @@ -275,7 +290,7 @@ contains #if 0 - function psb_c_cspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res) + function psb_c_cspasb_opt(mh,cdh,afmt,upd) bind(c) result(res) #ifdef HAVE_LIBRSB use psb_c_rsb_mat_mod @@ -284,7 +299,7 @@ contains integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer(psb_c_ipk_) :: info,n, fdupl + integer(psb_c_ipk_) :: info,n character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_c_rsb_sparse_mat) :: arsb @@ -301,11 +316,11 @@ contains #ifdef HAVE_LIBRSB case('RSB') call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & upd=upd,dupl=dupl,mold=arsb) + & upd=upd,mold=arsb) #endif case default call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & afmt=fafmt,upd=upd,dupl=dupl) + & afmt=fafmt,upd=upd) end select res = min(0,info) diff --git a/cbind/base/psb_c_zbase.h b/cbind/base/psb_c_zbase.h index 16ee1ac4..9a27e9c0 100644 --- a/cbind/base/psb_c_zbase.h +++ b/cbind/base/psb_c_zbase.h @@ -24,6 +24,7 @@ psb_i_t psb_c_zvect_zero(psb_c_zvector *xh); psb_z_t *psb_c_zvect_f_get_pnt( psb_c_zvector *xh); psb_i_t psb_c_zgeall(psb_c_zvector *xh, psb_c_descriptor *cdh); +psb_i_t psb_c_zgeall_remote(psb_c_zvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_zgeins(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val, psb_c_zvector *xh, psb_c_descriptor *cdh); psb_i_t psb_c_zgeins_add(psb_i_t nz, const psb_l_t *irw, const psb_z_t *val, @@ -35,6 +36,7 @@ psb_z_t psb_c_zgetelem(psb_c_zvector *xh,psb_l_t index,psb_c_descriptor *cd); /* sparse matrices*/ psb_c_zspmat* psb_c_new_zspmat(); psb_i_t psb_c_zspall(psb_c_zspmat *mh, psb_c_descriptor *cdh); +psb_i_t psb_c_zspall_remote(psb_c_zspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_zspasb(psb_c_zspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_zspfree(psb_c_zspmat *mh, psb_c_descriptor *cdh); psb_i_t psb_c_zspins(psb_i_t nz, const psb_l_t *irw, const psb_l_t *icl, diff --git a/cbind/base/psb_d_tools_cbind_mod.F90 b/cbind/base/psb_d_tools_cbind_mod.F90 index 08e214a5..67ae8b86 100644 --- a/cbind/base/psb_d_tools_cbind_mod.F90 +++ b/cbind/base/psb_d_tools_cbind_mod.F90 @@ -5,10 +5,11 @@ module psb_d_tools_cbind_mod use psb_objhandle_mod use psb_base_string_cbind_mod use psb_base_tools_cbind_mod - + contains - function psb_c_dgeall(xh,cdh) bind(c) result(res) + ! Should define geall_opt with DUPL argument + function psb_c_dgeall(xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -37,6 +38,35 @@ contains return end function psb_c_dgeall + function psb_c_dgeall_remote(xh,cdh) bind(c) result(res) + + implicit none + integer(psb_c_ipk_) :: res + type(psb_c_dvector) :: xh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_d_vect_type), pointer :: xp + integer(psb_c_ipk_) :: info + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + return + end if + allocate(xp) + call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) + xh%item = c_loc(xp) + res = min(0,info) + + return + end function psb_c_dgeall_remote + function psb_c_dgeasb(xh,cdh) bind(c) result(res) implicit none @@ -101,7 +131,7 @@ contains end function psb_c_dgefree - function psb_c_dgeins(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_dgeins(nz,irw,val,xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -131,10 +161,10 @@ contains ixb = psb_c_get_index_base() if (ixb == 1) then call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) else call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) end if res = min(0,info) @@ -142,20 +172,16 @@ contains return end function psb_c_dgeins - - function psb_c_dgeins_add(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_dspall(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res - integer(psb_c_ipk_), value :: nz - integer(psb_c_lpk_) :: irw(*) - real(c_double) :: val(*) - type(psb_c_dvector) :: xh + type(psb_c_dspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp - type(psb_d_vect_type), pointer :: xp - integer(psb_c_ipk_) :: ixb, info + type(psb_dspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -163,27 +189,19 @@ contains else return end if - if (c_associated(xh%item)) then - call c_f_pointer(xh%item,xp) - else + if (c_associated(mh%item)) then return end if - - ixb = psb_c_get_index_base() - if (ixb == 1) then - call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - else - call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - end if + allocate(ap) + call psb_spall(ap,descp,info) + mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_dgeins_add + end function psb_c_dspall - function psb_c_dspall(mh,cdh) bind(c) result(res) + function psb_c_dspall_remote(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -204,14 +222,12 @@ contains return end if allocate(ap) - call psb_spall(ap,descp,info) + call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_dspall - - + end function psb_c_dspall_remote function psb_c_dspasb(mh,cdh) bind(c) result(res) @@ -241,7 +257,6 @@ contains return end function psb_c_dspasb - function psb_c_dspfree(mh,cdh) bind(c) result(res) implicit none @@ -275,7 +290,7 @@ contains #if 0 - function psb_c_dspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res) + function psb_c_dspasb_opt(mh,cdh,afmt,upd) bind(c) result(res) #ifdef HAVE_LIBRSB use psb_d_rsb_mat_mod @@ -284,7 +299,7 @@ contains integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer(psb_c_ipk_) :: info,n, fdupl + integer(psb_c_ipk_) :: info,n character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_d_rsb_sparse_mat) :: arsb @@ -301,11 +316,11 @@ contains #ifdef HAVE_LIBRSB case('RSB') call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & upd=upd,dupl=dupl,mold=arsb) + & upd=upd,mold=arsb) #endif case default call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & afmt=fafmt,upd=upd,dupl=dupl) + & afmt=fafmt,upd=upd) end select res = min(0,info) diff --git a/cbind/base/psb_s_tools_cbind_mod.F90 b/cbind/base/psb_s_tools_cbind_mod.F90 index d9584338..91d9b322 100644 --- a/cbind/base/psb_s_tools_cbind_mod.F90 +++ b/cbind/base/psb_s_tools_cbind_mod.F90 @@ -5,10 +5,11 @@ module psb_s_tools_cbind_mod use psb_objhandle_mod use psb_base_string_cbind_mod use psb_base_tools_cbind_mod - + contains - function psb_c_sgeall(xh,cdh) bind(c) result(res) + ! Should define geall_opt with DUPL argument + function psb_c_sgeall(xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -37,6 +38,35 @@ contains return end function psb_c_sgeall + function psb_c_sgeall_remote(xh,cdh) bind(c) result(res) + + implicit none + integer(psb_c_ipk_) :: res + type(psb_c_svector) :: xh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_s_vect_type), pointer :: xp + integer(psb_c_ipk_) :: info + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + return + end if + allocate(xp) + call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) + xh%item = c_loc(xp) + res = min(0,info) + + return + end function psb_c_sgeall_remote + function psb_c_sgeasb(xh,cdh) bind(c) result(res) implicit none @@ -101,7 +131,7 @@ contains end function psb_c_sgefree - function psb_c_sgeins(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_sgeins(nz,irw,val,xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -131,10 +161,10 @@ contains ixb = psb_c_get_index_base() if (ixb == 1) then call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) else call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) end if res = min(0,info) @@ -142,20 +172,16 @@ contains return end function psb_c_sgeins - - function psb_c_sgeins_add(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_sspall(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res - integer(psb_c_ipk_), value :: nz - integer(psb_c_lpk_) :: irw(*) - real(c_float) :: val(*) - type(psb_c_svector) :: xh + type(psb_c_sspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp - type(psb_s_vect_type), pointer :: xp - integer(psb_c_ipk_) :: ixb, info + type(psb_sspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -163,27 +189,19 @@ contains else return end if - if (c_associated(xh%item)) then - call c_f_pointer(xh%item,xp) - else + if (c_associated(mh%item)) then return end if - - ixb = psb_c_get_index_base() - if (ixb == 1) then - call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - else - call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - end if + allocate(ap) + call psb_spall(ap,descp,info) + mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_sgeins_add + end function psb_c_sspall - function psb_c_sspall(mh,cdh) bind(c) result(res) + function psb_c_sspall_remote(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -204,14 +222,12 @@ contains return end if allocate(ap) - call psb_spall(ap,descp,info) + call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_sspall - - + end function psb_c_sspall_remote function psb_c_sspasb(mh,cdh) bind(c) result(res) @@ -241,7 +257,6 @@ contains return end function psb_c_sspasb - function psb_c_sspfree(mh,cdh) bind(c) result(res) implicit none @@ -275,7 +290,7 @@ contains #if 0 - function psb_c_sspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res) + function psb_c_sspasb_opt(mh,cdh,afmt,upd) bind(c) result(res) #ifdef HAVE_LIBRSB use psb_s_rsb_mat_mod @@ -284,7 +299,7 @@ contains integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer(psb_c_ipk_) :: info,n, fdupl + integer(psb_c_ipk_) :: info,n character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_s_rsb_sparse_mat) :: arsb @@ -301,11 +316,11 @@ contains #ifdef HAVE_LIBRSB case('RSB') call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & upd=upd,dupl=dupl,mold=arsb) + & upd=upd,mold=arsb) #endif case default call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & afmt=fafmt,upd=upd,dupl=dupl) + & afmt=fafmt,upd=upd) end select res = min(0,info) diff --git a/cbind/base/psb_z_tools_cbind_mod.F90 b/cbind/base/psb_z_tools_cbind_mod.F90 index 572eeb95..59d4cca8 100644 --- a/cbind/base/psb_z_tools_cbind_mod.F90 +++ b/cbind/base/psb_z_tools_cbind_mod.F90 @@ -5,10 +5,11 @@ module psb_z_tools_cbind_mod use psb_objhandle_mod use psb_base_string_cbind_mod use psb_base_tools_cbind_mod - + contains - function psb_c_zgeall(xh,cdh) bind(c) result(res) + ! Should define geall_opt with DUPL argument + function psb_c_zgeall(xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -37,6 +38,35 @@ contains return end function psb_c_zgeall + function psb_c_zgeall_remote(xh,cdh) bind(c) result(res) + + implicit none + integer(psb_c_ipk_) :: res + type(psb_c_zvector) :: xh + type(psb_c_descriptor) :: cdh + + type(psb_desc_type), pointer :: descp + type(psb_z_vect_type), pointer :: xp + integer(psb_c_ipk_) :: info + + res = -1 + + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(xh%item)) then + return + end if + allocate(xp) + call psb_geall(xp,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) + xh%item = c_loc(xp) + res = min(0,info) + + return + end function psb_c_zgeall_remote + function psb_c_zgeasb(xh,cdh) bind(c) result(res) implicit none @@ -101,7 +131,7 @@ contains end function psb_c_zgefree - function psb_c_zgeins(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_zgeins(nz,irw,val,xh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -131,10 +161,10 @@ contains ixb = psb_c_get_index_base() if (ixb == 1) then call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) else call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_ovwrt_) + & xp,descp,info) end if res = min(0,info) @@ -142,20 +172,16 @@ contains return end function psb_c_zgeins - - function psb_c_zgeins_add(nz,irw,val,xh,cdh) bind(c) result(res) + function psb_c_zspall(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res - integer(psb_c_ipk_), value :: nz - integer(psb_c_lpk_) :: irw(*) - complex(c_double_complex) :: val(*) - type(psb_c_zvector) :: xh + type(psb_c_zspmat) :: mh type(psb_c_descriptor) :: cdh type(psb_desc_type), pointer :: descp - type(psb_z_vect_type), pointer :: xp - integer(psb_c_ipk_) :: ixb, info + type(psb_zspmat_type), pointer :: ap + integer(psb_c_ipk_) :: info,n res = -1 if (c_associated(cdh%item)) then @@ -163,27 +189,19 @@ contains else return end if - if (c_associated(xh%item)) then - call c_f_pointer(xh%item,xp) - else + if (c_associated(mh%item)) then return end if - - ixb = psb_c_get_index_base() - if (ixb == 1) then - call psb_geins(nz,irw(1:nz),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - else - call psb_geins(nz,(irw(1:nz)+(1-ixb)),val(1:nz),& - & xp,descp,info, dupl=psb_dupl_add_) - end if + allocate(ap) + call psb_spall(ap,descp,info) + mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_zgeins_add + end function psb_c_zspall - function psb_c_zspall(mh,cdh) bind(c) result(res) + function psb_c_zspall_remote(mh,cdh) bind(c) result(res) implicit none integer(psb_c_ipk_) :: res @@ -204,14 +222,12 @@ contains return end if allocate(ap) - call psb_spall(ap,descp,info) + call psb_spall(ap,descp,info,bldmode=psb_matbld_remote_,dupl=psb_dupl_add_) mh%item = c_loc(ap) res = min(0,info) return - end function psb_c_zspall - - + end function psb_c_zspall_remote function psb_c_zspasb(mh,cdh) bind(c) result(res) @@ -241,7 +257,6 @@ contains return end function psb_c_zspasb - function psb_c_zspfree(mh,cdh) bind(c) result(res) implicit none @@ -275,7 +290,7 @@ contains #if 0 - function psb_c_zspasb_opt(mh,cdh,afmt,upd,dupl) bind(c) result(res) + function psb_c_zspasb_opt(mh,cdh,afmt,upd) bind(c) result(res) #ifdef HAVE_LIBRSB use psb_z_rsb_mat_mod @@ -284,7 +299,7 @@ contains integer(psb_c_ipk_) :: res integer(psb_c_ipk_), value :: cdh, mh,upd,dupl character(c_char) :: afmt(*) - integer(psb_c_ipk_) :: info,n, fdupl + integer(psb_c_ipk_) :: info,n character(len=5) :: fafmt #ifdef HAVE_LIBRSB type(psb_z_rsb_sparse_mat) :: arsb @@ -301,11 +316,11 @@ contains #ifdef HAVE_LIBRSB case('RSB') call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & upd=upd,dupl=dupl,mold=arsb) + & upd=upd,mold=arsb) #endif case default call psb_spasb(double_spmat_pool(mh)%item,descriptor_pool(cdh)%item,info,& - & afmt=fafmt,upd=upd,dupl=dupl) + & afmt=fafmt,upd=upd) end select res = min(0,info) diff --git a/cbind/krylov/Makefile b/cbind/krylov/Makefile index 2706271a..041e23d4 100644 --- a/cbind/krylov/Makefile +++ b/cbind/krylov/Makefile @@ -16,11 +16,12 @@ CMOD=psb_krylov_cbind.h LIBNAME=$(CKRYLOVLIBNAME) -lib: $(OBJS) $(CMOD) +objs: $(OBJS) $(CMOD) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) +lib: objs $(AR) $(HERE)/$(LIBNAME) $(OBJS) $(RANLIB) $(HERE)/$(LIBNAME) /bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR) - /bin/cp -p *$(.mod) $(CMOD) $(HERE) psb_skrylov_cbind_mod.o psb_dkrylov_cbind_mod.o psb_ckrylov_cbind_mod.o psb_zkrylov_cbind_mod.o: psb_base_krylov_cbind_mod.o veryclean: clean diff --git a/cbind/prec/Makefile b/cbind/prec/Makefile index 8dee57e8..c6f53bf8 100644 --- a/cbind/prec/Makefile +++ b/cbind/prec/Makefile @@ -18,11 +18,12 @@ CMOD=psb_prec_cbind.h psb_c_sprec.h psb_c_dprec.h psb_c_cprec.h psb_c_zprec.h LIBNAME=$(CPRECLIBNAME) -lib: $(OBJS) $(CMOD) +objs: $(OBJS) $(CMOD) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) +lib: objs $(AR) $(HERE)/$(LIBNAME) $(OBJS) $(RANLIB) $(HERE)/$(LIBNAME) /bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR) - /bin/cp -p *$(.mod) $(CMOD) $(HERE) psb_prec_cbind_mod.o: psb_sprec_cbind_mod.o psb_dprec_cbind_mod.o psb_cprec_cbind_mod.o psb_zprec_cbind_mod.o veryclean: clean diff --git a/cbind/util/Makefile b/cbind/util/Makefile index d37cb680..62733d4a 100644 --- a/cbind/util/Makefile +++ b/cbind/util/Makefile @@ -18,11 +18,12 @@ CMOD=psb_util_cbind.h psb_c_cutil.h psb_c_zutil.h psb_c_dutil.h psb_c_sutil.h LIBNAME=$(CUTILLIBNAME) -lib: $(OBJS) $(CMOD) +objs: $(OBJS) $(CMOD) + /bin/cp -p *$(.mod) $(CMOD) $(HERE) +lib: objs $(AR) $(HERE)/$(LIBNAME) $(OBJS) $(RANLIB) $(HERE)/$(LIBNAME) /bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR) - /bin/cp -p *$(.mod) $(CMOD) $(HERE) psb_util_cbind_mod.o: psb_c_util_cbind_mod.o psb_d_util_cbind_mod.o psb_s_util_cbind_mod.o psb_z_util_cbind_mod.o veryclean: clean diff --git a/cbind/util/psb_c_cutil.h b/cbind/util/psb_c_cutil.h index 4d2755d6..9da81aa1 100644 --- a/cbind/util/psb_c_cutil.h +++ b/cbind/util/psb_c_cutil.h @@ -8,6 +8,8 @@ extern "C" { /* I/O Routine */ psb_i_t psb_c_cmm_mat_write(psb_c_cspmat *ah, char *matrixtitle, char *filename); +psb_i_t psb_c_cglobal_mat_write(psb_c_cspmat *ah,psb_c_descriptor *cdh); +psb_i_t psb_c_cglobal_vec_write(psb_c_cvector *vh,psb_c_descriptor *cdh); #ifdef __cplusplus } diff --git a/cbind/util/psb_c_dutil.h b/cbind/util/psb_c_dutil.h index 306d7310..144e156d 100644 --- a/cbind/util/psb_c_dutil.h +++ b/cbind/util/psb_c_dutil.h @@ -8,6 +8,8 @@ extern "C" { /* I/O Routine */ psb_i_t psb_c_dmm_mat_write(psb_c_dspmat *ah, char *matrixtitle, char *filename); +psb_i_t psb_c_dglobal_mat_write(psb_c_dspmat *ah,psb_c_descriptor *cdh); +psb_i_t psb_c_dglobal_vec_write(psb_c_dvector *vh,psb_c_descriptor *cdh); #ifdef __cplusplus } diff --git a/cbind/util/psb_c_sutil.h b/cbind/util/psb_c_sutil.h index 9dd1ed54..a70097ed 100644 --- a/cbind/util/psb_c_sutil.h +++ b/cbind/util/psb_c_sutil.h @@ -8,6 +8,8 @@ extern "C" { /* I/O Routine */ psb_i_t psb_c_smm_mat_write(psb_c_sspmat *ah, char *matrixtitle, char *filename); +psb_i_t psb_c_sglobal_mat_write(psb_c_sspmat *ah,psb_c_descriptor *cdh); +psb_i_t psb_c_sglobal_vec_write(psb_c_svector *vh,psb_c_descriptor *cdh); #ifdef __cplusplus } diff --git a/cbind/util/psb_c_util_cbind_mod.f90 b/cbind/util/psb_c_util_cbind_mod.f90 index 3761cd08..ae3f6cf8 100644 --- a/cbind/util/psb_c_util_cbind_mod.f90 +++ b/cbind/util/psb_c_util_cbind_mod.f90 @@ -41,4 +41,91 @@ contains end function psb_c_cmm_mat_write + function psb_c_cglobal_mat_write(ah,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_cspmat_type), pointer :: ap + type(psb_desc_type), pointer :: descp + ! Local variables + type(psb_cspmat_type) :: aglobal + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: matrixname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(aglobal,ap,descp,info) + if (iam == psb_root_) then + write(matrixname,'("A-np-",I1,".mtx")') np + call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname)) + end if + + call psb_spfree(aglobal,descp,info) + res = info + + end function psb_c_cglobal_mat_write + + function psb_c_cglobal_vec_write(vh,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_cvector) :: vh + type(psb_c_descriptor) :: cdh + + type(psb_c_vect_type), pointer :: vp + type(psb_desc_type), pointer :: descp + ! Local variables + complex(psb_spk_), allocatable :: vglobal(:) + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: vecname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(vh%item)) then + call c_f_pointer(vh%item,vp) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(vglobal,vp,descp,info) + if (iam == psb_root_) then + write(vecname,'("v-np-",I1,".mtx")') np + call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname)) + end if + + deallocate(vglobal,stat=info) + res = info + + end function psb_c_cglobal_vec_write + + end module psb_cutil_cbind_mod diff --git a/cbind/util/psb_c_zutil.h b/cbind/util/psb_c_zutil.h index f5d0f225..4e308c36 100644 --- a/cbind/util/psb_c_zutil.h +++ b/cbind/util/psb_c_zutil.h @@ -8,6 +8,8 @@ extern "C" { /* I/O Routine */ psb_i_t psb_c_zmm_mat_write(psb_c_zspmat *ah, char *matrixtitle, char *filename); +psb_i_t psb_c_zglobal_mat_write(psb_c_zspmat *ah,psb_c_descriptor *cdh); +psb_i_t psb_c_zglobal_vec_write(psb_c_zvector *vh,psb_c_descriptor *cdh); #ifdef __cplusplus } diff --git a/cbind/util/psb_d_util_cbind_mod.f90 b/cbind/util/psb_d_util_cbind_mod.f90 index 245cff5e..29fec75b 100644 --- a/cbind/util/psb_d_util_cbind_mod.f90 +++ b/cbind/util/psb_d_util_cbind_mod.f90 @@ -41,4 +41,91 @@ contains end function psb_c_dmm_mat_write + function psb_c_dglobal_mat_write(ah,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_dspmat_type), pointer :: ap + type(psb_desc_type), pointer :: descp + ! Local variables + type(psb_dspmat_type) :: aglobal + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: matrixname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(aglobal,ap,descp,info) + if (iam == psb_root_) then + write(matrixname,'("A-np-",I1,".mtx")') np + call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname)) + end if + + call psb_spfree(aglobal,descp,info) + res = info + + end function psb_c_dglobal_mat_write + + function psb_c_dglobal_vec_write(vh,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_dvector) :: vh + type(psb_c_descriptor) :: cdh + + type(psb_d_vect_type), pointer :: vp + type(psb_desc_type), pointer :: descp + ! Local variables + real(psb_dpk_), allocatable :: vglobal(:) + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: vecname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(vh%item)) then + call c_f_pointer(vh%item,vp) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(vglobal,vp,descp,info) + if (iam == psb_root_) then + write(vecname,'("v-np-",I1,".mtx")') np + call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname)) + end if + + deallocate(vglobal,stat=info) + res = info + + end function psb_c_dglobal_vec_write + + end module psb_dutil_cbind_mod diff --git a/cbind/util/psb_s_util_cbind_mod.f90 b/cbind/util/psb_s_util_cbind_mod.f90 index e857cde9..0dfe3ddc 100644 --- a/cbind/util/psb_s_util_cbind_mod.f90 +++ b/cbind/util/psb_s_util_cbind_mod.f90 @@ -41,4 +41,91 @@ contains end function psb_c_smm_mat_write + function psb_c_sglobal_mat_write(ah,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_sspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_sspmat_type), pointer :: ap + type(psb_desc_type), pointer :: descp + ! Local variables + type(psb_sspmat_type) :: aglobal + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: matrixname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(aglobal,ap,descp,info) + if (iam == psb_root_) then + write(matrixname,'("A-np-",I1,".mtx")') np + call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname)) + end if + + call psb_spfree(aglobal,descp,info) + res = info + + end function psb_c_sglobal_mat_write + + function psb_c_sglobal_vec_write(vh,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_svector) :: vh + type(psb_c_descriptor) :: cdh + + type(psb_s_vect_type), pointer :: vp + type(psb_desc_type), pointer :: descp + ! Local variables + real(psb_spk_), allocatable :: vglobal(:) + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: vecname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(vh%item)) then + call c_f_pointer(vh%item,vp) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(vglobal,vp,descp,info) + if (iam == psb_root_) then + write(vecname,'("v-np-",I1,".mtx")') np + call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname)) + end if + + deallocate(vglobal,stat=info) + res = info + + end function psb_c_sglobal_vec_write + + end module psb_sutil_cbind_mod diff --git a/cbind/util/psb_z_util_cbind_mod.f90 b/cbind/util/psb_z_util_cbind_mod.f90 index e0b60005..792f836f 100644 --- a/cbind/util/psb_z_util_cbind_mod.f90 +++ b/cbind/util/psb_z_util_cbind_mod.f90 @@ -41,4 +41,91 @@ contains end function psb_c_zmm_mat_write + function psb_c_zglobal_mat_write(ah,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zspmat) :: ah + type(psb_c_descriptor) :: cdh + + type(psb_zspmat_type), pointer :: ap + type(psb_desc_type), pointer :: descp + ! Local variables + type(psb_zspmat_type) :: aglobal + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: matrixname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(ah%item)) then + call c_f_pointer(ah%item,ap) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(aglobal,ap,descp,info) + if (iam == psb_root_) then + write(matrixname,'("A-np-",I1,".mtx")') np + call mm_mat_write(aglobal,"Global matrix",info,filename=trim(matrixname)) + end if + + call psb_spfree(aglobal,descp,info) + res = info + + end function psb_c_zglobal_mat_write + + function psb_c_zglobal_vec_write(vh,cdh) bind(c) result(res) + use psb_base_mod + use psb_util_mod + use psb_base_string_cbind_mod + implicit none + integer(psb_c_ipk_) :: res + + type(psb_c_zvector) :: vh + type(psb_c_descriptor) :: cdh + + type(psb_z_vect_type), pointer :: vp + type(psb_desc_type), pointer :: descp + ! Local variables + complex(psb_dpk_), allocatable :: vglobal(:) + integer(psb_ipk_) :: info, iam, np + type(psb_ctxt_type) :: ctxt + character(len=40) :: vecname + + res = -1 + if (c_associated(cdh%item)) then + call c_f_pointer(cdh%item,descp) + else + return + end if + if (c_associated(vh%item)) then + call c_f_pointer(vh%item,vp) + else + return + end if + + ctxt = descp%get_ctxt() + call psb_info(ctxt,iam,np) + call psb_gather(vglobal,vp,descp,info) + if (iam == psb_root_) then + write(vecname,'("v-np-",I1,".mtx")') np + call mm_array_write(vglobal,"Global vector",info,filename=trim(vecname)) + end if + + deallocate(vglobal,stat=info) + res = info + + end function psb_c_zglobal_vec_write + + end module psb_zutil_cbind_mod diff --git a/compile b/compile new file mode 100644 index 00000000..e69de29b diff --git a/config/acx_mpi.m4 b/config/acx_mpi.m4 index 77f433d8..c3231a93 100644 --- a/config/acx_mpi.m4 +++ b/config/acx_mpi.m4 @@ -105,16 +105,16 @@ if test x = x"$MPILIBS"; then AC_CHECK_LIB(mpich, MPI_Init, [MPILIBS="-lmpich"]) fi -dnl We have to use AC_TRY_COMPILE and not AC_CHECK_HEADER because the +dnl We have to use AC_COMPILE_IFELSE and not AC_CHECK_HEADER because the dnl latter uses $CPP, not $CC (which may be mpicc). AC_LANG_CASE([C], [if test x != x"$MPILIBS"; then AC_MSG_CHECKING([for mpi.h]) - AC_TRY_COMPILE([#include ],[],[AC_MSG_RESULT(yes)], [MPILIBS="" + AC_COMPILE_IFELSE([#include ],[],[AC_MSG_RESULT(yes)], [MPILIBS="" AC_MSG_RESULT(no)]) fi], [C++], [if test x != x"$MPILIBS"; then AC_MSG_CHECKING([for mpi.h]) - AC_TRY_COMPILE([#include ],[],[AC_MSG_RESULT(yes)], [MPILIBS="" + AC_COMPILE_IFELSE([#include ],[],[AC_MSG_RESULT(yes)], [MPILIBS="" AC_MSG_RESULT(no)]) fi], [Fortran 77], [if test x != x"$MPILIBS"; then diff --git a/config/pac.m4 b/config/pac.m4 index 08554d67..773b7e59 100644 --- a/config/pac.m4 +++ b/config/pac.m4 @@ -79,8 +79,8 @@ dnl Warning : square brackets are EVIL! [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -117,8 +117,8 @@ dnl Warning : square brackets are EVIL! [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -154,8 +154,8 @@ AC_DEFUN(PAC_CHECK_HAVE_GFORTRAN, [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -188,8 +188,8 @@ AC_DEFUN(PAC_HAVE_MODERN_GFORTRAN, ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) AC_MSG_NOTICE([Sorry, we require GNU Fortran version 4.9 or later.]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -249,8 +249,8 @@ AC_DEFUN(PAC_FORTRAN_CHECK_HAVE_MPI_MOD, [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -282,8 +282,8 @@ dnl Warning : square brackets are EVIL! ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) pac_cv_mpi_f08="no"; - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -318,7 +318,7 @@ AC_DEFUN([PAC_ARG_WITH_FLAGS], AC_MSG_CHECKING([whether additional [$2] flags should be added (should be invoked only once)]) dnl AC_MSG_CHECKING([whether additional [$2] flags should be added]) AC_ARG_WITH($1, -AC_HELP_STRING([--with-$1], +AS_HELP_STRING([--with-$1], [additional [$2] flags to be added: will prepend to [$2]]), [ $2="${withval} ${$2}" @@ -350,7 +350,7 @@ AC_DEFUN([PAC_ARG_WITH_LIBS], [ AC_MSG_CHECKING([whether additional libraries are needed]) AC_ARG_WITH(libs, -AC_HELP_STRING([--with-libs], +AS_HELP_STRING([--with-libs], [List additional link flags here. For example, --with-libs=-lspecial_system_lib or --with-libs=-L/path/to/libs]), [ @@ -377,7 +377,7 @@ dnl AC_DEFUN([PAC_ARG_SERIAL_MPI], [AC_MSG_CHECKING([whether we want serial mpi stubs]) AC_ARG_ENABLE(serial, -AC_HELP_STRING([--enable-serial], +AS_HELP_STRING([--enable-serial], [Specify whether to enable a fake mpi library to run in serial mode. ]), [ pac_cv_serial_mpi="yes"; @@ -408,7 +408,7 @@ dnl AC_DEFUN([PAC_ARG_OPENMP], [AC_MSG_CHECKING([whether we want openmp ]) AC_ARG_ENABLE(openmp, -AC_HELP_STRING([--enable-openmp], +AS_HELP_STRING([--enable-openmp], [Specify whether to enable openmp. ]), [ pac_cv_openmp="yes"; @@ -452,7 +452,7 @@ AC_DEFUN([PAC_ARG_LONG_INTEGERS], [ AC_MSG_CHECKING([whether we want long (8 bytes) integers]) AC_ARG_ENABLE(long-integers, -AC_HELP_STRING([--enable-long-integers], +AS_HELP_STRING([--enable-long-integers], [Specify usage of 64 bits integers. ]), [ pac_cv_long_integers="yes"; @@ -484,7 +484,7 @@ AC_DEFUN([PAC_ARG_WITH_IPK], [ AC_MSG_CHECKING([what size in bytes we want for local indices and data]) AC_ARG_WITH(ipk, - AC_HELP_STRING([--with-ipk=], + AS_HELP_STRING([--with-ipk=], [Specify the size in bytes for local indices and data, default 4 bytes. ]), [pac_cv_ipk_size=$withval;], [pac_cv_ipk_size=4;] @@ -513,7 +513,7 @@ AC_DEFUN([PAC_ARG_WITH_LPK], [ AC_MSG_CHECKING([what size in bytes we want for global indices and data]) AC_ARG_WITH(lpk, - AC_HELP_STRING([--with-lpk=], + AS_HELP_STRING([--with-lpk=], [Specify the size in bytes for global indices and data, default 8 bytes. ]), [pac_cv_lpk_size=$withval;], [pac_cv_lpk_size=8;] @@ -552,8 +552,8 @@ if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then ifelse([$1], , :, [rm -rf conftest* $1]) else - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ rm -rf conftest* $2 ])dnl @@ -634,8 +634,8 @@ end program testtr15581], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -669,8 +669,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -715,8 +715,8 @@ end module conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -759,8 +759,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -818,8 +818,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -867,8 +867,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -912,8 +912,8 @@ end program stt], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -955,8 +955,8 @@ end program xtt], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -977,7 +977,7 @@ dnl @author Michele Martone dnl @author Salvatore Filippone dnl AC_DEFUN(PAC_CHECK_BLACS, -[AC_ARG_WITH(blacs, AC_HELP_STRING([--with-blacs=LIB], [Specify BLACSLIBNAME or -lBLACSLIBNAME or the absolute library filename.]), +[AC_ARG_WITH(blacs, AS_HELP_STRING([--with-blacs=LIB], [Specify BLACSLIBNAME or -lBLACSLIBNAME or the absolute library filename.]), [psblas_cv_blacs=$withval], [psblas_cv_blacs='']) @@ -1212,7 +1212,7 @@ dnl AC_REQUIRE([AC_FC_LIBRARY_LDFLAGS]) pac_blas_ok=no AC_ARG_WITH(blas, - [AC_HELP_STRING([--with-blas=], [use BLAS library ])]) + [AS_HELP_STRING([--with-blas=], [use BLAS library ])]) case $with_blas in yes | "") ;; no) pac_blas_ok=disable ;; @@ -1220,7 +1220,7 @@ case $with_blas in *) BLAS_LIBS="-l$with_blas" ;; esac AC_ARG_WITH(blasdir, - [AC_HELP_STRING([--with-blasdir=], [search for BLAS library in ])]) + [AS_HELP_STRING([--with-blasdir=], [search for BLAS library in ])]) case $with_blasdir in "") ;; *) if test -d $with_blasdir; then @@ -1456,7 +1456,7 @@ AC_REQUIRE([PAC_BLAS]) pac_lapack_ok=no AC_ARG_WITH(lapack, - [AC_HELP_STRING([--with-lapack=], [use LAPACK library ])]) + [AS_HELP_STRING([--with-lapack=], [use LAPACK library ])]) case $with_lapack in yes | "") ;; no) pac_lapack_ok=disable ;; @@ -1488,8 +1488,8 @@ EOF AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD fi rm -f conftest* LIBS="$save_LIBS" @@ -1515,8 +1515,8 @@ EOF AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD fi rm -f conftest* LIBS="$save_LIBS" @@ -1580,8 +1580,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -1608,8 +1608,8 @@ AC_DEFUN(PAC_FORTRAN_TEST_ISO_FORTRAN_ENV, [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -1642,8 +1642,8 @@ end program conftest], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -1686,8 +1686,8 @@ end program xtt], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -1731,8 +1731,8 @@ end program xtt], [ AC_MSG_RESULT([yes]) ifelse([$1], , :, [ $1])], [ AC_MSG_RESULT([no]) - echo "configure: failed program was:" >&AC_FD_CC - cat conftest.$ac_ext >&AC_FD_CC + echo "configure: failed program was:" >&AS_MESSAGE_LOG_FD + cat conftest.$ac_ext >&AS_MESSAGE_LOG_FD ifelse([$2], , , [ $2])]) AC_LANG_POP([Fortran]) ]) @@ -1752,17 +1752,17 @@ dnl dnl @author Salvatore Filippone dnl AC_DEFUN(PAC_CHECK_AMD, -[AC_ARG_WITH(amd, AC_HELP_STRING([--with-amd=LIBNAME], [Specify the library name for AMD library. +[AC_ARG_WITH(amd, AS_HELP_STRING([--with-amd=LIBNAME], [Specify the library name for AMD library. Default: "-lamd"]), [psblas_cv_amd=$withval], [psblas_cv_amd='-lamd']) -AC_ARG_WITH(amddir, AC_HELP_STRING([--with-amddir=DIR], [Specify the directory for AMD library and includes.]), +AC_ARG_WITH(amddir, AS_HELP_STRING([--with-amddir=DIR], [Specify the directory for AMD library and includes.]), [psblas_cv_amddir=$withval], [psblas_cv_amddir='']) -AC_ARG_WITH(amdincdir, AC_HELP_STRING([--with-amdincdir=DIR], [Specify the directory for AMD includes.]), +AC_ARG_WITH(amdincdir, AS_HELP_STRING([--with-amdincdir=DIR], [Specify the directory for AMD includes.]), [psblas_cv_amdincdir=$withval], [psblas_cv_amdincdir='']) -AC_ARG_WITH(amdlibdir, AC_HELP_STRING([--with-amdlibdir=DIR], [Specify the directory for AMD library.]), +AC_ARG_WITH(amdlibdir, AS_HELP_STRING([--with-amdlibdir=DIR], [Specify the directory for AMD library.]), [psblas_cv_amdlibdir=$withval], [psblas_cv_amdlibdir='']) @@ -1862,20 +1862,20 @@ dnl dnl @author Salvatore Filippone dnl AC_DEFUN(PAC_CHECK_METIS, -[AC_ARG_WITH(metis, AC_HELP_STRING([--with-metis=LIBNAME], [Specify the library name for METIS library. +[AC_ARG_WITH(metis, AS_HELP_STRING([--with-metis=LIBNAME], [Specify the library name for METIS library. Default: "-lmetis"]), [psblas_cv_metis=$withval], [psblas_cv_metis='-lmetis']) -AC_ARG_WITH(metisincfile, AC_HELP_STRING([--with-metisincfile=DIR], [Specify the name for METIS include file.]), +AC_ARG_WITH(metisincfile, AS_HELP_STRING([--with-metisincfile=DIR], [Specify the name for METIS include file.]), [psblas_cv_metisincfile=$withval], [psblas_cv_metisincfile='metis.h']) -AC_ARG_WITH(metisdir, AC_HELP_STRING([--with-metisdir=DIR], [Specify the directory for METIS library and includes.]), +AC_ARG_WITH(metisdir, AS_HELP_STRING([--with-metisdir=DIR], [Specify the directory for METIS library and includes.]), [psblas_cv_metisdir=$withval], [psblas_cv_metisdir='']) -AC_ARG_WITH(metisincdir, AC_HELP_STRING([--with-metisincdir=DIR], [Specify the directory for METIS includes.]), +AC_ARG_WITH(metisincdir, AS_HELP_STRING([--with-metisincdir=DIR], [Specify the directory for METIS includes.]), [psblas_cv_metisincdir=$withval], [psblas_cv_metisincdir='']) -AC_ARG_WITH(metislibdir, AC_HELP_STRING([--with-metislibdir=DIR], [Specify the directory for METIS library.]), +AC_ARG_WITH(metislibdir, AS_HELP_STRING([--with-metislibdir=DIR], [Specify the directory for METIS library.]), [psblas_cv_metislibdir=$withval], [psblas_cv_metislibdir='']) @@ -1898,7 +1898,7 @@ if test "x$psblas_cv_metislibdir" != "x"; then fi AC_MSG_NOTICE([metis dir $psblas_cv_metisdir]) -AC_CHECK_HEADERS([limits.h $psblas_cv_metisincfile], +AC_CHECK_HEADERS([limits.h "$psblas_cv_metisincfile"], [pac_metis_header_ok=yes], [pac_metis_header_ok=no; METIS_INCLUDES=""]) if test "x$pac_metis_header_ok" == "xno" ; then @@ -1908,7 +1908,7 @@ dnl Maybe Include or include subdirs? CPPFLAGS="$METIS_INCLUDES $SAVE_CPPFLAGS" AC_MSG_CHECKING([for metis_h in $METIS_INCLUDES]) - AC_CHECK_HEADERS([limits.h $psblas_cv_metisincfile], + AC_CHECK_HEADERS([limits.h "$psblas_cv_metisincfile"], [pac_metis_header_ok=yes], [pac_metis_header_ok=no; METIS_INCLUDES=""]) fi @@ -1917,7 +1917,7 @@ dnl Maybe new structure with METIS UFconfig METIS? unset ac_cv_header_metis_h METIS_INCLUDES="-I$psblas_cv_metisdir/UFconfig -I$psblas_cv_metisdir/METIS/Include -I$psblas_cv_metisdir/METIS/Include" CPPFLAGS="$METIS_INCLUDES $SAVE_CPPFLAGS" - AC_CHECK_HEADERS([limits.h $psblas_cv_metisincfile], + AC_CHECK_HEADERS([limits.h "$psblas_cv_metisincfile"], [pac_metis_header_ok=yes], [pac_metis_header_ok=no; METIS_INCLUDES=""]) fi diff --git a/configure b/configure index fb8d0800..c20b7686 100755 --- a/configure +++ b/configure @@ -1,11 +1,12 @@ #! /bin/sh # Guess values for system-dependent variables and create Makefiles. -# Generated by GNU Autoconf 2.69 for PSBLAS 3.7.0. +# Generated by GNU Autoconf 2.71 for PSBLAS 3.7.0. # # Report bugs to . # # -# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. +# Copyright (C) 1992-1996, 1998-2017, 2020-2021 Free Software Foundation, +# Inc. # # # This configure script is free software; the Free Software Foundation @@ -16,14 +17,16 @@ # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +as_nop=: +if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST -else +else $as_nop case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( @@ -33,46 +36,46 @@ esac fi + +# Reset variables that may have inherited troublesome values from +# the environment. + +# IFS needs to be set, to space, tab, and newline, in precisely that order. +# (If _AS_PATH_WALK were called with IFS unset, it would have the +# side effect of setting IFS to empty, thus disabling word splitting.) +# Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' -else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi +IFS=" "" $as_nl" + +PS1='$ ' +PS2='> ' +PS4='+ ' + +# Ensure predictable behavior from utilities with locale-dependent output. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# We cannot yet rely on "unset" to work, but we need these variables +# to be unset--not just set to an empty or harmless value--now, to +# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct +# also avoids known problems related to "unset" and subshell syntax +# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). +for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH +do eval test \${$as_var+y} \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done + +# Ensure that fds 0, 1, and 2 are open. +if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi +if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then +if ${PATH_SEPARATOR+false} :; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || @@ -81,13 +84,6 @@ if test "${PATH_SEPARATOR+set}" != set; then fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( @@ -96,8 +92,12 @@ case $0 in #(( for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + test -r "$as_dir$0" && as_myself=$as_dir$0 && break done IFS=$as_save_IFS @@ -109,30 +109,10 @@ if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. @@ -154,20 +134,22 @@ esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. -$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 -as_fn_exit 255 +printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 +exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then - as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : + as_bourne_compatible="as_nop=: +if test \${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST -else +else \$as_nop case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( @@ -187,42 +169,53 @@ as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } -if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : +if ( set x; as_fn_ret_success y && test x = \"\$1\" ) +then : -else +else \$as_nop exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 +blah=\$(echo \$(echo blah)) +test x\"\$blah\" = xblah || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" - if (eval "$as_required") 2>/dev/null; then : + if (eval "$as_required") 2>/dev/null +then : as_have_required=yes -else +else $as_nop as_have_required=no fi - if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : + if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null +then : -else +else $as_nop as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. - as_shell=$as_dir/$as_base + as_shell=$as_dir$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : + as_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null +then : CONFIG_SHELL=$as_shell as_have_required=yes - if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : + if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null +then : break 2 fi fi @@ -230,14 +223,21 @@ fi esac as_found=false done -$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && - { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : - CONFIG_SHELL=$SHELL as_have_required=yes -fi; } IFS=$as_save_IFS +if $as_found +then : + +else $as_nop + if { test -f "$SHELL" || test -f "$SHELL.exe"; } && + as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null +then : + CONFIG_SHELL=$SHELL as_have_required=yes +fi +fi - if test "x$CONFIG_SHELL" != x; then : + if test "x$CONFIG_SHELL" != x +then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also @@ -255,18 +255,19 @@ esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. -$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 +printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi - if test x$as_have_required = xno; then : - $as_echo "$0: This script requires a shell more modern than all" - $as_echo "$0: the shells that I found on your system." - if test x${ZSH_VERSION+set} = xset ; then - $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" - $as_echo "$0: be upgraded to zsh 4.3.4 or later." + if test x$as_have_required = xno +then : + printf "%s\n" "$0: This script requires a shell more modern than all" + printf "%s\n" "$0: the shells that I found on your system." + if test ${ZSH_VERSION+y} ; then + printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should" + printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later." else - $as_echo "$0: Please tell bug-autoconf@gnu.org and + printf "%s\n" "$0: Please tell bug-autoconf@gnu.org and $0: https://github.com/sfilippone/psblas3/issues about your $0: system, including any error possibly output before this $0: message. Then install a modern shell, or manually run @@ -294,6 +295,7 @@ as_fn_unset () } as_unset=as_fn_unset + # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. @@ -311,6 +313,14 @@ as_fn_exit () as_fn_set_status $1 exit $1 } # as_fn_exit +# as_fn_nop +# --------- +# Do nothing but, unlike ":", preserve the value of $?. +as_fn_nop () +{ + return $? +} +as_nop=as_fn_nop # as_fn_mkdir_p # ------------- @@ -325,7 +335,7 @@ as_fn_mkdir_p () as_dirs= while :; do case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" @@ -334,7 +344,7 @@ $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | +printf "%s\n" X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -373,12 +383,13 @@ as_fn_executable_p () # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null +then : eval 'as_fn_append () { eval $1+=\$2 }' -else +else $as_nop as_fn_append () { eval $1=\$$1\$2 @@ -390,18 +401,27 @@ fi # as_fn_append # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null +then : eval 'as_fn_arith () { as_val=$(( $* )) }' -else +else $as_nop as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith +# as_fn_nop +# --------- +# Do nothing but, unlike ":", preserve the value of $?. +as_fn_nop () +{ + return $? +} +as_nop=as_fn_nop # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- @@ -413,9 +433,9 @@ as_fn_error () as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi - $as_echo "$as_me: error: $2" >&2 + printf "%s\n" "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error @@ -442,7 +462,7 @@ as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | +printf "%s\n" X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q @@ -486,7 +506,7 @@ as_cr_alnum=$as_cr_Letters$as_cr_digits s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || - { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } + { printf "%s\n" "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall @@ -500,6 +520,10 @@ as_cr_alnum=$as_cr_Letters$as_cr_digits exit } + +# Determine whether it's possible to make 'echo' print without a newline. +# These variables are no longer used directly by Autoconf, but are AC_SUBSTed +# for compatibility with existing Makefiles. ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) @@ -513,6 +537,13 @@ case `echo -n x` in #((((( ECHO_N='-n';; esac +# For backward compatibility with old third-party macros, we provide +# the shell variables $as_echo and $as_echo_n. New code should use +# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. +as_echo='printf %s\n' +as_echo_n='printf %s' + + rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file @@ -588,40 +619,36 @@ PACKAGE_URL='' ac_unique_file="base/modules/psb_base_mod.f90" # Factoring default headers for most tests. ac_includes_default="\ -#include -#ifdef HAVE_SYS_TYPES_H -# include -#endif -#ifdef HAVE_SYS_STAT_H -# include +#include +#ifdef HAVE_STDIO_H +# include #endif -#ifdef STDC_HEADERS +#ifdef HAVE_STDLIB_H # include -# include -#else -# ifdef HAVE_STDLIB_H -# include -# endif #endif #ifdef HAVE_STRING_H -# if !defined STDC_HEADERS && defined HAVE_MEMORY_H -# include -# endif # include #endif -#ifdef HAVE_STRINGS_H -# include -#endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif +#ifdef HAVE_STRINGS_H +# include +#endif +#ifdef HAVE_SYS_TYPES_H +# include +#endif +#ifdef HAVE_SYS_STAT_H +# include +#endif #ifdef HAVE_UNISTD_H # include #endif" +ac_header_c_list= ac_subst_vars='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS @@ -667,13 +694,13 @@ LAPACK_LIBS OPENMP_CXXFLAGS OPENMP_CFLAGS OPENMP_FCFLAGS -EGREP -GREP -CPP AM_BACKSLASH AM_DEFAULT_VERBOSITY AM_DEFAULT_V AM_V +CSCOPE +ETAGS +CTAGS am__fastdepCXX_FALSE am__fastdepCXX_TRUE CXXDEPMODE @@ -814,8 +841,7 @@ CXXFLAGS CCC MPICC MPICXX -MPIFC -CPP' +MPIFC' # Initialize some variables set by options. @@ -884,8 +910,6 @@ do *) ac_optarg=yes ;; esac - # Accept the important Cygnus configure options, so we can diagnose typos. - case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; @@ -926,9 +950,9 @@ do ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid feature name: $ac_useropt" + as_fn_error $? "invalid feature name: \`$ac_useropt'" ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" @@ -952,9 +976,9 @@ do ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid feature name: $ac_useropt" + as_fn_error $? "invalid feature name: \`$ac_useropt'" ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" @@ -1165,9 +1189,9 @@ do ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid package name: $ac_useropt" + as_fn_error $? "invalid package name: \`$ac_useropt'" ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" @@ -1181,9 +1205,9 @@ do ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && - as_fn_error $? "invalid package name: $ac_useropt" + as_fn_error $? "invalid package name: \`$ac_useropt'" ac_useropt_orig=$ac_useropt - ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` + ac_useropt=`printf "%s\n" "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" @@ -1227,9 +1251,9 @@ Try \`$0 --help' for more information" *) # FIXME: should be removed in autoconf 3.0. - $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 + printf "%s\n" "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && - $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 + printf "%s\n" "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; @@ -1245,7 +1269,7 @@ if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; - *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; + *) printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi @@ -1309,7 +1333,7 @@ $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_myself" | +printf "%s\n" X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -1515,7 +1539,6 @@ Some influential environment variables: MPICC MPI C compiler command MPICXX MPI C++ compiler command MPIFC MPI Fortran compiler command - CPP C preprocessor Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. @@ -1536,9 +1559,9 @@ if test "$ac_init_help" = "recursive"; then case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) - ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; @@ -1566,7 +1589,8 @@ esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } - # Check for guested configure. + # Check for configure.gnu first; this name is used for a wrapper for + # Metaconfig's "Configure" on case-insensitive file systems. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive @@ -1574,7 +1598,7 @@ ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix echo && $SHELL "$ac_srcdir/configure" --help=recursive else - $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 + printf "%s\n" "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done @@ -1584,9 +1608,9 @@ test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF PSBLAS configure 3.7.0 -generated by GNU Autoconf 2.69 +generated by GNU Autoconf 2.71 -Copyright (C) 2012 Free Software Foundation, Inc. +Copyright (C) 2021 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF @@ -1603,14 +1627,14 @@ fi ac_fn_fc_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext + rm -f conftest.$ac_objext conftest.beam if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1618,14 +1642,15 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_fc_werror_flag" || test ! -s conftest.err - } && test -s conftest.$ac_objext; then : + } && test -s conftest.$ac_objext +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1641,14 +1666,14 @@ fi ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext + rm -f conftest.$ac_objext conftest.beam if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1656,14 +1681,15 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err - } && test -s conftest.$ac_objext; then : + } && test -s conftest.$ac_objext +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1679,14 +1705,14 @@ fi ac_fn_cxx_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext + rm -f conftest.$ac_objext conftest.beam if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1694,14 +1720,15 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_werror_flag" || test ! -s conftest.err - } && test -s conftest.$ac_objext; then : + } && test -s conftest.$ac_objext +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1717,14 +1744,14 @@ fi ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest$ac_exeext + rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1732,17 +1759,18 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext - }; then : + } +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1763,11 +1791,12 @@ fi ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +printf %s "checking for $2... " >&6; } +if eval test \${$3+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. @@ -1775,16 +1804,9 @@ else #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $2 (); below. - Prefer to if __STDC__ is defined, since - exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include -#else -# include -#endif + which can conflict with char $2 (); below. */ +#include #undef $2 /* Override any GCC internal prototype to avoid an error. @@ -1802,24 +1824,25 @@ choke me #endif int -main () +main (void) { return $2 (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : eval "$3=yes" -else +else $as_nop eval "$3=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func @@ -1830,14 +1853,14 @@ $as_echo "$ac_res" >&6; } ac_fn_cxx_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest$ac_exeext + rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1845,17 +1868,18 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext - }; then : + } +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1876,11 +1900,12 @@ fi ac_fn_cxx_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +printf %s "checking for $2... " >&6; } +if eval test \${$3+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. @@ -1888,16 +1913,9 @@ else #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, - which can conflict with char $2 (); below. - Prefer to if __STDC__ is defined, since - exists even on freestanding compilers. */ - -#ifdef __STDC__ -# include -#else -# include -#endif + which can conflict with char $2 (); below. */ +#include #undef $2 /* Override any GCC internal prototype to avoid an error. @@ -1915,24 +1933,25 @@ choke me #endif int -main () +main (void) { return $2 (); ; return 0; } _ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : +if ac_fn_cxx_try_link "$LINENO" +then : eval "$3=yes" -else +else $as_nop eval "$3=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_cxx_check_func @@ -1943,14 +1962,14 @@ $as_echo "$ac_res" >&6; } ac_fn_fc_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - rm -f conftest.$ac_objext conftest$ac_exeext + rm -f conftest.$ac_objext conftest.beam conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -1958,17 +1977,18 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_fc_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext - }; then : + } +then : ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 @@ -1985,8 +2005,8 @@ fi # ac_fn_c_try_run LINENO # ---------------------- -# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes -# that executables *can* be run. +# Try to run conftest.$ac_ext, and return whether this succeeded. Assumes that +# executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack @@ -1996,25 +2016,26 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; }; then : + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; }; } +then : ac_retval=0 -else - $as_echo "$as_me: program exited with status $ac_status" >&5 - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: program exited with status $ac_status" >&5 + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status @@ -2039,7 +2060,7 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int -main () +main (void) { static int test_array [1 - 2 * !(($2) >= 0)]; test_array [0] = 0; @@ -2049,14 +2070,15 @@ return test_array [0]; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_lo=0 ac_mid=0 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int -main () +main (void) { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; @@ -2066,9 +2088,10 @@ return test_array [0]; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_hi=$ac_mid; break -else +else $as_nop as_fn_arith $ac_mid + 1 && ac_lo=$as_val if test $ac_lo -le $ac_mid; then ac_lo= ac_hi= @@ -2076,14 +2099,14 @@ else fi as_fn_arith 2 '*' $ac_mid + 1 && ac_mid=$as_val fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext done -else +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int -main () +main (void) { static int test_array [1 - 2 * !(($2) < 0)]; test_array [0] = 0; @@ -2093,14 +2116,15 @@ return test_array [0]; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_hi=-1 ac_mid=-1 while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int -main () +main (void) { static int test_array [1 - 2 * !(($2) >= $ac_mid)]; test_array [0] = 0; @@ -2110,9 +2134,10 @@ return test_array [0]; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_lo=$ac_mid; break -else +else $as_nop as_fn_arith '(' $ac_mid ')' - 1 && ac_hi=$as_val if test $ac_mid -le $ac_hi; then ac_lo= ac_hi= @@ -2120,14 +2145,14 @@ else fi as_fn_arith 2 '*' $ac_mid && ac_mid=$as_val fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext done -else +else $as_nop ac_lo= ac_hi= fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext # Binary search between lo and hi bounds. while test "x$ac_lo" != "x$ac_hi"; do as_fn_arith '(' $ac_hi - $ac_lo ')' / 2 + $ac_lo && ac_mid=$as_val @@ -2135,7 +2160,7 @@ while test "x$ac_lo" != "x$ac_hi"; do /* end confdefs.h. */ $4 int -main () +main (void) { static int test_array [1 - 2 * !(($2) <= $ac_mid)]; test_array [0] = 0; @@ -2145,12 +2170,13 @@ return test_array [0]; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_hi=$ac_mid -else +else $as_nop as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext done case $ac_lo in #(( ?*) eval "$3=\$ac_lo"; ac_retval=0 ;; @@ -2160,12 +2186,12 @@ esac cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 -static long int longval () { return $2; } -static unsigned long int ulongval () { return $2; } +static long int longval (void) { return $2; } +static unsigned long int ulongval (void) { return $2; } #include #include int -main () +main (void) { FILE *f = fopen ("conftest.val", "w"); @@ -2193,9 +2219,10 @@ main () return 0; } _ACEOF -if ac_fn_c_try_run "$LINENO"; then : +if ac_fn_c_try_run "$LINENO" +then : echo >>conftest.val; read $3 &5 - (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err - ac_status=$? - if test -s conftest.err; then - grep -v '^ *+' conftest.err >conftest.er1 - cat conftest.er1 >&5 - mv -f conftest.er1 conftest.err - fi - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; } > conftest.i && { - test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || - test ! -s conftest.err - }; then : - ac_retval=0 -else - $as_echo "$as_me: failed program was:" >&5 -sed 's/^/| /' conftest.$ac_ext >&5 - - ac_retval=1 -fi - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno - as_fn_set_status $ac_retval - -} # ac_fn_c_try_cpp - # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in @@ -2252,128 +2242,59 @@ fi ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 +printf %s "checking for $2... " >&6; } +if eval test \${$3+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : eval "$3=yes" -else +else $as_nop eval "$3=no" fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile +ac_configure_args_raw= +for ac_arg +do + case $ac_arg in + *\'*) + ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append ac_configure_args_raw " '$ac_arg'" +done -# ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES -# ------------------------------------------------------- -# Tests whether HEADER exists, giving a warning if it cannot be compiled using -# the include files in INCLUDES and setting the cache variable VAR -# accordingly. -ac_fn_c_check_header_mongrel () -{ - as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - if eval \${$3+:} false; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -else - # Is the header compilable? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 -$as_echo_n "checking $2 usability... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -$4 -#include <$2> -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_header_compiler=yes -else - ac_header_compiler=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 -$as_echo "$ac_header_compiler" >&6; } - -# Is the header present? -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 -$as_echo_n "checking $2 presence... " >&6; } -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include <$2> -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - ac_header_preproc=yes -else - ac_header_preproc=no -fi -rm -f conftest.err conftest.i conftest.$ac_ext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 -$as_echo "$ac_header_preproc" >&6; } - -# So? What about this header? -case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( - yes:no: ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 -$as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} - ;; - no:yes:* ) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 -$as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 -$as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 -$as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 -$as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 -$as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} -( $as_echo "## ----------------------------------------------------------- ## -## Report this to https://github.com/sfilippone/psblas3/issues ## -## ----------------------------------------------------------- ##" - ) | sed "s/^/$as_me: WARNING: /" >&2 - ;; +case $ac_configure_args_raw in + *$as_nl*) + ac_safe_unquote= ;; + *) + ac_unsafe_z='|&;<>()$`\\"*?[ '' ' # This string ends in space, tab. + ac_unsafe_a="$ac_unsafe_z#~" + ac_safe_unquote="s/ '\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\)'/ \\1/g" + ac_configure_args_raw=` printf "%s\n" "$ac_configure_args_raw" | sed "$ac_safe_unquote"`;; esac - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 -$as_echo_n "checking for $2... " >&6; } -if eval \${$3+:} false; then : - $as_echo_n "(cached) " >&6 -else - eval "$3=\$ac_header_compiler" -fi -eval ac_res=\$$3 - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -fi - eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno -} # ac_fn_c_check_header_mongrel cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by PSBLAS $as_me 3.7.0, which was -generated by GNU Autoconf 2.69. Invocation command line was +generated by GNU Autoconf 2.71. Invocation command line was - $ $0 $@ + $ $0$ac_configure_args_raw _ACEOF exec 5>>config.log @@ -2406,8 +2327,12 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - $as_echo "PATH: $as_dir" + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + printf "%s\n" "PATH: $as_dir" done IFS=$as_save_IFS @@ -2442,7 +2367,7 @@ do | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) - ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; + ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; @@ -2477,11 +2402,13 @@ done # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? + # Sanitize IFS. + IFS=" "" $as_nl" # Save into config.log some information that might help in debugging. { echo - $as_echo "## ---------------- ## + printf "%s\n" "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo @@ -2492,8 +2419,8 @@ trap 'exit_status=$? case $ac_val in #( *${as_nl}*) case $ac_var in #( - *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( @@ -2517,7 +2444,7 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; ) echo - $as_echo "## ----------------- ## + printf "%s\n" "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo @@ -2525,14 +2452,14 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; do eval ac_val=\$$ac_var case $ac_val in - *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac - $as_echo "$ac_var='\''$ac_val'\''" + printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then - $as_echo "## ------------------- ## + printf "%s\n" "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo @@ -2540,15 +2467,15 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; do eval ac_val=\$$ac_var case $ac_val in - *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; + *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac - $as_echo "$ac_var='\''$ac_val'\''" + printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then - $as_echo "## ----------- ## + printf "%s\n" "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo @@ -2556,8 +2483,8 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; echo fi test "$ac_signal" != 0 && - $as_echo "$as_me: caught signal $ac_signal" - $as_echo "$as_me: exit $exit_status" + printf "%s\n" "$as_me: caught signal $ac_signal" + printf "%s\n" "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && @@ -2571,63 +2498,48 @@ ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h -$as_echo "/* confdefs.h */" > confdefs.h +printf "%s\n" "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. -cat >>confdefs.h <<_ACEOF -#define PACKAGE_NAME "$PACKAGE_NAME" -_ACEOF +printf "%s\n" "#define PACKAGE_NAME \"$PACKAGE_NAME\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define PACKAGE_TARNAME "$PACKAGE_TARNAME" -_ACEOF +printf "%s\n" "#define PACKAGE_TARNAME \"$PACKAGE_TARNAME\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define PACKAGE_VERSION "$PACKAGE_VERSION" -_ACEOF +printf "%s\n" "#define PACKAGE_VERSION \"$PACKAGE_VERSION\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define PACKAGE_STRING "$PACKAGE_STRING" -_ACEOF +printf "%s\n" "#define PACKAGE_STRING \"$PACKAGE_STRING\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" -_ACEOF +printf "%s\n" "#define PACKAGE_BUGREPORT \"$PACKAGE_BUGREPORT\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define PACKAGE_URL "$PACKAGE_URL" -_ACEOF +printf "%s\n" "#define PACKAGE_URL \"$PACKAGE_URL\"" >>confdefs.h # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. -ac_site_file1=NONE -ac_site_file2=NONE if test -n "$CONFIG_SITE"; then - # We do not want a PATH search for config.site. - case $CONFIG_SITE in #(( - -*) ac_site_file1=./$CONFIG_SITE;; - */*) ac_site_file1=$CONFIG_SITE;; - *) ac_site_file1=./$CONFIG_SITE;; - esac + ac_site_files="$CONFIG_SITE" elif test "x$prefix" != xNONE; then - ac_site_file1=$prefix/share/config.site - ac_site_file2=$prefix/etc/config.site + ac_site_files="$prefix/share/config.site $prefix/etc/config.site" else - ac_site_file1=$ac_default_prefix/share/config.site - ac_site_file2=$ac_default_prefix/etc/config.site + ac_site_files="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi -for ac_site_file in "$ac_site_file1" "$ac_site_file2" + +for ac_site_file in $ac_site_files do - test "x$ac_site_file" = xNONE && continue - if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 -$as_echo "$as_me: loading site script $ac_site_file" >&6;} + case $ac_site_file in #( + */*) : + ;; #( + *) : + ac_site_file=./$ac_site_file ;; +esac + if test -f "$ac_site_file" && test -r "$ac_site_file"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 +printf "%s\n" "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ - || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + || { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi @@ -2637,112 +2549,744 @@ if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 -$as_echo "$as_me: loading cache $cache_file" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 +printf "%s\n" "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else - { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 -$as_echo "$as_me: creating cache $cache_file" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 +printf "%s\n" "$as_me: creating cache $cache_file" >&6;} >$cache_file fi -# Check that the precious variables saved in the cache have kept the same -# value. -ac_cache_corrupted=false -for ac_var in $ac_precious_vars; do - eval ac_old_set=\$ac_cv_env_${ac_var}_set - eval ac_new_set=\$ac_env_${ac_var}_set - eval ac_old_val=\$ac_cv_env_${ac_var}_value - eval ac_new_val=\$ac_env_${ac_var}_value - case $ac_old_set,$ac_new_set in - set,) - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 -$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,set) - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 -$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} - ac_cache_corrupted=: ;; - ,);; - *) - if test "x$ac_old_val" != "x$ac_new_val"; then - # differences in whitespace do not lead to failure. - ac_old_val_w=`echo x $ac_old_val` - ac_new_val_w=`echo x $ac_new_val` - if test "$ac_old_val_w" != "$ac_new_val_w"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 -$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} - ac_cache_corrupted=: - else - { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 -$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} - eval $ac_var=\$ac_old_val - fi - { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 -$as_echo "$as_me: former value: \`$ac_old_val'" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 -$as_echo "$as_me: current value: \`$ac_new_val'" >&2;} - fi;; - esac - # Pass precious variables to config.status. - if test "$ac_new_set" = set; then - case $ac_new_val in - *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; - *) ac_arg=$ac_var=$ac_new_val ;; - esac - case " $ac_configure_args " in - *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. - *) as_fn_append ac_configure_args " '$ac_arg'" ;; - esac - fi -done -if $ac_cache_corrupted; then - { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} - { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 -$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} - as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 -fi -## -------------------- ## -## Main body of script. ## -## -------------------- ## - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - +# Test code for whether the C compiler supports C89 (global declarations) +ac_c_conftest_c89_globals=' +/* Does the compiler advertise C89 conformance? + Do not test the value of __STDC__, because some compilers set it to 0 + while being otherwise adequately conformant. */ +#if !defined __STDC__ +# error "Compiler does not advertise C89 conformance" +#endif +#include +#include +struct stat; +/* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */ +struct buf { int x; }; +struct buf * (*rcsopen) (struct buf *, struct stat *, int); +static char *e (p, i) + char **p; + int i; +{ + return p[i]; +} +static char *f (char * (*g) (char **, int), char **p, ...) +{ + char *s; + va_list v; + va_start (v,p); + s = g (p, va_arg (v,int)); + va_end (v); + return s; +} -# VERSION is the file containing the PSBLAS version code -# FIXME -psblas_cv_version="3.7.0" +/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has + function prototypes and stuff, but not \xHH hex character constants. + These do not provoke an error unfortunately, instead are silently treated + as an "x". The following induces an error, until -std is added to get + proper ANSI mode. Curiously \x00 != x always comes out true, for an + array size at least. It is necessary to write \x00 == 0 to get something + that is true only with -std. */ +int osf4_cc_array ['\''\x00'\'' == 0 ? 1 : -1]; -# A sample source file +/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters + inside strings and character constants. */ +#define FOO(x) '\''x'\'' +int xlc6_cc_array[FOO(a) == '\''x'\'' ? 1 : -1]; +int test (int i, double x); +struct s1 {int (*f) (int a);}; +struct s2 {int (*f) (double a);}; +int pairnames (int, char **, int *(*)(struct buf *, struct stat *, int), + int, int);' -# Our custom M4 macros are in the 'config' directory +# Test code for whether the C compiler supports C89 (body of main). +ac_c_conftest_c89_main=' +ok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]); +' -{ $as_echo "$as_me:${as_lineno-$LINENO}: --------------------------------------------------------------------------------- - Welcome to the $PACKAGE_NAME $psblas_cv_version configure Script. +# Test code for whether the C compiler supports C99 (global declarations) +ac_c_conftest_c99_globals=' +// Does the compiler advertise C99 conformance? +#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L +# error "Compiler does not advertise C99 conformance" +#endif - This creates Make.inc, but if you read carefully the - documentation, you can make your own by hand for your needs. +#include +extern int puts (const char *); +extern int printf (const char *, ...); +extern int dprintf (int, const char *, ...); +extern void *malloc (size_t); - Be sure to specify the library paths of your interest. Examples: - ./configure --with-libs=-L/some/directory/LIB <- will append to LIBS +// Check varargs macros. These examples are taken from C99 6.10.3.5. +// dprintf is used instead of fprintf to avoid needing to declare +// FILE and stderr. +#define debug(...) dprintf (2, __VA_ARGS__) +#define showlist(...) puts (#__VA_ARGS__) +#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) +static void +test_varargs_macros (void) +{ + int x = 1234; + int y = 5678; + debug ("Flag"); + debug ("X = %d\n", x); + showlist (The first, second, and third items.); + report (x>y, "x is %d but y is %d", x, y); +} + +// Check long long types. +#define BIG64 18446744073709551615ull +#define BIG32 4294967295ul +#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) +#if !BIG_OK + #error "your preprocessor is broken" +#endif +#if BIG_OK +#else + #error "your preprocessor is broken" +#endif +static long long int bignum = -9223372036854775807LL; +static unsigned long long int ubignum = BIG64; + +struct incomplete_array +{ + int datasize; + double data[]; +}; + +struct named_init { + int number; + const wchar_t *name; + double average; +}; + +typedef const char *ccp; + +static inline int +test_restrict (ccp restrict text) +{ + // See if C++-style comments work. + // Iterate through items via the restricted pointer. + // Also check for declarations in for loops. + for (unsigned int i = 0; *(text+i) != '\''\0'\''; ++i) + continue; + return 0; +} + +// Check varargs and va_copy. +static bool +test_varargs (const char *format, ...) +{ + va_list args; + va_start (args, format); + va_list args_copy; + va_copy (args_copy, args); + + const char *str = ""; + int number = 0; + float fnumber = 0; + + while (*format) + { + switch (*format++) + { + case '\''s'\'': // string + str = va_arg (args_copy, const char *); + break; + case '\''d'\'': // int + number = va_arg (args_copy, int); + break; + case '\''f'\'': // float + fnumber = va_arg (args_copy, double); + break; + default: + break; + } + } + va_end (args_copy); + va_end (args); + + return *str && number && fnumber; +} +' + +# Test code for whether the C compiler supports C99 (body of main). +ac_c_conftest_c99_main=' + // Check bool. + _Bool success = false; + success |= (argc != 0); + + // Check restrict. + if (test_restrict ("String literal") == 0) + success = true; + char *restrict newvar = "Another string"; + + // Check varargs. + success &= test_varargs ("s, d'\'' f .", "string", 65, 34.234); + test_varargs_macros (); + + // Check flexible array members. + struct incomplete_array *ia = + malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); + ia->datasize = 10; + for (int i = 0; i < ia->datasize; ++i) + ia->data[i] = i * 1.234; + + // Check named initializers. + struct named_init ni = { + .number = 34, + .name = L"Test wide string", + .average = 543.34343, + }; + + ni.number = 58; + + int dynamic_array[ni.number]; + dynamic_array[0] = argv[0][0]; + dynamic_array[ni.number - 1] = 543; + + // work around unused variable warnings + ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\''x'\'' + || dynamic_array[ni.number - 1] != 543); +' + +# Test code for whether the C compiler supports C11 (global declarations) +ac_c_conftest_c11_globals=' +// Does the compiler advertise C11 conformance? +#if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L +# error "Compiler does not advertise C11 conformance" +#endif + +// Check _Alignas. +char _Alignas (double) aligned_as_double; +char _Alignas (0) no_special_alignment; +extern char aligned_as_int; +char _Alignas (0) _Alignas (int) aligned_as_int; + +// Check _Alignof. +enum +{ + int_alignment = _Alignof (int), + int_array_alignment = _Alignof (int[100]), + char_alignment = _Alignof (char) +}; +_Static_assert (0 < -_Alignof (int), "_Alignof is signed"); + +// Check _Noreturn. +int _Noreturn does_not_return (void) { for (;;) continue; } + +// Check _Static_assert. +struct test_static_assert +{ + int x; + _Static_assert (sizeof (int) <= sizeof (long int), + "_Static_assert does not work in struct"); + long int y; +}; + +// Check UTF-8 literals. +#define u8 syntax error! +char const utf8_literal[] = u8"happens to be ASCII" "another string"; + +// Check duplicate typedefs. +typedef long *long_ptr; +typedef long int *long_ptr; +typedef long_ptr long_ptr; + +// Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. +struct anonymous +{ + union { + struct { int i; int j; }; + struct { int k; long int l; } w; + }; + int m; +} v1; +' + +# Test code for whether the C compiler supports C11 (body of main). +ac_c_conftest_c11_main=' + _Static_assert ((offsetof (struct anonymous, i) + == offsetof (struct anonymous, w.k)), + "Anonymous union alignment botch"); + v1.i = 2; + v1.w.k = 5; + ok |= v1.i != 5; +' + +# Test code for whether the C compiler supports C11 (complete). +ac_c_conftest_c11_program="${ac_c_conftest_c89_globals} +${ac_c_conftest_c99_globals} +${ac_c_conftest_c11_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + ${ac_c_conftest_c99_main} + ${ac_c_conftest_c11_main} + return ok; +} +" + +# Test code for whether the C compiler supports C99 (complete). +ac_c_conftest_c99_program="${ac_c_conftest_c89_globals} +${ac_c_conftest_c99_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + ${ac_c_conftest_c99_main} + return ok; +} +" + +# Test code for whether the C compiler supports C89 (complete). +ac_c_conftest_c89_program="${ac_c_conftest_c89_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_c_conftest_c89_main} + return ok; +} +" + +# Test code for whether the C++ compiler supports C++98 (global declarations) +ac_cxx_conftest_cxx98_globals=' +// Does the compiler advertise C++98 conformance? +#if !defined __cplusplus || __cplusplus < 199711L +# error "Compiler does not advertise C++98 conformance" +#endif + +// These inclusions are to reject old compilers that +// lack the unsuffixed header files. +#include +#include + +// and are *not* freestanding headers in C++98. +extern void assert (int); +namespace std { + extern int strcmp (const char *, const char *); +} + +// Namespaces, exceptions, and templates were all added after "C++ 2.0". +using std::exception; +using std::strcmp; + +namespace { + +void test_exception_syntax() +{ + try { + throw "test"; + } catch (const char *s) { + // Extra parentheses suppress a warning when building autoconf itself, + // due to lint rules shared with more typical C programs. + assert (!(strcmp) (s, "test")); + } +} + +template struct test_template +{ + T const val; + explicit test_template(T t) : val(t) {} + template T add(U u) { return static_cast(u) + val; } +}; + +} // anonymous namespace +' + +# Test code for whether the C++ compiler supports C++98 (body of main) +ac_cxx_conftest_cxx98_main=' + assert (argc); + assert (! argv[0]); +{ + test_exception_syntax (); + test_template tt (2.0); + assert (tt.add (4) == 6.0); + assert (true && !false); +} +' + +# Test code for whether the C++ compiler supports C++11 (global declarations) +ac_cxx_conftest_cxx11_globals=' +// Does the compiler advertise C++ 2011 conformance? +#if !defined __cplusplus || __cplusplus < 201103L +# error "Compiler does not advertise C++11 conformance" +#endif + +namespace cxx11test +{ + constexpr int get_val() { return 20; } + + struct testinit + { + int i; + double d; + }; + + class delegate + { + public: + delegate(int n) : n(n) {} + delegate(): delegate(2354) {} + + virtual int getval() { return this->n; }; + protected: + int n; + }; + + class overridden : public delegate + { + public: + overridden(int n): delegate(n) {} + virtual int getval() override final { return this->n * 2; } + }; + + class nocopy + { + public: + nocopy(int i): i(i) {} + nocopy() = default; + nocopy(const nocopy&) = delete; + nocopy & operator=(const nocopy&) = delete; + private: + int i; + }; + + // for testing lambda expressions + template Ret eval(Fn f, Ret v) + { + return f(v); + } + + // for testing variadic templates and trailing return types + template auto sum(V first) -> V + { + return first; + } + template auto sum(V first, Args... rest) -> V + { + return first + sum(rest...); + } +} +' + +# Test code for whether the C++ compiler supports C++11 (body of main) +ac_cxx_conftest_cxx11_main=' +{ + // Test auto and decltype + auto a1 = 6538; + auto a2 = 48573953.4; + auto a3 = "String literal"; + + int total = 0; + for (auto i = a3; *i; ++i) { total += *i; } + + decltype(a2) a4 = 34895.034; +} +{ + // Test constexpr + short sa[cxx11test::get_val()] = { 0 }; +} +{ + // Test initializer lists + cxx11test::testinit il = { 4323, 435234.23544 }; +} +{ + // Test range-based for + int array[] = {9, 7, 13, 15, 4, 18, 12, 10, 5, 3, + 14, 19, 17, 8, 6, 20, 16, 2, 11, 1}; + for (auto &x : array) { x += 23; } +} +{ + // Test lambda expressions + using cxx11test::eval; + assert (eval ([](int x) { return x*2; }, 21) == 42); + double d = 2.0; + assert (eval ([&](double x) { return d += x; }, 3.0) == 5.0); + assert (d == 5.0); + assert (eval ([=](double x) mutable { return d += x; }, 4.0) == 9.0); + assert (d == 5.0); +} +{ + // Test use of variadic templates + using cxx11test::sum; + auto a = sum(1); + auto b = sum(1, 2); + auto c = sum(1.0, 2.0, 3.0); +} +{ + // Test constructor delegation + cxx11test::delegate d1; + cxx11test::delegate d2(); + cxx11test::delegate d3(45); +} +{ + // Test override and final + cxx11test::overridden o1(55464); +} +{ + // Test nullptr + char *c = nullptr; +} +{ + // Test template brackets + test_template<::test_template> v(test_template(12)); +} +{ + // Unicode literals + char const *utf8 = u8"UTF-8 string \u2500"; + char16_t const *utf16 = u"UTF-8 string \u2500"; + char32_t const *utf32 = U"UTF-32 string \u2500"; +} +' + +# Test code for whether the C compiler supports C++11 (complete). +ac_cxx_conftest_cxx11_program="${ac_cxx_conftest_cxx98_globals} +${ac_cxx_conftest_cxx11_globals} + +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_cxx_conftest_cxx98_main} + ${ac_cxx_conftest_cxx11_main} + return ok; +} +" + +# Test code for whether the C compiler supports C++98 (complete). +ac_cxx_conftest_cxx98_program="${ac_cxx_conftest_cxx98_globals} +int +main (int argc, char **argv) +{ + int ok = 0; + ${ac_cxx_conftest_cxx98_main} + return ok; +} +" + +as_fn_append ac_header_c_list " stdio.h stdio_h HAVE_STDIO_H" +as_fn_append ac_header_c_list " stdlib.h stdlib_h HAVE_STDLIB_H" +as_fn_append ac_header_c_list " string.h string_h HAVE_STRING_H" +as_fn_append ac_header_c_list " inttypes.h inttypes_h HAVE_INTTYPES_H" +as_fn_append ac_header_c_list " stdint.h stdint_h HAVE_STDINT_H" +as_fn_append ac_header_c_list " strings.h strings_h HAVE_STRINGS_H" +as_fn_append ac_header_c_list " sys/stat.h sys_stat_h HAVE_SYS_STAT_H" +as_fn_append ac_header_c_list " sys/types.h sys_types_h HAVE_SYS_TYPES_H" +as_fn_append ac_header_c_list " unistd.h unistd_h HAVE_UNISTD_H" + +# Auxiliary files required by this configure script. +ac_aux_files="missing compile install-sh" + +# Locations in which to look for auxiliary files. +ac_aux_dir_candidates="${srcdir}${PATH_SEPARATOR}${srcdir}/..${PATH_SEPARATOR}${srcdir}/../.." + +# Search for a directory containing all of the required auxiliary files, +# $ac_aux_files, from the $PATH-style list $ac_aux_dir_candidates. +# If we don't find one directory that contains all the files we need, +# we report the set of missing files from the *first* directory in +# $ac_aux_dir_candidates and give up. +ac_missing_aux_files="" +ac_first_candidate=: +printf "%s\n" "$as_me:${as_lineno-$LINENO}: looking for aux files: $ac_aux_files" >&5 +as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +as_found=false +for as_dir in $ac_aux_dir_candidates +do + IFS=$as_save_IFS + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + as_found=: + + printf "%s\n" "$as_me:${as_lineno-$LINENO}: trying $as_dir" >&5 + ac_aux_dir_found=yes + ac_install_sh= + for ac_aux in $ac_aux_files + do + # As a special case, if "install-sh" is required, that requirement + # can be satisfied by any of "install-sh", "install.sh", or "shtool", + # and $ac_install_sh is set appropriately for whichever one is found. + if test x"$ac_aux" = x"install-sh" + then + if test -f "${as_dir}install-sh"; then + printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}install-sh found" >&5 + ac_install_sh="${as_dir}install-sh -c" + elif test -f "${as_dir}install.sh"; then + printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}install.sh found" >&5 + ac_install_sh="${as_dir}install.sh -c" + elif test -f "${as_dir}shtool"; then + printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}shtool found" >&5 + ac_install_sh="${as_dir}shtool install -c" + else + ac_aux_dir_found=no + if $ac_first_candidate; then + ac_missing_aux_files="${ac_missing_aux_files} install-sh" + else + break + fi + fi + else + if test -f "${as_dir}${ac_aux}"; then + printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}${ac_aux} found" >&5 + else + ac_aux_dir_found=no + if $ac_first_candidate; then + ac_missing_aux_files="${ac_missing_aux_files} ${ac_aux}" + else + break + fi + fi + fi + done + if test "$ac_aux_dir_found" = yes; then + ac_aux_dir="$as_dir" + break + fi + ac_first_candidate=false + + as_found=false +done +IFS=$as_save_IFS +if $as_found +then : + +else $as_nop + as_fn_error $? "cannot find required auxiliary files:$ac_missing_aux_files" "$LINENO" 5 +fi + + +# These three variables are undocumented and unsupported, +# and are intended to be withdrawn in a future Autoconf release. +# They can cause serious problems if a builder's source tree is in a directory +# whose full name contains unusual characters. +if test -f "${ac_aux_dir}config.guess"; then + ac_config_guess="$SHELL ${ac_aux_dir}config.guess" +fi +if test -f "${ac_aux_dir}config.sub"; then + ac_config_sub="$SHELL ${ac_aux_dir}config.sub" +fi +if test -f "$ac_aux_dir/configure"; then + ac_configure="$SHELL ${ac_aux_dir}configure" +fi + +# Check that the precious variables saved in the cache have kept the same +# value. +ac_cache_corrupted=false +for ac_var in $ac_precious_vars; do + eval ac_old_set=\$ac_cv_env_${ac_var}_set + eval ac_new_set=\$ac_env_${ac_var}_set + eval ac_old_val=\$ac_cv_env_${ac_var}_value + eval ac_new_val=\$ac_env_${ac_var}_value + case $ac_old_set,$ac_new_set in + set,) + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,set) + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} + ac_cache_corrupted=: ;; + ,);; + *) + if test "x$ac_old_val" != "x$ac_new_val"; then + # differences in whitespace do not lead to failure. + ac_old_val_w=`echo x $ac_old_val` + ac_new_val_w=`echo x $ac_new_val` + if test "$ac_old_val_w" != "$ac_new_val_w"; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 +printf "%s\n" "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} + ac_cache_corrupted=: + else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 +printf "%s\n" "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} + eval $ac_var=\$ac_old_val + fi + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 +printf "%s\n" "$as_me: former value: \`$ac_old_val'" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 +printf "%s\n" "$as_me: current value: \`$ac_new_val'" >&2;} + fi;; + esac + # Pass precious variables to config.status. + if test "$ac_new_set" = set; then + case $ac_new_val in + *\'*) ac_arg=$ac_var=`printf "%s\n" "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; + *) ac_arg=$ac_var=$ac_new_val ;; + esac + case " $ac_configure_args " in + *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. + *) as_fn_append ac_configure_args " '$ac_arg'" ;; + esac + fi +done +if $ac_cache_corrupted; then + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 +printf "%s\n" "$as_me: error: changes in the environment can compromise the build" >&2;} + as_fn_error $? "run \`${MAKE-make} distclean' and/or \`rm $cache_file' + and start over" "$LINENO" 5 +fi +## -------------------- ## +## Main body of script. ## +## -------------------- ## + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + + +# VERSION is the file containing the PSBLAS version code +# FIXME +psblas_cv_version="3.7.0" + +# A sample source file + + +# Our custom M4 macros are in the 'config' directory + +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: +-------------------------------------------------------------------------------- + Welcome to the $PACKAGE_NAME $psblas_cv_version configure Script. + + This creates Make.inc, but if you read carefully the + documentation, you can make your own by hand for your needs. + + Be sure to specify the library paths of your interest. Examples: + ./configure --with-libs=-L/some/directory/LIB <- will append to LIBS FC=mpif90 CC=mpicc ./configure <- will force FC,CC See ./configure --help=short fore more info. -------------------------------------------------------------------------------- " >&5 -$as_echo "$as_me: +printf "%s\n" "$as_me: -------------------------------------------------------------------------------- Welcome to the $PACKAGE_NAME $psblas_cv_version configure Script. @@ -2763,36 +3307,9 @@ $as_echo "$as_me: # Installation. # # -ac_aux_dir= -for ac_dir in "$srcdir" "$srcdir/.." "$srcdir/../.."; do - if test -f "$ac_dir/install-sh"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install-sh -c" - break - elif test -f "$ac_dir/install.sh"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/install.sh -c" - break - elif test -f "$ac_dir/shtool"; then - ac_aux_dir=$ac_dir - ac_install_sh="$ac_aux_dir/shtool install -c" - break - fi -done -if test -z "$ac_aux_dir"; then - as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 -fi -# These three variables are undocumented and unsupported, -# and are intended to be withdrawn in a future Autoconf release. -# They can cause serious problems if a builder's source tree is in a directory -# whose full name contains unusual characters. -ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. -ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. -ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. - -# Find a good install program. We prefer a C program (faster), + # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install @@ -2806,20 +3323,25 @@ ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 -$as_echo_n "checking for a BSD-compatible install... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 +printf %s "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then -if ${ac_cv_path_install+:} false; then : - $as_echo_n "(cached) " >&6 -else +if test ${ac_cv_path_install+y} +then : + printf %s "(cached) " >&6 +else $as_nop as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - # Account for people who put trailing slashes in PATH elements. -case $as_dir/ in #(( - ./ | .// | /[cC]/* | \ + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + # Account for fact that we put trailing slashes in our PATH walk. +case $as_dir in #(( + ./ | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /usr/ucb/* ) ;; @@ -2829,13 +3351,13 @@ case $as_dir/ in #(( # by default. for ac_prog in ginstall scoinst install; do for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_prog$ac_exec_ext"; then if test $ac_prog = install && - grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + grep dspmsg "$as_dir$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && - grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then + grep pwplus "$as_dir$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else @@ -2843,12 +3365,12 @@ case $as_dir/ in #(( echo one > conftest.one echo two > conftest.two mkdir conftest.dir - if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && + if "$as_dir$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir/" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then - ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" + ac_cv_path_install="$as_dir$ac_prog$ac_exec_ext -c" break 3 fi fi @@ -2864,7 +3386,7 @@ IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir fi - if test "${ac_cv_path_install+set}" = set; then + if test ${ac_cv_path_install+y}; then INSTALL=$ac_cv_path_install else # As a last resort, use the slow shell script. Don't cache a @@ -2874,8 +3396,8 @@ fi INSTALL=$ac_install_sh fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 -$as_echo "$INSTALL" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 +printf "%s\n" "$INSTALL" >&6; } # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. @@ -2886,8 +3408,8 @@ test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking where to install" >&5 -$as_echo_n "checking where to install... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking where to install" >&5 +printf %s "checking where to install... " >&6; } case $prefix in \/* ) eval "INSTALL_DIR=$prefix";; * ) eval "INSTALL_DIR=/usr/local/psblas";; @@ -2909,8 +3431,8 @@ case $samplesdir in * ) eval "INSTALL_SAMPLESDIR=$INSTALL_DIR/samples";; esac INSTALL_MODULESDIR=$INSTALL_DIR/modules -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL_DIR $INSTALL_INCLUDEDIR $INSTALL_MODULESDIR $INSTALL_LIBDIR $INSTALL_DOCSDIR $INSTALL_SAMPLESDIR" >&5 -$as_echo "$INSTALL_DIR $INSTALL_INCLUDEDIR $INSTALL_MODULESDIR $INSTALL_LIBDIR $INSTALL_DOCSDIR $INSTALL_SAMPLESDIR" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $INSTALL_DIR $INSTALL_INCLUDEDIR $INSTALL_MODULESDIR $INSTALL_LIBDIR $INSTALL_DOCSDIR $INSTALL_SAMPLESDIR" >&5 +printf "%s\n" "$INSTALL_DIR $INSTALL_INCLUDEDIR $INSTALL_MODULESDIR $INSTALL_LIBDIR $INSTALL_DOCSDIR $INSTALL_SAMPLESDIR" >&6; } save_FCFLAGS="$FCFLAGS"; ac_ext=${ac_fc_srcext-f} @@ -2922,11 +3444,12 @@ if test -n "$ac_tool_prefix"; then do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_FC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_FC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$FC"; then ac_cv_prog_FC="$FC" # Let the user override the test. else @@ -2934,11 +3457,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_FC="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -2949,11 +3476,11 @@ fi fi FC=$ac_cv_prog_FC if test -n "$FC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $FC" >&5 -$as_echo "$FC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $FC" >&5 +printf "%s\n" "$FC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -2966,11 +3493,12 @@ if test -z "$FC"; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_ac_ct_FC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_FC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$ac_ct_FC"; then ac_cv_prog_ac_ct_FC="$ac_ct_FC" # Let the user override the test. else @@ -2978,11 +3506,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_FC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -2993,11 +3525,11 @@ fi fi ac_ct_FC=$ac_cv_prog_ac_ct_FC if test -n "$ac_ct_FC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_FC" >&5 -$as_echo "$ac_ct_FC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_FC" >&5 +printf "%s\n" "$ac_ct_FC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -3009,8 +3541,8 @@ done else case $cross_compiling:$ac_tool_warned in yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac FC=$ac_ct_FC @@ -3019,7 +3551,7 @@ fi # Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler version" >&5 +printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do @@ -3029,7 +3561,7 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -3039,7 +3571,7 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done rm -f a.out @@ -3054,9 +3586,9 @@ ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the Fortran compiler works" >&5 -$as_echo_n "checking whether the Fortran compiler works... " >&6; } -ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the Fortran compiler works" >&5 +printf %s "checking whether the Fortran compiler works... " >&6; } +ac_link_default=`printf "%s\n" "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" @@ -3077,11 +3609,12 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, @@ -3098,7 +3631,7 @@ do # certainly right. break;; *.* ) - if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; + if test ${ac_cv_exeext+y} && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi @@ -3114,44 +3647,46 @@ do done test "$ac_cv_exeext" = no && ac_cv_exeext= -else +else $as_nop ac_file='' fi -if test -z "$ac_file"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } -$as_echo "$as_me: failed program was:" >&5 +if test -z "$ac_file" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } +printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "Fortran compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler default output file name" >&5 -$as_echo_n "checking for Fortran compiler default output file name... " >&6; } -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 -$as_echo "$ac_file" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Fortran compiler default output file name" >&5 +printf %s "checking for Fortran compiler default output file name... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 +printf "%s\n" "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 -$as_echo_n "checking for suffix of executables... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 +printf %s "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with @@ -3165,15 +3700,15 @@ for ac_file in conftest.exe conftest conftest.*; do * ) break;; esac done -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +else $as_nop + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 -$as_echo "$ac_cv_exeext" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 +printf "%s\n" "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext @@ -3188,8 +3723,8 @@ _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 -$as_echo_n "checking whether we are cross compiling... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 +printf %s "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in @@ -3197,10 +3732,10 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in @@ -3208,34 +3743,35 @@ $as_echo "$ac_try_echo"; } >&5 *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "cannot run Fortran compiled programs. + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} +as_fn_error 77 "cannot run Fortran compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 -$as_echo "$cross_compiling" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 +printf "%s\n" "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 -$as_echo_n "checking for suffix of object files... " >&6; } -if ${ac_cv_objext+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 +printf %s "checking for suffix of object files... " >&6; } +if test ${ac_cv_objext+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat > conftest.$ac_ext <<_ACEOF program main @@ -3248,11 +3784,12 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 - test $ac_status = 0; }; then : + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + test $ac_status = 0; } +then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in @@ -3261,30 +3798,31 @@ $as_echo "$ac_try_echo"; } >&5 break;; esac done -else - $as_echo "$as_me: failed program was:" >&5 +else $as_nop + printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 -{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +{ { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 -$as_echo "$ac_cv_objext" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 +printf "%s\n" "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT # If we don't use `.F' as extension, the preprocessor is not run on the # input file. (Note that this only needs to work for GNU compilers.) ac_save_ext=$ac_ext ac_ext=F -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU Fortran compiler" >&5 -$as_echo_n "checking whether we are using the GNU Fortran compiler... " >&6; } -if ${ac_cv_fc_compiler_gnu+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU Fortran" >&5 +printf %s "checking whether the compiler supports GNU Fortran... " >&6; } +if test ${ac_cv_fc_compiler_gnu+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat > conftest.$ac_ext <<_ACEOF program main #ifndef __GNUC__ @@ -3293,43 +3831,48 @@ else end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : ac_compiler_gnu=yes -else +else $as_nop ac_compiler_gnu=no fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_fc_compiler_gnu=$ac_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_compiler_gnu" >&5 -$as_echo "$ac_cv_fc_compiler_gnu" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_compiler_gnu" >&5 +printf "%s\n" "$ac_cv_fc_compiler_gnu" >&6; } +ac_compiler_gnu=$ac_cv_fc_compiler_gnu + ac_ext=$ac_save_ext -ac_test_FCFLAGS=${FCFLAGS+set} +ac_test_FCFLAGS=${FCFLAGS+y} ac_save_FCFLAGS=$FCFLAGS FCFLAGS= -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $FC accepts -g" >&5 -$as_echo_n "checking whether $FC accepts -g... " >&6; } -if ${ac_cv_prog_fc_g+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $FC accepts -g" >&5 +printf %s "checking whether $FC accepts -g... " >&6; } +if test ${ac_cv_prog_fc_g+y} +then : + printf %s "(cached) " >&6 +else $as_nop FCFLAGS=-g cat > conftest.$ac_ext <<_ACEOF program main end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : ac_cv_prog_fc_g=yes -else +else $as_nop ac_cv_prog_fc_g=no fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_g" >&5 -$as_echo "$ac_cv_prog_fc_g" >&6; } -if test "$ac_test_FCFLAGS" = set; then +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_g" >&5 +printf "%s\n" "$ac_cv_prog_fc_g" >&6; } +if test $ac_test_FCFLAGS; then FCFLAGS=$ac_save_FCFLAGS elif test $ac_cv_prog_fc_g = yes; then if test "x$ac_cv_fc_compiler_gnu" = xyes; then @@ -3358,6 +3901,15 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu FCFLAGS="$save_FCFLAGS"; save_CFLAGS="$CFLAGS"; + + + + + + + + + ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -3368,11 +3920,12 @@ if test -n "$ac_tool_prefix"; then do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_CC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else @@ -3380,11 +3933,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -3395,11 +3952,11 @@ fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 -$as_echo "$CC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 +printf "%s\n" "$CC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -3412,11 +3969,12 @@ if test -z "$CC"; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_ac_ct_CC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_CC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else @@ -3424,11 +3982,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -3439,11 +4001,11 @@ fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 -$as_echo "$ac_ct_CC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 +printf "%s\n" "$ac_ct_CC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -3455,8 +4017,8 @@ done else case $cross_compiling:$ac_tool_warned in yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC @@ -3464,23 +4026,23 @@ esac fi -test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +test -z "$CC" && { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 +printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 -for ac_option in --version -v -V -qversion; do +for ac_option in --version -v -V -qversion -version; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -3490,20 +4052,21 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 -$as_echo_n "checking whether we are using the GNU C compiler... " >&6; } -if ${ac_cv_c_compiler_gnu+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C" >&5 +printf %s "checking whether the compiler supports GNU C... " >&6; } +if test ${ac_cv_c_compiler_gnu+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { #ifndef __GNUC__ choke me @@ -3513,29 +4076,33 @@ main () return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_compiler_gnu=yes -else +else $as_nop ac_compiler_gnu=no fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 -$as_echo "$ac_cv_c_compiler_gnu" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 +printf "%s\n" "$ac_cv_c_compiler_gnu" >&6; } +ac_compiler_gnu=$ac_cv_c_compiler_gnu + if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi -ac_test_CFLAGS=${CFLAGS+set} +ac_test_CFLAGS=${CFLAGS+y} ac_save_CFLAGS=$CFLAGS -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 -$as_echo_n "checking whether $CC accepts -g... " >&6; } -if ${ac_cv_prog_cc_g+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 +printf %s "checking whether $CC accepts -g... " >&6; } +if test ${ac_cv_prog_cc_g+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no @@ -3544,57 +4111,60 @@ else /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_cv_prog_cc_g=yes -else +else $as_nop CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : -else +else $as_nop ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : +if ac_fn_c_try_compile "$LINENO" +then : ac_cv_prog_cc_g=yes fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 -$as_echo "$ac_cv_prog_cc_g" >&6; } -if test "$ac_test_CFLAGS" = set; then +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 +printf "%s\n" "$ac_cv_prog_cc_g" >&6; } +if test $ac_test_CFLAGS; then CFLAGS=$ac_save_CFLAGS elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then @@ -3609,94 +4179,144 @@ else CFLAGS= fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 -$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } -if ${ac_cv_prog_cc_c89+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c89=no +ac_prog_cc_stdc=no +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features" >&5 +printf %s "checking for $CC option to enable C11 features... " >&6; } +if test ${ac_cv_prog_cc_c11+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c11=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ -#include -#include -struct stat; -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; +$ac_c_conftest_c11_program +_ACEOF +for ac_arg in '' -std=gnu11 +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_c11=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cc_c11" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC +fi -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) 'x' -int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; +if test "x$ac_cv_prog_cc_c11" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c11" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11" >&5 +printf "%s\n" "$ac_cv_prog_cc_c11" >&6; } + CC="$CC $ac_cv_prog_cc_c11" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11 + ac_prog_cc_stdc=c11 +fi +fi +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features" >&5 +printf %s "checking for $CC option to enable C99 features... " >&6; } +if test ${ac_cv_prog_cc_c99+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c99=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$ac_c_conftest_c99_program +_ACEOF +for ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99= +do + CC="$ac_save_CC $ac_arg" + if ac_fn_c_try_compile "$LINENO" +then : + ac_cv_prog_cc_c99=$ac_arg +fi +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cc_c99" != "xno" && break +done +rm -f conftest.$ac_ext +CC=$ac_save_CC +fi -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} +if test "x$ac_cv_prog_cc_c99" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c99" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 +printf "%s\n" "$ac_cv_prog_cc_c99" >&6; } + CC="$CC $ac_cv_prog_cc_c99" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 + ac_prog_cc_stdc=c99 +fi +fi +if test x$ac_prog_cc_stdc = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features" >&5 +printf %s "checking for $CC option to enable C89 features... " >&6; } +if test ${ac_cv_prog_cc_c89+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cc_c89=no +ac_save_CC=$CC +cat confdefs.h - <<_ACEOF >conftest.$ac_ext +/* end confdefs.h. */ +$ac_c_conftest_c89_program _ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ - -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : + if ac_fn_c_try_compile "$LINENO" +then : ac_cv_prog_cc_c89=$ac_arg fi -rm -f core conftest.err conftest.$ac_objext +rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC - fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c89" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c89" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 -$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c89" != xno; then : +if test "x$ac_cv_prog_cc_c89" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cc_c89" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 +printf "%s\n" "$ac_cv_prog_cc_c89" >&6; } + CC="$CC $ac_cv_prog_cc_c89" +fi + ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 + ac_prog_cc_stdc=c89 +fi fi ac_ext=c @@ -3705,24 +4325,27 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu + # Expand $ac_aux_dir to an absolute path. am_aux_dir=`cd "$ac_aux_dir" && pwd` -ac_ext=c + + ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 -$as_echo_n "checking whether $CC understands -c and -o together... " >&6; } -if ${am_cv_prog_cc_c_o+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 +printf %s "checking whether $CC understands -c and -o together... " >&6; } +if test ${am_cv_prog_cc_c_o+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { ; @@ -3750,8 +4373,8 @@ _ACEOF rm -f core conftest* unset am_i fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 -$as_echo "$am_cv_prog_cc_c_o" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 +printf "%s\n" "$am_cv_prog_cc_c_o" >&6; } if test "$am_cv_prog_cc_c_o" != yes; then # Losing compiler, so override with the script. # FIXME: It is wrong to rewrite CC. @@ -3767,7 +4390,18 @@ ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $ ac_compiler_gnu=$ac_cv_c_compiler_gnu +if test "x$ac_cv_prog_cc_stdc" == "xno" ; then + as_fn_error $? "Problem : Need a C99 compiler ! " "$LINENO" 5 +else + C99OPT="$ac_cv_prog_cc_stdc"; +fi CFLAGS="$save_CFLAGS"; + + + + + + ac_ext=cpp ac_cpp='$CXXCPP $CPPFLAGS' ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -3782,11 +4416,12 @@ if test -z "$CXX"; then do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_CXX+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$CXX"; then ac_cv_prog_CXX="$CXX" # Let the user override the test. else @@ -3794,11 +4429,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_CXX="$ac_tool_prefix$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -3809,11 +4448,11 @@ fi fi CXX=$ac_cv_prog_CXX if test -n "$CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 -$as_echo "$CXX" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 +printf "%s\n" "$CXX" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -3826,11 +4465,12 @@ if test -z "$CXX"; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_ac_ct_CXX+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_CXX+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$ac_ct_CXX"; then ac_cv_prog_ac_ct_CXX="$ac_ct_CXX" # Let the user override the test. else @@ -3838,11 +4478,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CXX="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -3853,11 +4497,11 @@ fi fi ac_ct_CXX=$ac_cv_prog_ac_ct_CXX if test -n "$ac_ct_CXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 -$as_echo "$ac_ct_CXX" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 +printf "%s\n" "$ac_ct_CXX" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -3869,8 +4513,8 @@ done else case $cross_compiling:$ac_tool_warned in yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CXX=$ac_ct_CXX @@ -3880,7 +4524,7 @@ fi fi fi # Provide some information about the compiler. -$as_echo "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5 +printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C++ compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do @@ -3890,7 +4534,7 @@ case "(($ac_try" in *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" -$as_echo "$ac_try_echo"; } >&5 +printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then @@ -3900,20 +4544,21 @@ $as_echo "$ac_try_echo"; } >&5 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C++ compiler" >&5 -$as_echo_n "checking whether we are using the GNU C++ compiler... " >&6; } -if ${ac_cv_cxx_compiler_gnu+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C++" >&5 +printf %s "checking whether the compiler supports GNU C++... " >&6; } +if test ${ac_cv_cxx_compiler_gnu+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { #ifndef __GNUC__ choke me @@ -3923,29 +4568,33 @@ main () return 0; } _ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : +if ac_fn_cxx_try_compile "$LINENO" +then : ac_compiler_gnu=yes -else +else $as_nop ac_compiler_gnu=no fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_cxx_compiler_gnu=$ac_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 -$as_echo "$ac_cv_cxx_compiler_gnu" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 +printf "%s\n" "$ac_cv_cxx_compiler_gnu" >&6; } +ac_compiler_gnu=$ac_cv_cxx_compiler_gnu + if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi -ac_test_CXXFLAGS=${CXXFLAGS+set} +ac_test_CXXFLAGS=${CXXFLAGS+y} ac_save_CXXFLAGS=$CXXFLAGS -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 -$as_echo_n "checking whether $CXX accepts -g... " >&6; } -if ${ac_cv_prog_cxx_g+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 +printf %s "checking whether $CXX accepts -g... " >&6; } +if test ${ac_cv_prog_cxx_g+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_save_cxx_werror_flag=$ac_cxx_werror_flag ac_cxx_werror_flag=yes ac_cv_prog_cxx_g=no @@ -3954,57 +4603,60 @@ else /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : +if ac_fn_cxx_try_compile "$LINENO" +then : ac_cv_prog_cxx_g=yes -else +else $as_nop CXXFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : +if ac_fn_cxx_try_compile "$LINENO" +then : -else +else $as_nop ac_cxx_werror_flag=$ac_save_cxx_werror_flag CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int -main () +main (void) { ; return 0; } _ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : +if ac_fn_cxx_try_compile "$LINENO" +then : ac_cv_prog_cxx_g=yes fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cxx_werror_flag=$ac_save_cxx_werror_flag fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 -$as_echo "$ac_cv_prog_cxx_g" >&6; } -if test "$ac_test_CXXFLAGS" = set; then +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 +printf "%s\n" "$ac_cv_prog_cxx_g" >&6; } +if test $ac_test_CXXFLAGS; then CXXFLAGS=$ac_save_CXXFLAGS elif test $ac_cv_prog_cxx_g = yes; then if test "$GXX" = yes; then @@ -4019,318 +4671,115 @@ else CXXFLAGS= fi fi -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - - -# Sanity checks, although redundant (useful when debugging this configure.ac)! -if test "X$FC" == "X" ; then - as_fn_error $? "Problem : No Fortran compiler specified nor found!" "$LINENO" 5 -fi - -if test "X$CC" == "X" ; then - as_fn_error $? "Problem : No C compiler specified nor found!" "$LINENO" 5 -fi - case $ac_cv_prog_cc_stdc in #( - no) : - ac_cv_prog_cc_c99=no; ac_cv_prog_cc_c89=no ;; #( - *) : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C99" >&5 -$as_echo_n "checking for $CC option to accept ISO C99... " >&6; } -if ${ac_cv_prog_cc_c99+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c99=no -ac_save_CC=$CC +ac_prog_cxx_stdcxx=no +if test x$ac_prog_cxx_stdcxx = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CXX option to enable C++11 features" >&5 +printf %s "checking for $CXX option to enable C++11 features... " >&6; } +if test ${ac_cv_prog_cxx_11+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cxx_11=no +ac_save_CXX=$CXX cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ -#include -#include -#include -#include -#include - -// Check varargs macros. These examples are taken from C99 6.10.3.5. -#define debug(...) fprintf (stderr, __VA_ARGS__) -#define showlist(...) puts (#__VA_ARGS__) -#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) -static void -test_varargs_macros (void) -{ - int x = 1234; - int y = 5678; - debug ("Flag"); - debug ("X = %d\n", x); - showlist (The first, second, and third items.); - report (x>y, "x is %d but y is %d", x, y); -} - -// Check long long types. -#define BIG64 18446744073709551615ull -#define BIG32 4294967295ul -#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) -#if !BIG_OK - your preprocessor is broken; -#endif -#if BIG_OK -#else - your preprocessor is broken; -#endif -static long long int bignum = -9223372036854775807LL; -static unsigned long long int ubignum = BIG64; - -struct incomplete_array -{ - int datasize; - double data[]; -}; - -struct named_init { - int number; - const wchar_t *name; - double average; -}; - -typedef const char *ccp; - -static inline int -test_restrict (ccp restrict text) -{ - // See if C++-style comments work. - // Iterate through items via the restricted pointer. - // Also check for declarations in for loops. - for (unsigned int i = 0; *(text+i) != '\0'; ++i) - continue; - return 0; -} - -// Check varargs and va_copy. -static void -test_varargs (const char *format, ...) -{ - va_list args; - va_start (args, format); - va_list args_copy; - va_copy (args_copy, args); - - const char *str; - int number; - float fnumber; - - while (*format) - { - switch (*format++) - { - case 's': // string - str = va_arg (args_copy, const char *); - break; - case 'd': // int - number = va_arg (args_copy, int); - break; - case 'f': // float - fnumber = va_arg (args_copy, double); - break; - default: - break; - } - } - va_end (args_copy); - va_end (args); -} - -int -main () -{ - - // Check bool. - _Bool success = false; - - // Check restrict. - if (test_restrict ("String literal") == 0) - success = true; - char *restrict newvar = "Another string"; - - // Check varargs. - test_varargs ("s, d' f .", "string", 65, 34.234); - test_varargs_macros (); - - // Check flexible array members. - struct incomplete_array *ia = - malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); - ia->datasize = 10; - for (int i = 0; i < ia->datasize; ++i) - ia->data[i] = i * 1.234; - - // Check named initializers. - struct named_init ni = { - .number = 34, - .name = L"Test wide string", - .average = 543.34343, - }; - - ni.number = 58; - - int dynamic_array[ni.number]; - dynamic_array[ni.number - 1] = 543; - - // work around unused variable warnings - return (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == 'x' - || dynamic_array[ni.number - 1] != 543); - - ; - return 0; -} +$ac_cxx_conftest_cxx11_program _ACEOF -for ac_arg in '' -std=gnu99 -std=c99 -c99 -AC99 -D_STDC_C99= -qlanglvl=extc99 +for ac_arg in '' -std=gnu++11 -std=gnu++0x -std=c++11 -std=c++0x -qlanglvl=extended0x -AA do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_c99=$ac_arg + CXX="$ac_save_CXX $ac_arg" + if ac_fn_cxx_try_compile "$LINENO" +then : + ac_cv_prog_cxx_cxx11=$ac_arg fi -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c99" != "xno" && break +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cxx_cxx11" != "xno" && break done rm -f conftest.$ac_ext -CC=$ac_save_CC - -fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c99" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c99" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 -$as_echo "$ac_cv_prog_cc_c99" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c99" != xno; then : - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 -else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 -$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } -if ${ac_cv_prog_cc_c89+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c89=no -ac_save_CC=$CC +CXX=$ac_save_CXX +fi + +if test "x$ac_cv_prog_cxx_cxx11" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cxx_cxx11" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_cxx11" >&5 +printf "%s\n" "$ac_cv_prog_cxx_cxx11" >&6; } + CXX="$CXX $ac_cv_prog_cxx_cxx11" +fi + ac_cv_prog_cxx_stdcxx=$ac_cv_prog_cxx_cxx11 + ac_prog_cxx_stdcxx=cxx11 +fi +fi +if test x$ac_prog_cxx_stdcxx = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CXX option to enable C++98 features" >&5 +printf %s "checking for $CXX option to enable C++98 features... " >&6; } +if test ${ac_cv_prog_cxx_98+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cxx_98=no +ac_save_CXX=$CXX cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ -#include -#include -struct stat; -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; - -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) 'x' -int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} +$ac_cxx_conftest_cxx98_program _ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ - -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" +for ac_arg in '' -std=gnu++98 -std=c++98 -qlanglvl=extended -AA do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_c89=$ac_arg + CXX="$ac_save_CXX $ac_arg" + if ac_fn_cxx_try_compile "$LINENO" +then : + ac_cv_prog_cxx_cxx98=$ac_arg fi -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c89" != "xno" && break +rm -f core conftest.err conftest.$ac_objext conftest.beam + test "x$ac_cv_prog_cxx_cxx98" != "xno" && break done rm -f conftest.$ac_ext -CC=$ac_save_CC +CXX=$ac_save_CXX +fi +if test "x$ac_cv_prog_cxx_cxx98" = xno +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 +printf "%s\n" "unsupported" >&6; } +else $as_nop + if test "x$ac_cv_prog_cxx_cxx98" = x +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 +printf "%s\n" "none needed" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_cxx98" >&5 +printf "%s\n" "$ac_cv_prog_cxx_cxx98" >&6; } + CXX="$CXX $ac_cv_prog_cxx_cxx98" fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c89" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c89" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 -$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c89" != xno; then : - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 -else - ac_cv_prog_cc_stdc=no + ac_cv_prog_cxx_stdcxx=$ac_cv_prog_cxx_cxx98 + ac_prog_cxx_stdcxx=cxx98 fi +fi + +ac_ext=c +ac_cpp='$CPP $CPPFLAGS' +ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' +ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' +ac_compiler_gnu=$ac_cv_c_compiler_gnu + + +# Sanity checks, although redundant (useful when debugging this configure.ac)! +if test "X$FC" == "X" ; then + as_fn_error $? "Problem : No Fortran compiler specified nor found!" "$LINENO" 5 fi - ;; -esac - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO Standard C" >&5 -$as_echo_n "checking for $CC option to accept ISO Standard C... " >&6; } - if ${ac_cv_prog_cc_stdc+:} false; then : - $as_echo_n "(cached) " >&6 -fi - - case $ac_cv_prog_cc_stdc in #( - no) : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; #( - '') : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; #( - *) : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_stdc" >&5 -$as_echo "$ac_cv_prog_cc_stdc" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_stdc" == "xno" ; then - as_fn_error $? "Problem : Need a C99 compiler ! " "$LINENO" 5 -else - C99OPT="$ac_cv_prog_cc_stdc"; +if test "X$CC" == "X" ; then + as_fn_error $? "Problem : No C compiler specified nor found!" "$LINENO" 5 fi @@ -4341,10 +4790,11 @@ fi # Note: Someday we will contemplate a fake MPI - configured version of PSBLAS ############################################################################### # First check whether the user required our serial (fake) mpi. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we want serial mpi stubs" >&5 -$as_echo_n "checking whether we want serial mpi stubs... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we want serial mpi stubs" >&5 +printf %s "checking whether we want serial mpi stubs... " >&6; } # Check whether --enable-serial was given. -if test "${enable_serial+set}" = set; then : +if test ${enable_serial+y} +then : enableval=$enable_serial; pac_cv_serial_mpi="yes"; @@ -4352,12 +4802,12 @@ pac_cv_serial_mpi="yes"; fi if test x"$pac_cv_serial_mpi" == x"yes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes." >&5 -$as_echo "yes." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes." >&5 +printf "%s\n" "yes." >&6; } else pac_cv_serial_mpi="no"; - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no." >&5 -$as_echo "no." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no." >&5 +printf "%s\n" "no." >&6; } fi @@ -4381,11 +4831,12 @@ if test "X$MPICC" = "X" ; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPICC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPICC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPICC"; then ac_cv_prog_MPICC="$MPICC" # Let the user override the test. else @@ -4393,11 +4844,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPICC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -4408,11 +4863,11 @@ fi fi MPICC=$ac_cv_prog_MPICC if test -n "$MPICC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPICC" >&5 -$as_echo "$MPICC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPICC" >&5 +printf "%s\n" "$MPICC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -4430,11 +4885,12 @@ fi do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPICC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPICC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPICC"; then ac_cv_prog_MPICC="$MPICC" # Let the user override the test. else @@ -4442,11 +4898,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPICC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -4457,11 +4917,11 @@ fi fi MPICC=$ac_cv_prog_MPICC if test -n "$MPICC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPICC" >&5 -$as_echo "$MPICC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPICC" >&5 +printf "%s\n" "$MPICC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -4476,18 +4936,20 @@ test -n "$MPICC" || MPICC="$CC" if test x = x"$MPILIBS"; then ac_fn_c_check_func "$LINENO" "MPI_Init" "ac_cv_func_MPI_Init" -if test "x$ac_cv_func_MPI_Init" = xyes; then : +if test "x$ac_cv_func_MPI_Init" = xyes +then : MPILIBS=" " fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 -$as_echo_n "checking for MPI_Init in -lmpi... " >&6; } -if ${ac_cv_lib_mpi_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 +printf %s "checking for MPI_Init in -lmpi... " >&6; } +if test ${ac_cv_lib_mpi_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpi $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -4496,40 +4958,40 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char MPI_Init (); int -main () +main (void) { return MPI_Init (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_mpi_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpi_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpi_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpi_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpi_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpi_MPI_Init" = xyes +then : MPILIBS="-lmpi" fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 -$as_echo_n "checking for MPI_Init in -lmpich... " >&6; } -if ${ac_cv_lib_mpich_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 +printf %s "checking for MPI_Init in -lmpich... " >&6; } +if test ${ac_cv_lib_mpich_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpich $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -4538,58 +5000,49 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char MPI_Init (); int -main () +main (void) { return MPI_Init (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_mpich_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpich_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpich_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpich_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpich_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpich_MPI_Init" = xyes +then : MPILIBS="-lmpich" fi fi if test x != x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpi.h" >&5 -$as_echo_n "checking for mpi.h... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for mpi.h" >&5 +printf %s "checking for mpi.h... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include -int -main () -{ - - ; - return 0; -} _ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -else - MPILIBS="" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +if ac_fn_c_try_compile "$LINENO" +then : + +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi CC="$acx_mpi_save_CC" @@ -4602,302 +5055,10 @@ if test x = x"$MPILIBS"; then : else -$as_echo "#define HAVE_MPI 1" >>confdefs.h - - : -fi - - case $ac_cv_prog_cc_stdc in #( - no) : - ac_cv_prog_cc_c99=no; ac_cv_prog_cc_c89=no ;; #( - *) : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C99" >&5 -$as_echo_n "checking for $CC option to accept ISO C99... " >&6; } -if ${ac_cv_prog_cc_c99+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c99=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include -#include -#include - -// Check varargs macros. These examples are taken from C99 6.10.3.5. -#define debug(...) fprintf (stderr, __VA_ARGS__) -#define showlist(...) puts (#__VA_ARGS__) -#define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) -static void -test_varargs_macros (void) -{ - int x = 1234; - int y = 5678; - debug ("Flag"); - debug ("X = %d\n", x); - showlist (The first, second, and third items.); - report (x>y, "x is %d but y is %d", x, y); -} - -// Check long long types. -#define BIG64 18446744073709551615ull -#define BIG32 4294967295ul -#define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) -#if !BIG_OK - your preprocessor is broken; -#endif -#if BIG_OK -#else - your preprocessor is broken; -#endif -static long long int bignum = -9223372036854775807LL; -static unsigned long long int ubignum = BIG64; - -struct incomplete_array -{ - int datasize; - double data[]; -}; - -struct named_init { - int number; - const wchar_t *name; - double average; -}; - -typedef const char *ccp; - -static inline int -test_restrict (ccp restrict text) -{ - // See if C++-style comments work. - // Iterate through items via the restricted pointer. - // Also check for declarations in for loops. - for (unsigned int i = 0; *(text+i) != '\0'; ++i) - continue; - return 0; -} - -// Check varargs and va_copy. -static void -test_varargs (const char *format, ...) -{ - va_list args; - va_start (args, format); - va_list args_copy; - va_copy (args_copy, args); - - const char *str; - int number; - float fnumber; - - while (*format) - { - switch (*format++) - { - case 's': // string - str = va_arg (args_copy, const char *); - break; - case 'd': // int - number = va_arg (args_copy, int); - break; - case 'f': // float - fnumber = va_arg (args_copy, double); - break; - default: - break; - } - } - va_end (args_copy); - va_end (args); -} - -int -main () -{ - - // Check bool. - _Bool success = false; - - // Check restrict. - if (test_restrict ("String literal") == 0) - success = true; - char *restrict newvar = "Another string"; - - // Check varargs. - test_varargs ("s, d' f .", "string", 65, 34.234); - test_varargs_macros (); - - // Check flexible array members. - struct incomplete_array *ia = - malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); - ia->datasize = 10; - for (int i = 0; i < ia->datasize; ++i) - ia->data[i] = i * 1.234; - - // Check named initializers. - struct named_init ni = { - .number = 34, - .name = L"Test wide string", - .average = 543.34343, - }; - - ni.number = 58; - - int dynamic_array[ni.number]; - dynamic_array[ni.number - 1] = 543; - - // work around unused variable warnings - return (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == 'x' - || dynamic_array[ni.number - 1] != 543); - - ; - return 0; -} -_ACEOF -for ac_arg in '' -std=gnu99 -std=c99 -c99 -AC99 -D_STDC_C99= -qlanglvl=extc99 -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_c99=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c99" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC - -fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c99" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c99" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 -$as_echo "$ac_cv_prog_cc_c99" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c99" != xno; then : - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 -else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 -$as_echo_n "checking for $CC option to accept ISO C89... " >&6; } -if ${ac_cv_prog_cc_c89+:} false; then : - $as_echo_n "(cached) " >&6 -else - ac_cv_prog_cc_c89=no -ac_save_CC=$CC -cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -struct stat; -/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ -struct buf { int x; }; -FILE * (*rcsopen) (struct buf *, struct stat *, int); -static char *e (p, i) - char **p; - int i; -{ - return p[i]; -} -static char *f (char * (*g) (char **, int), char **p, ...) -{ - char *s; - va_list v; - va_start (v,p); - s = g (p, va_arg (v,int)); - va_end (v); - return s; -} - -/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has - function prototypes and stuff, but not '\xHH' hex character constants. - These don't provoke an error unfortunately, instead are silently treated - as 'x'. The following induces an error, until -std is added to get - proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an - array size at least. It's necessary to write '\x00'==0 to get something - that's true only with -std. */ -int osf4_cc_array ['\x00' == 0 ? 1 : -1]; - -/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters - inside strings and character constants. */ -#define FOO(x) 'x' -int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; - -int test (int i, double x); -struct s1 {int (*f) (int a);}; -struct s2 {int (*f) (double a);}; -int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); -int argc; -char **argv; -int -main () -{ -return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; - ; - return 0; -} -_ACEOF -for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ - -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" -do - CC="$ac_save_CC $ac_arg" - if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_prog_cc_c89=$ac_arg -fi -rm -f core conftest.err conftest.$ac_objext - test "x$ac_cv_prog_cc_c89" != "xno" && break -done -rm -f conftest.$ac_ext -CC=$ac_save_CC - -fi -# AC_CACHE_VAL -case "x$ac_cv_prog_cc_c89" in - x) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; - xno) - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; - *) - CC="$CC $ac_cv_prog_cc_c89" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 -$as_echo "$ac_cv_prog_cc_c89" >&6; } ;; -esac -if test "x$ac_cv_prog_cc_c89" != xno; then : - ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 -else - ac_cv_prog_cc_stdc=no -fi - -fi - ;; -esac - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO Standard C" >&5 -$as_echo_n "checking for $CC option to accept ISO Standard C... " >&6; } - if ${ac_cv_prog_cc_stdc+:} false; then : - $as_echo_n "(cached) " >&6 -fi - - case $ac_cv_prog_cc_stdc in #( - no) : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 -$as_echo "unsupported" >&6; } ;; #( - '') : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 -$as_echo "none needed" >&6; } ;; #( - *) : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_stdc" >&5 -$as_echo "$ac_cv_prog_cc_stdc" >&6; } ;; -esac +printf "%s\n" "#define HAVE_MPI 1" >>confdefs.h + + : +fi ac_ext=${ac_fc_srcext-f} @@ -4917,11 +5078,12 @@ if test "X$MPICXX" = "X" ; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPICXX+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPICXX+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPICXX"; then ac_cv_prog_MPICXX="$MPICXX" # Let the user override the test. else @@ -4929,11 +5091,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPICXX="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -4944,11 +5110,11 @@ fi fi MPICXX=$ac_cv_prog_MPICXX if test -n "$MPICXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPICXX" >&5 -$as_echo "$MPICXX" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPICXX" >&5 +printf "%s\n" "$MPICXX" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -4966,11 +5132,12 @@ fi do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPICXX+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPICXX+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPICXX"; then ac_cv_prog_MPICXX="$MPICXX" # Let the user override the test. else @@ -4978,11 +5145,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPICXX="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -4993,11 +5164,11 @@ fi fi MPICXX=$ac_cv_prog_MPICXX if test -n "$MPICXX"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPICXX" >&5 -$as_echo "$MPICXX" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPICXX" >&5 +printf "%s\n" "$MPICXX" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5012,120 +5183,111 @@ test -n "$MPICXX" || MPICXX="$CXX" if test x = x"$MPILIBS"; then ac_fn_cxx_check_func "$LINENO" "MPI_Init" "ac_cv_func_MPI_Init" -if test "x$ac_cv_func_MPI_Init" = xyes; then : +if test "x$ac_cv_func_MPI_Init" = xyes +then : MPILIBS=" " fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 -$as_echo_n "checking for MPI_Init in -lmpi... " >&6; } -if ${ac_cv_lib_mpi_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 +printf %s "checking for MPI_Init in -lmpi... " >&6; } +if test ${ac_cv_lib_mpi_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpi $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char MPI_Init (); +namespace conftest { + extern "C" int MPI_Init (); +} int -main () +main (void) { -return MPI_Init (); +return conftest::MPI_Init (); ; return 0; } _ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : +if ac_fn_cxx_try_link "$LINENO" +then : ac_cv_lib_mpi_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpi_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpi_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpi_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpi_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpi_MPI_Init" = xyes +then : MPILIBS="-lmpi" fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 -$as_echo_n "checking for MPI_Init in -lmpich... " >&6; } -if ${ac_cv_lib_mpich_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 +printf %s "checking for MPI_Init in -lmpich... " >&6; } +if test ${ac_cv_lib_mpich_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpich $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ -/* Override any GCC internal prototype to avoid an error. - Use char because int might match the return type of a GCC - builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif -char MPI_Init (); +namespace conftest { + extern "C" int MPI_Init (); +} int -main () +main (void) { -return MPI_Init (); +return conftest::MPI_Init (); ; return 0; } _ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : +if ac_fn_cxx_try_link "$LINENO" +then : ac_cv_lib_mpich_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpich_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpich_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpich_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpich_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpich_MPI_Init" = xyes +then : MPILIBS="-lmpich" fi fi if test x != x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpi.h" >&5 -$as_echo_n "checking for mpi.h... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for mpi.h" >&5 +printf %s "checking for mpi.h... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include -int -main () -{ - - ; - return 0; -} _ACEOF -if ac_fn_cxx_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -else - MPILIBS="" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +if ac_fn_cxx_try_compile "$LINENO" +then : + +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi CXX="$acx_mpi_save_CXX" @@ -5138,7 +5300,7 @@ if test x = x"$MPILIBS"; then : else -$as_echo "#define HAVE_MPI 1" >>confdefs.h +printf "%s\n" "#define HAVE_MPI 1" >>confdefs.h : fi @@ -5155,11 +5317,12 @@ if test "X$MPIFC" = "X" ; then do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPIFC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPIFC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPIFC"; then ac_cv_prog_MPIFC="$MPIFC" # Let the user override the test. else @@ -5167,11 +5330,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPIFC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5182,11 +5349,11 @@ fi fi MPIFC=$ac_cv_prog_MPIFC if test -n "$MPIFC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPIFC" >&5 -$as_echo "$MPIFC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPIFC" >&5 +printf "%s\n" "$MPIFC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5205,11 +5372,12 @@ fi do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_MPIFC+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_MPIFC+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$MPIFC"; then ac_cv_prog_MPIFC="$MPIFC" # Let the user override the test. else @@ -5217,11 +5385,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_MPIFC="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5232,11 +5404,11 @@ fi fi MPIFC=$ac_cv_prog_MPIFC if test -n "$MPIFC"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MPIFC" >&5 -$as_echo "$MPIFC" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MPIFC" >&5 +printf "%s\n" "$MPIFC" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5250,31 +5422,33 @@ test -n "$MPIFC" || MPIFC="$FC" if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init" >&5 -$as_echo_n "checking for MPI_Init... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init" >&5 +printf %s "checking for MPI_Init... " >&6; } cat > conftest.$ac_ext <<_ACEOF program main call MPI_Init end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : MPILIBS=" " - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lfmpi" >&5 -$as_echo_n "checking for MPI_Init in -lfmpi... " >&6; } -if ${ac_cv_lib_fmpi_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lfmpi" >&5 +printf %s "checking for MPI_Init in -lfmpi... " >&6; } +if test ${ac_cv_lib_fmpi_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lfmpi $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -5282,28 +5456,31 @@ cat > conftest.$ac_ext <<_ACEOF call MPI_Init end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_fmpi_MPI_Init=yes -else +else $as_nop ac_cv_lib_fmpi_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_fmpi_MPI_Init" >&5 -$as_echo "$ac_cv_lib_fmpi_MPI_Init" >&6; } -if test "x$ac_cv_lib_fmpi_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_fmpi_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_fmpi_MPI_Init" >&6; } +if test "x$ac_cv_lib_fmpi_MPI_Init" = xyes +then : MPILIBS="-lfmpi" fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpichf90" >&5 -$as_echo_n "checking for MPI_Init in -lmpichf90... " >&6; } -if ${ac_cv_lib_mpichf90_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpichf90" >&5 +printf %s "checking for MPI_Init in -lmpichf90... " >&6; } +if test ${ac_cv_lib_mpichf90_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpichf90 $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -5311,29 +5488,32 @@ cat > conftest.$ac_ext <<_ACEOF call MPI_Init end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_mpichf90_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpichf90_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpichf90_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpichf90_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpichf90_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpichf90_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpichf90_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpichf90_MPI_Init" = xyes +then : MPILIBS="-lmpichf90" fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 -$as_echo_n "checking for MPI_Init in -lmpi... " >&6; } -if ${ac_cv_lib_mpi_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpi" >&5 +printf %s "checking for MPI_Init in -lmpi... " >&6; } +if test ${ac_cv_lib_mpi_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpi $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -5341,28 +5521,31 @@ cat > conftest.$ac_ext <<_ACEOF call MPI_Init end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_mpi_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpi_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpi_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpi_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpi_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpi_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpi_MPI_Init" = xyes +then : MPILIBS="-lmpi" fi fi if test x = x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 -$as_echo_n "checking for MPI_Init in -lmpich... " >&6; } -if ${ac_cv_lib_mpich_MPI_Init+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MPI_Init in -lmpich" >&5 +printf %s "checking for MPI_Init in -lmpich... " >&6; } +if test ${ac_cv_lib_mpich_MPI_Init+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmpich $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -5370,40 +5553,43 @@ cat > conftest.$ac_ext <<_ACEOF call MPI_Init end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_mpich_MPI_Init=yes -else +else $as_nop ac_cv_lib_mpich_MPI_Init=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 -$as_echo "$ac_cv_lib_mpich_MPI_Init" >&6; } -if test "x$ac_cv_lib_mpich_MPI_Init" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_mpich_MPI_Init" >&5 +printf "%s\n" "$ac_cv_lib_mpich_MPI_Init" >&6; } +if test "x$ac_cv_lib_mpich_MPI_Init" = xyes +then : MPILIBS="-lmpich" fi fi if test x != x"$MPILIBS"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for mpif.h" >&5 -$as_echo_n "checking for mpif.h... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for mpif.h" >&5 +printf %s "checking for mpif.h... " >&6; } cat > conftest.$ac_ext <<_ACEOF program main include 'mpif.h' end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } -else +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } +else $as_nop MPILIBS="" - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi FC="$acx_mpi_save_FC" @@ -5416,7 +5602,7 @@ if test x = x"$MPILIBS"; then : else -$as_echo "#define HAVE_MPI 1" >>confdefs.h +printf "%s\n" "#define HAVE_MPI 1" >>confdefs.h : fi @@ -5452,165 +5638,174 @@ fi ############################################################################### -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional CCOPT flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional CCOPT flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional CCOPT flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional CCOPT flags should be added (should be invoked only once)... " >&6; } # Check whether --with-ccopt was given. -if test "${with_ccopt+set}" = set; then : +if test ${with_ccopt+y} +then : withval=$with_ccopt; CCOPT="${withval} ${CCOPT}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: CCOPT = ${CCOPT}" >&5 -$as_echo "CCOPT = ${CCOPT}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CCOPT = ${CCOPT}" >&5 +printf "%s\n" "CCOPT = ${CCOPT}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional CXXOPT flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional CXXOPT flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional CXXOPT flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional CXXOPT flags should be added (should be invoked only once)... " >&6; } # Check whether --with-cxxopt was given. -if test "${with_cxxopt+set}" = set; then : +if test ${with_cxxopt+y} +then : withval=$with_cxxopt; CXXOPT="${withval} ${CXXOPT}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: CXXOPT = ${CXXOPT}" >&5 -$as_echo "CXXOPT = ${CXXOPT}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CXXOPT = ${CXXOPT}" >&5 +printf "%s\n" "CXXOPT = ${CXXOPT}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional FCOPT flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional FCOPT flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional FCOPT flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional FCOPT flags should be added (should be invoked only once)... " >&6; } # Check whether --with-fcopt was given. -if test "${with_fcopt+set}" = set; then : +if test ${with_fcopt+y} +then : withval=$with_fcopt; FCOPT="${withval} ${FCOPT}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: FCOPT = ${FCOPT}" >&5 -$as_echo "FCOPT = ${FCOPT}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: FCOPT = ${FCOPT}" >&5 +printf "%s\n" "FCOPT = ${FCOPT}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional libraries are needed" >&5 -$as_echo_n "checking whether additional libraries are needed... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional libraries are needed" >&5 +printf %s "checking whether additional libraries are needed... " >&6; } # Check whether --with-libs was given. -if test "${with_libs+set}" = set; then : +if test ${with_libs+y} +then : withval=$with_libs; LIBS="${withval} ${LIBS}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: LIBS = ${LIBS}" >&5 -$as_echo "LIBS = ${LIBS}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: LIBS = ${LIBS}" >&5 +printf "%s\n" "LIBS = ${LIBS}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional CLIBS flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional CLIBS flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional CLIBS flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional CLIBS flags should be added (should be invoked only once)... " >&6; } # Check whether --with-clibs was given. -if test "${with_clibs+set}" = set; then : +if test ${with_clibs+y} +then : withval=$with_clibs; CLIBS="${withval} ${CLIBS}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: CLIBS = ${CLIBS}" >&5 -$as_echo "CLIBS = ${CLIBS}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: CLIBS = ${CLIBS}" >&5 +printf "%s\n" "CLIBS = ${CLIBS}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional FLIBS flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional FLIBS flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional FLIBS flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional FLIBS flags should be added (should be invoked only once)... " >&6; } # Check whether --with-flibs was given. -if test "${with_flibs+set}" = set; then : +if test ${with_flibs+y} +then : withval=$with_flibs; FLIBS="${withval} ${FLIBS}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: FLIBS = ${FLIBS}" >&5 -$as_echo "FLIBS = ${FLIBS}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: FLIBS = ${FLIBS}" >&5 +printf "%s\n" "FLIBS = ${FLIBS}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional LIBRARYPATH flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional LIBRARYPATH flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional LIBRARYPATH flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional LIBRARYPATH flags should be added (should be invoked only once)... " >&6; } # Check whether --with-library-path was given. -if test "${with_library_path+set}" = set; then : +if test ${with_library_path+y} +then : withval=$with_library_path; LIBRARYPATH="${withval} ${LIBRARYPATH}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: LIBRARYPATH = ${LIBRARYPATH}" >&5 -$as_echo "LIBRARYPATH = ${LIBRARYPATH}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: LIBRARYPATH = ${LIBRARYPATH}" >&5 +printf "%s\n" "LIBRARYPATH = ${LIBRARYPATH}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional INCLUDEPATH flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional INCLUDEPATH flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional INCLUDEPATH flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional INCLUDEPATH flags should be added (should be invoked only once)... " >&6; } # Check whether --with-include-path was given. -if test "${with_include_path+set}" = set; then : +if test ${with_include_path+y} +then : withval=$with_include_path; INCLUDEPATH="${withval} ${INCLUDEPATH}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: INCLUDEPATH = ${INCLUDEPATH}" >&5 -$as_echo "INCLUDEPATH = ${INCLUDEPATH}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: INCLUDEPATH = ${INCLUDEPATH}" >&5 +printf "%s\n" "INCLUDEPATH = ${INCLUDEPATH}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether additional MODULE_PATH flags should be added (should be invoked only once)" >&5 -$as_echo_n "checking whether additional MODULE_PATH flags should be added (should be invoked only once)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether additional MODULE_PATH flags should be added (should be invoked only once)" >&5 +printf %s "checking whether additional MODULE_PATH flags should be added (should be invoked only once)... " >&6; } # Check whether --with-module-path was given. -if test "${with_module_path+set}" = set; then : +if test ${with_module_path+y} +then : withval=$with_module_path; MODULE_PATH="${withval} ${MODULE_PATH}" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: MODULE_PATH = ${MODULE_PATH}" >&5 -$as_echo "MODULE_PATH = ${MODULE_PATH}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: MODULE_PATH = ${MODULE_PATH}" >&5 +printf "%s\n" "MODULE_PATH = ${MODULE_PATH}" >&6; } -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5624,11 +5819,12 @@ fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_RANLIB+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_RANLIB+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else @@ -5636,11 +5832,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5651,11 +5851,11 @@ fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 -$as_echo "$RANLIB" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 +printf "%s\n" "$RANLIB" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5664,11 +5864,12 @@ if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_RANLIB+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else @@ -5676,11 +5877,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5691,11 +5896,11 @@ fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 -$as_echo "$ac_ct_RANLIB" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 +printf "%s\n" "$ac_ct_RANLIB" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then @@ -5703,8 +5908,8 @@ fi else case $cross_compiling:$ac_tool_warned in yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB @@ -5716,8 +5921,8 @@ fi am__api_version='1.16' -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 -$as_echo_n "checking whether build environment is sane... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 +printf %s "checking whether build environment is sane... " >&6; } # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' @@ -5771,8 +5976,8 @@ else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } # If we didn't sleep, we still need to ensure time stamps of config.status and # generated files are strictly newer. am_sleep_pid= @@ -5791,23 +5996,19 @@ test "$program_suffix" != NONE && # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' -program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` +program_transform_name=`printf "%s\n" "$program_transform_name" | sed "$ac_script"` -if test x"${MISSING+set}" != xset; then - case $am_aux_dir in - *\ * | *\ *) - MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; - *) - MISSING="\${SHELL} $am_aux_dir/missing" ;; - esac + + if test x"${MISSING+set}" != xset; then + MISSING="\${SHELL} '$am_aux_dir/missing'" fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 -$as_echo "$as_me: WARNING: 'missing' script is too old or missing" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 +printf "%s\n" "$as_me: WARNING: 'missing' script is too old or missing" >&2;} fi if test x"${install_sh+set}" != xset; then @@ -5827,11 +6028,12 @@ if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_STRIP+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_STRIP+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else @@ -5839,11 +6041,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5854,11 +6060,11 @@ fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 -$as_echo "$STRIP" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 +printf "%s\n" "$STRIP" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi @@ -5867,11 +6073,12 @@ if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_ac_ct_STRIP+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_ac_ct_STRIP+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else @@ -5879,11 +6086,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5894,11 +6105,11 @@ fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 -$as_echo "$ac_ct_STRIP" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 +printf "%s\n" "$ac_ct_STRIP" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then @@ -5906,8 +6117,8 @@ fi else case $cross_compiling:$ac_tool_warned in yes:) -{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 -$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 +printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP @@ -5919,25 +6130,31 @@ fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 -$as_echo_n "checking for a thread-safe mkdir -p... " >&6; } + + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a race-free mkdir -p" >&5 +printf %s "checking for a race-free mkdir -p... " >&6; } if test -z "$MKDIR_P"; then - if ${ac_cv_path_mkdir+:} false; then : - $as_echo_n "(cached) " >&6 -else + if test ${ac_cv_path_mkdir+y} +then : + printf %s "(cached) " >&6 +else $as_nop as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do - as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue - case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( - 'mkdir (GNU coreutils) '* | \ - 'mkdir (coreutils) '* | \ + as_fn_executable_p "$as_dir$ac_prog$ac_exec_ext" || continue + case `"$as_dir$ac_prog$ac_exec_ext" --version 2>&1` in #( + 'mkdir ('*'coreutils) '* | \ + 'BusyBox '* | \ 'mkdir (fileutils) '4.1*) - ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext + ac_cv_path_mkdir=$as_dir$ac_prog$ac_exec_ext break 3;; esac done @@ -5948,7 +6165,7 @@ IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version - if test "${ac_cv_path_mkdir+set}" = set; then + if test ${ac_cv_path_mkdir+y}; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a @@ -5958,18 +6175,19 @@ fi MKDIR_P="$ac_install_sh -d" fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 -$as_echo "$MKDIR_P" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 +printf "%s\n" "$MKDIR_P" >&6; } for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 -$as_echo_n "checking for $ac_word... " >&6; } -if ${ac_cv_prog_AWK+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 +printf %s "checking for $ac_word... " >&6; } +if test ${ac_cv_prog_AWK+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else @@ -5977,11 +6195,15 @@ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac for ac_exec_ext in '' $ac_executable_extensions; do - if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then + if as_fn_executable_p "$as_dir$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" - $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: found $as_dir$ac_word$ac_exec_ext" >&5 break 2 fi done @@ -5992,24 +6214,25 @@ fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 -$as_echo "$AWK" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 +printf "%s\n" "$AWK" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi test -n "$AWK" && break done -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 -$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 +printf %s "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} -ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` -if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : - $as_echo_n "(cached) " >&6 -else +ac_make=`printf "%s\n" "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` +if eval test \${ac_cv_prog_make_${ac_make}_set+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @@ -6025,12 +6248,12 @@ esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } SET_MAKE= else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi @@ -6047,8 +6270,8 @@ DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} supports the include directive" >&5 -$as_echo_n "checking whether ${MAKE-make} supports the include directive... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} supports the include directive" >&5 +printf %s "checking whether ${MAKE-make} supports the include directive... " >&6; } cat > confinc.mk << 'END' am__doit: @echo this is the am__doit target >confinc.out @@ -6084,11 +6307,12 @@ esac fi done rm -f confinc.* confmf.* -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5 -$as_echo "${_am_result}" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5 +printf "%s\n" "${_am_result}" >&6; } # Check whether --enable-dependency-tracking was given. -if test "${enable_dependency_tracking+set}" = set; then : +if test ${enable_dependency_tracking+y} +then : enableval=$enable_dependency_tracking; fi @@ -6107,7 +6331,8 @@ fi # Check whether --enable-silent-rules was given. -if test "${enable_silent_rules+set}" = set; then : +if test ${enable_silent_rules+y} +then : enableval=$enable_silent_rules; fi @@ -6117,12 +6342,13 @@ case $enable_silent_rules in # ((( *) AM_DEFAULT_VERBOSITY=1;; esac am_make=${MAKE-make} -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 -$as_echo_n "checking whether $am_make supports nested variables... " >&6; } -if ${am_cv_make_support_nested_variables+:} false; then : - $as_echo_n "(cached) " >&6 -else - if $as_echo 'TRUE=$(BAR$(V)) +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 +printf %s "checking whether $am_make supports nested variables... " >&6; } +if test ${am_cv_make_support_nested_variables+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if printf "%s\n" 'TRUE=$(BAR$(V)) BAR0=false BAR1=true V=1 @@ -6134,8 +6360,8 @@ else am_cv_make_support_nested_variables=no fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 -$as_echo "$am_cv_make_support_nested_variables" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 +printf "%s\n" "$am_cv_make_support_nested_variables" >&6; } if test $am_cv_make_support_nested_variables = yes; then AM_V='$(V)' AM_DEFAULT_V='$(AM_DEFAULT_VERBOSITY)' @@ -6170,14 +6396,10 @@ fi VERSION='3.7.0' -cat >>confdefs.h <<_ACEOF -#define PACKAGE "$PACKAGE" -_ACEOF +printf "%s\n" "#define PACKAGE \"$PACKAGE\"" >>confdefs.h -cat >>confdefs.h <<_ACEOF -#define VERSION "$VERSION" -_ACEOF +printf "%s\n" "#define VERSION \"$VERSION\"" >>confdefs.h # Some tools Automake needs. @@ -6219,11 +6441,12 @@ am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' depcc="$CC" am_compiler_list= -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 -$as_echo_n "checking dependency style of $depcc... " >&6; } -if ${am_cv_CC_dependencies_compiler_type+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +printf %s "checking dependency style of $depcc... " >&6; } +if test ${am_cv_CC_dependencies_compiler_type+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For @@ -6330,8 +6553,8 @@ else fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 -$as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 +printf "%s\n" "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if @@ -6347,11 +6570,12 @@ fi depcc="$CXX" am_compiler_list= -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 -$as_echo_n "checking dependency style of $depcc... " >&6; } -if ${am_cv_CXX_dependencies_compiler_type+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 +printf %s "checking dependency style of $depcc... " >&6; } +if test ${am_cv_CXX_dependencies_compiler_type+y} +then : + printf %s "(cached) " >&6 +else $as_nop if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For @@ -6458,8 +6682,8 @@ else fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 -$as_echo "$am_cv_CXX_dependencies_compiler_type" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 +printf "%s\n" "$am_cv_CXX_dependencies_compiler_type" >&6; } CXXDEPMODE=depmode=$am_cv_CXX_dependencies_compiler_type if @@ -6473,6 +6697,20 @@ else fi +# Variables for tags utilities; see am/tags.am +if test -z "$CTAGS"; then + CTAGS=ctags +fi + +if test -z "$ETAGS"; then + ETAGS=etags +fi + +if test -z "$CSCOPE"; then + CSCOPE=cscope +fi + + # POSIX will say in a future version that running "rm -f" with no argument # is OK; and we want to be able to make that assumption in our Makefile @@ -6525,8 +6763,8 @@ fi psblas_cv_fc="" -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU Fortran" >&5 -$as_echo_n "checking for GNU Fortran... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GNU Fortran" >&5 +printf %s "checking for GNU Fortran... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -6545,18 +6783,19 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu #endif end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } psblas_cv_fc="gcc" -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -6565,8 +6804,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Cray Fortran" >&5 -$as_echo_n "checking for Cray Fortran... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Cray Fortran" >&5 +printf %s "checking for Cray Fortran... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -6585,18 +6824,19 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu #endif end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } psblas_cv_fc="cray" -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -6636,13 +6876,13 @@ if test x"$psblas_cv_fc" == "x" ; then else psblas_cv_fc="" # unsupported MPI Fortran compiler - { $as_echo "$as_me:${as_lineno-$LINENO}: Unknown Fortran compiler, proceeding with fingers crossed !" >&5 -$as_echo "$as_me: Unknown Fortran compiler, proceeding with fingers crossed !" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Unknown Fortran compiler, proceeding with fingers crossed !" >&5 +printf "%s\n" "$as_me: Unknown Fortran compiler, proceeding with fingers crossed !" >&6;} fi fi if test "X$psblas_cv_fc" == "Xgcc" ; then -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for recent GNU Fortran" >&5 -$as_echo_n "checking for recent GNU Fortran... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for recent GNU Fortran" >&5 +printf %s "checking for recent GNU Fortran... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -6661,21 +6901,22 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu #endif end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } - { $as_echo "$as_me:${as_lineno-$LINENO}: Sorry, we require GNU Fortran version 4.9 or later." >&5 -$as_echo "$as_me: Sorry, we require GNU Fortran version 4.9 or later." >&6;} +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Sorry, we require GNU Fortran version 4.9 or later." >&5 +printf "%s\n" "$as_me: Sorry, we require GNU Fortran version 4.9 or later." >&6;} echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Bailing out." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -6697,418 +6938,52 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 -$as_echo_n "checking how to run the C preprocessor... " >&6; } -# On Suns, sometimes $CPP names a directory. -if test -n "$CPP" && test -d "$CPP"; then - CPP= -fi -if test -z "$CPP"; then - if ${ac_cv_prog_CPP+:} false; then : - $as_echo_n "(cached) " >&6 -else - # Double quotes because CPP needs to be expanded - for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" - do - ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - -else - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.i conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - # Broken: success on invalid input. -continue -else - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.i conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.i conftest.err conftest.$ac_ext -if $ac_preproc_ok; then : - break -fi - - done - ac_cv_prog_CPP=$CPP - -fi - CPP=$ac_cv_prog_CPP -else - ac_cv_prog_CPP=$CPP -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 -$as_echo "$CPP" >&6; } -ac_preproc_ok=false -for ac_c_preproc_warn_flag in '' yes -do - # Use a header file that comes with gcc, so configuring glibc - # with a fresh cross-compiler works. - # Prefer to if __STDC__ is defined, since - # exists even on freestanding compilers. - # On the NeXT, cc -E runs the code through the compiler's parser, - # not just through cpp. "Syntax error" is here to catch this case. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#ifdef __STDC__ -# include -#else -# include -#endif - Syntax error -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - -else - # Broken: fails on valid input. -continue -fi -rm -f conftest.err conftest.i conftest.$ac_ext - - # OK, works on sane cases. Now check whether nonexistent headers - # can be detected and how. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -_ACEOF -if ac_fn_c_try_cpp "$LINENO"; then : - # Broken: success on invalid input. -continue -else - # Passes both tests. -ac_preproc_ok=: -break -fi -rm -f conftest.err conftest.i conftest.$ac_ext - -done -# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. -rm -f conftest.i conftest.err conftest.$ac_ext -if $ac_preproc_ok; then : - -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} -as_fn_error $? "C preprocessor \"$CPP\" fails sanity check -See \`config.log' for more details" "$LINENO" 5; } -fi - -ac_ext=c -ac_cpp='$CPP $CPPFLAGS' -ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' -ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' -ac_compiler_gnu=$ac_cv_c_compiler_gnu - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 -$as_echo_n "checking for grep that handles long lines and -e... " >&6; } -if ${ac_cv_path_GREP+:} false; then : - $as_echo_n "(cached) " >&6 -else - if test -z "$GREP"; then - ac_path_GREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin -do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in grep ggrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" - as_fn_executable_p "$ac_path_GREP" || continue -# Check for GNU ac_path_GREP and select it if it is found. - # Check for GNU $ac_path_GREP -case `"$ac_path_GREP" --version 2>&1` in -*GNU*) - ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; -*) - ac_count=0 - $as_echo_n 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - $as_echo 'GREP' >> "conftest.nl" - "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_GREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_GREP="$ac_path_GREP" - ac_path_GREP_max=$ac_count - fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_GREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_GREP"; then - as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 - fi -else - ac_cv_path_GREP=$GREP -fi - -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 -$as_echo "$ac_cv_path_GREP" >&6; } - GREP="$ac_cv_path_GREP" - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 -$as_echo_n "checking for egrep... " >&6; } -if ${ac_cv_path_EGREP+:} false; then : - $as_echo_n "(cached) " >&6 -else - if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 - then ac_cv_path_EGREP="$GREP -E" - else - if test -z "$EGREP"; then - ac_path_EGREP_found=false - # Loop through the user's path and test for each of PROGNAME-LIST - as_save_IFS=$IFS; IFS=$PATH_SEPARATOR -for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin +ac_header= ac_cache= +for ac_item in $ac_header_c_list do - IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - for ac_prog in egrep; do - for ac_exec_ext in '' $ac_executable_extensions; do - ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" - as_fn_executable_p "$ac_path_EGREP" || continue -# Check for GNU ac_path_EGREP and select it if it is found. - # Check for GNU $ac_path_EGREP -case `"$ac_path_EGREP" --version 2>&1` in -*GNU*) - ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; -*) - ac_count=0 - $as_echo_n 0123456789 >"conftest.in" - while : - do - cat "conftest.in" "conftest.in" >"conftest.tmp" - mv "conftest.tmp" "conftest.in" - cp "conftest.in" "conftest.nl" - $as_echo 'EGREP' >> "conftest.nl" - "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break - diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break - as_fn_arith $ac_count + 1 && ac_count=$as_val - if test $ac_count -gt ${ac_path_EGREP_max-0}; then - # Best one so far, save it but keep looking for a better one - ac_cv_path_EGREP="$ac_path_EGREP" - ac_path_EGREP_max=$ac_count + if test $ac_cache; then + ac_fn_c_check_header_compile "$LINENO" $ac_header ac_cv_header_$ac_cache "$ac_includes_default" + if eval test \"x\$ac_cv_header_$ac_cache\" = xyes; then + printf "%s\n" "#define $ac_item 1" >> confdefs.h fi - # 10*(2^10) chars as input seems more than enough - test $ac_count -gt 10 && break - done - rm -f conftest.in conftest.tmp conftest.nl conftest.out;; -esac - - $ac_path_EGREP_found && break 3 - done - done - done -IFS=$as_save_IFS - if test -z "$ac_cv_path_EGREP"; then - as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 + ac_header= ac_cache= + elif test $ac_header; then + ac_cache=$ac_item + else + ac_header=$ac_item fi -else - ac_cv_path_EGREP=$EGREP -fi - - fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 -$as_echo "$ac_cv_path_EGREP" >&6; } - EGREP="$ac_cv_path_EGREP" - - -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 -$as_echo_n "checking for ANSI C header files... " >&6; } -if ${ac_cv_header_stdc+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#include -#include - -int -main () -{ - - ; - return 0; -} -_ACEOF -if ac_fn_c_try_compile "$LINENO"; then : - ac_cv_header_stdc=yes -else - ac_cv_header_stdc=no -fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext - -if test $ac_cv_header_stdc = yes; then - # SunOS 4.x string.h does not declare mem*, contrary to ANSI. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "memchr" >/dev/null 2>&1; then : - -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include - -_ACEOF -if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | - $EGREP "free" >/dev/null 2>&1; then : - -else - ac_cv_header_stdc=no -fi -rm -f conftest* - -fi - -if test $ac_cv_header_stdc = yes; then - # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. - if test "$cross_compiling" = yes; then : - : -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext -/* end confdefs.h. */ -#include -#include -#if ((' ' & 0x0FF) == 0x020) -# define ISLOWER(c) ('a' <= (c) && (c) <= 'z') -# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) -#else -# define ISLOWER(c) \ - (('a' <= (c) && (c) <= 'i') \ - || ('j' <= (c) && (c) <= 'r') \ - || ('s' <= (c) && (c) <= 'z')) -# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) -#endif +done -#define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) -int -main () -{ - int i; - for (i = 0; i < 256; i++) - if (XOR (islower (i), ISLOWER (i)) - || toupper (i) != TOUPPER (i)) - return 2; - return 0; -} -_ACEOF -if ac_fn_c_try_run "$LINENO"; then : -else - ac_cv_header_stdc=no -fi -rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ - conftest.$ac_objext conftest.beam conftest.$ac_ext -fi -fi -fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 -$as_echo "$ac_cv_header_stdc" >&6; } -if test $ac_cv_header_stdc = yes; then -$as_echo "#define STDC_HEADERS 1" >>confdefs.h -fi -# On IRIX 5.3, sys/types and inttypes.h are conflicting. -for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ - inttypes.h stdint.h unistd.h -do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default -" -if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : - cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 -_ACEOF -fi -done +if test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes +then : +printf "%s\n" "#define STDC_HEADERS 1" >>confdefs.h +fi # The cast to long int works around a bug in the HP C Compiler # version HP92453-01 B.11.11.23709.GP, which incorrectly rejects # declarations like `int a3[[(sizeof (unsigned char)) >= 0]];'. # This bug is HP SR number 8606223364. -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking size of void *" >&5 -$as_echo_n "checking size of void *... " >&6; } -if ${ac_cv_sizeof_void_p+:} false; then : - $as_echo_n "(cached) " >&6 -else - if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (void *))" "ac_cv_sizeof_void_p" "$ac_includes_default"; then : - -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking size of void *" >&5 +printf %s "checking size of void *... " >&6; } +if test ${ac_cv_sizeof_void_p+y} +then : + printf %s "(cached) " >&6 +else $as_nop + if ac_fn_c_compute_int "$LINENO" "(long int) (sizeof (void *))" "ac_cv_sizeof_void_p" "$ac_includes_default" +then : + +else $as_nop if test "$ac_cv_type_void_p" = yes; then - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot compute sizeof (void *) See \`config.log' for more details" "$LINENO" 5; } else @@ -7117,14 +6992,12 @@ See \`config.log' for more details" "$LINENO" 5; } fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_void_p" >&5 -$as_echo "$ac_cv_sizeof_void_p" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sizeof_void_p" >&5 +printf "%s\n" "$ac_cv_sizeof_void_p" >&6; } -cat >>confdefs.h <<_ACEOF -#define SIZEOF_VOID_P $ac_cv_sizeof_void_p -_ACEOF +printf "%s\n" "#define SIZEOF_VOID_P $ac_cv_sizeof_void_p" >>confdefs.h # Define for platforms with 64 bit (void * ) pointers @@ -7136,11 +7009,12 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran name-mangling scheme" >&5 -$as_echo_n "checking for Fortran name-mangling scheme... " >&6; } -if ${ac_cv_fc_mangling+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Fortran name-mangling scheme" >&5 +printf %s "checking for Fortran name-mangling scheme... " >&6; } +if test ${ac_cv_fc_mangling+y} +then : + printf %s "(cached) " >&6 +else $as_nop cat > conftest.$ac_ext <<_ACEOF subroutine foobar() return @@ -7149,7 +7023,8 @@ else return end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : mv conftest.$ac_objext cfortran_test.$ac_objext ac_save_LIBS=$LIBS @@ -7170,22 +7045,20 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char $ac_func (); int -main () +main (void) { return $ac_func (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_success=yes; break 2 fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext done done @@ -7220,22 +7093,20 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char $ac_func (); int -main () +main (void) { return $ac_func (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_success_extra=yes; break fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext done ac_ext=${ac_fc_srcext-f} @@ -7265,17 +7136,17 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu LIBS=$ac_save_LIBS rm -rf conftest* rm -f cfortran_test* -else - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} +else $as_nop + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compile a simple Fortran program See \`config.log' for more details" "$LINENO" 5; } fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_mangling" >&5 -$as_echo "$ac_cv_fc_mangling" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_fc_mangling" >&5 +printf "%s\n" "$ac_cv_fc_mangling" >&6; } if test "X$psblas_cv_fc" == X"pg" ; then FC=$save_FC @@ -7292,8 +7163,8 @@ pac_fc_sec_under=${pac_fc_under#*,} pac_fc_sec_under=${pac_fc_sec_under# } pac_fc_under=${pac_fc_under%%,*} pac_fc_under=${pac_fc_under# } -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking defines for C/Fortran name interfaces" >&5 -$as_echo_n "checking defines for C/Fortran name interfaces... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking defines for C/Fortran name interfaces" >&5 +printf %s "checking defines for C/Fortran name interfaces... " >&6; } if test "x$pac_fc_case" == "xlower case"; then if test "x$pac_fc_under" == "xunderscore"; then if test "x$pac_fc_sec_under" == "xno extra underscore"; then @@ -7327,8 +7198,8 @@ else fi CDEFINES="$pac_f_c_names $CDEFINES" -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_f_c_names " >&5 -$as_echo " $pac_f_c_names " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_f_c_names " >&5 +printf "%s\n" " $pac_f_c_names " >&6; } ############################################################################### # Make.inc generation logic @@ -7408,8 +7279,8 @@ if test "X$FCOPT" == "X" ; then # note that no space should be placed around the equality symbol in assignations # Note : 'native' is valid _only_ on GCC/x86 (32/64 bits) FCOPT="-g -O3 -frecursive $FCOPT" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for version 10 or later of GNU Fortran" >&5 -$as_echo_n "checking for version 10 or later of GNU Fortran... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for version 10 or later of GNU Fortran" >&5 +printf %s "checking for version 10 or later of GNU Fortran... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -7428,16 +7299,17 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu #endif end _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } FCOPT="-fallow-argument-mismatch $FCOPT" -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -7516,11 +7388,12 @@ then else -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking fortran 90 modules extension" >&5 -$as_echo_n "checking fortran 90 modules extension... " >&6; } -if ${ax_cv_f90_modext+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking fortran 90 modules extension" >&5 +printf %s "checking fortran 90 modules extension... " >&6; } +if test ${ax_cv_f90_modext+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -7542,7 +7415,8 @@ cat > conftest.$ac_ext <<_ACEOF end module conftest_module _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : ax_cv_f90_modext=`ls | sed -n 's,conftest_module\.,,p'` if test x$ax_cv_f90_modext = x ; then ax_cv_f90_modext=`ls | sed -n 's,CONFTEST_MODULE\.,,p'` @@ -7551,10 +7425,10 @@ if ac_fn_fc_try_compile "$LINENO"; then : fi fi -else +else $as_nop ax_cv_f90_modext=unknown fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext cd .. rm -fr tmpdir_$i ac_ext=c @@ -7565,14 +7439,15 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_f90_modext" >&5 -$as_echo "$ax_cv_f90_modext" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ax_cv_f90_modext" >&5 +printf "%s\n" "$ax_cv_f90_modext" >&6; } -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking fortran 90 modules inclusion flag" >&5 -$as_echo_n "checking fortran 90 modules inclusion flag... " >&6; } -if ${ax_cv_f90_modflag+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking fortran 90 modules inclusion flag" >&5 +printf %s "checking fortran 90 modules inclusion flag... " >&6; } +if test ${ax_cv_f90_modflag+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -7595,10 +7470,11 @@ cat > conftest.$ac_ext <<_ACEOF end module conftest_module _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext cd ..; ax_cv_f90_modflag="not found" for ax_flag in "-I " "-M" "-p"; do @@ -7613,10 +7489,11 @@ for ax_flag in "-I " "-M" "-p"; do end program conftest_program _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : +if ac_fn_fc_try_compile "$LINENO" +then : ax_cv_f90_modflag="$ax_flag" fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext FCFLAGS="$ax_save_FCFLAGS" fi done @@ -7632,8 +7509,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_f90_modflag" >&5 -$as_echo "$ax_cv_f90_modflag" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ax_cv_f90_modflag" >&5 +printf "%s\n" "$ax_cv_f90_modflag" >&6; } MODEXT=".$ax_cv_f90_modext" FMFLAG="${ax_cv_f90_modflag%% *}" FIFLAG=-I @@ -7654,8 +7531,8 @@ fi if test x"$pac_cv_serial_mpi" == x"yes" ; then FDEFINES="$psblas_cv_define_prepend-DSERIAL_MPI $psblas_cv_define_prepend-DMPI_MOD $FDEFINES"; else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking MPI Fortran 2008 interface" >&5 -$as_echo_n "checking MPI Fortran 2008 interface... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking MPI Fortran 2008 interface" >&5 +printf %s "checking MPI Fortran 2008 interface... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -7670,20 +7547,21 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu use mpi_f08 end program test _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } pac_cv_mpi_f08="yes"; : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } pac_cv_mpi_f08="no"; echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -7694,8 +7572,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu if test x"$pac_cv_mpi_f08" == x"yes" ; then FDEFINES="$psblas_cv_define_prepend-DMPI_MOD $FDEFINES"; else - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for Fortran MPI mod" >&5 -$as_echo_n "checking for Fortran MPI mod... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Fortran MPI mod" >&5 +printf %s "checking for Fortran MPI mod... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -7710,18 +7588,19 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu use mpi end program test _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } FDEFINES="$psblas_cv_define_prepend-DMPI_MOD $FDEFINES" -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 FDEFINES="$psblas_cv_define_prepend-DMPI_H $FDEFINES" fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -7733,45 +7612,47 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking what size in bytes we want for local indices and data" >&5 -$as_echo_n "checking what size in bytes we want for local indices and data... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking what size in bytes we want for local indices and data" >&5 +printf %s "checking what size in bytes we want for local indices and data... " >&6; } # Check whether --with-ipk was given. -if test "${with_ipk+set}" = set; then : +if test ${with_ipk+y} +then : withval=$with_ipk; pac_cv_ipk_size=$withval; -else +else $as_nop pac_cv_ipk_size=4; fi if test x"$pac_cv_ipk_size" == x"4" || test x"$pac_cv_ipk_size" == x"8" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Size: $pac_cv_ipk_size." >&5 -$as_echo "Size: $pac_cv_ipk_size." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: Size: $pac_cv_ipk_size." >&5 +printf "%s\n" "Size: $pac_cv_ipk_size." >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Unsupported value for IPK: $pac_cv_ipk_size, defaulting to 4." >&5 -$as_echo "Unsupported value for IPK: $pac_cv_ipk_size, defaulting to 4." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: Unsupported value for IPK: $pac_cv_ipk_size, defaulting to 4." >&5 +printf "%s\n" "Unsupported value for IPK: $pac_cv_ipk_size, defaulting to 4." >&6; } pac_cv_ipk_size=4; fi - { $as_echo "$as_me:${as_lineno-$LINENO}: checking what size in bytes we want for global indices and data" >&5 -$as_echo_n "checking what size in bytes we want for global indices and data... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking what size in bytes we want for global indices and data" >&5 +printf %s "checking what size in bytes we want for global indices and data... " >&6; } # Check whether --with-lpk was given. -if test "${with_lpk+set}" = set; then : +if test ${with_lpk+y} +then : withval=$with_lpk; pac_cv_lpk_size=$withval; -else +else $as_nop pac_cv_lpk_size=8; fi if test x"$pac_cv_lpk_size" == x"4" || test x"$pac_cv_lpk_size" == x"8"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Size: $pac_cv_lpk_size." >&5 -$as_echo "Size: $pac_cv_lpk_size." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: Size: $pac_cv_lpk_size." >&5 +printf "%s\n" "Size: $pac_cv_lpk_size." >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: Unsupported value for LPK: $pac_cv_lpk_size, defaulting to 8." >&5 -$as_echo "Unsupported value for LPK: $pac_cv_lpk_size, defaulting to 8." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: Unsupported value for LPK: $pac_cv_lpk_size, defaulting to 8." >&5 +printf "%s\n" "Unsupported value for LPK: $pac_cv_lpk_size, defaulting to 8." >&6; } pac_cv_lpk_size=8; fi @@ -7785,10 +7666,10 @@ if test x"$pac_cv_lpk_size" == x"" ; then fi # Enforce sensible combination if (( $pac_cv_lpk_size < $pac_cv_ipk_size )); then - { $as_echo "$as_me:${as_lineno-$LINENO}: Invalid combination of size specs IPK ${pac_cv_ipk_size} LPK ${pac_cv_lpk_size}. " >&5 -$as_echo "$as_me: Invalid combination of size specs IPK ${pac_cv_ipk_size} LPK ${pac_cv_lpk_size}. " >&6;}; - { $as_echo "$as_me:${as_lineno-$LINENO}: Forcing equal values" >&5 -$as_echo "$as_me: Forcing equal values" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Invalid combination of size specs IPK ${pac_cv_ipk_size} LPK ${pac_cv_lpk_size}. " >&5 +printf "%s\n" "$as_me: Invalid combination of size specs IPK ${pac_cv_ipk_size} LPK ${pac_cv_lpk_size}. " >&6;}; + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Forcing equal values" >&5 +printf "%s\n" "$as_me: Forcing equal values" >&6;} pac_cv_lpk_size=$pac_cv_ipk_size; fi FDEFINES="$psblas_cv_define_prepend-DIPK${pac_cv_ipk_size} $FDEFINES"; @@ -7796,10 +7677,14 @@ FDEFINES="$psblas_cv_define_prepend-DLPK${pac_cv_lpk_size} $FDEFINES"; CDEFINES="-DIPK${pac_cv_ipk_size} -DLPK${pac_cv_lpk_size} $CDEFINES" FLINK="$MPIFC" -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we want openmp " >&5 -$as_echo_n "checking whether we want openmp ... " >&6; } +if test -e penmp || test -e mp; then + as_fn_error $? "AC_OPENMP clobbers files named 'mp' and 'penmp'. Aborting configure because one of these files already exists." "$LINENO" 5 +fi +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we want openmp " >&5 +printf %s "checking whether we want openmp ... " >&6; } # Check whether --enable-openmp was given. -if test "${enable_openmp+set}" = set; then : +if test ${enable_openmp+y} +then : enableval=$enable_openmp; pac_cv_openmp="yes"; @@ -7807,27 +7692,34 @@ pac_cv_openmp="yes"; fi if test x"$pac_cv_openmp" == x"yes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes." >&5 -$as_echo "yes." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes." >&5 +printf "%s\n" "yes." >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - - OPENMP_FCFLAGS= - # Check whether --enable-openmp was given. -if test "${enable_openmp+set}" = set; then : + # Check whether --enable-openmp was given. +if test ${enable_openmp+y} +then : enableval=$enable_openmp; fi + OPENMP_FCFLAGS= if test "$enable_openmp" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $FC option to support OpenMP" >&5 -$as_echo_n "checking for $FC option to support OpenMP... " >&6; } -if ${ac_cv_prog_fc_openmp+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat > conftest.$ac_ext <<_ACEOF + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $FC option to support OpenMP" >&5 +printf %s "checking for $FC option to support OpenMP... " >&6; } +if test ${ac_cv_prog_fc_openmp+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_fc_openmp='not found' + for ac_option in '' -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ + -Popenmp --openmp; do + + ac_save_FCFLAGS=$FCFLAGS + FCFLAGS="$FCFLAGS $ac_option" + cat > conftest.$ac_ext <<_ACEOF program main implicit none @@ -7837,15 +7729,9 @@ else end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : - ac_cv_prog_fc_openmp='none needed' -else - ac_cv_prog_fc_openmp='unsupported' - for ac_option in -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ - -Popenmp --openmp; do - ac_save_FCFLAGS=$FCFLAGS - FCFLAGS="$FCFLAGS $ac_option" - cat > conftest.$ac_ext <<_ACEOF +if ac_fn_fc_try_compile "$LINENO" +then : + cat > conftest.$ac_ext <<_ACEOF program main implicit none @@ -7855,28 +7741,35 @@ else end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_prog_fc_openmp=$ac_option +else $as_nop + ac_cv_prog_fc_openmp='unsupported' fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - FCFLAGS=$ac_save_FCFLAGS - if test "$ac_cv_prog_fc_openmp" != unsupported; then - break - fi - done fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + FCFLAGS=$ac_save_FCFLAGS + + if test "$ac_cv_prog_fc_openmp" != 'not found'; then + break + fi + done + if test "$ac_cv_prog_fc_openmp" = 'not found'; then + ac_cv_prog_fc_openmp='unsupported' + elif test "$ac_cv_prog_fc_openmp" = ''; then + ac_cv_prog_fc_openmp='none needed' + fi + rm -f penmp mp fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_openmp" >&5 -$as_echo "$ac_cv_prog_fc_openmp" >&6; } - case $ac_cv_prog_fc_openmp in #( - "none needed" | unsupported) - ;; #( - *) - OPENMP_FCFLAGS=$ac_cv_prog_fc_openmp ;; - esac +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_fc_openmp" >&5 +printf "%s\n" "$ac_cv_prog_fc_openmp" >&6; } + if test "$ac_cv_prog_fc_openmp" != 'unsupported' && \ + test "$ac_cv_prog_fc_openmp" != 'none needed'; then + OPENMP_FCFLAGS="$ac_cv_prog_fc_openmp" + fi fi @@ -7893,69 +7786,77 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - - OPENMP_CFLAGS= - # Check whether --enable-openmp was given. -if test "${enable_openmp+set}" = set; then : + # Check whether --enable-openmp was given. +if test ${enable_openmp+y} +then : enableval=$enable_openmp; fi + OPENMP_CFLAGS= if test "$enable_openmp" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to support OpenMP" >&5 -$as_echo_n "checking for $CC option to support OpenMP... " >&6; } -if ${ac_cv_prog_c_openmp+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to support OpenMP" >&5 +printf %s "checking for $CC option to support OpenMP... " >&6; } +if test ${ac_cv_prog_c_openmp+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_c_openmp='not found' + for ac_option in '' -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ + -Popenmp --openmp; do + + ac_save_CFLAGS=$CFLAGS + CFLAGS="$CFLAGS $ac_option" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef _OPENMP - choke me +#error "OpenMP not supported" #endif #include -int main () { return omp_get_num_threads (); } +int main (void) { return omp_get_num_threads (); } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : - ac_cv_prog_c_openmp='none needed' -else - ac_cv_prog_c_openmp='unsupported' - for ac_option in -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ - -Popenmp --openmp; do - ac_save_CFLAGS=$CFLAGS - CFLAGS="$CFLAGS $ac_option" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext +if ac_fn_c_try_compile "$LINENO" +then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef _OPENMP - choke me +#error "OpenMP not supported" #endif #include -int main () { return omp_get_num_threads (); } +int main (void) { return omp_get_num_threads (); } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_prog_c_openmp=$ac_option +else $as_nop + ac_cv_prog_c_openmp='unsupported' fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - CFLAGS=$ac_save_CFLAGS - if test "$ac_cv_prog_c_openmp" != unsupported; then - break - fi - done fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + CFLAGS=$ac_save_CFLAGS + + if test "$ac_cv_prog_c_openmp" != 'not found'; then + break + fi + done + if test "$ac_cv_prog_c_openmp" = 'not found'; then + ac_cv_prog_c_openmp='unsupported' + elif test "$ac_cv_prog_c_openmp" = ''; then + ac_cv_prog_c_openmp='none needed' + fi + rm -f penmp mp fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_c_openmp" >&5 -$as_echo "$ac_cv_prog_c_openmp" >&6; } - case $ac_cv_prog_c_openmp in #( - "none needed" | unsupported) - ;; #( - *) - OPENMP_CFLAGS=$ac_cv_prog_c_openmp ;; - esac +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_c_openmp" >&5 +printf "%s\n" "$ac_cv_prog_c_openmp" >&6; } + if test "$ac_cv_prog_c_openmp" != 'unsupported' && \ + test "$ac_cv_prog_c_openmp" != 'none needed'; then + OPENMP_CFLAGS="$ac_cv_prog_c_openmp" + fi fi @@ -7972,69 +7873,77 @@ ac_compile='$CXX -c $CXXFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CXX -o conftest$ac_exeext $CXXFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_cxx_compiler_gnu - - OPENMP_CXXFLAGS= - # Check whether --enable-openmp was given. -if test "${enable_openmp+set}" = set; then : + # Check whether --enable-openmp was given. +if test ${enable_openmp+y} +then : enableval=$enable_openmp; fi + OPENMP_CXXFLAGS= if test "$enable_openmp" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CXX option to support OpenMP" >&5 -$as_echo_n "checking for $CXX option to support OpenMP... " >&6; } -if ${ac_cv_prog_cxx_openmp+:} false; then : - $as_echo_n "(cached) " >&6 -else - cat confdefs.h - <<_ACEOF >conftest.$ac_ext + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CXX option to support OpenMP" >&5 +printf %s "checking for $CXX option to support OpenMP... " >&6; } +if test ${ac_cv_prog_cxx_openmp+y} +then : + printf %s "(cached) " >&6 +else $as_nop + ac_cv_prog_cxx_openmp='not found' + for ac_option in '' -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ + -Popenmp --openmp; do + + ac_save_CXXFLAGS=$CXXFLAGS + CXXFLAGS="$CXXFLAGS $ac_option" + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef _OPENMP - choke me +#error "OpenMP not supported" #endif #include -int main () { return omp_get_num_threads (); } +int main (void) { return omp_get_num_threads (); } _ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : - ac_cv_prog_cxx_openmp='none needed' -else - ac_cv_prog_cxx_openmp='unsupported' - for ac_option in -fopenmp -xopenmp -openmp -mp -omp -qsmp=omp -homp \ - -Popenmp --openmp; do - ac_save_CXXFLAGS=$CXXFLAGS - CXXFLAGS="$CXXFLAGS $ac_option" - cat confdefs.h - <<_ACEOF >conftest.$ac_ext +if ac_fn_cxx_try_compile "$LINENO" +then : + cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef _OPENMP - choke me +#error "OpenMP not supported" #endif #include -int main () { return omp_get_num_threads (); } +int main (void) { return omp_get_num_threads (); } _ACEOF -if ac_fn_cxx_try_link "$LINENO"; then : +if ac_fn_cxx_try_link "$LINENO" +then : ac_cv_prog_cxx_openmp=$ac_option +else $as_nop + ac_cv_prog_cxx_openmp='unsupported' fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - CXXFLAGS=$ac_save_CXXFLAGS - if test "$ac_cv_prog_cxx_openmp" != unsupported; then - break - fi - done fi -rm -f core conftest.err conftest.$ac_objext \ - conftest$ac_exeext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext + CXXFLAGS=$ac_save_CXXFLAGS + + if test "$ac_cv_prog_cxx_openmp" != 'not found'; then + break + fi + done + if test "$ac_cv_prog_cxx_openmp" = 'not found'; then + ac_cv_prog_cxx_openmp='unsupported' + elif test "$ac_cv_prog_cxx_openmp" = ''; then + ac_cv_prog_cxx_openmp='none needed' + fi + rm -f penmp mp fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_openmp" >&5 -$as_echo "$ac_cv_prog_cxx_openmp" >&6; } - case $ac_cv_prog_cxx_openmp in #( - "none needed" | unsupported) - ;; #( - *) - OPENMP_CXXFLAGS=$ac_cv_prog_cxx_openmp ;; - esac +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_openmp" >&5 +printf "%s\n" "$ac_cv_prog_cxx_openmp" >&6; } + if test "$ac_cv_prog_cxx_openmp" != 'unsupported' && \ + test "$ac_cv_prog_cxx_openmp" != 'none needed'; then + OPENMP_CXXFLAGS="$ac_cv_prog_cxx_openmp" + fi fi @@ -8047,8 +7956,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu else pac_cv_openmp="no"; - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no." >&5 -$as_echo "no." >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no." >&5 +printf "%s\n" "no." >&6; } fi @@ -8068,8 +7977,8 @@ fi # # Critical features # -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran allocatables TR15581" >&5 -$as_echo_n "checking support for Fortran allocatables TR15581... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran allocatables TR15581" >&5 +printf %s "checking support for Fortran allocatables TR15581... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8130,20 +8039,21 @@ program testtr15581 end program testtr15581 _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for TR15581. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8155,8 +8065,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu ac_exeext='' ac_ext='f90' ac_link='${MPIFC-$FC} -o conftest${ac_exeext} $FCFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran EXTENDS" >&5 -$as_echo_n "checking support for Fortran EXTENDS... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran EXTENDS" >&5 +printf %s "checking support for Fortran EXTENDS... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8177,20 +8087,21 @@ program conftest type(bar) :: barvar end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for EXTENDS. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8199,8 +8110,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran CLASS TBP" >&5 -$as_echo_n "checking support for Fortran CLASS TBP... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran CLASS TBP" >&5 +printf %s "checking support for Fortran CLASS TBP... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8240,20 +8151,21 @@ program conftest type(foo) :: foovar end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for CLASS and type bound procedures. Please get a Fortran compiler that supports them, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8262,8 +8174,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran SOURCE= allocation" >&5 -$as_echo_n "checking support for Fortran SOURCE= allocation... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran SOURCE= allocation" >&5 +printf %s "checking support for Fortran SOURCE= allocation... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8289,20 +8201,21 @@ program xtt end program xtt _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for SOURCE= allocation. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8311,8 +8224,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran MOVE_ALLOC intrinsic" >&5 -$as_echo_n "checking support for Fortran MOVE_ALLOC intrinsic... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran MOVE_ALLOC intrinsic" >&5 +printf %s "checking support for Fortran MOVE_ALLOC intrinsic... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8328,20 +8241,21 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu print *, b end program test_move_alloc _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for MOVE_ALLOC. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8350,8 +8264,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran ISO_C_BINDING module" >&5 -$as_echo_n "checking support for Fortran ISO_C_BINDING module... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran ISO_C_BINDING module" >&5 +printf %s "checking support for Fortran ISO_C_BINDING module... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8366,20 +8280,21 @@ program conftest use iso_c_binding end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for ISO_C_BINDING. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8388,8 +8303,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran SAME_TYPE_AS" >&5 -$as_echo_n "checking support for Fortran SAME_TYPE_AS... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran SAME_TYPE_AS" >&5 +printf %s "checking support for Fortran SAME_TYPE_AS... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8415,20 +8330,21 @@ program stt write(*,*) 'nfv2 == nfv1? ', same_type_as(nfv2,nfv1) end program stt _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for SAME_TYPE_AS. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8437,8 +8353,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran EXTENDS_TYPE_OF" >&5 -$as_echo_n "checking support for Fortran EXTENDS_TYPE_OF... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran EXTENDS_TYPE_OF" >&5 +printf %s "checking support for Fortran EXTENDS_TYPE_OF... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8462,20 +8378,21 @@ program xtt write(*,*) 'nfv1 extends foov? ', extends_type_of(nfv1,foov) end program xtt _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for EXTENDS_TYPE_OF. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8484,8 +8401,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran MOLD= allocation" >&5 -$as_echo_n "checking support for Fortran MOLD= allocation... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran MOLD= allocation" >&5 +printf %s "checking support for Fortran MOLD= allocation... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8511,20 +8428,21 @@ program xtt end program xtt _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for MOLD= allocation. Please get a Fortran compiler that supports it, e.g. GNU Fortran 4.8." "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8533,8 +8451,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran VOLATILE" >&5 -$as_echo_n "checking support for Fortran VOLATILE... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran VOLATILE" >&5 +printf %s "checking support for Fortran VOLATILE... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8549,19 +8467,20 @@ program conftest integer, volatile :: i, j end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for VOLATILE" "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8570,8 +8489,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for ISO_FORTRAN_ENV" >&5 -$as_echo_n "checking support for ISO_FORTRAN_ENV... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for ISO_FORTRAN_ENV" >&5 +printf %s "checking support for ISO_FORTRAN_ENV... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8586,19 +8505,20 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu use iso_fortran_env end program test _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for ISO_FORTRAN_ENV" "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8607,8 +8527,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran FINAL" >&5 -$as_echo_n "checking support for Fortran FINAL... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran FINAL" >&5 +printf %s "checking support for Fortran FINAL... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8638,19 +8558,20 @@ program conftest type(foo) :: foovar end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 as_fn_error $? "Sorry, cannot build PSBLAS without support for FINAL" "$LINENO" 5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8665,8 +8586,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu # -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking test GENERIC interfaces" >&5 -$as_echo_n "checking test GENERIC interfaces... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking test GENERIC interfaces" >&5 +printf %s "checking test GENERIC interfaces... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8691,19 +8612,20 @@ module conftest end module conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } : -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 FDEFINES="$psblas_cv_define_prepend-DHAVE_BUGGY_GENERICS $FDEFINES" fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8712,8 +8634,8 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking support for Fortran FLUSH statement" >&5 -$as_echo_n "checking support for Fortran FLUSH statement... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking support for Fortran FLUSH statement" >&5 +printf %s "checking support for Fortran FLUSH statement... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -8732,18 +8654,19 @@ program conftest close(10) end program conftest _ACEOF -if ac_fn_fc_try_compile "$LINENO"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } +if ac_fn_fc_try_compile "$LINENO" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } FDEFINES="$psblas_cv_define_prepend-DHAVE_FLUSH_STMT $FDEFINES" -else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } +else $as_nop + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi -rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext +rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' @@ -8806,7 +8729,8 @@ pac_blas_ok=no # Check whether --with-blas was given. -if test "${with_blas+set}" = set; then : +if test ${with_blas+y} +then : withval=$with_blas; fi @@ -8818,7 +8742,8 @@ case $with_blas in esac # Check whether --with-blasdir was given. -if test "${with_blasdir+set}" = set; then : +if test ${with_blasdir+y} +then : withval=$with_blasdir; fi @@ -8844,22 +8769,23 @@ ac_compiler_gnu=$ac_cv_fc_compiler_gnu if test $pac_blas_ok = no; then if test "x$BLAS_LIBS" != x; then save_LIBS="$LIBS"; LIBS="$BLAS_LIBS $BLAS_LIBDIR $LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in $BLAS_LIBS" >&5 -$as_echo_n "checking for sgemm in $BLAS_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in $BLAS_LIBS" >&5 +printf %s "checking for sgemm in $BLAS_LIBS... " >&6; } cat > conftest.$ac_ext <<_ACEOF program main call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : pac_blas_ok=yes -else +else $as_nop BLAS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_blas_ok" >&5 -$as_echo "$pac_blas_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_blas_ok" >&5 +printf "%s\n" "$pac_blas_ok" >&6; } LIBS="$save_LIBS" fi fi @@ -8873,11 +8799,12 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ATL_xerbla in -latlas" >&5 -$as_echo_n "checking for ATL_xerbla in -latlas... " >&6; } -if ${ac_cv_lib_atlas_ATL_xerbla+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ATL_xerbla in -latlas" >&5 +printf %s "checking for ATL_xerbla in -latlas... " >&6; } +if test ${ac_cv_lib_atlas_ATL_xerbla+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-latlas $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -8886,40 +8813,40 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char ATL_xerbla (); int -main () +main (void) { return ATL_xerbla (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_atlas_ATL_xerbla=yes -else +else $as_nop ac_cv_lib_atlas_ATL_xerbla=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_atlas_ATL_xerbla" >&5 -$as_echo "$ac_cv_lib_atlas_ATL_xerbla" >&6; } -if test "x$ac_cv_lib_atlas_ATL_xerbla" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_atlas_ATL_xerbla" >&5 +printf "%s\n" "$ac_cv_lib_atlas_ATL_xerbla" >&6; } +if test "x$ac_cv_lib_atlas_ATL_xerbla" = xyes +then : ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lf77blas" >&5 -$as_echo_n "checking for sgemm in -lf77blas... " >&6; } -if ${ac_cv_lib_f77blas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lf77blas" >&5 +printf %s "checking for sgemm in -lf77blas... " >&6; } +if test ${ac_cv_lib_f77blas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lf77blas -latlas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -8927,29 +8854,32 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_f77blas_sgemm=yes -else +else $as_nop ac_cv_lib_f77blas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_f77blas_sgemm" >&5 -$as_echo "$ac_cv_lib_f77blas_sgemm" >&6; } -if test "x$ac_cv_lib_f77blas_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_f77blas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_f77blas_sgemm" >&6; } +if test "x$ac_cv_lib_f77blas_sgemm" = xyes +then : ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for cblas_dgemm in -lcblas" >&5 -$as_echo_n "checking for cblas_dgemm in -lcblas... " >&6; } -if ${ac_cv_lib_cblas_cblas_dgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for cblas_dgemm in -lcblas" >&5 +printf %s "checking for cblas_dgemm in -lcblas... " >&6; } +if test ${ac_cv_lib_cblas_cblas_dgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lcblas -lf77blas -latlas $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -8958,30 +8888,29 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char cblas_dgemm (); int -main () +main (void) { return cblas_dgemm (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_cblas_cblas_dgemm=yes -else +else $as_nop ac_cv_lib_cblas_cblas_dgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cblas_cblas_dgemm" >&5 -$as_echo "$ac_cv_lib_cblas_cblas_dgemm" >&6; } -if test "x$ac_cv_lib_cblas_cblas_dgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cblas_cblas_dgemm" >&5 +printf "%s\n" "$ac_cv_lib_cblas_cblas_dgemm" >&6; } +if test "x$ac_cv_lib_cblas_cblas_dgemm" = xyes +then : pac_blas_ok=yes BLAS_LIBS="-lcblas -lf77blas -latlas $BLAS_LIBDIR" fi @@ -8999,11 +8928,12 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ATL_xerbla in -lsatlas" >&5 -$as_echo_n "checking for ATL_xerbla in -lsatlas... " >&6; } -if ${ac_cv_lib_satlas_ATL_xerbla+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ATL_xerbla in -lsatlas" >&5 +printf %s "checking for ATL_xerbla in -lsatlas... " >&6; } +if test ${ac_cv_lib_satlas_ATL_xerbla+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsatlas $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -9012,40 +8942,40 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char ATL_xerbla (); int -main () +main (void) { return ATL_xerbla (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_satlas_ATL_xerbla=yes -else +else $as_nop ac_cv_lib_satlas_ATL_xerbla=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_ATL_xerbla" >&5 -$as_echo "$ac_cv_lib_satlas_ATL_xerbla" >&6; } -if test "x$ac_cv_lib_satlas_ATL_xerbla" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_ATL_xerbla" >&5 +printf "%s\n" "$ac_cv_lib_satlas_ATL_xerbla" >&6; } +if test "x$ac_cv_lib_satlas_ATL_xerbla" = xyes +then : ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsatlas" >&5 -$as_echo_n "checking for sgemm in -lsatlas... " >&6; } -if ${ac_cv_lib_satlas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsatlas" >&5 +printf %s "checking for sgemm in -lsatlas... " >&6; } +if test ${ac_cv_lib_satlas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsatlas -lsatlas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9053,29 +8983,32 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_satlas_sgemm=yes -else +else $as_nop ac_cv_lib_satlas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_sgemm" >&5 -$as_echo "$ac_cv_lib_satlas_sgemm" >&6; } -if test "x$ac_cv_lib_satlas_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_satlas_sgemm" >&6; } +if test "x$ac_cv_lib_satlas_sgemm" = xyes +then : ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for cblas_dgemm in -lsatlas" >&5 -$as_echo_n "checking for cblas_dgemm in -lsatlas... " >&6; } -if ${ac_cv_lib_satlas_cblas_dgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for cblas_dgemm in -lsatlas" >&5 +printf %s "checking for cblas_dgemm in -lsatlas... " >&6; } +if test ${ac_cv_lib_satlas_cblas_dgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsatlas -lsatlas $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext @@ -9084,30 +9017,29 @@ cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char cblas_dgemm (); int -main () +main (void) { return cblas_dgemm (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : ac_cv_lib_satlas_cblas_dgemm=yes -else +else $as_nop ac_cv_lib_satlas_cblas_dgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_cblas_dgemm" >&5 -$as_echo "$ac_cv_lib_satlas_cblas_dgemm" >&6; } -if test "x$ac_cv_lib_satlas_cblas_dgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_satlas_cblas_dgemm" >&5 +printf "%s\n" "$ac_cv_lib_satlas_cblas_dgemm" >&6; } +if test "x$ac_cv_lib_satlas_cblas_dgemm" = xyes +then : pac_blas_ok=yes BLAS_LIBS="-lsatlas $BLAS_LIBDIR" fi @@ -9126,11 +9058,12 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 -$as_echo_n "checking for sgemm in -lblas... " >&6; } -if ${ac_cv_lib_blas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 +printf %s "checking for sgemm in -lblas... " >&6; } +if test ${ac_cv_lib_blas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9138,23 +9071,26 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_blas_sgemm=yes -else +else $as_nop ac_cv_lib_blas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 -$as_echo "$ac_cv_lib_blas_sgemm" >&6; } -if test "x$ac_cv_lib_blas_sgemm" = xyes; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dgemm in -ldgemm" >&5 -$as_echo_n "checking for dgemm in -ldgemm... " >&6; } -if ${ac_cv_lib_dgemm_dgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_blas_sgemm" >&6; } +if test "x$ac_cv_lib_blas_sgemm" = xyes +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for dgemm in -ldgemm" >&5 +printf %s "checking for dgemm in -ldgemm... " >&6; } +if test ${ac_cv_lib_dgemm_dgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-ldgemm -lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9162,23 +9098,26 @@ cat > conftest.$ac_ext <<_ACEOF call dgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_dgemm_dgemm=yes -else +else $as_nop ac_cv_lib_dgemm_dgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dgemm_dgemm" >&5 -$as_echo "$ac_cv_lib_dgemm_dgemm" >&6; } -if test "x$ac_cv_lib_dgemm_dgemm" = xyes; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsgemm" >&5 -$as_echo_n "checking for sgemm in -lsgemm... " >&6; } -if ${ac_cv_lib_sgemm_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dgemm_dgemm" >&5 +printf "%s\n" "$ac_cv_lib_dgemm_dgemm" >&6; } +if test "x$ac_cv_lib_dgemm_dgemm" = xyes +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsgemm" >&5 +printf %s "checking for sgemm in -lsgemm... " >&6; } +if test ${ac_cv_lib_sgemm_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsgemm -lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9186,18 +9125,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_sgemm_sgemm=yes -else +else $as_nop ac_cv_lib_sgemm_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sgemm_sgemm" >&5 -$as_echo "$ac_cv_lib_sgemm_sgemm" >&6; } -if test "x$ac_cv_lib_sgemm_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sgemm_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_sgemm_sgemm" >&6; } +if test "x$ac_cv_lib_sgemm_sgemm" = xyes +then : pac_blas_ok=yes; BLAS_LIBS="-lsgemm -ldgemm -lblas $BLAS_LIBDIR" fi @@ -9215,11 +9156,12 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lopenblas" >&5 -$as_echo_n "checking for sgemm in -lopenblas... " >&6; } -if ${ac_cv_lib_openblas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lopenblas" >&5 +printf %s "checking for sgemm in -lopenblas... " >&6; } +if test ${ac_cv_lib_openblas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lopenblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9227,18 +9169,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_openblas_sgemm=yes -else +else $as_nop ac_cv_lib_openblas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_openblas_sgemm" >&5 -$as_echo "$ac_cv_lib_openblas_sgemm" >&6; } -if test "x$ac_cv_lib_openblas_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_openblas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_openblas_sgemm" >&6; } +if test "x$ac_cv_lib_openblas_sgemm" = xyes +then : pac_blas_ok=yes;BLAS_LIBS="-lopenblas $BLAS_LIBDIR" fi @@ -9250,12 +9194,13 @@ if test $pac_blas_ok = no; then if test x"$ac_cv_fc_compiler_gnu" = xyes; then # 64 bit if test $host_cpu = x86_64; then - as_ac_Lib=`$as_echo "ac_cv_lib_mkl_gf_lp64_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_gf_lp64" >&5 -$as_echo_n "checking for $sgemm in -lmkl_gf_lp64... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_mkl_gf_lp64_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_gf_lp64" >&5 +printf %s "checking for $sgemm in -lmkl_gf_lp64... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmkl_gf_lp64 -lmkl_gf_lp64 -lmkl_sequential -lmkl_core -lpthread $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9263,30 +9208,33 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes;BLAS_LIBS="-lmkl_gf_lp64 -lmkl_sequential -lmkl_core -lpthread $BLAS_LIBDIR" fi # 32 bit elif test $host_cpu = i686; then - as_ac_Lib=`$as_echo "ac_cv_lib_mkl_gf_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_gf" >&5 -$as_echo_n "checking for $sgemm in -lmkl_gf... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_mkl_gf_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_gf" >&5 +printf %s "checking for $sgemm in -lmkl_gf... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmkl_gf -lmkl_gf -lmkl_sequential -lmkl_core -lpthread $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9294,19 +9242,21 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes;BLAS_LIBS="-lmkl_gf -lmkl_sequential -lmkl_core -lpthread $BLAS_LIBDIR" fi @@ -9315,12 +9265,13 @@ fi else # 64-bit if test $host_cpu = x86_64; then - as_ac_Lib=`$as_echo "ac_cv_lib_mkl_intel_lp64_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_intel_lp64" >&5 -$as_echo_n "checking for $sgemm in -lmkl_intel_lp64... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_mkl_intel_lp64_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_intel_lp64" >&5 +printf %s "checking for $sgemm in -lmkl_intel_lp64... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmkl_intel_lp64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9328,30 +9279,33 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes;BLAS_LIBS="-lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lpthread $BLAS_LIBDIR" fi # 32-bit elif test $host_cpu = i686; then - as_ac_Lib=`$as_echo "ac_cv_lib_mkl_intel_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_intel" >&5 -$as_echo_n "checking for $sgemm in -lmkl_intel... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_mkl_intel_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl_intel" >&5 +printf %s "checking for $sgemm in -lmkl_intel... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmkl_intel -lmkl_intel -lmkl_sequential -lmkl_core -lpthread $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9359,19 +9313,21 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes;BLAS_LIBS="-lmkl_intel -lmkl_sequential -lmkl_core -lpthread $BLAS_LIBDIR" fi @@ -9380,12 +9336,13 @@ fi fi # Old versions of MKL if test $pac_blas_ok = no; then - as_ac_Lib=`$as_echo "ac_cv_lib_mkl_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl" >&5 -$as_echo_n "checking for $sgemm in -lmkl... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_mkl_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lmkl" >&5 +printf %s "checking for $sgemm in -lmkl... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lmkl -lguide -lpthread $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9393,19 +9350,21 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes;BLAS_LIBS="-lmkl -lguide -lpthread $BLAS_LIBDIR" fi @@ -9414,29 +9373,31 @@ fi # BLAS in Apple vecLib library? if test $pac_blas_ok = no; then save_LIBS="$LIBS"; LIBS="-framework vecLib $LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -framework vecLib" >&5 -$as_echo_n "checking for $sgemm in -framework vecLib... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -framework vecLib" >&5 +printf %s "checking for $sgemm in -framework vecLib... " >&6; } cat > conftest.$ac_ext <<_ACEOF program main call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : pac_blas_ok=yes;BLAS_LIBS="-framework vecLib $BLAS_LIBDIR" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_blas_ok" >&5 -$as_echo "$pac_blas_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_blas_ok" >&5 +printf "%s\n" "$pac_blas_ok" >&6; } LIBS="$save_LIBS" fi # BLAS in Alpha CXML library? if test $pac_blas_ok = no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lcxml" >&5 -$as_echo_n "checking for sgemm in -lcxml... " >&6; } -if ${ac_cv_lib_cxml_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lcxml" >&5 +printf %s "checking for sgemm in -lcxml... " >&6; } +if test ${ac_cv_lib_cxml_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lcxml $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9444,18 +9405,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_cxml_sgemm=yes -else +else $as_nop ac_cv_lib_cxml_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cxml_sgemm" >&5 -$as_echo "$ac_cv_lib_cxml_sgemm" >&6; } -if test "x$ac_cv_lib_cxml_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_cxml_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_cxml_sgemm" >&6; } +if test "x$ac_cv_lib_cxml_sgemm" = xyes +then : pac_blas_ok=yes;BLAS_LIBS="-lcxml $BLAS_LIBDIR" fi @@ -9463,11 +9426,12 @@ fi # BLAS in Alpha DXML library? (now called CXML, see above) if test $pac_blas_ok = no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -ldxml" >&5 -$as_echo_n "checking for sgemm in -ldxml... " >&6; } -if ${ac_cv_lib_dxml_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -ldxml" >&5 +printf %s "checking for sgemm in -ldxml... " >&6; } +if test ${ac_cv_lib_dxml_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-ldxml $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9475,18 +9439,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_dxml_sgemm=yes -else +else $as_nop ac_cv_lib_dxml_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dxml_sgemm" >&5 -$as_echo "$ac_cv_lib_dxml_sgemm" >&6; } -if test "x$ac_cv_lib_dxml_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dxml_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_dxml_sgemm" >&6; } +if test "x$ac_cv_lib_dxml_sgemm" = xyes +then : pac_blas_ok=yes;BLAS_LIBS="-ldxml $BLAS_LIBDIR" fi @@ -9496,11 +9462,12 @@ fi # BLAS in Sun Performance library? if test $pac_blas_ok = no; then if test "x$GCC" != xyes; then # only works with Sun CC - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for acosp in -lsunmath" >&5 -$as_echo_n "checking for acosp in -lsunmath... " >&6; } -if ${ac_cv_lib_sunmath_acosp+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for acosp in -lsunmath" >&5 +printf %s "checking for acosp in -lsunmath... " >&6; } +if test ${ac_cv_lib_sunmath_acosp+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsunmath $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9508,23 +9475,26 @@ cat > conftest.$ac_ext <<_ACEOF call acosp end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_sunmath_acosp=yes -else +else $as_nop ac_cv_lib_sunmath_acosp=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sunmath_acosp" >&5 -$as_echo "$ac_cv_lib_sunmath_acosp" >&6; } -if test "x$ac_cv_lib_sunmath_acosp" = xyes; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsunperf" >&5 -$as_echo_n "checking for sgemm in -lsunperf... " >&6; } -if ${ac_cv_lib_sunperf_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sunmath_acosp" >&5 +printf "%s\n" "$ac_cv_lib_sunmath_acosp" >&6; } +if test "x$ac_cv_lib_sunmath_acosp" = xyes +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lsunperf" >&5 +printf %s "checking for sgemm in -lsunperf... " >&6; } +if test ${ac_cv_lib_sunperf_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lsunperf -lsunmath $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9532,18 +9502,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_sunperf_sgemm=yes -else +else $as_nop ac_cv_lib_sunperf_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sunperf_sgemm" >&5 -$as_echo "$ac_cv_lib_sunperf_sgemm" >&6; } -if test "x$ac_cv_lib_sunperf_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_sunperf_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_sunperf_sgemm" >&6; } +if test "x$ac_cv_lib_sunperf_sgemm" = xyes +then : BLAS_LIBS="-xlic_lib=sunperf -lsunmath $BLAS_LIBDIR" pac_blas_ok=yes fi @@ -9556,11 +9528,12 @@ fi # BLAS in SCSL library? (SGI/Cray Scientific Library) if test $pac_blas_ok = no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lscs" >&5 -$as_echo_n "checking for sgemm in -lscs... " >&6; } -if ${ac_cv_lib_scs_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lscs" >&5 +printf %s "checking for sgemm in -lscs... " >&6; } +if test ${ac_cv_lib_scs_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lscs $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9568,18 +9541,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_scs_sgemm=yes -else +else $as_nop ac_cv_lib_scs_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_scs_sgemm" >&5 -$as_echo "$ac_cv_lib_scs_sgemm" >&6; } -if test "x$ac_cv_lib_scs_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_scs_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_scs_sgemm" >&6; } +if test "x$ac_cv_lib_scs_sgemm" = xyes +then : pac_blas_ok=yes; BLAS_LIBS="-lscs $BLAS_LIBDIR" fi @@ -9587,12 +9562,13 @@ fi # BLAS in SGIMATH library? if test $pac_blas_ok = no; then - as_ac_Lib=`$as_echo "ac_cv_lib_complib.sgimath_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lcomplib.sgimath" >&5 -$as_echo_n "checking for $sgemm in -lcomplib.sgimath... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_complib.sgimath_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lcomplib.sgimath" >&5 +printf %s "checking for $sgemm in -lcomplib.sgimath... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lcomplib.sgimath $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9600,19 +9576,21 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_blas_ok=yes; BLAS_LIBS="-lcomplib.sgimath $BLAS_LIBDIR" fi @@ -9620,12 +9598,13 @@ fi # BLAS in IBM ESSL library? (requires generic BLAS lib, too) if test $pac_blas_ok = no; then - as_ac_Lib=`$as_echo "ac_cv_lib_blas_$sgemm" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lblas" >&5 -$as_echo_n "checking for $sgemm in -lblas... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_blas_$sgemm" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $sgemm in -lblas" >&5 +printf %s "checking for $sgemm in -lblas... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9633,24 +9612,27 @@ cat > conftest.$ac_ext <<_ACEOF call $sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lessl" >&5 -$as_echo_n "checking for sgemm in -lessl... " >&6; } -if ${ac_cv_lib_essl_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lessl" >&5 +printf %s "checking for sgemm in -lessl... " >&6; } +if test ${ac_cv_lib_essl_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lessl -lblas $FLIBS $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9658,18 +9640,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_essl_sgemm=yes -else +else $as_nop ac_cv_lib_essl_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_essl_sgemm" >&5 -$as_echo "$ac_cv_lib_essl_sgemm" >&6; } -if test "x$ac_cv_lib_essl_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_essl_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_essl_sgemm" >&6; } +if test "x$ac_cv_lib_essl_sgemm" = xyes +then : pac_blas_ok=yes; BLAS_LIBS="-lessl -lblas $BLAS_LIBDIR" fi @@ -9683,11 +9667,12 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 -$as_echo_n "checking for sgemm in -lblas... " >&6; } -if ${ac_cv_lib_blas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 +printf %s "checking for sgemm in -lblas... " >&6; } +if test ${ac_cv_lib_blas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9695,25 +9680,25 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_blas_sgemm=yes -else +else $as_nop ac_cv_lib_blas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 -$as_echo "$ac_cv_lib_blas_sgemm" >&6; } -if test "x$ac_cv_lib_blas_sgemm" = xyes; then : - cat >>confdefs.h <<_ACEOF -#define HAVE_LIBBLAS 1 -_ACEOF +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_blas_sgemm" >&6; } +if test "x$ac_cv_lib_blas_sgemm" = xyes +then : + printf "%s\n" "#define HAVE_LIBBLAS 1" >>confdefs.h LIBS="-lblas $LIBS" -else +else $as_nop pac_blas_ok=yes;BLAS_LIBS="-lblas $BLAS_LIBDIR" fi @@ -9726,12 +9711,13 @@ if test $pac_blas_ok = no; then call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : pac_blas_ok=yes -else +else $as_nop BLAS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi @@ -9742,11 +9728,12 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 -$as_echo_n "checking for sgemm in -lblas... " >&6; } -if ${ac_cv_lib_blas_sgemm+:} false; then : - $as_echo_n "(cached) " >&6 -else + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sgemm in -lblas" >&5 +printf %s "checking for sgemm in -lblas... " >&6; } +if test ${ac_cv_lib_blas_sgemm+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lblas $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9754,18 +9741,20 @@ cat > conftest.$ac_ext <<_ACEOF call sgemm end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : ac_cv_lib_blas_sgemm=yes -else +else $as_nop ac_cv_lib_blas_sgemm=no fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 -$as_echo "$ac_cv_lib_blas_sgemm" >&6; } -if test "x$ac_cv_lib_blas_sgemm" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_blas_sgemm" >&5 +printf "%s\n" "$ac_cv_lib_blas_sgemm" >&6; } +if test "x$ac_cv_lib_blas_sgemm" = xyes +then : pac_blas_ok=yes; BLAS_LIBS="-lblas $BLAS_LIBDIR" fi @@ -9777,7 +9766,7 @@ LIBS="$pac_blas_save_LIBS" # Finally, execute ACTION-IF-FOUND/ACTION-IF-NOT-FOUND: if test x"$pac_blas_ok" = xyes; then -$as_echo "#define HAVE_BLAS 1" >>confdefs.h +printf "%s\n" "#define HAVE_BLAS 1" >>confdefs.h : else @@ -9791,7 +9780,8 @@ pac_lapack_ok=no # Check whether --with-lapack was given. -if test "${with_lapack+set}" = set; then : +if test ${with_lapack+y} +then : withval=$with_lapack; fi @@ -9813,8 +9803,8 @@ fi # First, check LAPACK_LIBS environment variable if test "x$LAPACK_LIBS" != x; then save_LIBS="$LIBS"; LIBS="$LAPACK_LIBS $BLAS_LIBS $LIBS $FLIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for cheev in $LAPACK_LIBS" >&5 -$as_echo_n "checking for cheev in $LAPACK_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for cheev in $LAPACK_LIBS" >&5 +printf %s "checking for cheev in $LAPACK_LIBS... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -9828,14 +9818,14 @@ EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pac_lapack_ok=yes - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi @@ -9855,8 +9845,8 @@ fi # LAPACK linked to by default? (is sometimes included in BLAS lib) if test $pac_lapack_ok = no; then save_LIBS="$LIBS"; LIBS="$LIBS $BLAS_LIBS $FLIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for cheev in default libs" >&5 -$as_echo_n "checking for cheev in default libs... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for cheev in default libs" >&5 +printf %s "checking for cheev in default libs... " >&6; } ac_ext=${ac_fc_srcext-f} ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' @@ -9870,14 +9860,14 @@ EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? - $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pac_lapack_ok=yes - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi @@ -9900,12 +9890,13 @@ ac_compile='$FC -c $FCFLAGS $ac_fcflags_srcext conftest.$ac_ext >&5' ac_link='$FC -o conftest$ac_exeext $FCFLAGS $LDFLAGS $ac_fcflags_srcext conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_fc_compiler_gnu - as_ac_Lib=`$as_echo "ac_cv_lib_$lapack''_cheev" | $as_tr_sh` -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for cheev in -l$lapack" >&5 -$as_echo_n "checking for cheev in -l$lapack... " >&6; } -if eval \${$as_ac_Lib+:} false; then : - $as_echo_n "(cached) " >&6 -else + as_ac_Lib=`printf "%s\n" "ac_cv_lib_$lapack""_cheev" | $as_tr_sh` +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for cheev in -l$lapack" >&5 +printf %s "checking for cheev in -l$lapack... " >&6; } +if eval test \${$as_ac_Lib+y} +then : + printf %s "(cached) " >&6 +else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-l$lapack $FLIBS $LIBS" cat > conftest.$ac_ext <<_ACEOF @@ -9913,19 +9904,21 @@ cat > conftest.$ac_ext <<_ACEOF call cheev end _ACEOF -if ac_fn_fc_try_link "$LINENO"; then : +if ac_fn_fc_try_link "$LINENO" +then : eval "$as_ac_Lib=yes" -else +else $as_nop eval "$as_ac_Lib=no" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi eval ac_res=\$$as_ac_Lib - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 -$as_echo "$ac_res" >&6; } -if eval test \"x\$"$as_ac_Lib"\" = x"yes"; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 +printf "%s\n" "$ac_res" >&6; } +if eval test \"x\$"$as_ac_Lib"\" = x"yes" +then : pac_lapack_ok=yes; LAPACK_LIBS="-l$lapack" fi @@ -9973,17 +9966,17 @@ ac_compiler_gnu=$ac_cv_c_compiler_gnu #fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for gnumake" >&5 -$as_echo_n "checking for gnumake... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for gnumake" >&5 +printf %s "checking for gnumake... " >&6; } MAKE=${MAKE:-make} if $MAKE --version 2>&1 | grep -e"GNU Make" >/dev/null; then - { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 -$as_echo "yes" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 +printf "%s\n" "yes" >&6; } psblas_make_gnumake='yes' else - { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 -$as_echo "no" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 +printf "%s\n" "no" >&6; } psblas_make_gnumake='no' fi @@ -10002,10 +9995,11 @@ fi # Check whether --with-rsb was given. -if test "${with_rsb+set}" = set; then : +if test ${with_rsb+y} +then : withval=$with_rsb; if test x"$withval" = xno; then want_rsb_libs= ; else if test x"$withval" = xyes ; then want_rsb_libs=yes ; else want_rsb_libs="$withval" ; fi ; fi -else +else $as_nop want_rsb_libs="" fi @@ -10027,41 +10021,46 @@ LIBS="$RSB_LIBS ${LIBS}" # Check whether --with-metis was given. -if test "${with_metis+set}" = set; then : +if test ${with_metis+y} +then : withval=$with_metis; psblas_cv_metis=$withval -else +else $as_nop psblas_cv_metis='-lmetis' fi # Check whether --with-metisincfile was given. -if test "${with_metisincfile+set}" = set; then : +if test ${with_metisincfile+y} +then : withval=$with_metisincfile; psblas_cv_metisincfile=$withval -else +else $as_nop psblas_cv_metisincfile='metis.h' fi # Check whether --with-metisdir was given. -if test "${with_metisdir+set}" = set; then : +if test ${with_metisdir+y} +then : withval=$with_metisdir; psblas_cv_metisdir=$withval -else +else $as_nop psblas_cv_metisdir='' fi # Check whether --with-metisincdir was given. -if test "${with_metisincdir+set}" = set; then : +if test ${with_metisincdir+y} +then : withval=$with_metisincdir; psblas_cv_metisincdir=$withval -else +else $as_nop psblas_cv_metisincdir='' fi # Check whether --with-metislibdir was given. -if test "${with_metislibdir+set}" = set; then : +if test ${with_metislibdir+y} +then : withval=$with_metislibdir; psblas_cv_metislibdir=$withval -else +else $as_nop psblas_cv_metislibdir='' fi @@ -10089,65 +10088,65 @@ if test "x$psblas_cv_metislibdir" != "x"; then METIS_LIBDIR="-L$psblas_cv_metislibdir" fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: metis dir $psblas_cv_metisdir" >&5 -$as_echo "$as_me: metis dir $psblas_cv_metisdir" >&6;} -for ac_header in limits.h $psblas_cv_metisincfile +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: metis dir $psblas_cv_metisdir" >&5 +printf "%s\n" "$as_me: metis dir $psblas_cv_metisdir" >&6;} + for ac_header in limits.h "$psblas_cv_metisincfile" do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" -if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + as_ac_Header=`printf "%s\n" "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes" +then : cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +#define `printf "%s\n" "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF pac_metis_header_ok=yes -else +else $as_nop pac_metis_header_ok=no; METIS_INCLUDES="" fi done - if test "x$pac_metis_header_ok" == "xno" ; then unset ac_cv_header_metis_h METIS_INCLUDES="-I$psblas_cv_metisdir/include -I$psblas_cv_metisdir/Include " CPPFLAGS="$METIS_INCLUDES $SAVE_CPPFLAGS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for metis_h in $METIS_INCLUDES" >&5 -$as_echo_n "checking for metis_h in $METIS_INCLUDES... " >&6; } - for ac_header in limits.h $psblas_cv_metisincfile + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for metis_h in $METIS_INCLUDES" >&5 +printf %s "checking for metis_h in $METIS_INCLUDES... " >&6; } + for ac_header in limits.h "$psblas_cv_metisincfile" do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" -if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + as_ac_Header=`printf "%s\n" "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes" +then : cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +#define `printf "%s\n" "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF pac_metis_header_ok=yes -else +else $as_nop pac_metis_header_ok=no; METIS_INCLUDES="" fi done - fi if test "x$pac_metis_header_ok" == "xno" ; then unset ac_cv_header_metis_h METIS_INCLUDES="-I$psblas_cv_metisdir/UFconfig -I$psblas_cv_metisdir/METIS/Include -I$psblas_cv_metisdir/METIS/Include" CPPFLAGS="$METIS_INCLUDES $SAVE_CPPFLAGS" - for ac_header in limits.h $psblas_cv_metisincfile + for ac_header in limits.h "$psblas_cv_metisincfile" do : - as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` -ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" -if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : + as_ac_Header=`printf "%s\n" "ac_cv_header_$ac_header" | $as_tr_sh` +ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" +if eval test \"x\$"$as_ac_Header"\" = x"yes" +then : cat >>confdefs.h <<_ACEOF -#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 +#define `printf "%s\n" "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF pac_metis_header_ok=yes -else +else $as_nop pac_metis_header_ok=no; METIS_INCLUDES="" fi done - fi if test "x$pac_metis_header_ok" == "xyes" ; then @@ -10157,8 +10156,8 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS integer size" >&5 -$as_echo_n "checking for METIS integer size... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS integer size" >&5 +printf %s "checking for METIS integer size... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include @@ -10168,15 +10167,16 @@ $as_echo_n "checking for METIS integer size... " >&6; } } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : pac_cv_metis_idx=`./conftest${ac_exeext} | sed 's/^ *//'` -else +else $as_nop pac_cv_metis_idx="unknown" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_cv_metis_idx" >&5 -$as_echo "$pac_cv_metis_idx" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_cv_metis_idx" >&5 +printf "%s\n" "$pac_cv_metis_idx" >&6; } ac_ext=c ac_cpp='$CPP $CPPFLAGS' @@ -10193,8 +10193,8 @@ ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS real size" >&5 -$as_echo_n "checking for METIS real size... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS real size" >&5 +printf %s "checking for METIS real size... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include @@ -10204,15 +10204,16 @@ $as_echo_n "checking for METIS real size... " >&6; } } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : pac_cv_metis_real=`./conftest${ac_exeext} | sed 's/^ *//'` -else +else $as_nop pac_cv_metis_real="unknown" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_cv_metis_real" >&5 -$as_echo "$pac_cv_metis_real" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_cv_metis_real" >&5 +printf "%s\n" "$pac_cv_metis_real" >&6; } ac_ext=c ac_cpp='$CPP $CPPFLAGS' @@ -10226,138 +10227,130 @@ if test "x$pac_metis_header_ok" = "xyes" ; then psblas_cv_metis_includes="$METIS_INCLUDES" METIS_LIBS="$psblas_cv_metis $METIS_LIBDIR" LIBS="$METIS_LIBS -lm $LIBS"; - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 -$as_echo_n "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 +printf %s "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char METIS_PartGraphKway (); int -main () +main (void) { return METIS_PartGraphKway (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_metis=yes;pac_metis_lib_ok=yes; -else +else $as_nop psblas_cv_have_metis=no;pac_metis_lib_ok=no; METIS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 -$as_echo "$pac_metis_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 +printf "%s\n" "$pac_metis_lib_ok" >&6; } if test "x$pac_metis_lib_ok" = "xno" ; then METIS_LIBDIR="-L$psblas_cv_metisdir/Lib -L$psblas_cv_metisdir/lib" METIS_LIBS="$psblas_cv_metis $METIS_LIBDIR" LIBS="$METIS_LIBS -lm $SAVE_LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 -$as_echo_n "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 +printf %s "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char METIS_PartGraphKway (); int -main () +main (void) { return METIS_PartGraphKway (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_metis=yes;pac_metis_lib_ok=yes; -else +else $as_nop psblas_cv_have_metis=no;pac_metis_lib_ok=no; METIS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 -$as_echo "$pac_metis_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 +printf "%s\n" "$pac_metis_lib_ok" >&6; } fi if test "x$pac_metis_lib_ok" = "xno" ; then METIS_LIBDIR="-L$psblas_cv_metisdir/METIS/Lib -L$psblas_cv_metisdir/METIS/Lib" METIS_LIBS="$psblas_cv_metis $METIS_LIBDIR" LIBS="$METIS_LIBS -lm $SAVE_LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 -$as_echo_n "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS_PartGraphKway in $METIS_LIBS" >&5 +printf %s "checking for METIS_PartGraphKway in $METIS_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char METIS_PartGraphKway (); int -main () +main (void) { return METIS_PartGraphKway (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_metis=yes;pac_metis_lib_ok="yes"; -else +else $as_nop psblas_cv_have_metis=no;pac_metis_lib_ok="no"; METIS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 -$as_echo "$pac_metis_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 +printf "%s\n" "$pac_metis_lib_ok" >&6; } fi fi if test "x$pac_metis_lib_ok" = "xyes" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for METIS_SetDefaultOptions in $LIBS" >&5 -$as_echo_n "checking for METIS_SetDefaultOptions in $LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for METIS_SetDefaultOptions in $LIBS" >&5 +printf %s "checking for METIS_SetDefaultOptions in $LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char METIS_SetDefaultOptions (); int -main () +main (void) { return METIS_SetDefaultOptions (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_metis=yes;pac_metis_lib_ok=yes; -else +else $as_nop psblas_cv_have_metis=no;pac_metis_lib_ok="no. Unusable METIS version, sorry."; METIS_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 -$as_echo "$pac_metis_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_metis_lib_ok" >&5 +printf "%s\n" "$pac_metis_lib_ok" >&6; } fi @@ -10365,8 +10358,8 @@ LIBS="$SAVE_LIBS"; CPPFLAGS="$SAVE_CPPFLAGS"; -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking Compatibility between metis and LPK" >&5 -$as_echo_n "checking Compatibility between metis and LPK... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking Compatibility between metis and LPK" >&5 +printf %s "checking Compatibility between metis and LPK... " >&6; } if test "x$pac_cv_lpk_size" == "x4" ; then if test "x$pac_cv_metis_idx" == "x64" ; then psblas_cv_have_metis="no"; @@ -10377,17 +10370,17 @@ if test "x$pac_cv_lpk_size" == "x4" ; then psblas_cv_have_metis="no"; fi fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $psblas_cv_have_metis" >&5 -$as_echo "$psblas_cv_have_metis" >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $psblas_cv_have_metis" >&5 +printf "%s\n" "$psblas_cv_have_metis" >&6; } if test "x$pac_cv_metis_idx" == "xunknown" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: Unknown METIS bitsize." >&5 -$as_echo "$as_me: Unknown METIS bitsize." >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Unknown METIS bitsize." >&5 +printf "%s\n" "$as_me: Unknown METIS bitsize." >&6;} $psblas_cv_have_metis = "no"; fi if test "x$pac_cv_metis_real" == "xunknown" ; then - { $as_echo "$as_me:${as_lineno-$LINENO}: Unknown METIS REAL bitsize." >&5 -$as_echo "$as_me: Unknown METIS REAL bitsize." >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: Unknown METIS REAL bitsize." >&5 +printf "%s\n" "$as_me: Unknown METIS REAL bitsize." >&6;} $psblas_cv_have_metis = "no"; fi if test "x$psblas_cv_have_metis" == "xyes" ; then @@ -10398,33 +10391,37 @@ fi # Check whether --with-amd was given. -if test "${with_amd+set}" = set; then : +if test ${with_amd+y} +then : withval=$with_amd; psblas_cv_amd=$withval -else +else $as_nop psblas_cv_amd='-lamd' fi # Check whether --with-amddir was given. -if test "${with_amddir+set}" = set; then : +if test ${with_amddir+y} +then : withval=$with_amddir; psblas_cv_amddir=$withval -else +else $as_nop psblas_cv_amddir='' fi # Check whether --with-amdincdir was given. -if test "${with_amdincdir+set}" = set; then : +if test ${with_amdincdir+y} +then : withval=$with_amdincdir; psblas_cv_amdincdir=$withval -else +else $as_nop psblas_cv_amdincdir='' fi # Check whether --with-amdlibdir was given. -if test "${with_amdlibdir+set}" = set; then : +if test ${with_amdlibdir+y} +then : withval=$with_amdlibdir; psblas_cv_amdlibdir=$withval -else +else $as_nop psblas_cv_amdlibdir='' fi @@ -10452,44 +10449,44 @@ if test "x$psblas_cv_amdlibdir" != "x"; then AMD_LIBDIR="-L$psblas_cv_amdlibdir" fi -{ $as_echo "$as_me:${as_lineno-$LINENO}: amd dir $psblas_cv_amddir" >&5 -$as_echo "$as_me: amd dir $psblas_cv_amddir" >&6;} -ac_fn_c_check_header_mongrel "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" -if test "x$ac_cv_header_amd_h" = xyes; then : +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: amd dir $psblas_cv_amddir" >&5 +printf "%s\n" "$as_me: amd dir $psblas_cv_amddir" >&6;} +ac_fn_c_check_header_compile "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" +if test "x$ac_cv_header_amd_h" = xyes +then : pac_amd_header_ok=yes -else +else $as_nop pac_amd_header_ok=no; AMD_INCLUDES="" fi - if test "x$pac_amd_header_ok" == "xno" ; then unset ac_cv_header_amd_h AMD_INCLUDES="-I$psblas_cv_amddir/include -I$psblas_cv_amddir/Include " CPPFLAGS="$AMD_INCLUDES $SAVE_CPPFLAGS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for amd_h in $AMD_INCLUDES" >&5 -$as_echo_n "checking for amd_h in $AMD_INCLUDES... " >&6; } - ac_fn_c_check_header_mongrel "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" -if test "x$ac_cv_header_amd_h" = xyes; then : + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for amd_h in $AMD_INCLUDES" >&5 +printf %s "checking for amd_h in $AMD_INCLUDES... " >&6; } + ac_fn_c_check_header_compile "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" +if test "x$ac_cv_header_amd_h" = xyes +then : pac_amd_header_ok=yes -else +else $as_nop pac_amd_header_ok=no; AMD_INCLUDES="" fi - fi if test "x$pac_amd_header_ok" == "xno" ; then unset ac_cv_header_amd_h AMD_INCLUDES="-I$psblas_cv_amddir/UFconfig -I$psblas_cv_amddir/AMD/Include -I$psblas_cv_amddir/AMD/Include" CPPFLAGS="$AMD_INCLUDES $SAVE_CPPFLAGS" - ac_fn_c_check_header_mongrel "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" -if test "x$ac_cv_header_amd_h" = xyes; then : + ac_fn_c_check_header_compile "$LINENO" "amd.h" "ac_cv_header_amd_h" "$ac_includes_default" +if test "x$ac_cv_header_amd_h" = xyes +then : pac_amd_header_ok=yes -else +else $as_nop pac_amd_header_ok=no; AMD_INCLUDES="" fi - fi @@ -10497,103 +10494,97 @@ if test "x$pac_amd_header_ok" == "xyes" ; then psblas_cv_amd_includes="$AMD_INCLUDES" AMD_LIBS="$psblas_cv_amd $AMD_LIBDIR" LIBS="$AMD_LIBS -lm $LIBS"; - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 -$as_echo_n "checking for amd_order in $AMD_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 +printf %s "checking for amd_order in $AMD_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char amd_order (); int -main () +main (void) { return amd_order (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_amd=yes;pac_amd_lib_ok=yes; -else +else $as_nop psblas_cv_have_amd=no;pac_amd_lib_ok=no; AMD_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 -$as_echo "$pac_amd_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 +printf "%s\n" "$pac_amd_lib_ok" >&6; } if test "x$pac_amd_lib_ok" == "xno" ; then AMD_LIBDIR="-L$psblas_cv_amddir/Lib -L$psblas_cv_amddir/lib" AMD_LIBS="$psblas_cv_amd $AMD_LIBDIR" LIBS="$AMD_LIBS -lm $SAVE_LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 -$as_echo_n "checking for amd_order in $AMD_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 +printf %s "checking for amd_order in $AMD_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char amd_order (); int -main () +main (void) { return amd_order (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_amd=yes;pac_amd_lib_ok=yes; -else +else $as_nop psblas_cv_have_amd=no;pac_amd_lib_ok=no; AMD_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 -$as_echo "$pac_amd_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 +printf "%s\n" "$pac_amd_lib_ok" >&6; } fi if test "x$pac_amd_lib_ok" == "xno" ; then AMD_LIBDIR="-L$psblas_cv_amddir/AMD/Lib -L$psblas_cv_amddir/AMD/Lib" AMD_LIBS="$psblas_cv_amd $AMD_LIBDIR" LIBS="$AMD_LIBS -lm $SAVE_LIBS" - { $as_echo "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 -$as_echo_n "checking for amd_order in $AMD_LIBS... " >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for amd_order in $AMD_LIBS" >&5 +printf %s "checking for amd_order in $AMD_LIBS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ -#ifdef __cplusplus -extern "C" -#endif char amd_order (); int -main () +main (void) { return amd_order (); ; return 0; } _ACEOF -if ac_fn_c_try_link "$LINENO"; then : +if ac_fn_c_try_link "$LINENO" +then : psblas_cv_have_amd=yes;pac_amd_lib_ok=yes; -else +else $as_nop psblas_cv_have_amd=no;pac_amd_lib_ok=no; AMD_LIBS="" fi -rm -f core conftest.err conftest.$ac_objext \ +rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext - { $as_echo "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 -$as_echo "$pac_amd_lib_ok" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $pac_amd_lib_ok" >&5 +printf "%s\n" "$pac_amd_lib_ok" >&6; } fi fi LIBS="$SAVE_LIBS"; @@ -10722,8 +10713,8 @@ _ACEOF case $ac_val in #( *${as_nl}*) case $ac_var in #( - *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 -$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; + *_cv_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 +printf "%s\n" "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( @@ -10753,15 +10744,15 @@ $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; /^ac_cv_env_/b end t clear :clear - s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ + s/^\([^=]*\)=\(.*[{}].*\)$/test ${\1+y} || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then - { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 -$as_echo "$as_me: updating cache $cache_file" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 +printf "%s\n" "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else @@ -10775,8 +10766,8 @@ $as_echo "$as_me: updating cache $cache_file" >&6;} fi fi else - { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 -$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 +printf "%s\n" "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache @@ -10829,7 +10820,7 @@ U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' - ac_i=`$as_echo "$ac_i" | sed "$ac_script"` + ac_i=`printf "%s\n" "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" @@ -10840,14 +10831,14 @@ LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs -{ $as_echo "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 -$as_echo_n "checking that generated files are newer than configure... " >&6; } +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 +printf %s "checking that generated files are newer than configure... " >&6; } if test -n "$am_sleep_pid"; then # Hide warnings about reused PIDs. wait $am_sleep_pid 2>/dev/null fi - { $as_echo "$as_me:${as_lineno-$LINENO}: result: done" >&5 -$as_echo "done" >&6; } + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: done" >&5 +printf "%s\n" "done" >&6; } if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 @@ -10873,8 +10864,8 @@ fi ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" -{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 -$as_echo "$as_me: creating $CONFIG_STATUS" >&6;} +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 +printf "%s\n" "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL @@ -10897,14 +10888,16 @@ cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh -if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : +as_nop=: +if test ${ZSH_VERSION+y} && (emulate sh) >/dev/null 2>&1 +then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST -else +else $as_nop case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( @@ -10914,46 +10907,46 @@ esac fi + +# Reset variables that may have inherited troublesome values from +# the environment. + +# IFS needs to be set, to space, tab, and newline, in precisely that order. +# (If _AS_PATH_WALK were called with IFS unset, it would have the +# side effect of setting IFS to empty, thus disabling word splitting.) +# Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl -# Printing a long string crashes Solaris 7 /usr/bin/printf. -as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo -as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo -# Prefer a ksh shell builtin over an external printf program on Solaris, -# but without wasting forks for bash or zsh. -if test -z "$BASH_VERSION$ZSH_VERSION" \ - && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='print -r --' - as_echo_n='print -rn --' -elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then - as_echo='printf %s\n' - as_echo_n='printf %s' -else - if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then - as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' - as_echo_n='/usr/ucb/echo -n' - else - as_echo_body='eval expr "X$1" : "X\\(.*\\)"' - as_echo_n_body='eval - arg=$1; - case $arg in #( - *"$as_nl"*) - expr "X$arg" : "X\\(.*\\)$as_nl"; - arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; - esac; - expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" - ' - export as_echo_n_body - as_echo_n='sh -c $as_echo_n_body as_echo' - fi - export as_echo_body - as_echo='sh -c $as_echo_body as_echo' -fi +IFS=" "" $as_nl" + +PS1='$ ' +PS2='> ' +PS4='+ ' + +# Ensure predictable behavior from utilities with locale-dependent output. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# We cannot yet rely on "unset" to work, but we need these variables +# to be unset--not just set to an empty or harmless value--now, to +# avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct +# also avoids known problems related to "unset" and subshell syntax +# in other old shells (e.g. bash 2.01 and pdksh 5.2.14). +for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH +do eval test \${$as_var+y} \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done + +# Ensure that fds 0, 1, and 2 are open. +if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi +if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. -if test "${PATH_SEPARATOR+set}" != set; then +if ${PATH_SEPARATOR+false} :; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || @@ -10962,13 +10955,6 @@ if test "${PATH_SEPARATOR+set}" != set; then fi -# IFS -# We need space, tab and new line, in precisely that order. Quoting is -# there to prevent editors from complaining about space-tab. -# (If _AS_PATH_WALK were called with IFS unset, it would disable word -# splitting by setting IFS to empty value.) -IFS=" "" $as_nl" - # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( @@ -10977,8 +10963,12 @@ case $0 in #(( for as_dir in $PATH do IFS=$as_save_IFS - test -z "$as_dir" && as_dir=. - test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + case $as_dir in #((( + '') as_dir=./ ;; + */) ;; + *) as_dir=$as_dir/ ;; + esac + test -r "$as_dir$0" && as_myself=$as_dir$0 && break done IFS=$as_save_IFS @@ -10990,30 +10980,10 @@ if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then - $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi -# Unset variables that we do not need and which cause bugs (e.g. in -# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" -# suppresses any "Segmentation fault" message there. '((' could -# trigger a bug in pdksh 5.2.14. -for as_var in BASH_ENV ENV MAIL MAILPATH -do eval test x\${$as_var+set} = xset \ - && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : -done -PS1='$ ' -PS2='> ' -PS4='+ ' - -# NLS nuisances. -LC_ALL=C -export LC_ALL -LANGUAGE=C -export LANGUAGE - -# CDPATH. -(unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] @@ -11026,13 +10996,14 @@ as_fn_error () as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack - $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi - $as_echo "$as_me: error: $2" >&2 + printf "%s\n" "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error + # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. @@ -11059,18 +11030,20 @@ as_fn_unset () { eval $1=; unset $1;} } as_unset=as_fn_unset + # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. -if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null +then : eval 'as_fn_append () { eval $1+=\$2 }' -else +else $as_nop as_fn_append () { eval $1=\$$1\$2 @@ -11082,12 +11055,13 @@ fi # as_fn_append # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. -if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null +then : eval 'as_fn_arith () { as_val=$(( $* )) }' -else +else $as_nop as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` @@ -11118,7 +11092,7 @@ as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$0" | +printf "%s\n" X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q @@ -11140,6 +11114,10 @@ as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits + +# Determine whether it's possible to make 'echo' print without a newline. +# These variables are no longer used directly by Autoconf, but are AC_SUBSTed +# for compatibility with existing Makefiles. ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) @@ -11153,6 +11131,12 @@ case `echo -n x` in #((((( ECHO_N='-n';; esac +# For backward compatibility with old third-party macros, we provide +# the shell variables $as_echo and $as_echo_n. New code should use +# AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. +as_echo='printf %s\n' +as_echo_n='printf %s' + rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file @@ -11194,7 +11178,7 @@ as_fn_mkdir_p () as_dirs= while :; do case $as_dir in #( - *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *\'*) as_qdir=`printf "%s\n" "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" @@ -11203,7 +11187,7 @@ $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$as_dir" | +printf "%s\n" X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -11266,7 +11250,7 @@ cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # values after options handling. ac_log=" This file was extended by PSBLAS $as_me 3.7.0, which was -generated by GNU Autoconf 2.69. Invocation command line was +generated by GNU Autoconf 2.71. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS @@ -11319,14 +11303,16 @@ $config_commands Report bugs to ." _ACEOF +ac_cs_config=`printf "%s\n" "$ac_configure_args" | sed "$ac_safe_unquote"` +ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\''/g"` cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 -ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" +ac_cs_config='$ac_cs_config_escaped' ac_cs_version="\\ PSBLAS config.status 3.7.0 -configured by $0, generated by GNU Autoconf 2.69, +configured by $0, generated by GNU Autoconf 2.71, with options \\"\$ac_cs_config\\" -Copyright (C) 2012 Free Software Foundation, Inc. +Copyright (C) 2021 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." @@ -11366,21 +11352,21 @@ do -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) - $as_echo "$ac_cs_version"; exit ;; + printf "%s\n" "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) - $as_echo "$ac_cs_config"; exit ;; + printf "%s\n" "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in - *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + *\'*) ac_optarg=`printf "%s\n" "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --he | --h | --help | --hel | -h ) - $as_echo "$ac_cs_usage"; exit ;; + printf "%s\n" "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; @@ -11408,7 +11394,7 @@ cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift - \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 + \printf "%s\n" "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" @@ -11422,7 +11408,7 @@ exec 5>>config.log sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX - $as_echo "$ac_log" + printf "%s\n" "$ac_log" } >&5 _ACEOF @@ -11454,8 +11440,8 @@ done # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then - test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files - test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands + test ${CONFIG_FILES+y} || CONFIG_FILES=$config_files + test ${CONFIG_COMMANDS+y} || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree @@ -11683,7 +11669,7 @@ do esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac - case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + case $ac_f in *\'*) ac_f=`printf "%s\n" "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done @@ -11691,17 +11677,17 @@ do # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` - $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + printf "%s\n" "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" - { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 -$as_echo "$as_me: creating $ac_file" >&6;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +printf "%s\n" "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) - ac_sed_conf_input=`$as_echo "$configure_input" | + ac_sed_conf_input=`printf "%s\n" "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac @@ -11718,7 +11704,7 @@ $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$ac_file" | +printf "%s\n" X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -11742,9 +11728,9 @@ $as_echo X"$ac_file" | case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) - ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + ac_dir_suffix=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. - ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + ac_top_builddir_sub=`printf "%s\n" "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; @@ -11806,8 +11792,8 @@ ac_sed_dataroot=' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 -$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +printf "%s\n" "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' @@ -11851,9 +11837,9 @@ test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 -$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +printf "%s\n" "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" @@ -11865,8 +11851,8 @@ which seems to be undefined. Please make sure it is defined" >&2;} ;; - :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 -$as_echo "$as_me: executing $ac_file commands" >&6;} + :C) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +printf "%s\n" "$as_me: executing $ac_file commands" >&6;} ;; esac @@ -11892,7 +11878,7 @@ esac for am_mf do # Strip MF so we end up with the name of the file. - am_mf=`$as_echo "$am_mf" | sed -e 's/:.*$//'` + am_mf=`printf "%s\n" "$am_mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile which includes # dependency-tracking related rules and includes. # Grep'ing the whole file directly is not great: AIX grep has a line @@ -11904,7 +11890,7 @@ $as_expr X"$am_mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$am_mf" : 'X\(//\)[^/]' \| \ X"$am_mf" : 'X\(//\)$' \| \ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X"$am_mf" | +printf "%s\n" X"$am_mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q @@ -11926,7 +11912,7 @@ $as_echo X"$am_mf" | $as_expr X/"$am_mf" : '.*/\([^/][^/]*\)/*$' \| \ X"$am_mf" : 'X\(//\)$' \| \ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null || -$as_echo X/"$am_mf" | +printf "%s\n" X/"$am_mf" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q @@ -11951,8 +11937,8 @@ $as_echo X/"$am_mf" | (exit $ac_status); } || am_rc=$? done if test $am_rc -ne 0; then - { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 -$as_echo "$as_me: error: in \`$ac_pwd':" >&2;} + { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 +printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "Something went wrong bootstrapping makefile fragments for automatic dependency tracking. If GNU make was not used, consider re-running the configure script with MAKE=\"gmake\" (or whatever is @@ -12002,14 +11988,14 @@ if test "$no_create" != yes; then $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then - { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 -$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} + { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 +printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi #AC_OUTPUT(Make.inc Makefile) ############################################################################### -{ $as_echo "$as_me:${as_lineno-$LINENO}: +{ printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${PACKAGE_NAME} ${psblas_cv_version} has been configured as follows: MPIFC : ${MPIFC} @@ -12039,7 +12025,7 @@ fi If you are satisfied, run 'make' to build ${PACKAGE_NAME} and its documentation; otherwise type ./configure --help=short for a complete list of configure options specific to ${PACKAGE_NAME}. " >&5 -$as_echo "$as_me: +printf "%s\n" "$as_me: ${PACKAGE_NAME} ${psblas_cv_version} has been configured as follows: MPIFC : ${MPIFC} @@ -12072,3 +12058,4 @@ $as_echo "$as_me: ############################################################################### + diff --git a/configure.ac b/configure.ac index 28e37269..60191cdb 100755 --- a/configure.ac +++ b/configure.ac @@ -104,6 +104,11 @@ AC_PROG_FC([ftn xlf2003_r xlf2003 xlf95_r xlf95 xlf90 xlf pgf95 pgf90 ifort ifc FCFLAGS="$save_FCFLAGS"; save_CFLAGS="$CFLAGS"; AC_PROG_CC([xlc pgcc icc gcc cc ]) +if test "x$ac_cv_prog_cc_stdc" == "xno" ; then + AC_MSG_ERROR([Problem : Need a C99 compiler ! ]) +else + C99OPT="$ac_cv_prog_cc_stdc"; +fi CFLAGS="$save_CFLAGS"; AC_PROG_CXX([CC xlc++ icpc g++]) @@ -118,12 +123,6 @@ fi if test "X$CC" == "X" ; then AC_MSG_ERROR([Problem : No C compiler specified nor found!]) fi -AC_PROG_CC_STDC() -if test "x$ac_cv_prog_cc_stdc" == "xno" ; then - AC_MSG_ERROR([Problem : Need a C99 compiler ! ]) -else - C99OPT="$ac_cv_prog_cc_stdc"; -fi @@ -148,7 +147,6 @@ if test "X$MPICC" = "X" ; then AC_CHECK_PROGS([MPICC],[mpxlc mpiicc mpcc mpicc cc]) fi ACX_MPI([], [AC_MSG_ERROR([[Cannot find any suitable MPI implementation for C]])]) -AC_PROG_CC_STDC AC_LANG([Fortran]) AC_LANG([C++]) @@ -157,7 +155,6 @@ if test "X$MPICXX" = "X" ; then AC_CHECK_PROGS([MPICXX],[mpxlc++ mpiicpc mpicxx]) fi ACX_MPI([], [AC_MSG_ERROR([[Cannot find any suitable MPI implementation for C++]])]) -dnl AC_PROG_CC_STDC AC_LANG([Fortran]) if test "X$MPIFC" = "X" ; then @@ -730,7 +727,7 @@ PAC_MAKE_IS_GNUMAKE # Note : also umfdi_local_search, ... #AC_CHECK_LIB(umf,umfpack_di_solve,psblas_cv_have_umfpack=yes,psblas_cv_have_umfpack=no,[amd]) -AC_ARG_WITH(rsb, AC_HELP_STRING([--with-rsb], [Specify Recursive Sparse BLAS library linkage info (that is, the output of librsb-config --static --ldflags, or a directory where the usual bin/include/lib subdirs with a regular RSB installation resides, or nothing to make the configure script invoke librsb-config)]), [if test x"$withval" = xno; then +AC_ARG_WITH(rsb, AS_HELP_STRING([--with-rsb], [Specify Recursive Sparse BLAS library linkage info (that is, the output of librsb-config --static --ldflags, or a directory where the usual bin/include/lib subdirs with a regular RSB installation resides, or nothing to make the configure script invoke librsb-config)]), [if test x"$withval" = xno; then want_rsb_libs= ; else if test x"$withval" = xyes ; then want_rsb_libs=yes ; else want_rsb_libs="$withval" ; fi ; fi], [want_rsb_libs=""]) if test x"$want_rsb_libs" != x ; then if test x"$want_rsb_libs" = xyes ; then diff --git a/docs/html/index.html b/docs/html/index.html index 2906d9ce..c4f777e4 100644 --- a/docs/html/index.html +++ b/docs/html/index.html @@ -20,8 +20,8 @@ class="newline" /> Salvatore Filippone
Alfredo Buttari
Software version: 3.7.0.1
May 11th, 2021 +class="newline" />Software version: 3.8.0
May 1st, 2022 diff --git a/docs/html/userhtml.html b/docs/html/userhtml.html index 2906d9ce..c4f777e4 100644 --- a/docs/html/userhtml.html +++ b/docs/html/userhtml.html @@ -20,8 +20,8 @@ class="newline" /> Salvatore Filippone
Alfredo Buttari
Software version: 3.7.0.1
May 11th, 2021 +class="newline" />Software version: 3.8.0
May 1st, 2022 diff --git a/docs/html/userhtml29x.png b/docs/html/userhtml29x.png index 64db17ce..b4efccdb 100644 Binary files a/docs/html/userhtml29x.png and b/docs/html/userhtml29x.png differ diff --git a/docs/html/userhtmlse8.html b/docs/html/userhtmlse8.html index 01a8f7f7..d4260b27 100644 --- a/docs/html/userhtmlse8.html +++ b/docs/html/userhtmlse8.html @@ -350,7 +350,7 @@ process).

-

+
 ==========================================================
 Process: 0.  PSBLAS Error (4010) in subroutine: df_sample
 Error from call to subroutine mat dist
diff --git a/docs/html/userhtmlsu2.html b/docs/html/userhtmlsu2.html
index 5d1e6f85..504e17fe 100644
--- a/docs/html/userhtmlsu2.html
+++ b/docs/html/userhtmlsu2.html
@@ -114,7 +114,7 @@ class="description">Each process has its own value(s) independently.
 src="userhtml0x.png" alt="psb_version_string_
 " class="math-display" >
 
 whose current value is 3.7.0
+class="cmtt-10">3.8.0
                                                                   
 
                                                                   
diff --git a/docs/html/userhtmlsu36.html b/docs/html/userhtmlsu36.html
index 9616adcb..d9cadf8e 100644
--- a/docs/html/userhtmlsu36.html
+++ b/docs/html/userhtmlsu36.html
@@ -22,7 +22,7 @@ href="userhtmlsu32.html#userhtmlsu39.html" >up] 

 
                                                                   
    
-call psb_spall(a, desc_a, info, nnz)
+call psb_spall(a, desc_a, info [, nnz, dupl, bldmode])
 

 

 

@@ -61,12 +61,47 @@ class="newline" />Type: optional.
Intent: in.
Specified as: an integer value.
-

+class="newline" />Specified as: an integer value.
+     

+dupl 
How to handle duplicate coefficients.
Scope: global.
Type: optional.
Intent: in.
Specified as: integer, possible values: psb_dupl_ovwrt_, psb_dupl_add_,
+     psb_dupl_err_.
+     

+bldmode 
Whether to keep track of matrix entries that do not belong to the
+     current process.
Scope: global.
Type: optional.
Intent: in.
Specified                                                                                 as:
+     an integer value psb_matbld_noremote_, psb_matbld_remote_. Default:
+     psb_matbld_noremote_.

+

      

 On Return 

+                                                                  
+
+                                                                  
      

 a 
required 
Intent: out.
An integer value; 0 means no error has been detected.

-
Notes
      
    
      
  1. On exit from this routine the sparse matrix is in the build state.
-                                                                  
-
-                                                                  
      
    2. 
      
  2. The descriptor may be in either the build or assembled state.
@@ -110,19 +142,24 @@ class="cmbx-12">Notes
 class="cmmi-10">nnz  in  the
      assembled matrix may substantially improve performance in the matrix
      build  phase,  as  it  will  reduce  or  eliminate  the  need  for  (potentially
-     multiple) data reallocations.

+     multiple) data reallocations;
+     
+     
  • Using  psb_matbld_remote_ is  likely  to  cause  a  runtime  overhead  at
+     assembly time;
    • 
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   
    [
    [next] [prev] [prev-tail] [front] [up] 
    
-
       
         
  
diff --git a/docs/html/userhtmlsu37.html b/docs/html/userhtmlsu37.html
index 709c8830..de5cfc00 100644
--- a/docs/html/userhtmlsu37.html
+++ b/docs/html/userhtmlsu37.html
@@ -10,7 +10,7 @@
  
 
-   
    [
    [next] [prev] [prev-tail] [up] 
    
 call psb_spins(nz, ia, ja, val, a, desc_a, info [,local])
 call psb_spins(nr, irw, irp, ja, val, a, desc_a, info [,local])
    -

    -

    +

    +

    Type:
    optional.
    Specified as: a logical value; default: .false..
    -

    +

    On Return
    required
    Intent: out.
    An integer value; 0 means no error has been detected.
    -

    Notes

    1. ,ja(i),val(i), for i = 1i = 1,…,nz; these triples should - belong to the current process, i.e. ia(i) should be one of the local indices, - but are otherwise arbitrary; +class="cmmi-10">,nz; these triples are + arbitrary;
    2. In CSR format the coefficients to be inserted for each input row -1 should be one of the local indices, but are otherwise call, according to the application needs;
    3. Any coefficients from matrix rows not owned by the calling process are - silently ignored; + class="enumerate" id="x48-85018x9">Coefficients from matrix rows not owned by the calling process are treated + according to the value of bldmode specified at allocation time; if bldmode + was chosen as psb_matbld_remote_ the library will keep track of them, + otherwise they are silently ignored; @@ -300,12 +302,12 @@ class="cmsy-10">-1 should be one of the local indices, but are otherwise -

      [

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu38.html b/docs/html/userhtmlsu38.html index c254d15a..90d80eb0 100644 --- a/docs/html/userhtmlsu38.html +++ b/docs/html/userhtmlsu38.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up] 

      -call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
+call psb_spasb(a, desc_a, info [, afmt, upd,  mold])
      -

      -

      +

      +

      Type:
      local.
      Type:required.
      Intent: in.
      in/out.
      Specified as: a structured data of type psbpsb_upd_srch_, psb_upd_perm_
      dupl
      How to handle duplicate coefficients.
      Scope: global.
      Type: optional.
      Intent: in.
      Specified as: integer, possible values: psb_dupl_ovwrt_, psb_dupl_add_, - psb_dupl_err_. -
      -mold
      The desired dynamic type for the internal matrix storage.
      Scope: _T_base_sparse_mat.
      -

      - - - +

      On Return
      psb_Tspmat_type. + + + +
      +desc_a
      the communication descriptor.
      Scope:local.
      Type:required.
      Intent: in/out.
      Specified as: a structured data of type psb_desc_type. If the matrix was + allocated with bldmode=psb_matbld_remote_, then the descriptor will be + reassembled.
      info
      required
      Intent: out.
      An integer value; 0 means no error has been detected.
      -

      Notes

      1. psb_spins
      2. On exit from this routine the matrix is in the assembled state, and thus - is suitable for the computational routines.
      + is suitable for the computational routines; +
      4. +
    4. If the bldmode=psb_matbld_remote_ value was specified at allocation + time, contributions defined on the current process but belonging to a + remote process will be handled accordingly. This is most likely to occur in + finite element applications, with dupl=psb_dupl_add_; it is necessary to + check for possible updates needed in the descriptor, hence there will be a + runtime overhead.
    -

    [

    [next] [prev] [prev-tail] [front] [up]

    -

    diff --git a/docs/html/userhtmlsu39.html b/docs/html/userhtmlsu39.html index db1b8f75..71b070cd 100644 --- a/docs/html/userhtmlsu39.html +++ b/docs/html/userhtmlsu39.html @@ -10,7 +10,7 @@ -

    [

    [next] [prev] [prev-tail] [up] 

     call psb_spfree(a, desc_a, info)
    -

    -

    +

    +

    Type:
    psb_desc_type.
    -

    +

    On Return
    An integer value; 0 means no error has been detected.

    [

    [next] [prev] [prev-tail] [front] [up]

    -

    diff --git a/docs/html/userhtmlsu40.html b/docs/html/userhtmlsu40.html index 1cff4439..7485edd3 100644 --- a/docs/html/userhtmlsu40.html +++ b/docs/html/userhtmlsu40.html @@ -10,7 +10,7 @@ -

    [

    [next] [prev] [prev-tail] [up] 

     call psb_sprn(a, decsc_a, info, clear)
    -

    -

    +

    +

    Type:
    optional.
    Intent: in.
    Default: true.
    -

    +

    On Return
    required
    Intent: out.
    An integer value; 0 means no error has been detected.
    -

    Notes

    1. Notes -

      [

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu41.html b/docs/html/userhtmlsu41.html index b0478a11..af11ac05 100644 --- a/docs/html/userhtmlsu41.html +++ b/docs/html/userhtmlsu41.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up] 

      -call psb_geall(x, desc_a, info, n, lb)
+call psb_geall(x, desc_a, info[, dupl, bldmode, n, lb])
      -

      -

      +

      +

      Type:
      Intent: in.
      Specified as: Integer scalar, default 1. It is not a valid argument if x is a - rank-1 array.
      -

      + rank-1 array. +

      +dupl
      How to handle duplicate coefficients.
      Scope: global.
      Type: optional.
      Intent: in.
      Specified as: integer, possible values: psb_dupl_ovwrt_, psb_dupl_add_; + psb_dupl_err_ has no effect. +
      +bldmode
      Whether to keep track of matrix entries that do not belong to the + current process.
      Scope: global.
      Type: optional.
      Intent: in.
      Specified as: + an integer value psb_matbld_noremote_, psb_matbld_remote_. Default: + psb_matbld_noremote_.
      +

      On Return
      _T_vect_type, of type real, complex or integer.
      - - -
      info
      required
      Intent: out.
      An integer value; 0 means no error has been detected.
      +

      Notes +

        +
      1. Using psb_matbld_remote_ is likely to cause a runtime overhead at + assembly time;
      -

      [

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu42.html b/docs/html/userhtmlsu42.html index d99372bc..eef5ec20 100644 --- a/docs/html/userhtmlsu42.html +++ b/docs/html/userhtmlsu42.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up] 

      -call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])
+call psb_geins(m, irw, val, x, desc_a, info [,local])
      -

      -

      +

      +

      Type:
      psb_desc_type. -
      -dupl
      How to handle duplicate coefficients.
      Scope: global.
      Type: optional.
      Intent: in.
      Specified as: integer, possible values: psb_dupl_ovwrt_, psb_dupl_add_. - - -
      local
      optional.
      Specified as: a logical value; default: .false..
      -

      +

      + + +

      On Return
      required
      Intent: out.
      An integer value; 0 means no error has been detected.
      -

      Notes

      1. Notes -

        [

        [next] [prev] [prev-tail] [front] [up]

        -

        diff --git a/docs/html/userhtmlsu43.html b/docs/html/userhtmlsu43.html index 084b019a..3b155296 100644 --- a/docs/html/userhtmlsu43.html +++ b/docs/html/userhtmlsu43.html @@ -10,7 +10,7 @@ -

        [

        [next] [prev] [prev-tail] [up] 

         call psb_geasb(x, desc_a, info, mold)
        -

        -

        +

        +

        Type:
        psb_T_vect_type.
        -

        +

        On Return
        required
        Intent: out.
        An integer value; 0 means no error has been detected.
        +

        Notes -

        [ +

      2. On entry to this routine the descriptor must be in the assembled state, + i.e. psb_cdasb must already have been called. +
        3. +
      3. If the bldmode=psb_matbld_remote_ value was specified at allocation + time, contributions defined on the current process but belonging to a + remote process will be handled accordingly. This is most likely to occur in + finite element applications, with dupl=psb_dupl_add_.
      + + + + + + +

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu44.html b/docs/html/userhtmlsu44.html index de7bf716..c385f927 100644 --- a/docs/html/userhtmlsu44.html +++ b/docs/html/userhtmlsu44.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up] 

       call psb_gefree(x, desc_a, info)
      -

      -

      +

      +

      Type:
      psb_desc_type.
      -

      +

      On Return
      An integer value; 0 means no error has been detected.

      [

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu45.html b/docs/html/userhtmlsu45.html index 19d5c86b..ae3994d0 100644 --- a/docs/html/userhtmlsu45.html +++ b/docs/html/userhtmlsu45.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up] 

       call psb_gelp(trans, iperm, x, info)
      -

      -

      +

      +

      Type:
      Intent: inout.
      Specified as: a one or two dimensional array.
      -

      +

      On Return
      An integer value; 0 means no error has been detected.

      [

      [next] [prev] [prev-tail] [front] [up]

      -

      diff --git a/docs/html/userhtmlsu46.html b/docs/html/userhtmlsu46.html index 00068b93..ebe9591e 100644 --- a/docs/html/userhtmlsu46.html +++ b/docs/html/userhtmlsu46.html @@ -10,7 +10,7 @@ -

      [

      [next] [prev] [prev-tail] [up]

      call psb_glob_to_loc(x, y, desc_a, info, iact,owned) call psb_glob_to_loc(x, desc_a, info, iact,owned) -

      -

      +

      +

      Type:
      Intent: in.
      If true, then only indices strictly owned by the current process are considered valid, if false then halo indices are also accepted. Default: false.
      -

      +

      On Return
      required
      Intent: out.
      An integer value; 0 means no error has been detected.
      -

      Notes

      1. Ignore means that the negative output is th -

        [

        [next] [prev] [prev-tail] [front] [up]

        -

        diff --git a/docs/html/userhtmlsu47.html b/docs/html/userhtmlsu47.html index 1d89e7a0..c222519b 100644 --- a/docs/html/userhtmlsu47.html +++ b/docs/html/userhtmlsu47.html @@ -10,7 +10,7 @@ -

        [

        [next] [prev] [prev-tail] [up]

        call psb_loc_to_glob(x, y, desc_a, info, iact) call psb_loc_to_glob(x, desc_a, info, iact) -

        -

        +

        +

        Type:
        Ignore, Warning or Abort, default Ignore.
        -

        +

        On Return
        An integer value; 0 means no error has been detected.

        [

        [next] [prev] [prev-tail] [front] [up]

        -

        diff --git a/docs/html/userhtmlsu48.html b/docs/html/userhtmlsu48.html index fc243c86..78911fdc 100644 --- a/docs/html/userhtmlsu48.html +++ b/docs/html/userhtmlsu48.html @@ -10,7 +10,7 @@ -

        [

        [next] [prev] [prev-tail] [up] 

         call psb_is_owned(x, desc_a)
        -

        -

        +

        +

        Type:
        psb_desc_type.
        -

        +

        On Return
        required
        Intent: out.
        -

        Notes

        1. .true. value for an index that is strictly -

          [

          [next] [prev] [prev-tail] [front] [up]

          -

          diff --git a/docs/html/userhtmlsu49.html b/docs/html/userhtmlsu49.html index e29e9031..76f09994 100644 --- a/docs/html/userhtmlsu49.html +++ b/docs/html/userhtmlsu49.html @@ -10,7 +10,7 @@ -

          [

          [next] [prev] [prev-tail] [up] 

           call psb_owned_index(y, x, desc_a, info)
          -

          -

          +

          +

          Type:
          Ignore, Warning or Abort, default Ignore.
          -

          +

          On Return
          An integer value; 0 means no error has been detected.

          Notes

          1. .true. value for those indices that are str -

            [

            [next] [prev] [prev-tail] [front] [up]

            -

            diff --git a/docs/html/userhtmlsu50.html b/docs/html/userhtmlsu50.html index 93432b3f..408b557e 100644 --- a/docs/html/userhtmlsu50.html +++ b/docs/html/userhtmlsu50.html @@ -10,7 +10,7 @@ -

            [

            [next] [prev] [prev-tail] [up] 

             call psb_is_local(x, desc_a)
            -

            -

            +

            +

            Type:
            psb_desc_type.
            -

            +

            On Return
            required
            Intent: out.
            -

            Notes

            1. .true. value for an index that is local to -

              [

              [next] [prev] [prev-tail] [front] [up]

              -

              diff --git a/docs/html/userhtmlsu51.html b/docs/html/userhtmlsu51.html index 5ff3fcfb..3b9a80ca 100644 --- a/docs/html/userhtmlsu51.html +++ b/docs/html/userhtmlsu51.html @@ -10,7 +10,7 @@ -

              [

              [next] [prev] [prev-tail] [up] 

               call psb_local_index(y, x, desc_a, info)
              -

              -

              +

              +

              Type:
              Ignore, Warning or Abort, default Ignore.
              -

              +

              On Return
              An integer value; 0 means no error has been detected.

              Notes

              1. .true. value for those indices that are loc -

                [

                [next] [prev] [prev-tail] [front] [up]

                -

                diff --git a/docs/html/userhtmlsu52.html b/docs/html/userhtmlsu52.html index 2b85296f..6826dfc5 100644 --- a/docs/html/userhtmlsu52.html +++ b/docs/html/userhtmlsu52.html @@ -10,7 +10,7 @@ -

                [

                [next] [prev] [prev-tail] [up] 

                 call psb_get_boundary(bndel, desc, info)
                -

                -

                +

                +

                Type:
                psb_desc_type.
                -

                +

                On Return
                required
                Intent: out.
                An integer value; 0 means no error has been detected.
                -

                Notes

                1. bndel will be exactly equal to the nu -

                  [

                  [next] [prev] [prev-tail] [front] [up]

                  -

                  diff --git a/docs/html/userhtmlsu53.html b/docs/html/userhtmlsu53.html index 49860a9c..10ce7017 100644 --- a/docs/html/userhtmlsu53.html +++ b/docs/html/userhtmlsu53.html @@ -10,7 +10,7 @@ -

                  [

                  [next] [prev] [prev-tail] [up] 

                   call psb_get_overlap(ovrel, desc, info)
                  -

                  -

                  +

                  +

                  Type:
                  psb_desc_type.
                  -

                  +

                  On Return
                  required
                  Intent: out.
                  An integer value; 0 means no error has been detected.
                  -

                  Notes

                  1. ovrel will be exactly equal to the number o -

                    [

                    [next] [prev] [prev-tail] [front] [up]

                    -

                    diff --git a/docs/html/userhtmlsu54.html b/docs/html/userhtmlsu54.html index 394b708f..a4cf2538 100644 --- a/docs/html/userhtmlsu54.html +++ b/docs/html/userhtmlsu54.html @@ -10,7 +10,7 @@ -

                    [

                    [next] [prev] [prev-tail] [up]

                    call psb_sp_getrow(row, a, nz, ia, ja, val, info, &               & append, nzin, lrw) -

                    -

                    +

                    +

                    Type:
                    row. -

                    +

                    On Return
                    required
                    Intent: out.
                    An integer value; 0 means no error has been detected.
                    -

                    Notes

                    1. psb_loc_to_glob routine on the output.
                      2. -

                      [

                      [next] [prev] [prev-tail] [front] [up]

                      -

                      diff --git a/docs/html/userhtmlsu55.html b/docs/html/userhtmlsu55.html index ddeb9e95..0b438e9c 100644 --- a/docs/html/userhtmlsu55.html +++ b/docs/html/userhtmlsu55.html @@ -10,7 +10,7 @@ -

                      [

                      [next] [prev] [prev-tail] [tail] [up]

                      6.26 psb_sizeof — Memory occupation

                      -

                      This function computes the memory occupation of a PSBLAS object. +

                      This function computes the memory occupation of a PSBLAS object. @@ -27,8 +27,8 @@ isz = psb_sizeof(a) isz = psb_sizeof(desc_a) isz = psb_sizeof(prec) -

                      -

                      +

                      +

                      Type:
                      integer(psb_long_int_k_) number.
                      -

                      [

                      [next] [prev] [prev-tail] [front] [up]

                      -

                      diff --git a/docs/html/userhtmlsu56.html b/docs/html/userhtmlsu56.html index f6f2f2a7..26ab17eb 100644 --- a/docs/html/userhtmlsu56.html +++ b/docs/html/userhtmlsu56.html @@ -10,20 +10,20 @@ -

                      [

                      [prev] [prev-tail] [tail] [up]

                      6.27 Sorting utilities —

                      -

                      psb_msort — Sorting by the Merge-sort algorithm -

                      psb_qsort — Sorting by the Quicksort algorithm -

                      psb_hsort — Sorting by the Heapsort algorithm @@ -34,8 +34,8 @@ call psb_msort(x,ix,dir,flag) call psb_qsort(x,ix,dir,flag) call psb_hsort(x,ix,dir,flag) -

                      -

                      These serial routines sort a sequence

                      +

                      These serial routines sort a sequence X into ascending or descending order. The argument meaning is identical for the three calls; the only difference is the algorithm used to accomplish the task (see Usage Notes below). @@ -102,7 +102,7 @@ class="cmtt-10">psb_sort_keep_idx_; default psb_sort_ovw_idx_.

                    -

                    +

                    On Return
                    Optional
                    An integer array of rank 1, whose entries are moved to the same position as the corresponding entries in x.
                    -

                    Notes

                    1. up] 

                    -call psb_bcast(ctxt, dat, root)
+call psb_bcast(ctxt, dat [, root, mode, request])

                    This subroutine implements a broadcast operation based on the underlying @@ -74,8 +74,43 @@ class="newline" />Specified as: an integer value 0 <= root <= np - 1, default 0   -

                    +class="cmsy-10">- 1, default 0   +

                    +mode
                    Whether the call is started in non-blocking mode and completed later, + or is executed synchronously.
                    Scope: global.
                    Type: optional.
                    Intent: in.
                    Specified as: an integer value. The action to be taken is determined by + its bit fields, which can be set with bitwise OR. Basic action values are + psb_collective_start_, psb_collective_end_. Default: both fields are + selected (i.e. require synchronous completion).
                    + + + +
                    +request
                    A request variable to check for operation completion.
                    Scope: local.
                    Type: optional.
                    Intent: inout.
                    If mode does not specify synchronous completion, then this variable must + be present.
                    +

                    On Return
                    dat
                    On processes other than root, the data to be broadcast.
                    On all processes other than root, the broadcasted data.
                    Scope: global.
                    Type: Intent: inout.
                    Specified as: an integer, real or complex variable, which may be a scalar, or a rank 1 or 2 array, or a character or logical scalar.  Type, kind, rank - and size must agree on all processes.
                    + and size must agree on all processes. +
                    +request
                    A request variable to check for operation completion.
                    Scope: local.
                    Type: optional.
                    Intent: inout.
                    If mode does not specify synchronous completion, then this variable must + be present.
                    +

                    Notes +

                      +
                    1. The dat argument is both input and output, and its value may be changed + even on processes different from the final result destination. +
                      2. +
                    2. The mode argument can be built with the bitwise IOR() operator; in the + following example, the argument is forcing immediate completion, hence the + request argument needs not be specified: +
                      +

                      +

                      +  call psb_bcast(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
                      +

                      +
                      3. +
                    3. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
                      +

                      +

                      +  call psb_bcast(ctxt,dat,mode=psb_collective_start_,request=bcast_request)
+  ....... ! Do not access dat
+  call psb_bcast(ctxt,dat,mode=psb_collective_end_, request=bcast_request)
+
                      +

                      +
                    -

                    [

                    [next] [prev] [prev-tail] [front] [up]

                    -

                    diff --git a/docs/html/userhtmlsu66.html b/docs/html/userhtmlsu66.html index 857fb5a5..730251ef 100644 --- a/docs/html/userhtmlsu66.html +++ b/docs/html/userhtmlsu66.html @@ -10,7 +10,7 @@ -

                    [

                    [next] [prev] [prev-tail] [up]

                    - 
                    -call psb_sum(ctxt, dat, root)
+   
                    +call psb_sum(ctxt, dat [, root, mode, request])
 
                    
-
                    
-
                       This subroutine implements a sum reduction operation based on the underlying
+
                    
+
                       This subroutine implements a sum reduction operation based on the underlying
 communication library.
      
                    
 -1 <= root <= np - 1, default -1.  
                    
-
                    
+class="cmsy-10">- 1, default -1.  
+     
                    
+mode 
                    Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
                    Scope: global.
                    Type: optional.
                    Intent: in.
                    Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
                    
+     
                    
+request 
                    A request variable to check for operation completion.
                    Scope: local.
                    Type: optional.
                    Intent: inout.
                    If mode does not specify synchronous completion, then this variable must
+     be present.
                    
+
                    
      
                    
 On Return 
                    Intent: inout.
                    Specified as: an integer, real or complex variable, which may be a scalar,
      or a rank 1 or 2 array. 
                    Type, kind, rank and size must agree on all processes.
                    
-
                    Type, kind, rank and size must agree on all processes.
+     
                    
+request 
                    A request variable to check for operation completion.
                    Scope: local.
                    Type: optional.
                    Intent: inout.
                    If mode does not specify synchronous completion, then this variable must
+     be present.
                    
+
                    Notes
-                                                                  
-
-                                                                  
      
                      
      
                    1. The dat argument is both input and output, and
      
                      2. 
      
                    2. The dat argument may also be a long integer scalar.
                    
+class="cmtt-10">mode argument can be built with the bitwise IOR() operator; in the
+     following example, the argument is forcing immediate completion, hence the
+     request argument needs not be specified:
+     
                    
+
                    
+
                    +  call psb_sum(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
                    
+
                    
+
                    2. +
                  2. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
                    +

                    +

                    +  call psb_sum(ctxt,dat,mode=psb_collective_start_,request=sum_request)
+  ....... ! Do not access dat
+  call psb_sum(ctxt,dat,mode=psb_collective_end_,request=sum_request)
+
                    +

                    +
                  -

                  [

                  [next] [prev] [prev-tail] [front] [up]

                  -

                  diff --git a/docs/html/userhtmlsu67.html b/docs/html/userhtmlsu67.html index 2bba1564..370799d2 100644 --- a/docs/html/userhtmlsu67.html +++ b/docs/html/userhtmlsu67.html @@ -10,7 +10,7 @@ -

                  [

                  [next] [prev] [prev-tail] [up]

                  - 
                  -call psb_max(ctxt, dat, root)
+   
                  +call psb_max(ctxt, dat [, root, mode, request])
 
                  
-
                  
-
                     This subroutine implements a maximum valuereduction operation based on the
+
                  
+
                     This subroutine implements a maximum valuereduction operation based on the
 underlying communication library.
      
                  
 <= root <= np - 1, default -1. 
                  
-
                  
+class="newline" />
+     
                  
+mode 
                  Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
                  Scope: global.
                  Type: optional.
                  Intent: in.
                  Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
                  
+                                                                  
+
+                                                                  
+     
                  
+request 
                  A request variable to check for operation completion.
                  Scope: local.
                  Type: optional.
                  Intent: inout.
                  If mode does not specify synchronous completion, then this variable must
+     be present.
                  
+
                  
      
                  
 On Return 
                  required.
                  Intent: in.
                  Specified as: an integer or real variable, which may be a scalar, or a rank
-     1 or 2 array.  Type, kind, rank and size must agree on all processes.
                  
-
                  
+request 
                  A request variable to check for operation completion.
                  Scope: local.
                  Type: optional.
                  Intent: inout.
                  If mode does not specify synchronous completion, then this variable must
+     be present.
                  
+
                  Notes
-                                                                  
-
-                                                                  
      
                    
      
                  1. The dat argument is both input and output, and
      
                    2. 
      
                  2. The dat argument may also be a long integer scalar.
                  
+class="cmtt-10">mode argument can be built with the bitwise IOR() operator; in the
+     following example, the argument is forcing immediate completion, hence the
+     request argument needs not be specified:
+     
                  
+
                  
+
                  +  call psb_max(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
                  
+
                  
+
                  2. +
                2. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
                  +

                  +

                  +  call psb_max(ctxt,dat,mode=psb_collective_start_,request=max_request)
+  ....... ! Do not access dat
+  call psb_max(ctxt,dat,mode=psb_collective_end_,request=max_request)
+
                  +

                  +
                -

                [

                [next] [prev] [prev-tail] [front] [up]

                -

                diff --git a/docs/html/userhtmlsu68.html b/docs/html/userhtmlsu68.html index 7b46b510..501ebb27 100644 --- a/docs/html/userhtmlsu68.html +++ b/docs/html/userhtmlsu68.html @@ -10,7 +10,7 @@ -

                [

                [next] [prev] [prev-tail] [up]

                - 
                -call psb_min(ctxt, dat, root)
+   
                +call psb_min(ctxt, dat [, root, mode, request])
 
                
-
                
-
                   This subroutine implements a minimum value reduction operation based on the
+
                
+
                   This subroutine implements a minimum value reduction operation based on the
 underlying communication library.
      
                
 <= root <= np - 1, default -1. 
                
-
                
+class="newline" />
+     
                
+mode 
                Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
                Scope: global.
                Type: optional.
                Intent: in.
                Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
                
+                                                                  
+
+                                                                  
+     
                
+request 
                A request variable to check for operation completion.
                Scope: local.
                Type: optional.
                Intent: inout.
                If mode does not specify synchronous completion, then this variable must
+     be present.
                
+
                
      
                
 On Return 
                Intent: inout.
                Specified as: an integer or real variable, which may be a scalar, or a rank
      1 or 2 array. 
                Type, kind, rank and size must agree on all processes.
                
-
                Type, kind, rank and size must agree on all processes.
+     
                
+request 
                A request variable to check for operation completion.
                Scope: local.
                Type: optional.
                Intent: inout.
                If mode does not specify synchronous completion, then this variable must
+     be present.
                
+
                Notes
-                                                                  
-
-                                                                  
      
                  
      
                1. The dat argument is both input and output, and
      
                  2. 
      
                2. The dat argument may also be a long integer scalar.
                
+class="cmtt-10">mode argument can be built with the bitwise IOR() operator; in the
+     following example, the argument is forcing immediate completion, hence the
+     request argument needs not be specified:
+     
                
+
                
+
                +  call psb_min(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
                
+
                
+
                2. +
              2. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
                +

                +

                +  call psb_min(ctxt,dat,mode=psb_collective_start_,request=min_request)
+  ....... ! Do not access dat
+  call psb_min(ctxt,dat,mode=psb_collective_end_,request=min_request)
+
                +

                +
              -

              [

              [next] [prev] [prev-tail] [front] [up]

              -

              diff --git a/docs/html/userhtmlsu69.html b/docs/html/userhtmlsu69.html index 8400bd46..e889c17c 100644 --- a/docs/html/userhtmlsu69.html +++ b/docs/html/userhtmlsu69.html @@ -10,7 +10,7 @@ -

              [

              [next] [prev] [prev-tail] [up]

              - 
              -call psb_amx(ctxt, dat, root)
+   
              +call psb_amx(ctxt, dat [, root, mode, request])
 
              
-
              
-
                 This subroutine implements a maximum absolute value reduction operation based
+
              
+
                 This subroutine implements a maximum absolute value reduction operation based
 on the underlying communication library.
      
              
 <= root <= np - 1, default -1. 
              
-
              
+class="newline" />
+     
              
+mode 
              Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
              Scope: global.
              Type: optional.
              Intent: in.
              Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
              
+                                                                  
+
+                                                                  
+     
              
+request 
              A request variable to check for operation completion.
              Scope: local.
              Type: optional.
              Intent: inout.
              If mode does not specify synchronous completion, then this variable must
+     be present.
              
+
              
      
              
 On Return 
              required.
              Intent: inout.
              Specified as: an integer, real or complex variable, which may be a scalar, or
-     a rank 1 or 2 array.  Type, kind, rank and size must agree on all processes.
              
-
              
+request 
              A request variable to check for operation completion.
              Scope: local.
              Type: optional.
              Intent: inout.
              If mode does not specify synchronous completion, then this variable must
+     be present.
              
+
              Notes
-                                                                  
-
-                                                                  
      
                
      
              1. The dat argument is both input and output, and
      
                2. 
      
              2. The dat argument may also be a long integer scalar.
              
+class="cmtt-10">mode argument can be built with the bitwise IOR() operator; in the
+     following example, the argument is forcing immediate completion, hence the
+     request argument needs not be specified:
+     
              
+
              
+
              +  call psb_amx(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
              
+
              
+
              2. +
            2. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
              +

              +

              +  call psb_amx(ctxt,dat,mode=psb_collective_start_,request=amx_request)
+  ....... ! Do not access dat
+  call psb_amx(ctxt,dat,mode=psb_collective_end_,request=amx_request)
+
              +

              +
            -

            [

            [next] [prev] [prev-tail] [front] [up]

            -

            diff --git a/docs/html/userhtmlsu70.html b/docs/html/userhtmlsu70.html index 50e601c0..e946538a 100644 --- a/docs/html/userhtmlsu70.html +++ b/docs/html/userhtmlsu70.html @@ -10,7 +10,7 @@ -

            [

            [next] [prev] [prev-tail] [up]

            - 
            -call psb_amn(ctxt, dat, root)
+   
            +call psb_amn(ctxt, dat [, root, mode, request])
 
            
-
            
-
               This subroutine implements a minimum absolute value reduction operation based
+
            
+
               This subroutine implements a minimum absolute value reduction operation based
 on the underlying communication library.
      
            
 <= root <= np - 1, default -1. 
            
-
            
+class="newline" />
+     
            
+mode 
            Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
            Scope: global.
            Type: optional.
            Intent: in.
            Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
            
+                                                                  
+
+                                                                  
+     
            
+request 
            A request variable to check for operation completion.
            Scope: local.
            Type: optional.
            Intent: inout.
            If mode does not specify synchronous completion, then this variable must
+     be present.
            
+
            
      
            
 On Return 
            Intent: inout.
            Specified as: an integer, real or complex variable, which may be a scalar,
      or a rank 1 or 2 array. 
            Type, kind, rank and size must agree on all processes.
            
-
            Type, kind, rank and size must agree on all processes.
+     
            
+request 
            A request variable to check for operation completion.
            Scope: local.
            Type: optional.
            Intent: inout.
            If mode does not specify synchronous completion, then this variable must
+     be present.
            
+
            Notes
-                                                                  
-
-                                                                  
      
              
      
            1. The dat argument is both input and output, and
      
              2. 
      
            2. The dat argument may also be a long integer scalar.
            
+class="cmtt-10">mode argument can be built with the bitwise IOR() operator; in the
+     following example, the argument is forcing immediate completion, hence the
+     request argument needs not be specified:
+     
            
+
            
+
            +  call psb_amn(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
            
+
            
+
            2. +
          2. When splitting the operation in two calls, the dat argument must not be + accessed between calls: + + + +
            +

            +

            +  call psb_amn(ctxt,dat,mode=psb_collective_start_,request=amn_request)
+  ....... ! Do not access dat
+  call psb_amn(ctxt,dat,mode=psb_collective_end_,request=amn_request)
+
            +

            +
          -

          [

          [next] [prev] [prev-tail] [front] [up]

          -

          diff --git a/docs/html/userhtmlsu71.html b/docs/html/userhtmlsu71.html index 6882b129..4c9a2284 100644 --- a/docs/html/userhtmlsu71.html +++ b/docs/html/userhtmlsu71.html @@ -10,7 +10,7 @@ -

          [

          [next] [prev] [prev-tail] [up]

          - 
          -call psb_nrm2(ctxt, dat, root)
+   
          +call psb_nrm2(ctxt, dat [, root, mode, request])
 
          
-
          
-
             This subroutine implements a 2-norm value reduction operation based on the
+
          
+
             This subroutine implements a 2-norm value reduction operation based on the
 underlying communication library.
      
          
 <= root <= np - 1, default -1. 
          
-
          
+class="newline" />
+     
          
+mode 
          Whether the call is started in non-blocking mode and completed later,
+     or is executed synchronously.
          Scope: global.
          Type: optional.
          Intent: in.
          Specified as: an integer value. The action to be taken is determined by
+     its bit fields, which can be set with bitwise OR. Basic action values are
+     psb_collective_start_, psb_collective_end_. Default: both fields are
+     selected (i.e. require synchronous completion).
          
+                                                                  
+
+                                                                  
+     
          
+request 
          A request variable to check for operation completion.
          Scope: local.
          Type: optional.
          Intent: inout.
          If mode does not specify synchronous completion, then this variable must
+     be present.
          
+
          
      
          
 On Return 
          required.
          Intent: inout.
          Specified as: a real variable, which may be a scalar, or a rank 1 array. 
          Kind, rank and size must agree on all processes.
          
-
          Kind, rank and size must agree on all processes.
+     
          
+request 
          A request variable to check for operation completion.
          Scope: local.
          Type: optional.
          Intent: inout.
          If mode does not specify synchronous completion, then this variable must
+     be present.
          
+
          Notes
-                                                                  
-
-                                                                  
      
            
      
          1. This reduction is appropriate to compute the results of multiple (local)
@@ -113,29 +158,62 @@ class="cmmi-10">res
      is equivalent to the computation of
      
            
           ∘ -------
-       ∑     2
-res =     dati,
+src=
            
-     
             with care taken to avoid unnecessary overflow.
+     
             with care taken to avoid unnecessary overflow.
      
            2. 
      
          2. The dat argument is both input and output, and its value may be changed
-     even on processes different from the final result destination.
          
+     even on processes different from the final result destination.
+
          2. +
        2. The mode argument can be built with the bitwise IOR() operator; in the + following example, the argument is forcing immediate completion, hence the + request argument needs not be specified: + + + +
          +

          +

          +  call psb_nrm2(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+
          +

          +
          3. +
        3. When splitting the operation in two calls, the dat argument must not be + accessed between calls: +
          +

          +

          +  call psb_nrm2(ctxt,dat,mode=psb_collective_start_,request=nrm2_request)
+  ....... ! Do not access dat
+  call psb_nrm2(ctxt,dat,mode=psb_collective_end_,request=nrm2_request)
+
          +

          +
        -

        [

        [next] [prev] [prev-tail] [front] [up]

        -

        diff --git a/docs/html/userhtmlsu72.html b/docs/html/userhtmlsu72.html index 564a0f71..4c6cfcb9 100644 --- a/docs/html/userhtmlsu72.html +++ b/docs/html/userhtmlsu72.html @@ -10,7 +10,7 @@ -

        [

        [next] [prev] [prev-tail] [up]

        - 
        +   
         call psb_snd(ctxt, dat, dst, m)
 
        
-
        
-
           This subroutine sends a packet of data to a destination.
+
        
+
           This subroutine sends a packet of data to a destination.
      
        
 Type: 
        dat is  a  rank  2  array,  specifies  the  number  of  r
 class="cmmi-10">size(dat,1); must have the same
      value on sending and receiving processes.
        
-
        
+
        
      
        
 On Return 
        
                                                                   
 
                                                                   
-
        Notes
      
          
      
        1. dst.
        
                                                                   
 
                                                                   
-   
        [
        [next] [prev] [prev-tail] [front] [up] 
        
-
           
             
  
diff --git a/docs/html/userhtmlsu73.html b/docs/html/userhtmlsu73.html
index 8c3bfe03..5b371a55 100644
--- a/docs/html/userhtmlsu73.html
+++ b/docs/html/userhtmlsu73.html
@@ -10,7 +10,7 @@
  
 
-   
        [
        [prev] [prev-tail] [tail] [up] 
        
                                                                   
 
                                                                   
-   
        +   
         call psb_rcv(ctxt, dat, src, m)
 
        
-
        
-
           This subroutine receives a packet of data to a destination.
+
        
+
           This subroutine receives a packet of data to a destination.
      
        
 Type: 
        dat is  a  rank  2  array,  specifies  the  number  of  r
 class="cmmi-10">size(dat,1); must have the same
      value on sending and receiving processes.
        
-
        
+
        
      
        
 On Return 
        m is not specified, size
                                                                   
 
                                                                   
-
        Notes
      
          
      
        1. An integer value; 0 means no error has been detected.
        Notes
+
           If this function is called on a matrix a on a distributed communicator only the
+local part is written in output. To get a single MatrixMarket file with the whole
+matrix when appropriate, e.g. for debugging purposes, one could gather the whole
+matrix on a single rank and then write it. Consider the following example for a
+double precision matrix
+
        
+
        
+
        +type(psb_ldspmat_type) :: aglobal
+call psb_gather(aglobal,a,desc_a,info)
+if (iam == psb_root_) then
+call mm_mat_write(aglobal,mtitle,info,filename)
+end if
+call psb_spfree(aglobal, desc_a, info)
+
        
+
        
+
        To simplify this procedure in C, there is a utility function
+
        
+
        
+
        +psb_i_t psb_c_<s,d,c,z>global_mat_write(ah,cdh);
+
        
+
        
+
        that produces exactly this result.
                                                                   
 
                                                                   
                                                                   
 
                                                                   
-   
        [
        [next] [prev] [prev-tail] [front] [up] 
        
-
           
             
  
diff --git a/docs/html/userhtmlsu83.html b/docs/html/userhtmlsu83.html
index 1a26067f..eb8e3df2 100644
--- a/docs/html/userhtmlsu83.html
+++ b/docs/html/userhtmlsu83.html
@@ -11,7 +11,7 @@ format
  
 
-   
        [
        [prev] [prev-tail] [tail] [up] 
        
    
        9.6    mm_array_write — Write a dense array from a file in the MatrixMarket
 format
        
-   
+   
    
        callfilename)
    
    
        
-
        
+
        
      
        
 Type: 
        Type:optional.
        Specified as: an integer value. Only meaningful if filename is not -.
        
-
        
+
        
      
        
 On Return 
        Error code.
        Type: required 
        An integer value; 0 means no error has been detected.
        
+
        Notes
+
           If this function is called on a vector v on a distributed communicator only the
+local part is written in output. To get a single MatrixMarket file with the whole
+vector when appropriate, e.g. for debugging purposes, one could gather the whole
+vector on a single rank and then write it. Consider the following example for a double
+precision vector
+
        
+
        
+
        +real(psb_dpk_), allocatable :: vglobal(:)
+call psb_gather(vglobal,v,desc,info)
+if (iam == psb_root_) then
+call mm_array_write(vglobal,vtitle,info,filename)
+end if
+call deallocate(vglobal, stat=info)
+
        
+
        
+
        To simplify this procedure in C, there is a utility function
+
        
+
        
+
        +psb_i_t psb_c_<s,d,c,z>global_vec_write(vh,cdh);
+
        
+
        
+
        that produces exactly this result.
                                                                   
 
                                                                   
diff --git a/docs/html/userhtmlsu84.html b/docs/html/userhtmlsu84.html
index f8899bd1..44fd2843 100644
--- a/docs/html/userhtmlsu84.html
+++ b/docs/html/userhtmlsu84.html
@@ -19,7 +19,7 @@ href="userhtmlsu86.html#userhtmlsu87.html" >up] 
        
                                                                   
 
                                                                   
-   
        +   
         call prec%init(icontxt,ptype, info)
 
        
 
        
diff --git a/docs/html/userhtmlsu85.html b/docs/html/userhtmlsu85.html
index 63b63223..e551e050 100644
--- a/docs/html/userhtmlsu85.html
+++ b/docs/html/userhtmlsu85.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlsu89.html" >up] 
        
                                                                   
 
                                                                   
-   
        +   
         call prec%build(a, desc_a, info[,amold,vmold,imold])
 
        
 
        
diff --git a/docs/html/userhtmlsu86.html b/docs/html/userhtmlsu86.html
index 1c212dc8..9b624a47 100644
--- a/docs/html/userhtmlsu86.html
+++ b/docs/html/userhtmlsu86.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlse11.html" >up] 
        
                                                                   
 
                                                                   
-   
        +   
         call prec%apply(x,y,desc_a,info,trans,work)
 call prec%apply(x,desc_a,info,trans)
 
        
diff --git a/docs/html/userhtmlsu87.html b/docs/html/userhtmlsu87.html
index cd00e4ef..e0e1cceb 100644
--- a/docs/html/userhtmlsu87.html
+++ b/docs/html/userhtmlsu87.html
@@ -21,7 +21,7 @@ href="userhtmlsu86.html#userhtmlsu90.html" >up] 
        
                                                                   
 
                                                                   
-   
        +   
         call prec%descr(info)
 call prec%descr(info,iout, root)
 
        
diff --git a/docs/html/userhtmlsu88.html b/docs/html/userhtmlsu88.html
index c8d02bd2..020dc194 100644
--- a/docs/html/userhtmlsu88.html
+++ b/docs/html/userhtmlsu88.html
@@ -20,7 +20,7 @@ href="userhtmlsu86.html#userhtmlli2.html" >up]
        - 
        +   
         call  prec%clone(precout,info)
 
        
 
        
diff --git a/docs/html/userhtmlsu89.html b/docs/html/userhtmlsu89.html
index 504db982..dcf3929f 100644
--- a/docs/html/userhtmlsu89.html
+++ b/docs/html/userhtmlsu89.html
@@ -20,7 +20,7 @@ href="userhtmlsu86.html# " >up]
        - 
        +   
         call prec%free(info)
 
        
 
        
diff --git a/docs/psblas-3.7.pdf b/docs/psblas-3.8.pdf
similarity index 91%
rename from docs/psblas-3.7.pdf
rename to docs/psblas-3.8.pdf
index e652bc4a..95e953d8 100644
--- a/docs/psblas-3.7.pdf
+++ b/docs/psblas-3.8.pdf
@@ -21,7 +21,7 @@ stream
 % 1 0 obj
 << /S /GoTo /D (title.0) >>
 % 5 0 obj
-(PSBLAS-v3.7.0 User's Guide)
+(PSBLAS-v3.8.0 User's Guide)
 % 6 0 obj
 << /S /GoTo /D (section.1) >>
 % 9 0 obj
@@ -444,7 +444,7 @@ endstream
 endobj
 581 0 obj
 <<
-/Length 732       
+/Length 728       
 >>
 stream
 0 g 0 G
@@ -453,7 +453,7 @@ stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 24.7871 Tf 150.921 626.367 Td [(PSBLAS)-250(3.7.0.1)-250(User)-55(')55(s)-250(guide)]TJ
+/F51 24.7871 Tf 169.511 626.367 Td [(PSBLAS)-250(3.8.0)-250(User)-55(')55(s)-250(guide)]TJ
 ET
 q
 1 0 0 1 125.3 609.739 cm
@@ -480,7 +480,7 @@ Q
 0 g 0 G
 1 0 0 1 -168.637 -345.042 cm
 BT
-/F51 9.9626 Tf 365.51 263.977 Td [(by)-250(Salvatore)-250(Filippone)]TJ 14.396 -11.956 Td [(and)-250(Alfredo)-250(Buttari)]TJ/F54 9.9626 Tf 22.754 -11.955 Td [(May)-250(11th,)-250(2021)]TJ
+/F51 9.9626 Tf 365.51 263.977 Td [(by)-250(Salvatore)-250(Filippone)]TJ 14.396 -11.956 Td [(and)-250(Alfredo)-250(Buttari)]TJ/F54 9.9626 Tf 29.31 -11.955 Td [(May)-250(1st,)-250(2022)]TJ
 0 g 0 G
 0 g 0 G
 ET
@@ -1923,7 +1923,7 @@ BT
 0 g 0 G
  [-625(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(82)]TJ
+ [-1500(83)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.079 Td [(6.9)-1050(psb)]TJ
@@ -1937,7 +1937,7 @@ BT
 0 g 0 G
  [-611(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(85)]TJ
+ [-1500(86)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.08 Td [(6.10)-550(psb)]TJ
@@ -1951,7 +1951,7 @@ BT
 0 g 0 G
  [-520(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(87)]TJ
+ [-1500(88)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.08 Td [(6.11)-550(psb)]TJ
@@ -1965,7 +1965,7 @@ BT
 0 g 0 G
  [-725(.)]TJ
 0 g 0 G
- [-1500(88)]TJ
+ [-1500(89)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.221 -12.079 Td [(6.12)-550(psb)]TJ
@@ -1979,7 +1979,7 @@ BT
 0 g 0 G
  [-330(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(89)]TJ
+ [-1500(90)]TJ
 0 g 0 G
 0 g 0 G
  111.791 -29.888 Td [(ii)]TJ
@@ -1990,7 +1990,7 @@ endstream
 endobj
 741 0 obj
 <<
-/Length 18212     
+/Length 18214     
 >>
 stream
 0 g 0 G
@@ -2008,7 +2008,7 @@ BT
 0 g 0 G
  [-411(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(90)]TJ
+ [-1500(92)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.14)-550(psb)]TJ
@@ -2022,7 +2022,7 @@ BT
 0 g 0 G
  [-376(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(92)]TJ
+ [-1500(94)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.15)-550(psb)]TJ
@@ -2036,7 +2036,7 @@ BT
 0 g 0 G
  [-758(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(93)]TJ
+ [-1500(95)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(6.16)-550(psb)]TJ
@@ -2050,7 +2050,7 @@ BT
 0 g 0 G
  [-801(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(94)]TJ
+ [-1500(96)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(6.17)-550(psb)]TJ
@@ -2078,7 +2078,7 @@ BT
 0 g 0 G
  [-427(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(95)]TJ
+ [-1500(97)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -77.469 -12.094 Td [(6.18)-550(psb)]TJ
@@ -2106,7 +2106,7 @@ BT
 0 g 0 G
  [-966(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(97)]TJ
+ [-1500(99)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -70.844 -12.094 Td [(6.19)-550(psb)]TJ
@@ -2127,7 +2127,7 @@ BT
 0 g 0 G
  [-1135(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(98)]TJ
+ [-1000(100)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -52.932 -12.094 Td [(6.20)-550(psb)]TJ
@@ -2148,7 +2148,7 @@ BT
 0 g 0 G
  [-871(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1500(99)]TJ
+ [-1000(101)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -76.214 -12.095 Td [(6.21)-550(psb)]TJ
@@ -2169,7 +2169,7 @@ BT
 0 g 0 G
  [-615(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(100)]TJ
+ [-1000(102)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -52.932 -12.094 Td [(6.22)-550(psb)]TJ
@@ -2190,7 +2190,7 @@ BT
 0 g 0 G
  [-1101(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(101)]TJ
+ [-1000(103)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -66.451 -12.094 Td [(6.23)-550(psb)]TJ
@@ -2211,7 +2211,7 @@ BT
 0 g 0 G
  [-827(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(102)]TJ
+ [-1000(104)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -59.367 -12.094 Td [(6.24)-550(psb)]TJ
@@ -2232,7 +2232,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(103)]TJ
+ [-1000(105)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -59.367 -12.094 Td [(6.25)-550(psb)]TJ
@@ -2253,7 +2253,7 @@ BT
 0 g 0 G
  [-671(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(104)]TJ
+ [-1000(106)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -56.02 -12.094 Td [(6.26)-550(psb)]TJ
@@ -2267,19 +2267,19 @@ BT
 0 g 0 G
  [-251(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(106)]TJ
+ [-1000(108)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(6.27)-550(Sorting)-250(utilities)-250(\227)]TJ
 0 g 0 G
  [-1157(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(107)]TJ
+ [-1000(109)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -14.944 -22.149 Td [(7)-1000(Parallel)-250(environment)-250(routines)]TJ
 0 g 0 G
- [-17835(109)]TJ
+ [-17835(111)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.094 Td [(7.1)-1050(psb)]TJ
 ET
@@ -2292,7 +2292,7 @@ BT
 0 g 0 G
  [-766(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(110)]TJ
+ [-1000(112)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.2)-1050(psb)]TJ
@@ -2306,7 +2306,7 @@ BT
 0 g 0 G
  [-930(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(111)]TJ
+ [-1000(113)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(7.3)-1050(psb)]TJ
@@ -2320,7 +2320,7 @@ BT
 0 g 0 G
  [-823(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(112)]TJ
+ [-1000(114)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.4)-1050(psb)]TJ
@@ -2348,7 +2348,7 @@ BT
 0 g 0 G
  [-615(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(113)]TJ
+ [-1000(115)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -80.637 -12.094 Td [(7.5)-1050(psb)]TJ
@@ -2376,7 +2376,7 @@ BT
 0 g 0 G
  [-498(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(114)]TJ
+ [-1000(116)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -80.637 -12.094 Td [(7.6)-1050(psb)]TJ
@@ -2390,7 +2390,7 @@ BT
 0 g 0 G
  [-499(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(115)]TJ
+ [-1000(117)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.7)-1050(psb)]TJ
@@ -2404,7 +2404,7 @@ BT
 0 g 0 G
  [-903(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(116)]TJ
+ [-1000(118)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.8)-1050(psb)]TJ
@@ -2418,7 +2418,7 @@ BT
 0 g 0 G
  [-946(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(117)]TJ
+ [-1000(119)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.9)-1050(psb)]TJ
@@ -2432,7 +2432,7 @@ BT
 0 g 0 G
  [-739(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(118)]TJ
+ [-1000(120)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.10)-550(psb)]TJ
@@ -2446,7 +2446,7 @@ BT
 0 g 0 G
  [-998(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(119)]TJ
+ [-1000(122)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.11)-550(psb)]TJ
@@ -2460,7 +2460,7 @@ BT
 0 g 0 G
  [-610(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(120)]TJ
+ [-1000(124)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.095 Td [(7.12)-550(psb)]TJ
@@ -2474,7 +2474,7 @@ BT
 0 g 0 G
  [-896(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(121)]TJ
+ [-1000(126)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.13)-550(psb)]TJ
@@ -2488,7 +2488,7 @@ BT
 0 g 0 G
  [-700(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(122)]TJ
+ [-1000(128)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.14)-550(psb)]TJ
@@ -2502,7 +2502,7 @@ BT
 0 g 0 G
  [-777(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(123)]TJ
+ [-1000(130)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.15)-550(psb)]TJ
@@ -2516,7 +2516,7 @@ BT
 0 g 0 G
  [-710(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(124)]TJ
+ [-1000(132)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.16)-550(psb)]TJ
@@ -2530,7 +2530,7 @@ BT
 0 g 0 G
  [-511(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(125)]TJ
+ [-1000(134)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(7.17)-550(psb)]TJ
@@ -2544,12 +2544,12 @@ BT
 0 g 0 G
  [-284(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(126)]TJ
+ [-1000(135)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -57.166 -22.15 Td [(8)-1000(Error)-250(handling)]TJ
 0 g 0 G
- [-24750(127)]TJ
+ [-24750(136)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.094 Td [(8.1)-1050(psb)]TJ
 ET
@@ -2562,7 +2562,7 @@ BT
 0 g 0 G
  [-734(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(129)]TJ
+ [-1000(138)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(8.2)-1050(psb)]TJ
@@ -2575,7 +2575,7 @@ BT
 /F54 9.9626 Tf 157.061 250.767 Td [(err)18(or)-250(\227)-250(Prints)-250(the)-250(err)18(or)-250(stack)-250(content)-250(and)-250(aborts)-250(execution)]TJ
 0 g 0 G
 0 g 0 G
- [-1381(130)]TJ
+ [-1381(139)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -42.222 -12.094 Td [(8.3)-1050(psb)]TJ
@@ -2596,7 +2596,7 @@ BT
 0 g 0 G
  [-253(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(131)]TJ
+ [-1000(140)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -58.052 -12.095 Td [(8.4)-1050(psb)]TJ
@@ -2617,12 +2617,12 @@ BT
 0 g 0 G
  [-481(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(132)]TJ
+ [-1000(141)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -37.858 -22.149 Td [(9)-1000(Utilities)]TJ
 0 g 0 G
- [-27780(133)]TJ
+ [-27780(142)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -12.095 Td [(9.1)-1450(hb)]TJ
 ET
@@ -2635,7 +2635,7 @@ BT
 0 g 0 G
  [-652(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(134)]TJ
+ [-1000(143)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(9.2)-1050(hb)]TJ
@@ -2649,7 +2649,7 @@ BT
 0 g 0 G
  [-967(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(135)]TJ
+ [-1000(144)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -12.094 Td [(9.3)-1050(mm)]TJ
@@ -2670,7 +2670,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(136)]TJ
+ [-1000(145)]TJ
 0 g 0 G
 0 g 0 G
  129.649 -29.888 Td [(iii)]TJ
@@ -3511,7 +3511,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(137)]TJ
+ [-1000(146)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -11.955 Td [(9.5)-1050(mm)]TJ
@@ -3532,7 +3532,7 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(138)]TJ
+ [-1000(147)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  -22.914 -11.955 Td [(9.6)-1050(mm)]TJ
@@ -3553,58 +3553,58 @@ BT
 0 g 0 G
  [-515(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(139)]TJ
+ [-1000(148)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -37.858 -21.918 Td [(10)-500(Preconditioner)-250(routines)]TJ
 0 g 0 G
- [-20696(140)]TJ
+ [-20696(150)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -11.955 Td [(10.1)-550(init)-250(\227)-250(Initialize)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-772(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(141)]TJ
+ [-1000(151)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.2)-550(build)-250(\227)-250(Builds)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-970(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(142)]TJ
+ [-1000(152)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.3)-550(apply)-250(\227)-250(Pr)18(econditioner)-250(application)-250(r)18(outine)]TJ
 0 g 0 G
  [-421(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(144)]TJ
+ [-1000(154)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.4)-550(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(curr)18(ent)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-350(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(145)]TJ
+ [-1000(155)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.956 Td [(10.5)-550(clone)-250(\227)-250(clone)-250(curr)18(ent)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-260(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(146)]TJ
+ [-1000(156)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
  0 -11.955 Td [(10.6)-550(fr)18(ee)-250(\227)-250(Fr)18(ee)-250(a)-250(pr)18(econditioner)]TJ
 0 g 0 G
  [-341(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(147)]TJ
+ [-1000(157)]TJ
 0 g 0 G
 0 0 1 rg 0 0 1 RG
 /F51 9.9626 Tf -14.944 -21.918 Td [(11)-500(Iterative)-250(Methods)]TJ
 0 g 0 G
- [-23362(148)]TJ
+ [-23362(158)]TJ
 0 0 1 rg 0 0 1 RG
 /F54 9.9626 Tf 14.944 -11.955 Td [(11.1)-550(psb)]TJ
 ET
@@ -3617,7 +3617,7 @@ BT
 0 g 0 G
  [-716(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)-500(.)]TJ
 0 g 0 G
- [-1000(149)]TJ
+ [-1000(159)]TJ
 0 g 0 G
 0 g 0 G
  110.426 -428.393 Td [(iv)]TJ
@@ -4794,7 +4794,7 @@ BT
 0 g 0 G
 /F51 9.9626 Tf -24.907 -24.208 Td [(local)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(Each)-250(pr)18(ocess)-250(has)-250(its)-250(own)-250(value\050s\051)-250(independently)111(.)]TJ -26.56 -23.137 Td [(T)92(o)-250(\002nish)-250(our)-250(general)-250(description,)-250(we)-250(de\002ne)-250(a)-250(version)-250(string)-250(with)-250(the)-250(constant)]TJ/F59 9.9626 Tf 122.168 -24.059 Td [(psb_version_string_)]TJ/F54 9.9626 Tf -122.168 -24.059 Td [(whose)-250(curr)18(ent)-250(value)-250(is)]TJ/F59 9.9626 Tf 101.857 0 Td [(3.7.0)]TJ
+/F54 9.9626 Tf 26.56 0 Td [(Each)-250(pr)18(ocess)-250(has)-250(its)-250(own)-250(value\050s\051)-250(independently)111(.)]TJ -26.56 -23.137 Td [(T)92(o)-250(\002nish)-250(our)-250(general)-250(description,)-250(we)-250(de\002ne)-250(a)-250(version)-250(string)-250(with)-250(the)-250(constant)]TJ/F59 9.9626 Tf 122.168 -24.059 Td [(psb_version_string_)]TJ/F54 9.9626 Tf -122.168 -24.059 Td [(whose)-250(curr)18(ent)-250(value)-250(is)]TJ/F59 9.9626 Tf 101.857 0 Td [(3.8.0)]TJ
 0 g 0 G
 /F54 9.9626 Tf 67.508 -29.888 Td [(5)]TJ
 0 g 0 G
@@ -16958,7 +16958,7 @@ endstream
 endobj
 1420 0 obj
 <<
-/Length 4660      
+/Length 5699      
 >>
 stream
 0 g 0 G
@@ -16974,114 +16974,141 @@ BT
 /F51 11.9552 Tf 151.016 706.129 Td [(spall)-250(\227)-250(Allocates)-250(a)-250(sparse)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -51.121 -18.964 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info,)-525(nnz\051)]TJ
+/F59 9.9626 Tf -51.121 -19.277 Td [(call)-525(psb_spall\050a,)-525(desc_a,)-525(info)-525([,)-525(nnz,)-525(dupl,)-525(bldmode]\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -22.403 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -20.571 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -20.572 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 625.596 cm
+1 0 0 1 120.408 623.505 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 625.397 Td [(a)]TJ
+/F51 9.9626 Tf 123.397 623.306 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 309.258 575.684 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 575.485 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 577.775 cm
+1 0 0 1 333.945 575.684 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 575.485 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -19.925 Td [(nnz)]TJ
+/F51 9.9626 Tf -258.11 -20.572 Td [(nnz)]TJ
 0 g 0 G
-/F54 9.9626 Tf 22.137 0 Td [(An)-230(estimate)-230(of)-230(the)-230(number)-230(of)-231(nonzer)18(oes)-230(in)-230(the)-230(local)-230(part)-230(of)-230(the)-230(assembled)]TJ 2.77 -11.955 Td [(matrix.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
+/F54 9.9626 Tf 22.137 0 Td [(An)-230(estimate)-230(of)-230(the)-230(number)-230(of)-231(nonzer)18(oes)-230(in)-230(the)-230(local)-230(part)-230(of)-230(the)-230(assembled)]TJ 2.77 -11.955 Td [(matrix.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -20.572 Td [(dupl)]TJ
 0 g 0 G
+/F54 9.9626 Tf 26.561 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.941 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
 0 g 0 G
- 0 -19.925 Td [(a)]TJ
+/F51 9.9626 Tf -92.901 -20.572 Td [(bldmode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 45.938 0 Td [(Whether)-372(to)-372(kee)1(p)-372(track)-372(of)-372(matrix)-372(entries)-371(that)-372(do)-372(not)-372(belong)-371(to)-372(the)]TJ -21.031 -11.955 Td [(curr)18(ent)-250(pr)18(ocess.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(integer)-190(value)]TJ/F59 9.9626 Tf 128.287 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(,)]TJ/F59 9.9626 Tf 4.503 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ -331.543 -11.955 Td [(Default:)]TJ/F59 9.9626 Tf 38.515 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -168.029 -22.402 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 g 0 G
+ 0 -20.572 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 408.41 cm
+1 0 0 1 309.258 231.892 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 408.211 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 231.692 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 408.41 cm
+1 0 0 1 344.406 231.892 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 408.211 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 231.692 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.925 Td [(info)]TJ
+/F51 9.9626 Tf -268.571 -20.571 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -22.564 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F54 9.9626 Tf 12.454 -20.41 Td [(1.)]TJ
 0 g 0 G
  [-500(On)-250(exit)-250(fr)18(om)-250(this)-250(r)18(outine)-250(the)-250(sparse)-250(matrix)-250(is)-250(in)-250(the)-250(build)-250(state.)]TJ
 0 g 0 G
- 0 -19.925 Td [(2.)]TJ
+ 154.421 -29.888 Td [(81)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1425 0 obj
+<<
+/Length 1141      
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F54 9.9626 Tf 163.158 706.129 Td [(2.)]TJ
 0 g 0 G
  [-500(The)-250(descriptor)-250(may)-250(be)-250(in)-250(either)-250(the)-250(build)-250(or)-250(assembled)-250(state.)]TJ
 0 g 0 G
  0 -19.925 Td [(3.)]TJ
 0 g 0 G
- [-500(Pr)18(oviding)-219(a)-219(good)-219(est)1(imate)-219(for)-219(the)-219(number)-219(of)-219(nonzer)18(oes)]TJ/F52 9.9626 Tf 255.76 0 Td [(n)-25(n)-25(z)]TJ/F54 9.9626 Tf 18.305 0 Td [(in)-219(the)-219(assem-)]TJ -261.612 -11.956 Td [(bled)-294(matrix)-295(may)-294(substantially)-295(impr)18(ove)-294(performance)-295(in)-294(the)-295(matrix)-294(build)]TJ 0 -11.955 Td [(phase,)-370(as)-346(it)-346(will)-345(r)18(educe)-346(or)-346(eliminate)-346(the)-346(need)-346(for)-345(\050potentially)-346(multiple\051)]TJ 0 -11.955 Td [(data)-250(r)18(eallocations.)]TJ
+ [-500(Pr)18(oviding)-219(a)-219(good)-219(estimate)-218(for)-219(the)-219(number)-219(of)-219(nonzer)18(oes)]TJ/F52 9.9626 Tf 255.761 0 Td [(n)-25(n)-25(z)]TJ/F54 9.9626 Tf 18.305 0 Td [(in)-219(the)-219(assem-)]TJ -261.613 -11.956 Td [(bled)-295(matri)1(x)-295(may)-294(substantially)-295(impr)18(ove)-294(performance)-295(in)-294(the)-295(matrix)-294(build)]TJ 0 -11.955 Td [(phase,)-370(as)-346(it)-346(will)-345(r)18(educe)-346(or)-346(eliminate)-346(the)-346(need)-346(for)-345(\050potentially)-346(multiple\051)]TJ 0 -11.955 Td [(data)-250(r)18(eallocations;)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(4.)]TJ
+0 g 0 G
+ [-500(Using)]TJ/F59 9.9626 Tf 41.798 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.28 0 Td [(is)-315(likel)1(y)-315(to)-315(cause)-314(a)-315(r)8(untime)-314(over)18(head)-315(at)-314(as-)]TJ -126.625 -11.955 Td [(sembly)-250(time;)]TJ
 0 g 0 G
- 141.968 -132.468 Td [(81)]TJ
+ 141.968 -528.02 Td [(82)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1428 0 obj
+1433 0 obj
 <<
-/Length 5395      
+/Length 5375      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.8)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.8)-1000(psb)]TJ
 ET
 q
-1 0 0 1 198.238 706.328 cm
+1 0 0 1 147.429 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 201.825 706.129 Td [(spins)-233(\227)-233(Insert)-233(a)-233(set)-234(of)-233(coef)18(\002cients)-233(into)-233(a)-233(sparse)-233(matrix)]TJ
+/F51 11.9552 Tf 151.016 706.129 Td [(spins)-233(\227)-233(Insert)-233(a)-233(set)-233(of)-234(coef)18(\002cients)-233(into)-233(a)-233(sparse)-233(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -51.12 -20.373 Td [(call)-525(psb_spins\050nz,)-525(ia,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ 0 -11.956 Td [(call)-525(psb_spins\050nr,)-525(irw,)-525(irp,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
+/F59 9.9626 Tf -51.121 -20.373 Td [(call)-525(psb_spins\050nz,)-525(ia,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ 0 -11.956 Td [(call)-525(psb_spins\050nr,)-525(irw,)-525(irp,)-525(ja,)-525(val,)-525(a,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -24.099 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -17092,180 +17119,180 @@ BT
 0 g 0 G
  0 -22.834 Td [(nz)]TJ
 0 g 0 G
-/F54 9.9626 Tf 16.05 0 Td [(the)-250(number)-250(of)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 8.856 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 16.05 0 Td [(the)-250(number)-250(of)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(nr)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(nr)]TJ
 0 g 0 G
-/F54 9.9626 Tf 14.944 0 Td [(the)-250(number)-250(of)-250(r)18(ows)-250(to)-250(be)-250(inserted.)]TJ 9.962 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 14.944 0 Td [(the)-250(number)-250(of)-250(r)18(ows)-250(to)-250(be)-250(inserted.)]TJ 9.963 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(irw)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(irw)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(the)-250(\002rst)-250(r)18(ow)-250(to)-250(be)-250(inserted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 20.473 0 Td [(the)-250(\002rst)-250(r)18(ow)-250(to)-250(be)-250(inserted.)]TJ 4.434 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -22.834 Td [(ia)]TJ
+/F51 9.9626 Tf -24.907 -22.834 Td [(ia)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.28 0 Td [(the)-250(r)18(ow)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
+/F54 9.9626 Tf 13.281 0 Td [(the)-250(r)18(ow)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -196.043 -22.834 Td [(irp)]TJ
 0 g 0 G
-/F54 9.9626 Tf 18.261 0 Td [(the)-250(r)18(ow)-250(pointers)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.645 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-15(r)]TJ/F85 10.3811 Tf 11.85 0 Td [(+)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
+/F54 9.9626 Tf 18.262 0 Td [(the)-250(r)18(ow)-250(pointers)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.645 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-15(r)]TJ/F85 10.3811 Tf 11.85 0 Td [(+)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -207.688 -22.835 Td [(ja)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.28 0 Td [(the)-250(column)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.626 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.801 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
+/F54 9.9626 Tf 13.28 0 Td [(the)-250(column)-250(indices)-250(of)-250(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 11.627 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(of)-250(size)]TJ/F52 9.9626 Tf 160.8 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -196.043 -22.835 Td [(val)]TJ
 0 g 0 G
-/F54 9.9626 Tf 18.819 0 Td [(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.087 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-315(as:)-439(an)-315(array)-314(of)-315(size)]TJ/F52 9.9626 Tf 131.854 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(.)-504(Must)-314(be)-315(of)-315(the)-314(same)-315(type)-315(and)-314(kind)-315(of)]TJ -142.19 -11.956 Td [(the)-250(coef)18(\002cients)-250(of)-250(the)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 157.901 0 Td [(a)]TJ/F54 9.9626 Tf 4.548 0 Td [(.)]TJ
+/F54 9.9626 Tf 18.82 0 Td [(the)-250(coef)18(\002cients)-250(to)-250(be)-250(inserted.)]TJ 6.087 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-315(as:)-439(an)-314(array)-315(of)-315(size)]TJ/F52 9.9626 Tf 131.853 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.337 0 Td [(.)-504(Must)-314(be)-315(of)-315(the)-314(same)-315(type)-315(and)-314(kind)-315(of)]TJ -142.19 -11.956 Td [(the)-250(coef)18(\002cients)-250(of)-250(the)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 157.901 0 Td [(a)]TJ/F54 9.9626 Tf 4.548 0 Td [(.)]TJ
 0 g 0 G
- -20.481 -29.887 Td [(82)]TJ
+ -20.481 -29.887 Td [(83)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1434 0 obj
+1439 0 obj
 <<
-/Length 7247      
+/Length 6861      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(desc)]TJ
+/F51 9.9626 Tf 150.705 706.129 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 706.328 cm
+1 0 0 1 171.218 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 706.129 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 706.129 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.381 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 658.507 cm
+1 0 0 1 328.257 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 658.308 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 658.308 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 658.507 cm
+1 0 0 1 352.944 658.507 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 658.308 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 658.308 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.349 Td [(local)]TJ
+/F51 9.9626 Tf -226.299 -33.398 Td [(local)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.561 0 Td [(Whether)-207(the)-207(entries)-207(in)-207(the)-208(indices)-207(vectors)]TJ/F59 9.9626 Tf 181.486 0 Td [(ia)]TJ/F54 9.9626 Tf 10.461 0 Td [(,)]TJ/F59 9.9626 Tf 4.64 0 Td [(ja)]TJ/F54 9.9626 Tf 12.524 0 Td [(ar)18(e)-207(alr)18(eady)-207(in)-207(local)-208(num-)]TJ -210.765 -11.955 Td [(bering.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.612 0 Td [(.)]TJ
+/F54 9.9626 Tf 26.56 0 Td [(Whether)-207(the)-207(entries)-207(in)-207(the)-208(indices)-207(vectors)]TJ/F59 9.9626 Tf 181.487 0 Td [(ia)]TJ/F54 9.9626 Tf 10.46 0 Td [(,)]TJ/F59 9.9626 Tf 4.64 0 Td [(ja)]TJ/F54 9.9626 Tf 12.524 0 Td [(ar)18(e)-207(alr)18(eady)-207(in)-207(local)-208(num-)]TJ -210.765 -11.956 Td [(bering.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -224.197 -20.589 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -224.197 -23.056 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.394 Td [(a)]TJ
+ 0 -21.444 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(into)-250(which)-250(coef)18(\002cients)-250(will)-250(be)-250(inserted.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(matrix)-250(into)-250(which)-250(coef)18(\002cients)-250(will)-250(be)-250(inserted.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 491.534 cm
+1 0 0 1 360.068 484.968 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 491.334 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 484.768 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 491.534 cm
+1 0 0 1 395.216 484.968 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 491.334 Td [(type)]TJ
+/F59 9.9626 Tf 398.354 484.768 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.394 Td [(desc)]TJ
+/F51 9.9626 Tf -268.57 -21.443 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 472.14 cm
+1 0 0 1 171.218 463.524 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 471.94 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 463.325 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.381 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 424.319 cm
+1 0 0 1 328.257 415.704 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 424.12 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 415.504 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 424.319 cm
+1 0 0 1 352.944 415.704 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 424.12 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 415.504 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.349 Td [(info)]TJ
+/F51 9.9626 Tf -226.299 -33.398 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.59 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -23.436 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -18.862 Td [(1.)]TJ
+/F54 9.9626 Tf 12.453 -21.064 Td [(1.)]TJ
 0 g 0 G
- [-500(On)-312(entry)-312(to)-312(this)-311(r)18(outine)-312(the)-312(descriptor)-312(may)-312(be)-312(in)-312(either)-312(t)1(he)-312(build)-312(or)-312(as-)]TJ 12.453 -11.955 Td [(sembled)-250(state.)]TJ
+ [-500(On)-312(entry)-312(to)-312(this)-312(r)18(out)1(ine)-312(the)-312(descriptor)-312(may)-312(be)-312(in)-312(either)-312(the)-311(build)-312(or)-312(as-)]TJ 12.453 -11.955 Td [(sembled)-250(state.)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(2.)]TJ
+ -12.453 -21.443 Td [(2.)]TJ
 0 g 0 G
- [-500(On)-314(entry)-315(to)-314(this)-314(r)18(outine)-315(the)-314(sparse)-315(matrix)-314(may)-314(be)-315(in)-314(either)-314(the)-315(build)-314(or)]TJ 12.453 -11.955 Td [(update)-250(state.)]TJ
+ [-500(On)-314(entry)-315(to)-314(this)-315(r)18(ou)1(tine)-315(the)-314(sparse)-315(matrix)-314(may)-314(be)-315(in)-314(either)-314(the)-315(build)-314(or)]TJ 12.453 -11.955 Td [(update)-250(state.)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(3.)]TJ
+ -12.453 -21.444 Td [(3.)]TJ
 0 g 0 G
- [-500(If)-263(the)-263(descriptor)-263(is)-262(in)-263(the)-263(build)-263(state,)-266(then)-263(the)-263(sparse)-263(matrix)-262(must)-263(also)-263(be)]TJ 12.453 -11.955 Td [(in)-212(the)-212(build)-213(state;)-224(the)-213(action)-212(of)-212(the)-212(r)18(outine)-212(is)-213(to)-212(\050implicitly\051)-212(call)]TJ/F59 9.9626 Tf 271.731 0 Td [(psb_cdins)]TJ/F54 9.9626 Tf -271.731 -11.956 Td [(to)-259(add)-259(entries)-259(to)-259(the)-259(sparsity)-259(pattern;)-263(each)-259(sparse)-259(matrix)-259(entry)-259(implicitly)]TJ 0 -11.955 Td [(de\002nes)-288(a)-288(graph)-288(edge,)-297(that)-288(is)-288(passed)-288(to)-288(the)-288(descriptor)-288(r)18(outine)-288(for)-288(the)-288(ap-)]TJ 0 -11.955 Td [(pr)18(opriate)-250(pr)18(ocessing;)]TJ
+ [-500(If)-263(the)-263(descriptor)-263(is)-262(in)-263(the)-263(build)-263(state,)-266(then)-263(the)-263(sparse)-263(matrix)-262(must)-263(also)-263(be)]TJ 12.453 -11.955 Td [(in)-212(the)-212(build)-213(state;)-224(the)-213(action)-212(of)-212(the)-212(r)18(outine)-212(is)-213(to)-212(\050implicitly\051)-212(call)]TJ/F59 9.9626 Tf 271.732 0 Td [(psb_cdins)]TJ/F54 9.9626 Tf -271.732 -11.955 Td [(to)-259(add)-259(entries)-259(to)-259(the)-259(sparsity)-259(pattern;)-263(each)-259(sparse)-259(matrix)-259(entry)-259(implicitly)]TJ 0 -11.955 Td [(de\002nes)-288(a)-288(graph)-288(edge,)-297(that)-288(is)-288(passed)-288(to)-288(the)-288(descriptor)-288(r)18(outine)-288(for)-288(the)-288(ap-)]TJ 0 -11.955 Td [(pr)18(opriate)-250(pr)18(ocessing;)]TJ
 0 g 0 G
- -12.453 -19.394 Td [(4.)]TJ
+ -12.453 -21.444 Td [(4.)]TJ
 0 g 0 G
  [-500(The)-250(input)-250(data)-250(can)-250(be)-250(passed)-250(in)-250(either)-250(COO)-250(or)-250(CSR)-250(formats;)]TJ
 0 g 0 G
- 0 -19.394 Td [(5.)]TJ
+ 0 -21.443 Td [(5.)]TJ
 0 g 0 G
- [-500(In)-307(COO)-307(format)-307(t)1(he)-307(coef)18(\002cients)-307(to)-307(be)-307(inserted)-307(ar)18(e)-307(r)18(epr)18(esented)-306(by)-307(the)-307(or)18(-)]TJ 12.453 -11.955 Td [(der)18(ed)-304(triples)]TJ/F52 9.9626 Tf 59.554 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.91 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.841 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.275 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-318(for)]TJ/F52 9.9626 Tf 21.432 0 Td [(i)]TJ/F85 10.3811 Tf 6.855 0 Td [(=)]TJ/F54 9.9626 Tf 11.96 0 Td [(1,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 26.608 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.336 0 Td [(;)-331(these)-304(triples)-304(should)-305(be-)]TJ -209.091 -11.955 Td [(long)-321(to)-321(the)-321(curr)18(ent)-321(pr)18(ocess,)-338(i.e.)]TJ/F52 9.9626 Tf 143.515 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.91 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 7.346 0 Td [(should)-321(be)-321(one)-321(of)-321(the)-321(local)-320(indices,)]TJ -166.064 -11.955 Td [(but)-250(ar)18(e)-250(otherwise)-250(arbitrary;)]TJ
+ [-500(In)-307(COO)-307(format)-307(the)-306(coef)18(\002cients)-307(to)-307(be)-307(inserted)-307(ar)18(e)-307(r)18(epr)18(esented)-306(by)-307(the)-307(or)18(-)]TJ 12.453 -11.955 Td [(der)18(ed)-194(triples)]TJ/F52 9.9626 Tf 57.352 0 Td [(i)-47(a)]TJ/F85 10.3811 Tf 7.911 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.84 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.276 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-205(for)]TJ/F52 9.9626 Tf 19.208 0 Td [(i)]TJ/F85 10.3811 Tf 5.856 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(1,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 26.608 0 Td [(n)-25(z)]TJ/F54 9.9626 Tf 10.337 0 Td [(;)-212(these)-194(triples)-194(ar)18(e)-193(arbitrary;)]TJ
 0 g 0 G
- 141.968 -29.888 Td [(83)]TJ
+ -60.701 -29.888 Td [(84)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1443 0 obj
+1448 0 obj
 <<
-/Length 4028      
+/Length 4535      
 >>
 stream
 0 g 0 G
 0 g 0 G
 0 g 0 G
 BT
-/F54 9.9626 Tf 163.158 706.129 Td [(6.)]TJ
+/F54 9.9626 Tf 112.349 706.129 Td [(6.)]TJ
 0 g 0 G
- [-500(In)-272(CSR)-271(format)-272(the)-271(coef)18(\002cients)-272(to)-271(be)-272(inserted)-272(for)-271(each)-272(input)-271(r)18(ow)]TJ/F52 9.9626 Tf 294.599 0 Td [(i)]TJ/F85 10.3811 Tf 6.254 0 Td [(=)]TJ/F54 9.9626 Tf 11.36 0 Td [(1,)]TJ/F52 9.9626 Tf 9.257 0 Td [(n)-15(r)]TJ/F54 9.9626 Tf -309.016 -11.955 Td [(ar)18(e)-311(r)18(epr)18(esented)-312(by)-311(the)-311(or)18(der)18(ed)-312(triples)]TJ/F85 10.3811 Tf 171.689 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 5.252 0 Td [(+)]TJ/F52 9.9626 Tf 10.412 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.819 0 Td [(\000)]TJ/F54 9.9626 Tf 10.357 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.625 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.84 0 Td [(\050)]TJ/F52 9.9626 Tf 4.623 0 Td [(j)]TJ/F85 10.3811 Tf 3.018 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)]TJ/F52 9.9626 Tf 4.275 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.623 0 Td [(j)]TJ/F85 10.3811 Tf 3.018 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-327(for)]TJ/F52 9.9626 Tf 22.012 0 Td [(j)]TJ/F85 10.3811 Tf 6.918 0 Td [(=)]TJ/F52 9.9626 Tf -310.556 -11.955 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.089 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)-179(.)-192(.)-192(.)-179(,)]TJ/F52 9.9626 Tf 21.557 0 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 5.301 0 Td [(+)]TJ/F54 9.9626 Tf 10.406 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F83 10.3811 Tf 6.487 0 Td [(\000)]TJ/F54 9.9626 Tf 10.407 0 Td [(1;)-362(these)-325(triples)-324(should)-325(belong)-325(to)-324(the)-325(curr)18(ent)-324(pr)18(o-)]TJ -100.948 -11.956 Td [(cess,)-276(i.e.)]TJ/F52 9.9626 Tf 39.308 0 Td [(i)]TJ/F85 10.3811 Tf 5.102 0 Td [(+)]TJ/F52 9.9626 Tf 10.264 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.669 0 Td [(\000)]TJ/F54 9.9626 Tf 10.208 0 Td [(1)-271(should)-271(be)-271(one)-271(of)-271(the)-271(local)-271(i)1(ndices,)-277(but)-271(ar)18(e)-271(ot)1(herwise)]TJ -81.551 -11.955 Td [(arbitrary;)]TJ
+ [-500(In)-272(CSR)-271(format)-272(the)-271(coef)18(\002cients)-272(to)-271(be)-272(inserted)-272(for)-271(each)-272(input)-271(r)18(ow)]TJ/F52 9.9626 Tf 294.598 0 Td [(i)]TJ/F85 10.3811 Tf 6.254 0 Td [(=)]TJ/F54 9.9626 Tf 11.36 0 Td [(1,)]TJ/F52 9.9626 Tf 9.257 0 Td [(n)-15(r)]TJ/F54 9.9626 Tf -309.016 -11.955 Td [(ar)18(e)-311(r)18(epr)18(esented)-312(by)-311(the)-311(or)18(der)18(ed)-312(triples)]TJ/F85 10.3811 Tf 171.689 0 Td [(\050)]TJ/F52 9.9626 Tf 4.205 0 Td [(i)]TJ/F85 10.3811 Tf 5.251 0 Td [(+)]TJ/F52 9.9626 Tf 10.413 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.818 0 Td [(\000)]TJ/F54 9.9626 Tf 10.358 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.624 0 Td [(j)-40(a)]TJ/F85 10.3811 Tf 7.841 0 Td [(\050)]TJ/F52 9.9626 Tf 4.622 0 Td [(j)]TJ/F85 10.3811 Tf 3.019 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)]TJ/F52 9.9626 Tf 4.276 0 Td [(v)-40(a)-25(l)]TJ/F85 10.3811 Tf 13.37 0 Td [(\050)]TJ/F52 9.9626 Tf 4.622 0 Td [(j)]TJ/F85 10.3811 Tf 3.019 0 Td [(\051)]TJ/F54 9.9626 Tf 4.149 0 Td [(,)-327(for)]TJ/F52 9.9626 Tf 22.013 0 Td [(j)]TJ/F85 10.3811 Tf 6.917 0 Td [(=)]TJ/F52 9.9626 Tf -310.555 -11.955 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 3.088 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(,)-179(.)-192(.)-191(.)-180(,)]TJ/F52 9.9626 Tf 21.557 0 Td [(i)-22(r)-90(p)]TJ/F85 10.3811 Tf 12.991 0 Td [(\050)]TJ/F52 9.9626 Tf 4.204 0 Td [(i)]TJ/F85 10.3811 Tf 5.301 0 Td [(+)]TJ/F54 9.9626 Tf 10.407 0 Td [(1)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F83 10.3811 Tf 6.486 0 Td [(\000)]TJ/F54 9.9626 Tf 10.407 0 Td [(1;)-362(these)-325(triples)-324(should)-325(belong)-325(to)-324(the)-325(curr)18(ent)-325(pr)18(o-)]TJ -100.947 -11.956 Td [(cess,)-276(i.e.)]TJ/F52 9.9626 Tf 39.307 0 Td [(i)]TJ/F85 10.3811 Tf 5.103 0 Td [(+)]TJ/F52 9.9626 Tf 10.263 0 Td [(i)-22(r)-35(w)]TJ/F83 10.3811 Tf 16.669 0 Td [(\000)]TJ/F54 9.9626 Tf 10.209 0 Td [(1)-271(should)-271(be)-271(one)-271(of)-271(the)-271(local)-270(indices,)-277(but)-271(ar)18(e)-270(otherwise)]TJ -81.551 -11.955 Td [(arbitrary;)]TJ
 0 g 0 G
  -12.453 -19.925 Td [(7.)]TJ
 0 g 0 G
- [-500(Ther)18(e)-315(is)-314(no)-315(r)18(equir)18(ement)-315(that)-314(a)-315(given)-314(r)18(ow)-315(must)-315(be)-314(passed)-315(in)-315(its)-314(entir)18(ety)]TJ 12.453 -11.955 Td [(to)-298(a)-299(single)-298(call)-298(to)-299(this)-298(r)18(outine:)-406(the)-299(buildup)-298(of)-298(a)-299(r)18(ow)-298(may)-298(be)-299(split)-298(into)-298(as)]TJ 0 -11.955 Td [(many)-250(calls)-250(as)-250(desir)18(ed)-250(\050even)-250(in)-250(the)-250(CSR)-250(format\051;)]TJ
+ [-500(Ther)18(e)-315(is)-314(no)-315(r)18(equir)18(ement)-314(that)-315(a)-315(given)-314(r)18(ow)-315(must)-315(be)-314(passed)-315(in)-315(its)-314(entir)18(ety)]TJ 12.453 -11.955 Td [(to)-298(a)-299(single)-298(call)-298(to)-299(thi)1(s)-299(r)18(outine:)-406(the)-299(buildup)-298(of)-298(a)-299(r)18(ow)-298(may)-298(be)-299(split)-298(into)-298(as)]TJ 0 -11.955 Td [(many)-250(calls)-250(as)-250(desir)18(ed)-250(\050even)-250(in)-250(the)-250(CSR)-250(format\051;)]TJ
 0 g 0 G
  -12.453 -19.926 Td [(8.)]TJ
 0 g 0 G
@@ -17273,152 +17300,17 @@ BT
 0 g 0 G
  -12.453 -19.925 Td [(9.)]TJ
 0 g 0 G
- [-500(Any)-301(coef)18(\002cients)-301(fr)18(om)-301(matrix)-301(r)18(ows)-301(not)-301(owned)-300(by)-301(the)-301(calling)-301(pr)18(ocess)-301(ar)18(e)]TJ 12.453 -11.955 Td [(silently)-250(ignor)18(ed;)]TJ
-0 g 0 G
- -17.434 -19.926 Td [(10.)]TJ
-0 g 0 G
- [-500(If)-295(the)-294(descriptor)-295(is)-294(in)-295(the)-295(assembled)-294(state,)-306(then)-295(any)-294(entries)-295(in)-295(the)-294(sparse)]TJ 17.434 -11.955 Td [(matrix)-284(that)-284(would)-284(generate)-284(additional)-284(communication)-284(r)18(equir)18(ements)-284(ar)18(e)]TJ 0 -11.955 Td [(ignor)18(ed;)]TJ
-0 g 0 G
- -17.434 -19.925 Td [(11.)]TJ
-0 g 0 G
- [-500(If)-268(the)-268(matrix)-268(is)-268(in)-268(the)-268(update)-268(state,)-273(any)-268(entries)-268(in)-268(positions)-268(that)-268(wer)18(e)-268(not)]TJ 17.434 -11.955 Td [(pr)18(esent)-250(in)-250(the)-250(original)-250(matrix)-250(ar)18(e)-250(ignor)18(ed.)]TJ
-0 g 0 G
- 141.968 -384.558 Td [(84)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1455 0 obj
-<<
-/Length 6372      
->>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.9)-1000(psb)]TJ
-ET
-q
-1 0 0 1 147.429 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 151.016 706.129 Td [(spasb)-250(\227)-250(Sparse)-250(matrix)-250(assembly)-250(routine)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -51.121 -18.964 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info,)-525(afmt,)-525(upd,)-525(dupl,)-525(mold\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.109 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.601 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.602 Td [(desc)]TJ
-ET
-q
-1 0 0 1 120.408 627.052 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 123.397 626.853 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 579.232 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 579.032 Td [(desc)]TJ
-ET
-q
-1 0 0 1 333.945 579.232 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 337.084 579.032 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -19.601 Td [(afmt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.013 0 Td [(the)-250(storage)-250(format)-250(for)-250(the)-250(sparse)-250(matrix.)]TJ -1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(array)-250(of)-250(characters.)-310(Defalt:)-310('CSR'.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.602 Td [(upd)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.243 0 Td [(Pr)18(ovide)-250(for)-250(updates)-250(to)-250(the)-250(matrix)-250(coef)18(\002cients.)]TJ 1.664 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(integer)74(,)-250(possible)-250(values:)]TJ/F59 9.9626 Tf 165.218 0 Td [(psb_upd_srch_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_upd_perm_)]TJ
-0 g 0 G
-/F51 9.9626 Tf -263.101 -19.602 Td [(dupl)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.561 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.941 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -92.901 -19.602 Td [(mold)]TJ
-0 g 0 G
-/F54 9.9626 Tf 28.782 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -3.875 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 342.513 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 345.652 297.388 Td [(T)]TJ
-ET
-q
-1 0 0 1 351.51 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 354.648 297.388 Td [(base)]TJ
-ET
-q
-1 0 0 1 376.197 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 379.335 297.388 Td [(sparse)]TJ
-ET
-q
-1 0 0 1 411.345 297.587 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 414.483 297.388 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -330.279 -21.109 Td [(On)-250(Return)]TJ
-0 g 0 G
+ [-500(Coef)18(\002cients)-190(fr)18(om)-190(matrix)-190(r)18(ows)-190(not)-190(owned)-190(by)-190(the)-190(calling)-190(pr)18(ocess)-190(ar)18(e)-190(tr)18(eated)]TJ 12.453 -11.955 Td [(accor)18(ding)-254(to)-254(the)-253(value)-254(of)]TJ/F59 9.9626 Tf 111.539 0 Td [(bldmode)]TJ/F54 9.9626 Tf 39.141 0 Td [(speci\002ed)-254(at)-253(allocation)-254(time;)-256(if)]TJ/F59 9.9626 Tf 131.512 0 Td [(bldmode)]TJ/F54 9.9626 Tf -282.192 -11.956 Td [(was)-300(chosen)-300(as)]TJ/F59 9.9626 Tf 66.146 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.136 0 Td [(the)-300(library)-300(will)-300(keep)-300(track)-301(of)-300(them,)]TJ -163.282 -11.955 Td [(otherwise)-250(they)-250(ar)18(e)-250(silently)-250(ignor)18(ed;)]TJ
 0 g 0 G
- 0 -19.602 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(assembled.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 209.056 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 208.857 Td [(Tspmat)]TJ
-ET
-q
-1 0 0 1 344.406 209.056 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 347.544 208.857 Td [(type)]TJ
+ -17.435 -19.925 Td [(10.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+ [-500(If)-295(the)-294(descriptor)-295(is)-295(i)1(n)-295(the)-295(assembled)-294(state,)-306(then)-295(any)-294(entries)-295(in)-295(the)-294(sparse)]TJ 17.435 -11.955 Td [(matrix)-284(that)-284(would)-284(generate)-284(additional)-284(communication)-284(r)18(equir)18(ements)-284(ar)18(e)]TJ 0 -11.955 Td [(ignor)18(ed;)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.602 Td [(info)]TJ
+ -17.435 -19.926 Td [(11.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.108 Td [(Notes)]TJ
+ [-500(If)-268(the)-268(matrix)-268(is)-268(in)-268(the)-268(update)-268(state,)-273(any)-268(entries)-268(in)-268(positions)-268(that)-268(wer)18(e)-268(not)]TJ 17.435 -11.955 Td [(pr)18(esent)-250(in)-250(the)-250(original)-250(matrix)-250(ar)18(e)-250(ignor)18(ed.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 166.875 -29.888 Td [(85)]TJ
+ 141.968 -360.647 Td [(85)]TJ
 0 g 0 G
 ET
 
@@ -17429,7 +17321,7 @@ endobj
 /Type /ObjStm
 /N 100
 /First 977
-/Length 10351     
+/Length 10176     
 >>
 stream
 1347 0 308 59 312 117 1344 174 1351 307 1349 446 1353 593 1354 651 1350 709 1357 829
@@ -17438,10 +17330,10 @@ stream
 1382 2814 1383 2872 1384 2930 1378 2988 1388 3082 1385 3230 1386 3375 1390 3521 320 3580 1391 3638
 1387 3697 1395 3791 1392 3939 1393 4084 1397 4231 324 4289 1394 4346 1400 4440 1398 4579 1402 4724
 328 4783 1399 4841 1406 4935 1403 5083 1404 5228 1408 5375 332 5433 1405 5490 1411 5610 1413 5728
-1414 5787 1415 5846 1410 5905 1419 5986 1416 6134 1417 6279 1421 6424 336 6482 1422 6539 1423 6597
-1424 6655 1418 6713 1427 6820 1429 6938 340 6997 1426 7055 1433 7175 1425 7332 1430 7479 1431 7624
-1435 7771 1436 7829 1437 7887 1438 7945 1439 8003 1440 8060 1432 8118 1442 8238 1444 8356 1445 8415
-1446 8474 1447 8533 1448 8592 1449 8651 1450 8710 1441 8769 1454 8876 1451 9024 1452 9171 1456 9316
+1414 5787 1415 5846 1410 5905 1419 5986 1416 6134 1417 6281 1421 6426 336 6484 1422 6541 1418 6599
+1424 6693 1426 6811 1427 6870 1428 6929 1429 6988 1423 7047 1432 7141 1434 7259 340 7317 1431 7374
+1438 7494 1430 7651 1435 7794 1436 7939 1440 8082 1441 8141 1442 8199 1443 8258 1444 8317 1445 8376
+1437 8435 1447 8555 1449 8673 1450 8731 1451 8789 1452 8847 1453 8905 1454 8963 1455 9021 1446 9079
 % 1347 0 obj
 <<
 /D [1345 0 R /XYZ 149.705 753.953 null]
@@ -17811,7 +17703,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 573.77 359.001 585.83]
+/Rect [291.943 571.679 359.001 583.739]
 /A << /S /GoTo /D (descdata) >>
 >>
 % 1417 0 obj
@@ -17819,7 +17711,7 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 404.405 369.462 416.465]
+/Rect [291.943 227.887 369.462 239.946]
 /A << /S /GoTo /D (spdata) >>
 >>
 % 1421 0 obj
@@ -17832,232 +17724,389 @@ stream
 >>
 % 1422 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 314.347 null]
+/D [1419 0 R /XYZ 99.895 136.374 null]
 >>
-% 1423 0 obj
+% 1418 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 291.828 null]
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
 % 1424 0 obj
 <<
-/D [1419 0 R /XYZ 99.895 271.902 null]
+/Type /Page
+/Contents 1425 0 R
+/Resources 1423 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1409 0 R
 >>
-% 1418 0 obj
+% 1426 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1424 0 R /XYZ 149.705 753.953 null]
 >>
 % 1427 0 obj
 <<
+/D [1424 0 R /XYZ 150.705 716.092 null]
+>>
+% 1428 0 obj
+<<
+/D [1424 0 R /XYZ 150.705 699.334 null]
+>>
+% 1429 0 obj
+<<
+/D [1424 0 R /XYZ 150.705 644.819 null]
+>>
+% 1423 0 obj
+<<
+/Font << /F54 586 0 R /F52 585 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1432 0 obj
+<<
 /Type /Page
-/Contents 1428 0 R
-/Resources 1426 0 R
+/Contents 1433 0 R
+/Resources 1431 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1409 0 R
 >>
-% 1429 0 obj
+% 1434 0 obj
 <<
-/D [1427 0 R /XYZ 149.705 753.953 null]
+/D [1432 0 R /XYZ 98.895 753.953 null]
 >>
 % 340 0 obj
 <<
-/D [1427 0 R /XYZ 150.705 716.092 null]
+/D [1432 0 R /XYZ 99.895 716.092 null]
 >>
-% 1426 0 obj
+% 1431 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1433 0 obj
+% 1438 0 obj
 <<
 /Type /Page
-/Contents 1434 0 R
-/Resources 1432 0 R
+/Contents 1439 0 R
+/Resources 1437 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1409 0 R
-/Annots [ 1425 0 R 1430 0 R 1431 0 R ]
+/Annots [ 1430 0 R 1435 0 R 1436 0 R ]
 >>
-% 1425 0 obj
+% 1430 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 654.503 327.191 666.562]
+/Rect [310.942 654.503 378 666.562]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1430 0 obj
+% 1435 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 487.529 369.462 499.588]
+/Rect [342.753 480.963 420.271 493.022]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1431 0 obj
+% 1436 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 420.314 327.191 432.374]
+/Rect [310.942 411.699 378 423.758]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1435 0 obj
+% 1440 0 obj
 <<
-/D [1433 0 R /XYZ 98.895 753.953 null]
+/D [1438 0 R /XYZ 149.705 753.953 null]
 >>
-% 1436 0 obj
+% 1441 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 320.957 null]
+/D [1438 0 R /XYZ 150.705 306.27 null]
 >>
-% 1437 0 obj
+% 1442 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 289.664 null]
+/D [1438 0 R /XYZ 150.705 272.927 null]
 >>
-% 1438 0 obj
+% 1443 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 255.665 null]
+/D [1438 0 R /XYZ 150.705 236.878 null]
 >>
-% 1439 0 obj
+% 1444 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 188.45 null]
+/D [1438 0 R /XYZ 150.705 167.614 null]
 >>
-% 1440 0 obj
+% 1445 0 obj
 <<
-/D [1433 0 R /XYZ 99.895 169.056 null]
+/D [1438 0 R /XYZ 150.705 146.171 null]
 >>
-% 1432 0 obj
+% 1437 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1442 0 obj
+% 1447 0 obj
 <<
 /Type /Page
-/Contents 1443 0 R
-/Resources 1441 0 R
+/Contents 1448 0 R
+/Resources 1446 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1409 0 R
->>
-% 1444 0 obj
-<<
-/D [1442 0 R /XYZ 149.705 753.953 null]
->>
-% 1445 0 obj
-<<
-/D [1442 0 R /XYZ 150.705 716.092 null]
->>
-% 1446 0 obj
-<<
-/D [1442 0 R /XYZ 150.705 651.514 null]
+/Parent 1456 0 R
 >>
-% 1447 0 obj
+% 1449 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 607.678 null]
+/D [1447 0 R /XYZ 98.895 753.953 null]
 >>
-% 1448 0 obj
+% 1450 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 575.798 null]
+/D [1447 0 R /XYZ 99.895 716.092 null]
 >>
-% 1449 0 obj
+% 1451 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 543.917 null]
+/D [1447 0 R /XYZ 99.895 651.514 null]
 >>
-% 1450 0 obj
+% 1452 0 obj
 <<
-/D [1442 0 R /XYZ 150.705 500.082 null]
+/D [1447 0 R /XYZ 99.895 607.678 null]
 >>
-% 1441 0 obj
+% 1453 0 obj
 <<
-/Font << /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1447 0 R /XYZ 99.895 575.798 null]
 >>
 % 1454 0 obj
 <<
-/Type /Page
-/Contents 1455 0 R
-/Resources 1453 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1451 0 R 1452 0 R ]
+/D [1447 0 R /XYZ 99.895 520.007 null]
 >>
-% 1451 0 obj
+% 1455 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 575.227 359.001 587.286]
-/A << /S /GoTo /D (descdata) >>
+/D [1447 0 R /XYZ 99.895 476.171 null]
 >>
-% 1452 0 obj
+% 1446 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 205.051 369.462 217.111]
-/A << /S /GoTo /D (spdata) >>
+/Font << /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1456 0 obj
+
+endstream
+endobj
+1462 0 obj
 <<
-/D [1454 0 R /XYZ 98.895 753.953 null]
+/Length 6789      
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(6.9)-1000(psb)]TJ
+ET
+q
+1 0 0 1 198.238 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 201.825 706.129 Td [(spasb)-250(\227)-250(Sparse)-250(matrix)-250(assembly)-250(routine)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -51.12 -19.204 Td [(call)-525(psb_spasb\050a,)-525(desc_a,)-525(info)-525([,)-525(afmt,)-525(upd,)-1050(mold]\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -22.289 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.421 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 623.994 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 623.794 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in/out)]TJ/F54 9.9626 Tf 27.297 0 Td [(.)]TJ -59.098 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 576.173 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 575.974 Td [(desc)]TJ
+ET
+q
+1 0 0 1 384.755 576.173 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 387.893 575.974 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -20.421 Td [(afmt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 26.012 0 Td [(the)-250(storage)-250(format)-250(for)-250(the)-250(sparse)-250(matrix.)]TJ -1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(array)-250(of)-250(characters.)-310(Defalt:)-310('CSR'.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.42 Td [(upd)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.243 0 Td [(Pr)18(ovide)-250(for)-250(updates)-250(to)-250(the)-250(matrix)-250(coef)18(\002cients.)]TJ 1.663 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(integer)74(,)-250(possible)-250(values:)]TJ/F59 9.9626 Tf 165.219 0 Td [(psb_upd_srch_)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_upd_perm_)]TJ
+0 g 0 G
+/F51 9.9626 Tf -263.1 -20.421 Td [(mold)]TJ
+0 g 0 G
+/F54 9.9626 Tf 28.782 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -3.876 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 393.323 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 396.461 371.249 Td [(T)]TJ
+ET
+q
+1 0 0 1 402.319 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 405.457 371.249 Td [(base)]TJ
+ET
+q
+1 0 0 1 427.006 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 430.144 371.249 Td [(sparse)]TJ
+ET
+q
+1 0 0 1 462.154 371.449 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 465.292 371.249 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -330.278 -22.289 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(matrix)-250(to)-250(be)-250(assembled.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 280.918 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 280.719 Td [(Tspmat)]TJ
+ET
+q
+1 0 0 1 395.216 280.918 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 398.354 280.719 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -268.57 -20.421 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 260.497 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 260.298 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in/out)]TJ/F54 9.9626 Tf 27.297 0 Td [(.)]TJ -59.098 -11.956 Td [(Speci\002ed)-290(as:)-389(a)-290(str)8(uctur)18(ed)-290(data)-289(of)-290(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 171.305 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 363.235 212.677 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 366.373 212.477 Td [(desc)]TJ
+ET
+q
+1 0 0 1 387.922 212.677 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 391.06 212.477 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)-429(If)-290(the)-290(matrix)-289(was)]TJ -236.371 -11.955 Td [(allocated)-209(with)]TJ/F59 9.9626 Tf 64.153 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 135.988 0 Td [(,)-217(then)-210(the)-209(descriptor)-209(will)-209(be)]TJ -200.141 -11.955 Td [(r)18(eassembled.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 141.968 -29.888 Td [(86)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1461 0 obj
+1467 0 obj
 <<
-/Length 2144      
+/Length 3146      
 >>
 stream
 0 g 0 G
 0 g 0 G
-0 g 0 G
 BT
-/F54 9.9626 Tf 163.158 706.129 Td [(1.)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
- [-500(On)-227(entry)-226(to)-227(this)-226(r)18(outine)-227(th)1(e)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.955 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
+ [-500(On)-226(entry)-227(to)-226(this)-227(r)18(outine)-226(the)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.956 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
 0 g 0 G
- -62.017 -19.926 Td [(2.)]TJ
+ -62.017 -19.925 Td [(2.)]TJ
 0 g 0 G
  [-500(The)-250(sparse)-250(matrix)-250(may)-250(be)-250(in)-250(either)-250(the)-250(build)-250(or)-250(update)-250(state;)]TJ
 0 g 0 G
  0 -19.925 Td [(3.)]TJ
 0 g 0 G
- [-500(Duplicate)-421(entries)-422(ar)18(e)-421(detected)-421(and)-422(handled)-421(in)-421(both)-422(buil)1(d)-422(and)-421(update)]TJ 12.453 -11.955 Td [(state,)-244(with)-241(the)-242(exception)-242(of)-242(the)-242(err)18(or)-242(action)-242(that)-242(is)-242(only)-242(take)1(n)-242(in)-242(the)-242(build)]TJ 0 -11.955 Td [(state,)-250(i.e.)-310(on)-250(the)-250(\002rst)-250(assembly;)]TJ
+ [-500(Duplicate)-421(entries)-422(ar)18(e)-421(detected)-421(and)-422(handled)-421(in)-421(both)-421(build)-422(and)-421(update)]TJ 12.453 -11.955 Td [(state,)-244(wit)1(h)-242(the)-242(exception)-242(of)-242(the)-242(err)18(or)-242(action)-242(that)-242(is)-242(only)-241(taken)-242(in)-242(the)-242(build)]TJ 0 -11.955 Td [(state,)-250(i.e.)-310(on)-250(the)-250(\002rst)-250(assembly;)]TJ
 0 g 0 G
- -12.453 -19.925 Td [(4.)]TJ
+ -12.453 -19.926 Td [(4.)]TJ
 0 g 0 G
- [-500(If)-190(the)-190(update)-190(choice)-190(is)]TJ/F59 9.9626 Tf 108.373 0 Td [(psb_upd_perm_)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)-202(then)-190(subsequent)-190(calls)-190(to)]TJ/F59 9.9626 Tf 109.946 0 Td [(psb_spins)]TJ/F54 9.9626 Tf -273.86 -11.956 Td [(to)-309(update)-309(the)-308(matrix)-309(must)-309(be)-309(arranged)-309(in)-308(such)-309(a)-309(way)-309(as)-309(to)-308(pr)18(oduce)-309(ex-)]TJ 0 -11.955 Td [(actly)-319(the)-320(same)-319(sequence)-320(of)-319(coef)18(\002cient)-319(values)-320(as)-319(encounter)18(ed)-319(at)-320(the)-319(\002rst)]TJ 0 -11.955 Td [(assembly;)]TJ
+ [-500(If)-190(the)-190(update)-190(choice)-190(is)]TJ/F59 9.9626 Tf 108.372 0 Td [(psb_upd_perm_)]TJ/F54 9.9626 Tf 67.995 0 Td [(,)-202(then)-190(subsequent)-190(calls)-190(to)]TJ/F59 9.9626 Tf 109.946 0 Td [(psb_spins)]TJ/F54 9.9626 Tf -273.86 -11.955 Td [(to)-309(update)-309(the)-308(matrix)-309(must)-309(be)-309(arranged)-309(in)-308(such)-309(a)-309(way)-309(as)-309(to)-308(pr)18(oduce)-309(ex-)]TJ 0 -11.955 Td [(actly)-319(the)-320(same)-319(sequence)-320(of)-319(coef)18(\002cient)-319(values)-320(as)-319(encounter)18(ed)-319(at)-320(the)-319(\002rst)]TJ 0 -11.955 Td [(assembly;)]TJ
 0 g 0 G
- -12.453 -19.925 Td [(5.)]TJ
+ -12.453 -19.926 Td [(5.)]TJ
 0 g 0 G
  [-500(The)-250(output)-250(storage)-250(format)-250(need)-250(not)-250(be)-250(the)-250(same)-250(on)-250(all)-250(pr)18(ocesses;)]TJ
 0 g 0 G
- 0 -19.926 Td [(6.)]TJ
+ 0 -19.925 Td [(6.)]TJ
+0 g 0 G
+ [-500(On)-249(exit)-249(fr)18(om)-250(this)-249(r)18(outine)-249(the)-249(matrix)-249(is)-250(in)-249(the)-249(assembled)-249(state,)-250(and)-249(thus)-249(is)]TJ 12.453 -11.955 Td [(suitable)-250(for)-250(the)-250(computational)-250(r)18(outines;)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(7.)]TJ
 0 g 0 G
- [-500(On)-249(exit)-249(fr)18(om)-250(this)-249(r)18(outine)-249(the)-249(matrix)-249(is)-250(in)-249(the)-249(assembled)-249(state,)-250(and)-249(thus)-249(is)]TJ 12.453 -11.955 Td [(suitable)-250(for)-250(the)-250(computational)-250(r)18(outines.)]TJ
+ [-500(If)-431(the)]TJ/F59 9.9626 Tf 41.543 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 140.288 0 Td [(value)-431(was)-432(speci\002ed)-431(at)-432(allocation)]TJ -169.378 -11.955 Td [(time,)-278(contributions)-272(de\002ned)-272(on)-272(the)-273(curr)18(ent)-272(pr)18(ocess)-272(but)-272(belonging)-273(to)-272(a)-272(r)18(e-)]TJ 0 -11.956 Td [(mote)-267(pr)18(ocess)-266(will)-267(be)-267(handled)-267(accor)18(dingly)111(.)-360(This)-267(is)-266(most)-267(likely)-267(to)-266(occur)-267(in)]TJ 0 -11.955 Td [(\002nite)-288(element)-288(applications,)-297(with)]TJ/F59 9.9626 Tf 145.88 0 Td [(dupl=psb_dupl_add_)]TJ/F54 9.9626 Tf 94.147 0 Td [(;)-307(it)-288(is)-287(necessary)-288(to)]TJ -240.027 -11.955 Td [(check)-236(for)-235(possible)-236(updates)-236(needed)-235(in)-236(the)-236(descriptor)74(,)-238(hence)-236(ther)18(e)-236(will)-235(be)-236(a)]TJ 0 -11.955 Td [(r)8(untime)-250(over)18(head.)]TJ
 0 g 0 G
- 141.968 -432.378 Td [(86)]TJ
+ 141.968 -332.752 Td [(87)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1473 0 obj
+1480 0 obj
 <<
-/Length 2977      
+/Length 2987      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.10)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.10)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(spfree)-250(\227)-250(Frees)-250(a)-250(sparse)-250(matrix)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(spfree)-250(\227)-250(Frees)-250(a)-250(sparse)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_spfree\050a,)-525(desc_a,)-525(info\051)]TJ
@@ -18071,84 +18120,84 @@ BT
 0 g 0 G
  0 -19.925 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(fr)18(eed.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(fr)18(eed.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 360.068 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 577.576 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 344.406 577.775 cm
+1 0 0 1 395.216 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 398.354 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.571 -19.925 Td [(desc)]TJ
+/F51 9.9626 Tf -268.57 -19.925 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 557.85 cm
+1 0 0 1 171.218 557.85 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 557.651 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 557.651 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 510.029 cm
+1 0 0 1 360.068 510.029 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 509.83 Td [(desc)]TJ
+/F59 9.9626 Tf 363.206 509.83 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 510.029 cm
+1 0 0 1 384.755 510.029 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 509.83 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 509.83 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.925 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -329.728 Td [(87)]TJ
+ 141.968 -329.728 Td [(88)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1479 0 obj
+1486 0 obj
 <<
-/Length 3869      
+/Length 3858      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.11)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.11)-1000(psb)]TJ
 ET
 q
-1 0 0 1 204.216 706.328 cm
+1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 207.803 706.129 Td [(sprn)-254(\227)-255(Reinit)-254(sparse)-254(matrix)-255(structure)-254(for)-255(psblas)-254(rou-)]TJ -24.221 -13.948 Td [(tines.)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(sprn)-254(\227)-255(Reinit)-254(sparse)-255(matrix)-254(structure)-254(for)-255(psblas)-254(rou-)]TJ -24.221 -13.948 Td [(tines.)]TJ
 0 g 0 G
 0 g 0 G
 /F59 9.9626 Tf -32.877 -18.964 Td [(call)-525(psb_sprn\050a,)-525(decsc_a,)-525(info,)-525(clear\051)]TJ
@@ -18162,185 +18211,212 @@ BT
 0 g 0 G
  0 -19.925 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(r)18(einitialized.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(to)-250(be)-250(r)18(einitialized.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 563.828 cm
+1 0 0 1 309.258 563.828 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 563.628 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 312.397 563.628 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 395.216 563.828 cm
+1 0 0 1 344.406 563.828 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 398.354 563.628 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 563.628 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -19.925 Td [(desc)]TJ
+/F51 9.9626 Tf -268.571 -19.925 Td [(desc)]TJ
 ET
 q
-1 0 0 1 171.218 543.902 cm
+1 0 0 1 120.408 543.902 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 174.207 543.703 Td [(a)]TJ
+/F51 9.9626 Tf 123.397 543.703 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 496.082 cm
+1 0 0 1 309.258 496.082 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 495.882 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 495.882 Td [(desc)]TJ
 ET
 q
-1 0 0 1 384.755 496.082 cm
+1 0 0 1 333.945 496.082 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 387.893 495.882 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 495.882 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -258.11 -19.925 Td [(clear)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(Choose)-250(whether)-250(to)-250(zer)18(o)-250(out)-250(matrix)-250(coef)18(\002cients)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Default:)-310(tr)8(ue.)]TJ
+/F54 9.9626 Tf 26.561 0 Td [(Choose)-250(whether)-250(to)-250(zer)18(o)-250(out)-250(matrix)-250(coef)18(\002cients)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Default:)-310(tr)8(ue.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -21.917 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -21.917 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
  0 -19.926 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
  [-500(On)-250(exit)-250(fr)18(om)-250(this)-250(r)18(outine)-250(the)-250(sparse)-250(matrix)-250(is)-250(in)-250(the)-250(update)-250(state.)]TJ
 0 g 0 G
- 154.421 -206.192 Td [(88)]TJ
+ 154.421 -206.192 Td [(89)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1486 0 obj
+1493 0 obj
 <<
-/Length 4848      
+/Length 6166      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.12)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.12)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(geall)-250(\227)-250(Allocates)-250(a)-250(dense)-250(matrix)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(geall)-250(\227)-250(Allocates)-250(a)-250(dense)-250(matrix)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info,)-525(n,)-525(lb\051)]TJ
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geall\050x,)-525(desc_a,)-525(info[,)-525(dupl,)-525(bldmode,)-525(n,)-525(lb]\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -19.627 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -19.01 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -19.009 Td [(desc)]TJ
 ET
 q
-1 0 0 1 120.408 625.596 cm
+1 0 0 1 171.218 629.719 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 123.397 625.397 Td [(a)]TJ
+/F51 9.9626 Tf 174.207 629.519 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(variable)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 136.327 0 Td [(psb)]TJ
+/F59 9.9626 Tf 136.328 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 277.448 577.775 cm
+1 0 0 1 328.257 581.898 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 280.586 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 331.395 581.699 Td [(desc)]TJ
 ET
 q
-1 0 0 1 302.135 577.775 cm
+1 0 0 1 352.944 581.898 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 305.273 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 356.083 581.699 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -226.3 -31.88 Td [(n)]TJ
+/F51 9.9626 Tf -226.299 -30.965 Td [(n)]TJ
 0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(The)-250(number)-250(of)-250(columns)-250(of)-250(the)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 13.838 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-296(1.)-451(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.577 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.741 -11.955 Td [(rank-1)-250(array)111(.)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(The)-250(number)-250(of)-250(columns)-250(of)-250(the)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-297(1.)-450(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.578 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.742 -11.956 Td [(rank-1)-250(array)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(lb)]TJ
+/F51 9.9626 Tf -24.906 -19.009 Td [(lb)]TJ
 0 g 0 G
-/F54 9.9626 Tf 14.386 0 Td [(The)-237(lower)-238(bound)-237(for)-238(the)-237(column)-238(index)-237(range)-238(of)-237(the)-237(dense)-238(matrix)-237(to)-238(be)-237(allo-)]TJ 10.521 -11.955 Td [(cated.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-296(1.)-451(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.577 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.741 -11.956 Td [(rank-1)-250(array)111(.)]TJ
+/F54 9.9626 Tf 14.386 0 Td [(The)-237(lower)-238(bound)-237(for)-238(the)-237(column)-238(index)-237(range)-237(of)-238(the)-237(dense)-238(matrix)-237(to)-238(be)-237(allo-)]TJ 10.52 -11.955 Td [(cated.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-297(as:)-404(Integer)-297(scalar)74(,)-309(default)-297(1.)-450(It)-297(is)-297(not)-297(a)-297(valid)-297(ar)18(gument)-297(if)]TJ/F52 9.9626 Tf 295.578 0 Td [(x)]TJ/F54 9.9626 Tf 8.164 0 Td [(is)-297(a)]TJ -303.742 -11.955 Td [(rank-1)-250(array)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.917 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.906 -19.009 Td [(dupl)]TJ
 0 g 0 G
+/F54 9.9626 Tf 26.56 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.942 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.994 0 Td [(;)]TJ/F59 9.9626 Tf -316.314 -11.955 Td [(psb_dupl_err_)]TJ/F54 9.9626 Tf 70.485 0 Td [(has)-250(no)-250(ef)18(fect.)]TJ
 0 g 0 G
- 0 -19.926 Td [(x)]TJ
+/F51 9.9626 Tf -95.391 -19.009 Td [(bldmode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 45.937 0 Td [(Whether)-372(to)-372(keep)-371(track)-372(of)-372(matrix)-372(entries)-371(that)-372(do)-372(not)-372(belong)-371(to)-372(the)]TJ -21.031 -11.955 Td [(curr)18(ent)-250(pr)18(ocess.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(integer)-190(value)]TJ/F59 9.9626 Tf 128.288 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(,)]TJ/F59 9.9626 Tf 4.503 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ -331.544 -11.955 Td [(Default:)]TJ/F59 9.9626 Tf 38.515 0 Td [(psb_matbld_noremote_)]TJ/F54 9.9626 Tf 104.607 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -168.028 -19.627 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-273(as:)-357(a)-273(rank)-274(one)-273(or)-273(two)-274(array)-273(with)-274(the)-273(ALLOCA)74(T)74(ABLE)-273(attribute)]TJ 0 -11.956 Td [(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 g 0 G
+ 0 -19.009 Td [(x)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(The)-250(dense)-250(matrix)-250(to)-250(be)-250(allocated.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.943 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-273(as:)-357(a)-273(rank)-274(one)-273(or)-274(two)-273(array)-273(with)-274(the)-273(ALLOCA)74(T)74(ABLE)-273(attribute)]TJ 0 -11.955 Td [(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 86.634 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 227.755 292.844 cm
+1 0 0 1 278.564 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 230.893 292.645 Td [(T)]TJ
+/F59 9.9626 Tf 281.702 132.281 Td [(T)]TJ
 ET
 q
-1 0 0 1 236.751 292.844 cm
+1 0 0 1 287.56 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 239.889 292.645 Td [(vect)]TJ
+/F59 9.9626 Tf 290.699 132.281 Td [(vect)]TJ
 ET
 q
-1 0 0 1 261.438 292.844 cm
+1 0 0 1 312.247 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 264.576 292.645 Td [(type)]TJ
+/F59 9.9626 Tf 315.386 132.281 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(,)-250(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(,)-250(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -185.603 -31.881 Td [(info)]TJ
+ -18.728 -41.843 Td [(90)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+ET
+
+endstream
+endobj
+1497 0 obj
+<<
+/Length 925       
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(Using)]TJ/F59 9.9626 Tf 41.798 0 Td [(psb_matbld_remote_)]TJ/F54 9.9626 Tf 97.28 0 Td [(is)-314(likely)-315(to)-315(cau)1(se)-315(a)-315(r)8(untime)-314(over)18(head)-315(at)-314(as-)]TJ -126.625 -11.955 Td [(sembly)-250(time;)]TJ
 0 g 0 G
- 141.968 -122.505 Td [(89)]TJ
+ 141.968 -514.072 Td [(91)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1492 0 obj
+1505 0 obj
 <<
-/Length 6547      
+/Length 6336      
 >>
 stream
 0 g 0 G
@@ -18356,7 +18432,7 @@ BT
 /F51 11.9552 Tf 207.803 706.129 Td [(geins)-250(\227)-250(Dense)-250(matrix)-250(insertion)-250(routine)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,dupl,local]\051)]TJ
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_geins\050m,)-525(irw,)-525(val,)-525(x,)-525(desc_a,)-525(info)-525([,local]\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -20.57 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -18406,82 +18482,79 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -19.386 Td [(dupl)]TJ
-0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(How)-250(to)-250(handle)-250(duplicate)-250(coef)18(\002cients.)]TJ -1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-243(as:)-306(integer)74(,)-244(possible)-243(values:)]TJ/F59 9.9626 Tf 164.942 0 Td [(psb_dupl_ovwrt_)]TJ/F54 9.9626 Tf 78.455 0 Td [(,)]TJ/F59 9.9626 Tf 4.923 0 Td [(psb_dupl_add_)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -341.22 -19.387 Td [(local)]TJ
+/F51 9.9626 Tf -258.11 -19.386 Td [(local)]TJ
 0 g 0 G
-/F54 9.9626 Tf 26.56 0 Td [(Whether)-240(the)-240(entries)-241(in)-240(the)-240(index)-240(vector)]TJ/F59 9.9626 Tf 173.162 0 Td [(irw)]TJ/F54 9.9626 Tf 15.691 0 Td [(,)-242(ar)18(e)-240(alr)18(eady)-241(in)-240(local)-240(number)18(-)]TJ -190.507 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
+/F54 9.9626 Tf 26.56 0 Td [(Whether)-240(the)-240(entries)-241(in)-240(the)-240(index)-240(vector)]TJ/F59 9.9626 Tf 173.162 0 Td [(irw)]TJ/F54 9.9626 Tf 15.692 0 Td [(,)-242(ar)18(e)-240(alr)18(eady)-241(i)1(n)-241(local)-240(number)18(-)]TJ -190.508 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value;)-250(default:)]TJ/F59 9.9626 Tf 162.678 0 Td [(.false.)]TJ/F54 9.9626 Tf 36.613 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -224.197 -20.57 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.386 Td [(x)]TJ
+ 0 -19.387 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(output)-250(dense)-250(matrix.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(rank)-190(one)-190(or)-190(two)-190(array)-190(or)-190(an)-190(object)-190(of)-190(type)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(output)-250(dense)-250(matrix.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(rank)-190(one)-190(or)-190(two)-190(array)-190(or)-190(an)-190(object)-190(of)-190(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 242.569 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 434.498 144.435 cm
+1 0 0 1 434.498 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 437.636 144.236 Td [(T)]TJ
+/F59 9.9626 Tf 437.636 211.443 Td [(T)]TJ
 ET
 q
-1 0 0 1 443.494 144.435 cm
+1 0 0 1 443.494 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 446.633 144.236 Td [(vect)]TJ
+/F59 9.9626 Tf 446.633 211.443 Td [(vect)]TJ
 ET
 q
-1 0 0 1 468.182 144.435 cm
+1 0 0 1 468.182 211.642 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 471.32 144.236 Td [(type)]TJ
+/F59 9.9626 Tf 471.32 211.443 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(,)]TJ -316.63 -11.955 Td [(of)-250(type)-250(r)18(eal,)-250(complex)-250(or)-250(integer)74(.)]TJ
 0 g 0 G
- 141.968 -41.843 Td [(90)]TJ
+/F51 9.9626 Tf -24.906 -31.342 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 141.968 -29.888 Td [(92)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1496 0 obj
+1509 0 obj
 <<
-/Length 1054      
+/Length 539       
 >>
 stream
 0 g 0 G
 0 g 0 G
-0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(Notes)]TJ
 0 g 0 G
 /F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
  [-500(Dense)-250(vectors/matrices)-250(do)-250(not)-250(have)-250(an)-250(associated)-250(state;)]TJ
 0 g 0 G
- 0 -19.925 Td [(2.)]TJ
+ 0 -19.926 Td [(2.)]TJ
 0 g 0 G
  [-500(Duplicate)-326(entries)-326(ar)18(e)-325(either)-326(overwritten)-326(or)-326(added,)-345(ther)18(e)-325(is)-326(no)-326(pr)18(ovision)]TJ 12.453 -11.955 Td [(for)-250(raising)-250(an)-250(err)18(or)-250(condition.)]TJ
 0 g 0 G
- 141.968 -494.147 Td [(91)]TJ
+ 141.968 -563.885 Td [(93)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1506 0 obj
+1518 0 obj
 <<
-/Length 5014      
+/Length 6120      
 >>
 stream
 0 g 0 G
@@ -18626,15 +18699,23 @@ BT
 0 g 0 G
 /F51 9.9626 Tf -149.518 -31.881 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(On)-227(entry)-226(to)-227(this)-226(r)18(outine)-227(th)1(e)-227(descriptor)-226(must)-227(be)-226(in)-227(the)-226(assembled)-227(state,)-231(i.e.)]TJ/F59 9.9626 Tf 12.453 -11.956 Td [(psb_cdasb)]TJ/F54 9.9626 Tf 49.564 0 Td [(must)-250(alr)18(eady)-250(have)-250(been)-250(called.)]TJ
+0 g 0 G
+ -62.017 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(If)-431(the)]TJ/F59 9.9626 Tf 41.544 0 Td [(bldmode=psb_matbld_remote_)]TJ/F54 9.9626 Tf 140.287 0 Td [(value)-431(was)-432(speci\002ed)-431(at)-432(allocation)]TJ -169.378 -11.955 Td [(time,)-278(contributions)-272(de\002ned)-272(on)-273(the)-272(curr)18(ent)-272(pr)18(ocess)-272(but)-272(belonging)-273(to)-272(a)-272(r)18(e-)]TJ 0 -11.955 Td [(mote)-267(pr)18(ocess)-266(will)-267(be)-267(handled)-267(accor)18(dingly)111(.)-360(This)-267(is)-266(most)-267(likely)-267(to)-266(occur)-267(in)]TJ 0 -11.955 Td [(\002nite)-250(element)-250(applications,)-250(with)]TJ/F59 9.9626 Tf 144.277 0 Td [(dupl=psb_dupl_add_)]TJ/F54 9.9626 Tf 94.146 0 Td [(.)]TJ
 0 g 0 G
- 141.968 -214.162 Td [(92)]TJ
+ -96.455 -104.573 Td [(94)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1512 0 obj
+1526 0 obj
 <<
 /Length 3224      
 >>
@@ -18726,13 +18807,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -293.863 Td [(93)]TJ
+ 141.968 -293.863 Td [(95)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1516 0 obj
+1530 0 obj
 <<
 /Length 3218      
 >>
@@ -18778,13 +18859,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -226.117 Td [(94)]TJ
+ 141.968 -226.117 Td [(96)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1521 0 obj
+1535 0 obj
 <<
 /Length 6238      
 >>
@@ -18881,13 +18962,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.108 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 166.875 -29.888 Td [(95)]TJ
+/F54 9.9626 Tf 166.875 -29.888 Td [(97)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1525 0 obj
+1540 0 obj
 <<
 /Length 672       
 >>
@@ -18904,13 +18985,13 @@ BT
 0 g 0 G
  [-500(The)-416(default)]TJ/F59 9.9626 Tf 68.74 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e)-416(means)-417(that)-416(the)-417(negative)-416(output)-416(is)-417(the)-416(only)-416(action)]TJ -61.517 -11.955 Td [(taken)-250(on)-250(an)-250(out-of-range)-250(input.)]TJ
 0 g 0 G
- 141.968 -571.855 Td [(96)]TJ
+ 141.968 -571.855 Td [(98)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1532 0 obj
+1547 0 obj
 <<
 /Length 5458      
 >>
@@ -19003,15 +19084,15 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 141.968 -114.535 Td [(97)]TJ
+ 141.968 -114.535 Td [(99)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1538 0 obj
+1552 0 obj
 <<
-/Length 3168      
+/Length 3169      
 >>
 stream
 0 g 0 G
@@ -19087,15 +19168,15 @@ BT
 0 g 0 G
  [-500(This)-240(r)18(outine)-239(r)18(eturns)-240(a)]TJ/F59 9.9626 Tf 109.67 0 Td [(.true.)]TJ/F54 9.9626 Tf 33.769 0 Td [(value)-240(for)-239(an)-240(index)-239(that)-240(is)-239(strictly)-240(owned)-239(by)]TJ -130.986 -11.955 Td [(the)-250(curr)18(ent)-250(pr)18(ocess,)-250(excluding)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 141.968 -263.975 Td [(98)]TJ
+ 139.477 -263.975 Td [(100)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1544 0 obj
+1558 0 obj
 <<
-/Length 4794      
+/Length 4795      
 >>
 stream
 0 g 0 G
@@ -19179,13 +19260,13 @@ BT
 0 g 0 G
  [-500(This)-429(r)18(outine)-428(r)18(eturns)-429(a)]TJ/F59 9.9626 Tf 117.209 0 Td [(.true.)]TJ/F54 9.9626 Tf 35.654 0 Td [(value)-429(for)-428(those)-429(indices)-429(that)-429(ar)18(e)-428(strictly)]TJ -140.41 -11.955 Td [(owned)-250(by)-250(the)-250(curr)18(ent)-250(pr)18(ocess,)-250(excluding)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 141.968 -140.438 Td [(99)]TJ
+ 139.477 -140.438 Td [(101)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1550 0 obj
+1564 0 obj
 <<
 /Length 3147      
 >>
@@ -19263,444 +19344,333 @@ BT
 0 g 0 G
  [-500(This)-199(r)18(outine)-200(r)18(eturns)-199(a)]TJ/F59 9.9626 Tf 108.069 0 Td [(.true.)]TJ/F54 9.9626 Tf 33.369 0 Td [(value)-199(for)-200(an)-199(index)-199(that)-200(is)-199(local)-200(to)-199(the)-199(curr)18(ent)]TJ -128.984 -11.955 Td [(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices)]TJ
 0 g 0 G
- 139.476 -263.975 Td [(100)]TJ
+ 139.476 -263.975 Td [(102)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1556 0 obj
+1464 0 obj
 <<
-/Length 4785      
+/Type /ObjStm
+/N 100
+/First 976
+/Length 10636     
 >>
 stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.22)-1000(psb)]TJ
-ET
-q
-1 0 0 1 153.407 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 156.993 706.129 Td [(local)]TJ
-ET
-q
-1 0 0 1 183.605 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 187.192 706.129 Td [(index)-250(\227)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -87.297 -18.964 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(x)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(Integer)-250(indices.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in,)-250(inout)]TJ/F54 9.9626 Tf 38.735 0 Td [(.)]TJ -70.535 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(a)-250(rank)-250(one)-250(integer)-250(array)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ
-ET
-q
-1 0 0 1 120.408 545.895 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 123.397 545.696 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 498.074 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 497.875 Td [(desc)]TJ
-ET
-q
-1 0 0 1 333.945 498.074 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 337.084 497.875 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -19.925 Td [(iact)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(speci\002es)-250(action)-250(to)-250(be)-250(taken)-250(in)-250(case)-250(of)-250(range)-250(err)18(ors.)-310(Scope:)]TJ/F51 9.9626 Tf 253.796 0 Td [(global)]TJ/F54 9.9626 Tf -249.91 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(character)-190(variable)]TJ/F59 9.9626 Tf 143.341 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e,)]TJ/F59 9.9626 Tf 29.808 0 Td [(W)]TJ/F54 9.9626 Tf 5.231 0 Td [(arning)-190(or)]TJ/F59 9.9626 Tf 42.111 0 Td [(A)]TJ/F54 9.9626 Tf 5.231 0 Td [(bort,)-202(default)]TJ/F59 9.9626 Tf 55.839 0 Td [(I)]TJ/F54 9.9626 Tf 5.231 0 Td [(gnor)18(e.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -316.929 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(y)]TJ
-0 g 0 G
-/F54 9.9626 Tf 10.521 0 Td [(A)-270(logical)-270(mask)-270(which)-271(is)-270(tr)8(ue)-270(for)-270(all)-270(corr)18(esponding)-270(entries)-270(of)]TJ/F52 9.9626 Tf 268.484 0 Td [(x)]TJ/F54 9.9626 Tf 7.897 0 Td [(that)-270(ar)18(e)-270(local)]TJ -261.995 -11.955 Td [(to)-250(the)-250(curr)18(ent)-250(pr)18(ocess)-250(Scope:)]TJ/F51 9.9626 Tf 128.666 0 Td [(local)]TJ/F54 9.9626 Tf -128.666 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(rank)-250(one)-250(logical)-250(array)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.454 -19.926 Td [(1.)]TJ
-0 g 0 G
- [-500(This)-264(r)18(outine)-265(r)18(eturns)-264(a)]TJ/F59 9.9626 Tf 110.663 0 Td [(.true.)]TJ/F54 9.9626 Tf 34.017 0 Td [(value)-264(for)-265(those)-264(indices)-265(that)-264(ar)18(e)-265(local)-264(to)-265(the)]TJ -132.227 -11.955 Td [(curr)18(ent)-250(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices.)]TJ
-0 g 0 G
- 139.477 -140.438 Td [(101)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1562 0 obj
+1461 0 1457 157 1458 304 1459 449 1463 595 344 654 1460 712 1466 806 1468 924 1469 982
+1470 1040 1471 1098 1472 1156 1473 1214 1474 1272 1475 1330 1465 1388 1479 1482 1476 1630 1477 1773
+1481 1920 348 1979 1478 2037 1485 2131 1482 2279 1483 2424 1487 2571 352 2629 1488 2686 1484 2744
+1492 2838 1489 2986 1490 3129 1494 3273 356 3332 1491 3390 1496 3497 1498 3615 1499 3673 1495 3730
+1504 3824 1501 3972 1502 4118 1506 4262 360 4321 1503 4379 1508 4499 1510 4617 1511 4675 1512 4733
+1507 4791 1517 4872 1513 5029 1514 5170 1515 5313 1519 5457 364 5516 1520 5574 1521 5633 1516 5692
+1525 5799 1522 5947 1523 6090 1527 6237 368 6295 1524 6352 1529 6446 1531 6564 372 6623 1528 6681
+1534 6788 1532 6927 1536 7074 376 7132 1533 7189 1539 7296 1541 7414 1542 7473 1543 7532 1538 7591
+1546 7672 1544 7811 1548 7958 380 8016 1545 8073 1551 8180 1549 8319 1553 8466 384 8525 1554 8583
+1550 8642 1557 8749 1555 8888 1559 9035 388 9093 1560 9150 1556 9208 1563 9315 1561 9454 1565 9601
+% 1461 0 obj
 <<
-/Length 3647      
+/Type /Page
+/Contents 1462 0 R
+/Resources 1460 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1456 0 R
+/Annots [ 1457 0 R 1458 0 R 1459 0 R ]
 >>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.23)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(get)]TJ
-ET
-q
-1 0 0 1 225.126 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 228.712 706.129 Td [(boundary)-250(\227)-250(Extract)-250(list)-250(of)-250(boundary)-250(elements)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -78.007 -18.964 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(desc)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.896 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 360.068 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 363.206 577.576 Td [(desc)]TJ
-ET
-q
-1 0 0 1 384.755 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 387.893 577.576 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(bndel)]TJ
-0 g 0 G
-/F54 9.9626 Tf 31.541 0 Td [(The)-307(list)-307(of)-307(boundary)-307(elements)-307(on)-306(the)-307(calling)-307(pr)18(ocess,)-321(in)-307(local)-307(number)18(-)]TJ -6.635 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(a)-1(r)1(ray)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.906 -31.881 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
-0 g 0 G
- [-500(If)-219(ther)18(e)-220(ar)18(e)-219(no)-220(boundary)-219(elements)-219(\050i.e.,)-226(if)-219(the)-220(local)-219(part)-219(of)-220(the)-219(connectivity)]TJ 12.453 -11.956 Td [(graph)-391(is)-392(self-contained\051)-391(the)-392(output)-391(vector)-391(is)-392(set)-391(to)-391(the)-392(\223not)-391(allocated\224)]TJ 0 -11.955 Td [(state.)]TJ
-0 g 0 G
- -12.453 -19.925 Td [(2.)]TJ
-0 g 0 G
- [-500(Otherwise)-206(the)-205(size)-206(of)]TJ/F59 9.9626 Tf 105.891 0 Td [(bndel)]TJ/F54 9.9626 Tf 28.201 0 Td [(will)-206(be)-205(exactly)-206(equal)-206(to)-206(the)-205(number)-206(of)-206(bound-)]TJ -121.639 -11.955 Td [(ary)-250(elements.)]TJ
-0 g 0 G
- 139.477 -196.229 Td [(102)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1458 0 obj
+% 1457 0 obj
 <<
-/Type /ObjStm
-/N 100
-/First 970
-/Length 10596     
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 572.168 409.811 584.228]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1458 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 276.913 420.271 288.973]
+/A << /S /GoTo /D (spdata) >>
+>>
+% 1459 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [345.92 208.672 412.978 220.731]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1463 0 obj
+<<
+/D [1461 0 R /XYZ 149.705 753.953 null]
 >>
-stream
-344 0 1453 57 1460 151 1462 269 1463 328 1464 387 1465 446 1466 505 1467 564 1468 623
-1459 682 1472 763 1469 911 1470 1054 1474 1201 348 1259 1471 1316 1478 1410 1475 1558 1476 1703
-1480 1850 352 1909 1481 1967 1477 2026 1485 2120 1482 2268 1483 2413 1487 2556 356 2614 1484 2671
-1491 2778 1488 2926 1489 3072 1493 3214 360 3273 1490 3331 1495 3451 1497 3569 1498 3627 1499 3684
-1494 3742 1505 3823 1501 3980 1502 4121 1503 4264 1507 4408 364 4467 1504 4525 1511 4632 1508 4780
-1509 4923 1513 5070 368 5128 1510 5185 1515 5279 1517 5397 372 5456 1514 5514 1520 5621 1518 5760
-1522 5907 376 5965 1519 6022 1524 6129 1526 6247 1527 6306 1528 6365 1523 6424 1531 6505 1529 6644
-1533 6791 380 6849 1530 6906 1537 7013 1535 7152 1539 7299 384 7358 1540 7416 1536 7475 1543 7582
-1541 7721 1545 7868 388 7926 1546 7983 1542 8041 1549 8148 1547 8287 1551 8434 392 8493 1552 8551
-1548 8610 1555 8717 1553 8856 1557 9003 396 9061 1558 9118 1554 9176 1561 9283 1559 9422 1563 9567
 % 344 0 obj
 <<
-/D [1454 0 R /XYZ 99.895 716.092 null]
+/D [1461 0 R /XYZ 150.705 716.092 null]
 >>
-% 1453 0 obj
+% 1460 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1460 0 obj
+% 1466 0 obj
 <<
 /Type /Page
-/Contents 1461 0 R
-/Resources 1459 0 R
+/Contents 1467 0 R
+/Resources 1465 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
+/Parent 1456 0 R
 >>
-% 1462 0 obj
+% 1468 0 obj
 <<
-/D [1460 0 R /XYZ 149.705 753.953 null]
+/D [1466 0 R /XYZ 98.895 753.953 null]
 >>
-% 1463 0 obj
+% 1469 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 716.092 null]
+/D [1466 0 R /XYZ 99.895 701.929 null]
 >>
-% 1464 0 obj
+% 1470 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 687.379 null]
+/D [1466 0 R /XYZ 99.895 667.454 null]
 >>
-% 1465 0 obj
+% 1471 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 667.454 null]
+/D [1466 0 R /XYZ 99.895 647.529 null]
 >>
-% 1466 0 obj
+% 1472 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 623.618 null]
+/D [1466 0 R /XYZ 99.895 603.693 null]
 >>
-% 1467 0 obj
+% 1473 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 567.828 null]
+/D [1466 0 R /XYZ 99.895 547.902 null]
 >>
-% 1468 0 obj
+% 1474 0 obj
 <<
-/D [1460 0 R /XYZ 150.705 547.902 null]
+/D [1466 0 R /XYZ 99.895 527.977 null]
 >>
-% 1459 0 obj
+% 1475 0 obj
 <<
-/Font << /F54 586 0 R /F59 812 0 R >>
+/D [1466 0 R /XYZ 99.895 496.097 null]
+>>
+% 1465 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1472 0 obj
+% 1479 0 obj
 <<
 /Type /Page
-/Contents 1473 0 R
-/Resources 1471 0 R
+/Contents 1480 0 R
+/Resources 1478 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1469 0 R 1470 0 R ]
+/Parent 1456 0 R
+/Annots [ 1476 0 R 1477 0 R ]
 >>
-% 1469 0 obj
+% 1476 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 573.77 369.462 585.83]
+/Rect [342.753 573.77 420.271 585.83]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1470 0 obj
+% 1477 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 506.024 359.001 518.084]
+/Rect [342.753 506.024 409.811 518.084]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1474 0 obj
+% 1481 0 obj
 <<
-/D [1472 0 R /XYZ 98.895 753.953 null]
+/D [1479 0 R /XYZ 149.705 753.953 null]
 >>
 % 348 0 obj
 <<
-/D [1472 0 R /XYZ 99.895 716.092 null]
+/D [1479 0 R /XYZ 150.705 716.092 null]
 >>
-% 1471 0 obj
+% 1478 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1478 0 obj
+% 1485 0 obj
 <<
 /Type /Page
-/Contents 1479 0 R
-/Resources 1477 0 R
+/Contents 1486 0 R
+/Resources 1484 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1475 0 R 1476 0 R ]
+/Parent 1456 0 R
+/Annots [ 1482 0 R 1483 0 R ]
 >>
-% 1475 0 obj
+% 1482 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 559.823 420.271 571.882]
+/Rect [291.943 559.823 369.462 571.882]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1476 0 obj
+% 1483 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 492.077 409.811 504.136]
+/Rect [291.943 492.077 359.001 504.136]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1480 0 obj
+% 1487 0 obj
 <<
-/D [1478 0 R /XYZ 149.705 753.953 null]
+/D [1485 0 R /XYZ 98.895 753.953 null]
 >>
 % 352 0 obj
 <<
-/D [1478 0 R /XYZ 150.705 716.092 null]
+/D [1485 0 R /XYZ 99.895 716.092 null]
 >>
-% 1481 0 obj
+% 1488 0 obj
 <<
-/D [1478 0 R /XYZ 150.705 312.355 null]
+/D [1485 0 R /XYZ 99.895 312.355 null]
 >>
-% 1477 0 obj
+% 1484 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1485 0 obj
+% 1492 0 obj
 <<
 /Type /Page
-/Contents 1486 0 R
-/Resources 1484 0 R
+/Contents 1493 0 R
+/Resources 1491 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1482 0 R 1483 0 R ]
+/Parent 1456 0 R
+/Annots [ 1489 0 R 1490 0 R ]
 >>
-% 1482 0 obj
+% 1489 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [260.133 573.77 327.191 585.83]
+/Rect [310.942 577.893 378 589.953]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1483 0 obj
+% 1490 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [210.44 288.839 286.494 300.898]
+/Rect [261.249 128.475 337.303 140.535]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1487 0 obj
+% 1494 0 obj
 <<
-/D [1485 0 R /XYZ 98.895 753.953 null]
+/D [1492 0 R /XYZ 149.705 753.953 null]
 >>
 % 356 0 obj
 <<
-/D [1485 0 R /XYZ 99.895 716.092 null]
+/D [1492 0 R /XYZ 150.705 716.092 null]
 >>
-% 1484 0 obj
+% 1491 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1491 0 obj
+% 1496 0 obj
 <<
 /Type /Page
-/Contents 1492 0 R
-/Resources 1490 0 R
+/Contents 1497 0 R
+/Resources 1495 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1457 0 R
-/Annots [ 1488 0 R 1489 0 R ]
+/Parent 1500 0 R
 >>
-% 1488 0 obj
+% 1498 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 362.621 409.811 374.68]
+/D [1496 0 R /XYZ 98.895 753.953 null]
+>>
+% 1499 0 obj
+<<
+/D [1496 0 R /XYZ 99.895 632.19 null]
+>>
+% 1495 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1504 0 obj
+<<
+/Type /Page
+/Contents 1505 0 R
+/Resources 1503 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1500 0 R
+/Annots [ 1501 0 R 1502 0 R ]
+>>
+% 1501 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 362.621 409.811 374.68]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1489 0 obj
+% 1502 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [417.183 140.43 493.237 152.49]
+/Rect [417.183 207.637 493.237 219.697]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1493 0 obj
+% 1506 0 obj
 <<
-/D [1491 0 R /XYZ 149.705 753.953 null]
+/D [1504 0 R /XYZ 149.705 753.953 null]
 >>
 % 360 0 obj
 <<
-/D [1491 0 R /XYZ 150.705 716.092 null]
+/D [1504 0 R /XYZ 150.705 716.092 null]
 >>
-% 1490 0 obj
+% 1503 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1495 0 obj
+% 1508 0 obj
 <<
 /Type /Page
-/Contents 1496 0 R
-/Resources 1494 0 R
+/Contents 1509 0 R
+/Resources 1507 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
 >>
-% 1497 0 obj
+% 1510 0 obj
 <<
-/D [1495 0 R /XYZ 98.895 753.953 null]
+/D [1508 0 R /XYZ 98.895 753.953 null]
 >>
-% 1498 0 obj
+% 1511 0 obj
 <<
-/D [1495 0 R /XYZ 99.895 632.19 null]
+/D [1508 0 R /XYZ 99.895 701.929 null]
 >>
-% 1499 0 obj
+% 1512 0 obj
 <<
-/D [1495 0 R /XYZ 99.895 610.946 null]
+/D [1508 0 R /XYZ 99.895 680.684 null]
 >>
-% 1494 0 obj
+% 1507 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1505 0 obj
+% 1517 0 obj
 <<
 /Type /Page
-/Contents 1506 0 R
-/Resources 1504 0 R
+/Contents 1518 0 R
+/Resources 1516 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
-/Annots [ 1501 0 R 1502 0 R 1503 0 R ]
+/Annots [ 1513 0 R 1514 0 R 1515 0 R ]
 >>
-% 1501 0 obj
+% 1513 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19708,7 +19678,7 @@ stream
 /Rect [310.942 573.77 378 585.83]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1502 0 obj
+% 1514 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19716,7 +19686,7 @@ stream
 /Rect [322.33 482.114 398.384 494.174]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1503 0 obj
+% 1515 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19724,29 +19694,37 @@ stream
 /Rect [225.165 380.495 301.219 392.555]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1507 0 obj
+% 1519 0 obj
 <<
-/D [1505 0 R /XYZ 149.705 753.953 null]
+/D [1517 0 R /XYZ 149.705 753.953 null]
 >>
 % 364 0 obj
 <<
-/D [1505 0 R /XYZ 150.705 716.092 null]
+/D [1517 0 R /XYZ 150.705 716.092 null]
 >>
-% 1504 0 obj
+% 1520 0 obj
+<<
+/D [1517 0 R /XYZ 150.705 278.482 null]
+>>
+% 1521 0 obj
+<<
+/D [1517 0 R /XYZ 150.705 244.007 null]
+>>
+% 1516 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1511 0 obj
+% 1525 0 obj
 <<
 /Type /Page
-/Contents 1512 0 R
-/Resources 1510 0 R
+/Contents 1526 0 R
+/Resources 1524 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
-/Annots [ 1508 0 R 1509 0 R ]
+/Annots [ 1522 0 R 1523 0 R ]
 >>
-% 1508 0 obj
+% 1522 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19754,7 +19732,7 @@ stream
 /Rect [174.355 561.815 250.41 573.875]
 /A << /S /GoTo /D (vdata) >>
 >>
-% 1509 0 obj
+% 1523 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19762,50 +19740,50 @@ stream
 /Rect [260.133 482.114 327.191 494.174]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1513 0 obj
+% 1527 0 obj
 <<
-/D [1511 0 R /XYZ 98.895 753.953 null]
+/D [1525 0 R /XYZ 98.895 753.953 null]
 >>
 % 368 0 obj
 <<
-/D [1511 0 R /XYZ 99.895 716.092 null]
+/D [1525 0 R /XYZ 99.895 716.092 null]
 >>
-% 1510 0 obj
+% 1524 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1515 0 obj
+% 1529 0 obj
 <<
 /Type /Page
-/Contents 1516 0 R
-/Resources 1514 0 R
+/Contents 1530 0 R
+/Resources 1528 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1500 0 R
 >>
-% 1517 0 obj
+% 1531 0 obj
 <<
-/D [1515 0 R /XYZ 149.705 753.953 null]
+/D [1529 0 R /XYZ 149.705 753.953 null]
 >>
 % 372 0 obj
 <<
-/D [1515 0 R /XYZ 150.705 716.092 null]
+/D [1529 0 R /XYZ 150.705 716.092 null]
 >>
-% 1514 0 obj
+% 1528 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1520 0 obj
+% 1534 0 obj
 <<
 /Type /Page
-/Contents 1521 0 R
-/Resources 1519 0 R
+/Contents 1535 0 R
+/Resources 1533 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1500 0 R
-/Annots [ 1518 0 R ]
+/Parent 1537 0 R
+/Annots [ 1532 0 R ]
 >>
-% 1518 0 obj
+% 1532 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19813,54 +19791,54 @@ stream
 /Rect [291.943 483.894 359.001 495.954]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1522 0 obj
+% 1536 0 obj
 <<
-/D [1520 0 R /XYZ 98.895 753.953 null]
+/D [1534 0 R /XYZ 98.895 753.953 null]
 >>
 % 376 0 obj
 <<
-/D [1520 0 R /XYZ 99.895 716.092 null]
+/D [1534 0 R /XYZ 99.895 716.092 null]
 >>
-% 1519 0 obj
+% 1533 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1524 0 obj
+% 1539 0 obj
 <<
 /Type /Page
-/Contents 1525 0 R
-/Resources 1523 0 R
+/Contents 1540 0 R
+/Resources 1538 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1500 0 R
+/Parent 1537 0 R
 >>
-% 1526 0 obj
+% 1541 0 obj
 <<
-/D [1524 0 R /XYZ 149.705 753.953 null]
+/D [1539 0 R /XYZ 149.705 753.953 null]
 >>
-% 1527 0 obj
+% 1542 0 obj
 <<
-/D [1524 0 R /XYZ 150.705 716.092 null]
+/D [1539 0 R /XYZ 150.705 716.092 null]
 >>
-% 1528 0 obj
+% 1543 0 obj
 <<
-/D [1524 0 R /XYZ 150.705 687.379 null]
+/D [1539 0 R /XYZ 150.705 687.379 null]
 >>
-% 1523 0 obj
+% 1538 0 obj
 <<
 /Font << /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1531 0 obj
+% 1546 0 obj
 <<
 /Type /Page
-/Contents 1532 0 R
-/Resources 1530 0 R
+/Contents 1547 0 R
+/Resources 1545 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1529 0 R ]
+/Parent 1537 0 R
+/Annots [ 1544 0 R ]
 >>
-% 1529 0 obj
+% 1544 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19868,29 +19846,29 @@ stream
 /Rect [291.943 482.114 359.001 494.174]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1533 0 obj
+% 1548 0 obj
 <<
-/D [1531 0 R /XYZ 98.895 753.953 null]
+/D [1546 0 R /XYZ 98.895 753.953 null]
 >>
 % 380 0 obj
 <<
-/D [1531 0 R /XYZ 99.895 716.092 null]
+/D [1546 0 R /XYZ 99.895 716.092 null]
 >>
-% 1530 0 obj
+% 1545 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1537 0 obj
+% 1551 0 obj
 <<
 /Type /Page
-/Contents 1538 0 R
-/Resources 1536 0 R
+/Contents 1552 0 R
+/Resources 1550 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1535 0 R ]
+/Parent 1537 0 R
+/Annots [ 1549 0 R ]
 >>
-% 1535 0 obj
+% 1549 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19898,33 +19876,33 @@ stream
 /Rect [342.753 494.069 409.811 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1539 0 obj
+% 1553 0 obj
 <<
-/D [1537 0 R /XYZ 149.705 753.953 null]
+/D [1551 0 R /XYZ 149.705 753.953 null]
 >>
 % 384 0 obj
 <<
-/D [1537 0 R /XYZ 150.705 716.092 null]
+/D [1551 0 R /XYZ 150.705 716.092 null]
 >>
-% 1540 0 obj
+% 1554 0 obj
 <<
-/D [1537 0 R /XYZ 150.705 382.093 null]
+/D [1551 0 R /XYZ 150.705 382.093 null]
 >>
-% 1536 0 obj
+% 1550 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1543 0 obj
+% 1557 0 obj
 <<
 /Type /Page
-/Contents 1544 0 R
-/Resources 1542 0 R
+/Contents 1558 0 R
+/Resources 1556 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1541 0 R ]
+/Parent 1537 0 R
+/Annots [ 1555 0 R ]
 >>
-% 1541 0 obj
+% 1555 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -19932,141 +19910,73 @@ stream
 /Rect [291.943 494.069 359.001 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1545 0 obj
+% 1559 0 obj
 <<
-/D [1543 0 R /XYZ 98.895 753.953 null]
+/D [1557 0 R /XYZ 98.895 753.953 null]
 >>
 % 388 0 obj
 <<
-/D [1543 0 R /XYZ 99.895 716.092 null]
->>
-% 1546 0 obj
-<<
-/D [1543 0 R /XYZ 99.895 258.556 null]
->>
-% 1542 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1549 0 obj
-<<
-/Type /Page
-/Contents 1550 0 R
-/Resources 1548 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1547 0 R ]
->>
-% 1547 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 494.069 409.811 506.129]
-/A << /S /GoTo /D (descdata) >>
->>
-% 1551 0 obj
-<<
-/D [1549 0 R /XYZ 149.705 753.953 null]
+/D [1557 0 R /XYZ 99.895 716.092 null]
 >>
-% 392 0 obj
-<<
-/D [1549 0 R /XYZ 150.705 716.092 null]
->>
-% 1552 0 obj
+% 1560 0 obj
 <<
-/D [1549 0 R /XYZ 150.705 382.093 null]
+/D [1557 0 R /XYZ 99.895 258.556 null]
 >>
-% 1548 0 obj
+% 1556 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1555 0 obj
+% 1563 0 obj
 <<
 /Type /Page
-/Contents 1556 0 R
-/Resources 1554 0 R
+/Contents 1564 0 R
+/Resources 1562 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1553 0 R ]
->>
-% 1553 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 494.069 359.001 506.129]
-/A << /S /GoTo /D (descdata) >>
->>
-% 1557 0 obj
-<<
-/D [1555 0 R /XYZ 98.895 753.953 null]
->>
-% 396 0 obj
-<<
-/D [1555 0 R /XYZ 99.895 716.092 null]
->>
-% 1558 0 obj
-<<
-/D [1555 0 R /XYZ 99.895 258.556 null]
->>
-% 1554 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
+/Parent 1537 0 R
+/Annots [ 1561 0 R ]
 >>
 % 1561 0 obj
 <<
-/Type /Page
-/Contents 1562 0 R
-/Resources 1560 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1534 0 R
-/Annots [ 1559 0 R ]
->>
-% 1559 0 obj
-<<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 573.77 409.811 585.83]
+/Rect [342.753 494.069 409.811 506.129]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1563 0 obj
+% 1565 0 obj
 <<
-/D [1561 0 R /XYZ 149.705 753.953 null]
+/D [1563 0 R /XYZ 149.705 753.953 null]
 >>
 
 endstream
 endobj
-1570 0 obj
+1571 0 obj
 <<
-/Length 3458      
+/Length 4785      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(6.24)-1000(psb)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(6.22)-1000(psb)]TJ
 ET
 q
 1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(get)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(local)]TJ
 ET
 q
-1 0 0 1 174.316 706.328 cm
+1 0 0 1 183.605 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 177.903 706.129 Td [(overlap)-250(\227)-250(Extract)-250(list)-250(of)-250(overlap)-250(elements)]TJ
+/F51 11.9552 Tf 187.192 706.129 Td [(index)-250(\227)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -78.008 -18.964 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ
+/F59 9.9626 Tf -87.297 -18.964 Td [(call)-525(psb_local_index\050y,)-525(x,)-525(desc_a,)-525(info\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -20075,48 +19985,59 @@ BT
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(desc)]TJ
+ 0 -19.925 Td [(x)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.897 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(Integer)-250(indices.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in,)-250(inout)]TJ/F54 9.9626 Tf 38.735 0 Td [(.)]TJ -70.535 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(a)-250(rank)-250(one)-250(integer)-250(array)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -31.88 Td [(desc)]TJ
+ET
+q
+1 0 0 1 120.408 545.895 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 123.397 545.696 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ -8.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 577.775 cm
+1 0 0 1 309.258 498.074 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 497.875 Td [(desc)]TJ
 ET
 q
-1 0 0 1 333.945 577.775 cm
+1 0 0 1 333.945 498.074 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 337.084 497.875 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -258.11 -19.925 Td [(iact)]TJ
 0 g 0 G
+/F54 9.9626 Tf 21.021 0 Td [(speci\002es)-250(action)-250(to)-250(be)-250(taken)-250(in)-250(case)-250(of)-250(range)-250(err)18(ors.)-310(Scope:)]TJ/F51 9.9626 Tf 253.796 0 Td [(global)]TJ/F54 9.9626 Tf -249.91 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-190(as:)-280(a)-190(character)-190(variable)]TJ/F59 9.9626 Tf 143.341 0 Td [(I)]TJ/F54 9.9626 Tf 5.23 0 Td [(gnor)18(e,)]TJ/F59 9.9626 Tf 29.808 0 Td [(W)]TJ/F54 9.9626 Tf 5.231 0 Td [(arning)-190(or)]TJ/F59 9.9626 Tf 42.111 0 Td [(A)]TJ/F54 9.9626 Tf 5.231 0 Td [(bort,)-202(default)]TJ/F59 9.9626 Tf 55.839 0 Td [(I)]TJ/F54 9.9626 Tf 5.231 0 Td [(gnor)18(e.)]TJ
 0 g 0 G
- 0 -19.925 Td [(ovrel)]TJ
+/F51 9.9626 Tf -316.929 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.234 0 Td [(The)-250(list)-250(of)-250(overlap)-250(elements)-250(on)-250(the)-250(calling)-250(pr)18(ocess,)-250(in)-250(local)-250(numbering.)]TJ -3.327 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(array)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(info)]TJ
+ 0 -19.925 Td [(y)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 10.521 0 Td [(A)-270(logical)-270(mask)-270(which)-271(is)-270(tr)8(ue)-270(for)-270(all)-270(corr)18(esponding)-270(entries)-270(of)]TJ/F52 9.9626 Tf 268.484 0 Td [(x)]TJ/F54 9.9626 Tf 7.897 0 Td [(that)-270(ar)18(e)-270(local)]TJ -261.995 -11.955 Td [(to)-250(the)-250(curr)18(ent)-250(pr)18(ocess)-250(Scope:)]TJ/F51 9.9626 Tf 128.666 0 Td [(local)]TJ/F54 9.9626 Tf -128.666 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(scalar)-250(or)-250(rank)-250(one)-250(logical)-250(array)111(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
 0 g 0 G
- [-500(If)-287(ther)18(e)-287(ar)18(e)-287(no)-287(overlap)-287(elements)-287(the)-287(output)-287(vector)-287(is)-287(set)-287(to)-287(the)-287(\223not)-287(allo-)]TJ 12.453 -11.955 Td [(cated\224)-250(state.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ
 0 g 0 G
- -12.453 -19.926 Td [(2.)]TJ
+/F54 9.9626 Tf 12.454 -19.926 Td [(1.)]TJ
 0 g 0 G
- [-500(Otherwise)-194(the)-194(size)-195(of)]TJ/F59 9.9626 Tf 105.434 0 Td [(ovrel)]TJ/F54 9.9626 Tf 28.087 0 Td [(will)-194(be)-194(exactly)-195(equal)-194(to)-194(the)-194(number)-195(of)-194(overlap)]TJ -121.068 -11.955 Td [(elements.)]TJ
+ [-500(This)-264(r)18(outine)-265(r)18(eturns)-264(a)]TJ/F59 9.9626 Tf 110.663 0 Td [(.true.)]TJ/F54 9.9626 Tf 34.017 0 Td [(value)-264(for)-265(those)-264(indices)-265(that)-264(ar)18(e)-265(local)-264(to)-265(the)]TJ -132.227 -11.955 Td [(curr)18(ent)-250(pr)18(ocess,)-250(including)-250(the)-250(halo)-250(indices.)]TJ
 0 g 0 G
- 139.477 -220.139 Td [(103)]TJ
+ 139.477 -140.438 Td [(103)]TJ
 0 g 0 G
 ET
 
@@ -20124,75 +20045,237 @@ endstream
 endobj
 1578 0 obj
 <<
-/Length 5480      
+/Length 3647      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(6.25)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(6.23)-1000(psb)]TJ
 ET
 q
 1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 207.803 706.129 Td [(sp)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(get)]TJ
 ET
 q
-1 0 0 1 221.133 706.328 cm
+1 0 0 1 225.126 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 224.719 706.129 Td [(getrow)-250(\227)-250(Extract)-250(row\050s\051)-250(from)-250(a)-250(sparse)-250(matrix)]TJ
+/F51 11.9552 Tf 228.712 706.129 Td [(boundary)-250(\227)-250(Extract)-250(list)-250(of)-250(boundary)-250(elements)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -74.014 -19.204 Td [(call)-525(psb_sp_getrow\050row,)-525(a,)-525(nz,)-525(ia,)-525(ja,)-525(val,)-525(info,)-525(&)]TJ 73.225 -11.955 Td [(&)-525(append,)-525(nzin,)-525(lrw\051)]TJ
+/F59 9.9626 Tf -78.007 -18.964 Td [(call)-525(psb_get_boundary\050bndel,)-525(desc,)-525(info\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -73.225 -22.29 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -20.42 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -20.421 Td [(row)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
-/F54 9.9626 Tf 22.695 0 Td [(The)-250(\050\002rst\051)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 2.212 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.322 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -140.191 -20.42 Td [(a)]TJ
+ 0 -19.925 Td [(desc)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(fr)18(om)-250(which)-250(to)-250(get)-250(r)18(ows.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 24.896 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 495.976 cm
+1 0 0 1 360.068 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 495.777 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 577.576 Td [(desc)]TJ
 ET
 q
-1 0 0 1 395.216 495.976 cm
+1 0 0 1 384.755 577.775 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 398.354 495.777 Td [(type)]TJ
+/F59 9.9626 Tf 387.893 577.576 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -20.421 Td [(append)]TJ
+/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 39.292 0 Td [(Whether)-250(to)-250(append)-250(or)-250(overwrite)-250(existing)-250(output.)]TJ -14.386 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value)-250(default:)-310(false)-250(\050overwrite\051.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -20.421 Td [(nzin)]TJ
+ 0 -19.925 Td [(bndel)]TJ
 0 g 0 G
-/F54 9.9626 Tf 25.454 0 Td [(Input)-250(size)-250(to)-250(be)-250(appended)-250(to.)]TJ -0.548 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-304(as:)-417(an)-303(integer)]TJ/F61 10.3811 Tf 106.988 0 Td [(>)]TJ/F54 9.9626 Tf 11.949 0 Td [(0.)-471(When)-303(append)-303(is)-304(tr)8(ue,)-317(speci\002es)-303(how)-304(many)]TJ -118.937 -11.955 Td [(entries)-250(in)-250(the)-250(output)-250(vectors)-250(ar)18(e)-250(alr)18(eady)-250(\002lled.)]TJ
+/F54 9.9626 Tf 31.541 0 Td [(The)-307(list)-307(of)-307(boundary)-307(elements)-307(on)-306(the)-307(calling)-307(pr)18(ocess,)-321(in)-307(local)-307(number)18(-)]TJ -6.635 -11.955 Td [(ing.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(a)-1(r)1(ray)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -20.421 Td [(lrw)]TJ
+/F51 9.9626 Tf -24.906 -31.881 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(The)-250(last)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.323 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0,)-250(default:)]TJ/F52 9.9626 Tf 46.878 0 Td [(r)-17(o)-35(w)]TJ/F54 9.9626 Tf 16.134 0 Td [(.)]TJ
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.906 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(If)-219(ther)18(e)-220(ar)18(e)-219(no)-220(boundary)-219(elements)-219(\050i.e.,)-226(if)-219(the)-220(local)-219(part)-219(of)-220(the)-219(connectivity)]TJ 12.453 -11.956 Td [(graph)-391(is)-392(self-contained\051)-391(the)-392(output)-391(vector)-391(is)-392(set)-391(to)-391(the)-392(\223not)-391(allocated\224)]TJ 0 -11.955 Td [(state.)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(Otherwise)-206(the)-205(size)-206(of)]TJ/F59 9.9626 Tf 105.891 0 Td [(bndel)]TJ/F54 9.9626 Tf 28.201 0 Td [(will)-206(be)-205(exactly)-206(equal)-206(to)-206(the)-205(number)-206(of)-206(bound-)]TJ -121.639 -11.955 Td [(ary)-250(elements.)]TJ
+0 g 0 G
+ 139.477 -196.229 Td [(104)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1585 0 obj
+<<
+/Length 3458      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(6.24)-1000(psb)]TJ
+ET
+q
+1 0 0 1 153.407 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 156.993 706.129 Td [(get)]TJ
+ET
+q
+1 0 0 1 174.316 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 177.903 706.129 Td [(overlap)-250(\227)-250(Extract)-250(list)-250(of)-250(overlap)-250(elements)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -78.008 -18.964 Td [(call)-525(psb_get_overlap\050ovrel,)-525(desc,)-525(info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(desc)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.897 0 Td [(the)-250(communication)-250(descriptor)74(.)]TJ 0.01 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.922 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 309.258 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 312.397 577.576 Td [(desc)]TJ
+ET
+q
+1 0 0 1 333.945 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 337.084 577.576 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -21.918 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(ovrel)]TJ
+0 g 0 G
+/F54 9.9626 Tf 28.234 0 Td [(The)-250(list)-250(of)-250(overlap)-250(elements)-250(on)-250(the)-250(calling)-250(pr)18(ocess,)-250(in)-250(local)-250(numbering.)]TJ -3.327 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Speci\002ed)-234(as:)-302(a)-234(rank)-234(one)-234(array)-235(with)-234(the)-234(ALLOCA)74(T)74(ABLE)-234(attribute,)-237(of)-234(type)]TJ 0 -11.955 Td [(integer)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -31.88 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(If)-287(ther)18(e)-287(ar)18(e)-287(no)-287(overlap)-287(elements)-287(the)-287(output)-287(vector)-287(is)-287(set)-287(to)-287(the)-287(\223not)-287(allo-)]TJ 12.453 -11.955 Td [(cated\224)-250(state.)]TJ
+0 g 0 G
+ -12.453 -19.926 Td [(2.)]TJ
+0 g 0 G
+ [-500(Otherwise)-194(the)-194(size)-195(of)]TJ/F59 9.9626 Tf 105.434 0 Td [(ovrel)]TJ/F54 9.9626 Tf 28.087 0 Td [(will)-194(be)-194(exactly)-195(equal)-194(to)-194(the)-194(number)-195(of)-194(overlap)]TJ -121.068 -11.955 Td [(elements.)]TJ
+0 g 0 G
+ 139.477 -220.139 Td [(105)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1592 0 obj
+<<
+/Length 5480      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(6.25)-1000(psb)]TJ
+ET
+q
+1 0 0 1 204.216 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 207.803 706.129 Td [(sp)]TJ
+ET
+q
+1 0 0 1 221.133 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 224.719 706.129 Td [(getrow)-250(\227)-250(Extract)-250(row\050s\051)-250(from)-250(a)-250(sparse)-250(matrix)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -74.014 -19.204 Td [(call)-525(psb_sp_getrow\050row,)-525(a,)-525(nz,)-525(ia,)-525(ja,)-525(val,)-525(info,)-525(&)]TJ 73.225 -11.955 Td [(&)-525(append,)-525(nzin,)-525(lrw\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf -73.225 -22.29 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.42 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.421 Td [(row)]TJ
+0 g 0 G
+/F54 9.9626 Tf 22.695 0 Td [(The)-250(\050\002rst\051)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 2.212 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.322 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -140.191 -20.42 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(matrix)-250(fr)18(om)-250(which)-250(to)-250(get)-250(r)18(ows.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(local)]TJ/F54 9.9626 Tf -28.343 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf -23.999 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 495.976 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 495.777 Td [(Tspmat)]TJ
+ET
+q
+1 0 0 1 395.216 495.976 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 398.354 495.777 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -268.57 -20.421 Td [(append)]TJ
+0 g 0 G
+/F54 9.9626 Tf 39.292 0 Td [(Whether)-250(to)-250(append)-250(or)-250(overwrite)-250(existing)-250(output.)]TJ -14.386 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(logical)-250(value)-250(default:)-310(false)-250(\050overwrite\051.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(nzin)]TJ
+0 g 0 G
+/F54 9.9626 Tf 25.454 0 Td [(Input)-250(size)-250(to)-250(be)-250(appended)-250(to.)]TJ -0.548 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-304(as:)-417(an)-303(integer)]TJ/F61 10.3811 Tf 106.988 0 Td [(>)]TJ/F54 9.9626 Tf 11.949 0 Td [(0.)-471(When)-303(append)-303(is)-304(tr)8(ue,)-317(speci\002es)-303(how)-304(many)]TJ -118.937 -11.955 Td [(entries)-250(in)-250(the)-250(output)-250(vectors)-250(ar)18(e)-250(alr)18(eady)-250(\002lled.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -20.421 Td [(lrw)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(last)-250(r)18(ow)-250(to)-250(be)-250(extracted.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf -28.344 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf -24 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)]TJ/F61 10.3811 Tf 104.323 0 Td [(>)]TJ/F54 9.9626 Tf 10.962 0 Td [(0,)-250(default:)]TJ/F52 9.9626 Tf 46.878 0 Td [(r)-17(o)-35(w)]TJ/F54 9.9626 Tf 16.134 0 Td [(.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -203.203 -22.29 Td [(On)-250(Return)]TJ
 0 g 0 G
@@ -20205,13 +20288,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 13.28 0 Td [(the)-250(r)18(ow)-250(indices.)]TJ 11.626 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.344 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -49.923 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.293 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)-250(with)-250(the)]TJ/F59 9.9626 Tf 169.114 0 Td [(ALLOCATABLE)]TJ/F54 9.9626 Tf 60.025 0 Td [(attribute.)]TJ
 0 g 0 G
- -89.662 -29.887 Td [(104)]TJ
+ -89.662 -29.887 Td [(106)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1582 0 obj
+1596 0 obj
 <<
 /Length 3529      
 >>
@@ -20244,13 +20327,13 @@ BT
 0 g 0 G
  [-500(The)-218(r)18(ow)-218(and)-219(column)-218(indices)-218(ar)18(e)-218(r)18(eturned)-218(in)-219(the)-218(local)-218(numbering)-218(scheme;)]TJ 12.453 -11.955 Td [(if)-190(the)-190(global)-190(numbering)-190(is)-190(desir)18(ed,)-202(the)-190(user)-190(may)-190(employ)-190(the)]TJ/F59 9.9626 Tf 258.836 0 Td [(psb_loc_to_glob)]TJ/F54 9.9626 Tf -258.836 -11.955 Td [(r)18(outine)-250(on)-250(the)-250(output.)]TJ
 0 g 0 G
- 139.477 -290.909 Td [(105)]TJ
+ 139.477 -290.909 Td [(107)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1592 0 obj
+1606 0 obj
 <<
 /Length 3995      
 >>
@@ -20357,13 +20440,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.776 0 Td [(The)-322(memory)-322(occupation)-322(of)-323(the)-322(object)-322(speci\002ed)-322(in)-322(the)-322(calling)]TJ -47.87 -11.956 Td [(sequence,)-250(in)-250(bytes.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(Returned)-250(as:)-310(an)]TJ/F59 9.9626 Tf 71.82 0 Td [(integer\050psb_long_int_k_\051)]TJ/F54 9.9626 Tf 128.019 0 Td [(number)74(.)]TJ
 0 g 0 G
- -60.362 -242.057 Td [(106)]TJ
+ -60.362 -242.057 Td [(108)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1596 0 obj
+1610 0 obj
 <<
 /Length 5626      
 >>
@@ -20439,13 +20522,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 13.281 0 Td [(A)-250(vector)-250(of)-250(indices.)]TJ 11.626 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-238(integer)-237(array)-238(of)-237(rank)-238(1,)-240(whose)-238(entries)-237(ar)18(e)-238(moved)-237(to)-238(the)-238(same)-237(position)]TJ 0 -11.955 Td [(as)-250(the)-250(corr)18(esponding)-250(entries)-250(in)]TJ/F52 9.9626 Tf 138.215 0 Td [(x)]TJ/F54 9.9626 Tf 5.205 0 Td [(.)]TJ
 0 g 0 G
- -3.943 -44.517 Td [(107)]TJ
+ -3.943 -44.517 Td [(109)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1600 0 obj
+1615 0 obj
 <<
 /Length 7300      
 >>
@@ -20547,13 +20630,13 @@ BT
 0 g 0 G
  [-500(The)-244(mer)18(ge-sort)-244(algorithm)-243(is)-244(implemented)-244(to)-244(take)-244(advantage)-243(of)-244(sub-)]TJ 16.04 -11.955 Td [(sequences)-314(that)-313(may)-314(be)-314(alr)18(eady)-314(in)-313(the)-314(desir)18(ed)-314(or)18(dering)-314(prior)-313(to)-314(the)]TJ 0 -11.956 Td [(subr)18(outine)-390(call;)-459(this)-390(situation)-389(is)-390(r)18(elatively)-390(common)-389(when)-390(dealing)]TJ 0 -11.955 Td [(with)-335(gr)18(oups)-335(of)-335(indices)-335(of)-335(sparse)-336(matrix)-335(entries,)-356(thus)-335(mer)18(ge-sort)-335(is)]TJ 0 -11.955 Td [(the)-319(pr)18(eferr)18(ed)-318(choice)-319(when)-319(a)-318(sorting)-319(is)-319(needed)-318(by)-319(other)-319(r)18(outi)1(nes)-319(in)]TJ 0 -11.955 Td [(the)-250(library)111(.)]TJ
 0 g 0 G
- 117.559 -193.275 Td [(108)]TJ
+ 117.559 -193.275 Td [(110)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1613 0 obj
+1628 0 obj
 <<
 /Length 171       
 >>
@@ -20563,13 +20646,13 @@ stream
 BT
 /F51 14.3462 Tf 99.895 705.784 Td [(7)-1000(Parallel)-250(environment)-250(routines)]TJ
 0 g 0 G
-/F54 9.9626 Tf 164.384 -615.346 Td [(109)]TJ
+/F54 9.9626 Tf 164.384 -615.346 Td [(111)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1618 0 obj
+1632 0 obj
 <<
 /Length 5510      
 >>
@@ -20637,13 +20720,13 @@ BT
 0 g 0 G
  [-500(It)-194(is)-195(an)-194(err)18(or)-194(to)-194(specify)-195(a)-194(value)-194(for)]TJ/F52 9.9626 Tf 158.156 0 Td [(n)-80(p)]TJ/F54 9.9626 Tf 13.378 0 Td [(gr)18(eater)-194(than)-195(the)-194(number)-194(of)-194(pr)18(ocesses)]TJ -159.081 -11.955 Td [(available)-250(in)-250(the)-250(underlying)-250(base)-250(parallel)-250(envir)18(onment.)]TJ
 0 g 0 G
- 139.477 -84.647 Td [(110)]TJ
+ 139.477 -84.647 Td [(112)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1624 0 obj
+1638 0 obj
 <<
 /Length 4457      
 >>
@@ -20693,13 +20776,13 @@ BT
 0 g 0 G
  [-500(If)-349(the)-349(user)-350(has)-349(r)18(equested)-349(on)]TJ/F59 9.9626 Tf 142.217 0 Td [(psb_init)]TJ/F54 9.9626 Tf 45.321 0 Td [(a)-349(number)-349(of)-350(pr)18(ocesses)-349(less)-349(than)]TJ -175.085 -11.956 Td [(the)-321(total)-322(available)-321(in)-321(the)-322(parallel)-321(execution)-322(envir)18(onment,)-339(the)-321(r)18(emaining)]TJ 0 -11.955 Td [(pr)18(ocesses)-229(will)-228(have)-229(on)-229(r)18(eturn)]TJ/F52 9.9626 Tf 130.21 0 Td [(i)-47(a)-25(m)]TJ/F85 10.3811 Tf 18.678 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1;)-236(the)-229(on)1(ly)-229(call)-229(involving)]TJ/F59 9.9626 Tf 110.162 0 Td [(ctxt)]TJ/F54 9.9626 Tf 23.2 0 Td [(that)]TJ -301.53 -11.955 Td [(any)-250(such)-250(pr)18(ocess)-250(may)-250(execute)-250(is)-250(to)]TJ/F59 9.9626 Tf 155.296 0 Td [(psb_exit)]TJ/F54 9.9626 Tf 41.843 0 Td [(.)]TJ
 0 g 0 G
- -57.662 -174.311 Td [(111)]TJ
+ -57.662 -174.311 Td [(113)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1630 0 obj
+1644 0 obj
 <<
 /Length 4180      
 >>
@@ -20746,13 +20829,13 @@ BT
 0 g 0 G
  [-500(If)-289(the)-288(user)-288(whishes)-289(to)-288(use)-289(multiple)-288(communication)-289(contexts)-288(in)-289(the)-288(same)]TJ 12.454 -11.955 Td [(pr)18(ogram,)-401(or)-371(to)-371(enter)-371(and)-371(exit)-371(multiple)-371(times)-370(into)-371(the)-371(parallel)-371(envir)18(on-)]TJ 0 -11.956 Td [(ment,)-425(this)-389(r)18(outine)-390(may)-390(be)-390(called)-389(to)-390(selectively)-390(close)-390(the)-389(contexts)-390(with)]TJ/F59 9.9626 Tf 0 -11.955 Td [(close=.false.)]TJ/F54 9.9626 Tf 67.994 0 Td [(,)-202(while)-190(on)-190(the)-190(last)-190(call)-190(it)-190(should)-190(be)-190(called)-190(with)]TJ/F59 9.9626 Tf 196.919 0 Td [(close=.true.)]TJ/F54 9.9626 Tf -264.913 -11.955 Td [(to)-250(shutdown)-250(in)-250(a)-250(clean)-250(way)-250(the)-250(entir)18(e)-250(parallel)-250(envir)18(onment.)]TJ
 0 g 0 G
- 139.477 -212.169 Td [(112)]TJ
+ 139.477 -212.169 Td [(114)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1637 0 obj
+1651 0 obj
 <<
 /Length 2476      
 >>
@@ -20804,13 +20887,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(The)-372(MPI)-371(communicator)-372(associated)-371(with)-372(the)-372(PSBLAS)-371(virtual)]TJ -47.87 -11.955 Td [(parallel)-250(machine.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ/F51 11.9552 Tf -71.651 -33.873 Td [(Notes)]TJ/F54 9.9626 Tf 34.165 0 Td [(The)-230(subr)18(outine)-230(version)]TJ/F59 9.9626 Tf 103.913 0 Td [(psb_get_mpicomm)]TJ/F54 9.9626 Tf 80.748 0 Td [(is)-230(still)-230(available)-230(but)-230(is)-230(depr)18(e-)]TJ -218.826 -11.955 Td [(cated.)]TJ
 0 g 0 G
- 164.384 -319.766 Td [(113)]TJ
+ 164.384 -319.766 Td [(115)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1641 0 obj
+1656 0 obj
 <<
 /Length 3337      
 >>
@@ -20866,13 +20949,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(The)-250(MPI)-250(rank)-250(associated)-250(with)-250(the)-250(PSBLAS)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 224.291 0 Td [(i)-32(d)]TJ/F54 9.9626 Tf 8.195 0 Td [(.)]TJ -280.356 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ/F51 11.9552 Tf -71.651 -33.873 Td [(Notes)]TJ/F54 9.9626 Tf 35.734 0 Td [(The)-388(subr)18(outine)-387(version)]TJ/F59 9.9626 Tf 108.62 0 Td [(psb_get_rank)]TJ/F54 9.9626 Tf 66.626 0 Td [(is)-388(still)-387(available)-388(but)-387(is)-388(depr)18(e-)]TJ -210.98 -11.955 Td [(cated.)]TJ
 0 g 0 G
- 164.384 -275.93 Td [(114)]TJ
+ 164.384 -275.93 Td [(116)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1645 0 obj
+1660 0 obj
 <<
 /Length 1155      
 >>
@@ -20903,13 +20986,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 72.777 0 Td [(the)-250(elapsed)-250(time)-250(in)-250(seconds.)]TJ -47.87 -11.955 Td [(Returned)-250(as:)-310(a)]TJ/F59 9.9626 Tf 66.022 0 Td [(real\050psb_dpk_\051)]TJ/F54 9.9626 Tf 75.715 0 Td [(variable.)]TJ
 0 g 0 G
- -2.26 -491.123 Td [(115)]TJ
+ -2.26 -491.123 Td [(117)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1650 0 obj
+1664 0 obj
 <<
 /Length 1388      
 >>
@@ -20940,13 +21023,13 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
- 139.477 -455.258 Td [(116)]TJ
+ 139.477 -455.258 Td [(118)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1654 0 obj
+1668 0 obj
 <<
 /Length 1283      
 >>
@@ -20977,229 +21060,125 @@ BT
 0 g 0 G
 /F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
- 139.477 -467.213 Td [(117)]TJ
+ 139.477 -467.213 Td [(119)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1658 0 obj
+1567 0 obj
 <<
-/Length 4339      
+/Type /ObjStm
+/N 100
+/First 970
+/Length 9451      
 >>
 stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.9)-1000(psb)]TJ
-ET
-q
-1 0 0 1 198.238 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 201.825 706.129 Td [(bcast)-250(\227)-250(Broadcast)-250(data)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -51.12 -18.964 Td [(call)-525(psb_bcast\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-221(subr)18(outine)-222(implements)-221(a)-221(br)18(oadcast)-222(operation)-221(based)-221(on)-222(the)-221(underlying)]TJ -14.944 -11.955 Td [(communication)-250(library)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(the)-250(r)18(oot)-250(pr)18(ocess,)-250(the)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-344(a)-344(rank)-344(1)-344(or)-344(2)-344(array)111(,)-367(or)-344(a)-344(character)-344(or)-344(logical)-344(variable,)-367(which)-344(may)-344(be)]TJ 0 -11.955 Td [(a)-377(scalar)-377(or)-377(rank)-377(1)-377(array)111(.)-1067(T)90(ype,)-409(kind,)-409(rank)-377(and)-376(size)-377(must)-377(agr)18(ee)-377(on)-377(all)]TJ 0 -11.955 Td [(pr)18(ocesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Root)-250(pr)18(ocess)-250(holding)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(0)]TJ
-0 g 0 G
-/F51 9.9626 Tf -246.025 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(pr)18(ocesses)-250(other)-250(than)-250(r)18(oot,)-250(the)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-315(a)-314(rank)-315(1)-315(or)-314(2)-315(array)111(,)-331(or)-314(a)-315(character)-315(or)-314(logical)-315(scalar)74(.)-819(T)90(y)1(pe,)-331(kind,)-331(rank)]TJ 0 -11.955 Td [(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
-0 g 0 G
- 139.477 -170.326 Td [(118)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1662 0 obj
+392 0 1566 58 1562 117 1570 224 1568 363 1572 510 396 568 1573 625 1569 683 1577 790
+1575 929 1579 1074 400 1133 1580 1191 1581 1250 1576 1309 1584 1403 1582 1542 1586 1687 405 1745
+1587 1802 1588 1860 1583 1918 1591 2012 1589 2151 1593 2296 409 2355 1590 2413 1595 2534 1597 2652
+1598 2710 1599 2768 1600 2826 1594 2884 1605 3004 1601 3161 1602 3306 1603 3453 1607 3600 413 3659
+1604 3717 1609 3824 1611 3942 417 4000 1608 4057 1614 4164 1616 4282 1617 4341 1618 4400 1619 4459
+1620 4518 1621 4577 1622 4636 1623 4695 1624 4754 1625 4813 1613 4872 1627 4992 1629 5110 421 5168
+1626 5225 1631 5306 1633 5424 425 5483 1634 5541 1635 5600 1630 5659 1637 5792 1639 5910 429 5968
+1640 6025 1641 6082 1636 6138 1643 6271 1645 6389 433 6448 1646 6506 1647 6565 1648 6624 1642 6683
+1650 6816 1652 6934 437 6992 1649 7049 1655 7143 1657 7261 441 7320 1654 7378 1659 7498 1661 7616
+445 7674 1658 7731 1663 7825 1665 7943 449 8002 1662 8060 1667 8154 1669 8272 453 8330 1666 8387
+% 392 0 obj
 <<
-/Length 4974      
+/D [1563 0 R /XYZ 150.705 716.092 null]
 >>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(7.10)-1000(psb)]TJ
-ET
-q
-1 0 0 1 153.407 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 156.993 706.129 Td [(sum)-250(\227)-250(Global)-250(sum)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_sum\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-353(subr)18(outine)-353(implements)-354(a)-353(sum)-353(r)18(eduction)-353(operation)-353(based)-354(on)-353(the)-353(un-)]TJ -14.944 -11.955 Td [(derlying)-250(communication)-250(library)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(sum.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(to)-250(hold)-250(the)-250(\002nal)-250(sum,)-250(or)]TJ/F83 10.3811 Tf 143.744 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)-250(to)-250(make)-250(it)-250(available)-250(on)-250(all)-250(pr)18(ocesses.)]TJ -150.285 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.102 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(-1.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -254.344 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(sum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-250(a)-250(rank)-250(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
-0 g 0 G
- -12.453 -19.925 Td [(2.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.621 0 Td [(dat)]TJ/F54 9.9626 Tf 18.182 0 Td [(ar)18(gument)-250(may)-250(also)-250(be)-250(a)-250(long)-250(integer)-250(scalar)74(.)]TJ
-0 g 0 G
- 102.127 -108.558 Td [(119)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1668 0 obj
+% 1566 0 obj
 <<
-/Length 4935      
+/D [1563 0 R /XYZ 150.705 382.093 null]
 >>
-stream
-0 g 0 G
-0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.11)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(max)-250(\227)-250(Global)-250(maximum)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_max\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-354(subr)18(outine)-354(implements)-354(a)-354(maximum)-354(valuer)18(eduction)-354(operation)-354(based)]TJ -14.944 -11.955 Td [(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
-0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(maximum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.956 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-255(to)-255(hold)-255(the)-255(\002nal)-255(maximum,)-257(or)]TJ/F83 10.3811 Tf 170.502 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-255(to)-255(make)-255(it)-255(available)-255(on)-255(all)-255(pr)18(o-)]TJ -177.042 -11.955 Td [(cesses.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -254.343 -33.873 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(dat)]TJ
-0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(maximum)-250(operation.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.955 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
-0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.024 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
-0 g 0 G
- -12.454 -19.925 Td [(2.)]TJ
-0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.622 0 Td [(dat)]TJ/F54 9.9626 Tf 18.181 0 Td [(ar)18(gument)-250(may)-250(also)-250(be)-250(a)-250(long)-250(integer)-250(scalar)74(.)]TJ
-0 g 0 G
- 102.128 -108.558 Td [(120)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1566 0 obj
+% 1562 0 obj
 <<
-/Type /ObjStm
-/N 100
-/First 969
-/Length 9372      
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1570 0 obj
+<<
+/Type /Page
+/Contents 1571 0 R
+/Resources 1569 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1574 0 R
+/Annots [ 1568 0 R ]
+>>
+% 1568 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [291.943 494.069 359.001 506.129]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1572 0 obj
+<<
+/D [1570 0 R /XYZ 98.895 753.953 null]
+>>
+% 396 0 obj
+<<
+/D [1570 0 R /XYZ 99.895 716.092 null]
+>>
+% 1573 0 obj
+<<
+/D [1570 0 R /XYZ 99.895 258.556 null]
+>>
+% 1569 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1577 0 obj
+<<
+/Type /Page
+/Contents 1578 0 R
+/Resources 1576 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1574 0 R
+/Annots [ 1575 0 R ]
+>>
+% 1575 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 573.77 409.811 585.83]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1579 0 obj
+<<
+/D [1577 0 R /XYZ 149.705 753.953 null]
 >>
-stream
-400 0 1564 58 1565 117 1560 176 1569 270 1567 409 1571 554 405 612 1572 669 1573 727
-1568 785 1577 879 1575 1018 1579 1163 409 1222 1576 1280 1581 1401 1583 1519 1584 1577 1585 1635
-1586 1693 1580 1751 1591 1871 1587 2028 1588 2173 1589 2320 1593 2467 413 2526 1590 2584 1595 2691
-1597 2809 417 2867 1594 2924 1599 3031 1601 3149 1602 3208 1603 3267 1604 3326 1605 3385 1606 3444
-1607 3503 1608 3562 1609 3621 1610 3680 1598 3739 1612 3859 1614 3977 421 4035 1611 4092 1617 4173
-1619 4291 425 4350 1620 4408 1621 4467 1616 4526 1623 4659 1625 4777 429 4835 1626 4892 1627 4949
-1622 5005 1629 5138 1631 5256 433 5315 1632 5373 1633 5432 1634 5491 1628 5550 1636 5683 1638 5801
-437 5859 1635 5916 1640 6010 1642 6128 441 6187 1639 6245 1644 6365 1646 6483 445 6541 1643 6598
-1649 6692 1651 6810 449 6869 1648 6927 1653 7021 1655 7139 453 7197 1652 7254 1657 7348 1659 7466
-457 7525 1656 7583 1661 7730 1663 7848 461 7906 1664 7963 1665 8021 1660 8079 1667 8226 1669 8344
 % 400 0 obj
 <<
-/D [1561 0 R /XYZ 150.705 716.092 null]
+/D [1577 0 R /XYZ 150.705 716.092 null]
 >>
-% 1564 0 obj
+% 1580 0 obj
 <<
-/D [1561 0 R /XYZ 150.705 358.183 null]
+/D [1577 0 R /XYZ 150.705 358.183 null]
 >>
-% 1565 0 obj
+% 1581 0 obj
 <<
-/D [1561 0 R /XYZ 150.705 314.403 null]
+/D [1577 0 R /XYZ 150.705 314.403 null]
 >>
-% 1560 0 obj
+% 1576 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1569 0 obj
+% 1584 0 obj
 <<
 /Type /Page
-/Contents 1570 0 R
-/Resources 1568 0 R
+/Contents 1585 0 R
+/Resources 1583 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
-/Annots [ 1567 0 R ]
+/Annots [ 1582 0 R ]
 >>
-% 1567 0 obj
+% 1582 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -21207,37 +21186,37 @@ stream
 /Rect [291.943 573.77 359.001 585.83]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1571 0 obj
+% 1586 0 obj
 <<
-/D [1569 0 R /XYZ 98.895 753.953 null]
+/D [1584 0 R /XYZ 98.895 753.953 null]
 >>
 % 405 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 716.092 null]
+/D [1584 0 R /XYZ 99.895 716.092 null]
 >>
-% 1572 0 obj
+% 1587 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 370.138 null]
+/D [1584 0 R /XYZ 99.895 370.138 null]
 >>
-% 1573 0 obj
+% 1588 0 obj
 <<
-/D [1569 0 R /XYZ 99.895 338.313 null]
+/D [1584 0 R /XYZ 99.895 338.313 null]
 >>
-% 1568 0 obj
+% 1583 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1577 0 obj
+% 1591 0 obj
 <<
 /Type /Page
-/Contents 1578 0 R
-/Resources 1576 0 R
+/Contents 1592 0 R
+/Resources 1590 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
-/Annots [ 1575 0 R ]
+/Annots [ 1589 0 R ]
 >>
-% 1575 0 obj
+% 1589 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -21245,58 +21224,58 @@ stream
 /Rect [342.753 491.971 420.271 504.031]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1579 0 obj
+% 1593 0 obj
 <<
-/D [1577 0 R /XYZ 149.705 753.953 null]
+/D [1591 0 R /XYZ 149.705 753.953 null]
 >>
 % 409 0 obj
 <<
-/D [1577 0 R /XYZ 150.705 716.092 null]
+/D [1591 0 R /XYZ 150.705 716.092 null]
 >>
-% 1576 0 obj
+% 1590 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1581 0 obj
+% 1595 0 obj
 <<
 /Type /Page
-/Contents 1582 0 R
-/Resources 1580 0 R
+/Contents 1596 0 R
+/Resources 1594 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
 >>
-% 1583 0 obj
+% 1597 0 obj
 <<
-/D [1581 0 R /XYZ 98.895 753.953 null]
+/D [1595 0 R /XYZ 98.895 753.953 null]
 >>
-% 1584 0 obj
+% 1598 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 496.698 null]
+/D [1595 0 R /XYZ 99.895 496.698 null]
 >>
-% 1585 0 obj
+% 1599 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 438.313 null]
+/D [1595 0 R /XYZ 99.895 438.313 null]
 >>
-% 1586 0 obj
+% 1600 0 obj
 <<
-/D [1581 0 R /XYZ 99.895 418.388 null]
+/D [1595 0 R /XYZ 99.895 418.388 null]
 >>
-% 1580 0 obj
+% 1594 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1591 0 obj
+% 1605 0 obj
 <<
 /Type /Page
-/Contents 1592 0 R
-/Resources 1590 0 R
+/Contents 1606 0 R
+/Resources 1604 0 R
 /MediaBox [0 0 595.276 841.89]
 /Parent 1574 0 R
-/Annots [ 1587 0 R 1588 0 R 1589 0 R ]
+/Annots [ 1601 0 R 1602 0 R 1603 0 R ]
 >>
-% 1587 0 obj
+% 1601 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -21304,7 +21283,7 @@ stream
 /Rect [342.753 527.942 420.271 540.002]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1588 0 obj
+% 1602 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -21312,7 +21291,7 @@ stream
 /Rect [342.753 460.196 409.811 472.256]
 /A << /S /GoTo /D (descdata) >>
 >>
-% 1589 0 obj
+% 1603 0 obj
 <<
 /Type /Annot
 /Subtype /Link
@@ -21320,3006 +21299,3380 @@ stream
 /Rect [371.126 404.405 438.184 416.465]
 /A << /S /GoTo /D (precdata) >>
 >>
-% 1593 0 obj
+% 1607 0 obj
 <<
-/D [1591 0 R /XYZ 149.705 753.953 null]
+/D [1605 0 R /XYZ 149.705 753.953 null]
 >>
 % 413 0 obj
 <<
-/D [1591 0 R /XYZ 150.705 716.092 null]
+/D [1605 0 R /XYZ 150.705 716.092 null]
 >>
-% 1590 0 obj
+% 1604 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1595 0 obj
+% 1609 0 obj
 <<
 /Type /Page
-/Contents 1596 0 R
-/Resources 1594 0 R
+/Contents 1610 0 R
+/Resources 1608 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1574 0 R
+/Parent 1612 0 R
 >>
-% 1597 0 obj
+% 1611 0 obj
 <<
-/D [1595 0 R /XYZ 98.895 753.953 null]
+/D [1609 0 R /XYZ 98.895 753.953 null]
 >>
 % 417 0 obj
 <<
-/D [1595 0 R /XYZ 99.895 716.092 null]
+/D [1609 0 R /XYZ 99.895 716.092 null]
 >>
-% 1594 0 obj
+% 1608 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1599 0 obj
+% 1614 0 obj
 <<
 /Type /Page
-/Contents 1600 0 R
-/Resources 1598 0 R
+/Contents 1615 0 R
+/Resources 1613 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1574 0 R
+/Parent 1612 0 R
 >>
-% 1601 0 obj
+% 1616 0 obj
 <<
-/D [1599 0 R /XYZ 149.705 753.953 null]
+/D [1614 0 R /XYZ 149.705 753.953 null]
 >>
-% 1602 0 obj
+% 1617 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 701.929 null]
+/D [1614 0 R /XYZ 150.705 701.929 null]
 >>
-% 1603 0 obj
+% 1618 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 668.729 null]
+/D [1614 0 R /XYZ 150.705 668.729 null]
 >>
-% 1604 0 obj
+% 1619 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 624.894 null]
+/D [1614 0 R /XYZ 150.705 624.894 null]
 >>
-% 1605 0 obj
+% 1620 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 555.872 null]
+/D [1614 0 R /XYZ 150.705 555.872 null]
 >>
-% 1606 0 obj
+% 1621 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 500.082 null]
+/D [1614 0 R /XYZ 150.705 500.082 null]
 >>
-% 1607 0 obj
+% 1622 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 468.201 null]
+/D [1614 0 R /XYZ 150.705 468.201 null]
 >>
-% 1608 0 obj
+% 1623 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 425.023 null]
+/D [1614 0 R /XYZ 150.705 425.023 null]
 >>
-% 1609 0 obj
+% 1624 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 382.522 null]
+/D [1614 0 R /XYZ 150.705 382.522 null]
 >>
-% 1610 0 obj
+% 1625 0 obj
 <<
-/D [1599 0 R /XYZ 150.705 354.627 null]
+/D [1614 0 R /XYZ 150.705 354.627 null]
 >>
-% 1598 0 obj
+% 1613 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1612 0 obj
+% 1627 0 obj
 <<
 /Type /Page
-/Contents 1613 0 R
-/Resources 1611 0 R
+/Contents 1628 0 R
+/Resources 1626 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1614 0 obj
+% 1629 0 obj
 <<
-/D [1612 0 R /XYZ 98.895 753.953 null]
+/D [1627 0 R /XYZ 98.895 753.953 null]
 >>
 % 421 0 obj
 <<
-/D [1612 0 R /XYZ 99.895 716.092 null]
+/D [1627 0 R /XYZ 99.895 716.092 null]
 >>
-% 1611 0 obj
+% 1626 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1617 0 obj
+% 1631 0 obj
 <<
 /Type /Page
-/Contents 1618 0 R
-/Resources 1616 0 R
+/Contents 1632 0 R
+/Resources 1630 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1619 0 obj
+% 1633 0 obj
 <<
-/D [1617 0 R /XYZ 149.705 753.953 null]
+/D [1631 0 R /XYZ 149.705 753.953 null]
 >>
 % 425 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 716.092 null]
+/D [1631 0 R /XYZ 150.705 716.092 null]
 >>
-% 1620 0 obj
+% 1634 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 222.691 null]
+/D [1631 0 R /XYZ 150.705 222.691 null]
 >>
-% 1621 0 obj
+% 1635 0 obj
 <<
-/D [1617 0 R /XYZ 150.705 200.171 null]
+/D [1631 0 R /XYZ 150.705 200.171 null]
 >>
-% 1616 0 obj
+% 1630 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1623 0 obj
+% 1637 0 obj
 <<
 /Type /Page
-/Contents 1624 0 R
-/Resources 1622 0 R
+/Contents 1638 0 R
+/Resources 1636 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1625 0 obj
+% 1639 0 obj
 <<
-/D [1623 0 R /XYZ 98.895 753.953 null]
+/D [1637 0 R /XYZ 98.895 753.953 null]
 >>
 % 429 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 716.092 null]
+/D [1637 0 R /XYZ 99.895 716.092 null]
 >>
-% 1626 0 obj
+% 1640 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 348.22 null]
+/D [1637 0 R /XYZ 99.895 348.22 null]
 >>
-% 1627 0 obj
+% 1641 0 obj
 <<
-/D [1623 0 R /XYZ 99.895 313.8 null]
+/D [1637 0 R /XYZ 99.895 313.8 null]
 >>
-% 1622 0 obj
+% 1636 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1629 0 obj
+% 1643 0 obj
 <<
 /Type /Page
-/Contents 1630 0 R
-/Resources 1628 0 R
+/Contents 1644 0 R
+/Resources 1642 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1612 0 R
 >>
-% 1631 0 obj
+% 1645 0 obj
 <<
-/D [1629 0 R /XYZ 149.705 753.953 null]
+/D [1643 0 R /XYZ 149.705 753.953 null]
 >>
 % 433 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 716.092 null]
+/D [1643 0 R /XYZ 150.705 716.092 null]
 >>
-% 1632 0 obj
+% 1646 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 441.869 null]
+/D [1643 0 R /XYZ 150.705 441.869 null]
 >>
-% 1633 0 obj
+% 1647 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 395.439 null]
+/D [1643 0 R /XYZ 150.705 395.439 null]
 >>
-% 1634 0 obj
+% 1648 0 obj
 <<
-/D [1629 0 R /XYZ 150.705 363.559 null]
+/D [1643 0 R /XYZ 150.705 363.559 null]
 >>
-% 1628 0 obj
+% 1642 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1636 0 obj
+% 1650 0 obj
 <<
 /Type /Page
-/Contents 1637 0 R
-/Resources 1635 0 R
+/Contents 1651 0 R
+/Resources 1649 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1653 0 R
 >>
-% 1638 0 obj
+% 1652 0 obj
 <<
-/D [1636 0 R /XYZ 98.895 753.953 null]
+/D [1650 0 R /XYZ 98.895 753.953 null]
 >>
 % 437 0 obj
 <<
-/D [1636 0 R /XYZ 99.895 716.092 null]
+/D [1650 0 R /XYZ 99.895 716.092 null]
 >>
-% 1635 0 obj
+% 1649 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1640 0 obj
+% 1655 0 obj
 <<
 /Type /Page
-/Contents 1641 0 R
-/Resources 1639 0 R
+/Contents 1656 0 R
+/Resources 1654 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1615 0 R
+/Parent 1653 0 R
 >>
-% 1642 0 obj
+% 1657 0 obj
 <<
-/D [1640 0 R /XYZ 149.705 753.953 null]
+/D [1655 0 R /XYZ 149.705 753.953 null]
 >>
 % 441 0 obj
 <<
-/D [1640 0 R /XYZ 150.705 716.092 null]
+/D [1655 0 R /XYZ 150.705 716.092 null]
 >>
-% 1639 0 obj
+% 1654 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1644 0 obj
+% 1659 0 obj
 <<
 /Type /Page
-/Contents 1645 0 R
-/Resources 1643 0 R
+/Contents 1660 0 R
+/Resources 1658 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1646 0 obj
+% 1661 0 obj
 <<
-/D [1644 0 R /XYZ 98.895 753.953 null]
+/D [1659 0 R /XYZ 98.895 753.953 null]
 >>
 % 445 0 obj
 <<
-/D [1644 0 R /XYZ 99.895 716.092 null]
+/D [1659 0 R /XYZ 99.895 716.092 null]
 >>
-% 1643 0 obj
+% 1658 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1649 0 obj
+% 1663 0 obj
 <<
 /Type /Page
-/Contents 1650 0 R
-/Resources 1648 0 R
+/Contents 1664 0 R
+/Resources 1662 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1651 0 obj
+% 1665 0 obj
 <<
-/D [1649 0 R /XYZ 149.705 753.953 null]
+/D [1663 0 R /XYZ 149.705 753.953 null]
 >>
 % 449 0 obj
 <<
-/D [1649 0 R /XYZ 150.705 716.092 null]
+/D [1663 0 R /XYZ 150.705 716.092 null]
 >>
-% 1648 0 obj
+% 1662 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1653 0 obj
+% 1667 0 obj
 <<
 /Type /Page
-/Contents 1654 0 R
-/Resources 1652 0 R
+/Contents 1668 0 R
+/Resources 1666 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
+/Parent 1653 0 R
 >>
-% 1655 0 obj
+% 1669 0 obj
 <<
-/D [1653 0 R /XYZ 98.895 753.953 null]
+/D [1667 0 R /XYZ 98.895 753.953 null]
 >>
 % 453 0 obj
 <<
-/D [1653 0 R /XYZ 99.895 716.092 null]
+/D [1667 0 R /XYZ 99.895 716.092 null]
 >>
-% 1652 0 obj
+% 1666 0 obj
 <<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1657 0 obj
-<<
-/Type /Page
-/Contents 1658 0 R
-/Resources 1656 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
->>
-% 1659 0 obj
-<<
-/D [1657 0 R /XYZ 149.705 753.953 null]
->>
-% 457 0 obj
-<<
-/D [1657 0 R /XYZ 150.705 716.092 null]
->>
-% 1656 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1661 0 obj
-<<
-/Type /Page
-/Contents 1662 0 R
-/Resources 1660 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
->>
-% 1663 0 obj
-<<
-/D [1661 0 R /XYZ 98.895 753.953 null]
->>
-% 461 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 716.092 null]
->>
-% 1664 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 246.601 null]
->>
-% 1665 0 obj
-<<
-/D [1661 0 R /XYZ 99.895 212.127 null]
->>
-% 1660 0 obj
-<<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
->>
-% 1667 0 obj
-<<
-/Type /Page
-/Contents 1668 0 R
-/Resources 1666 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1647 0 R
->>
-% 1669 0 obj
-<<
-/D [1667 0 R /XYZ 149.705 753.953 null]
->>
 
 endstream
 endobj
-1675 0 obj
+1672 0 obj
 <<
-/Length 4938      
+/Length 5526      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(7.12)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.9)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 198.238 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(min)-250(\227)-250(Global)-250(minimum)]TJ
+/F51 11.9552 Tf 201.825 706.129 Td [(bcast)-250(\227)-250(Broadcast)-250(data)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_min\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-328(subr)18(outine)-327(implements)-328(a)-328(minimum)-327(value)-328(r)18(eduction)-328(operation)-327(based)]TJ -14.944 -11.955 Td [(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
+/F59 9.9626 Tf -51.12 -20.269 Td [(call)-525(psb_bcast\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-221(subr)18(outine)-222(implements)-221(a)-221(br)18(oadcast)-222(operation)-221(based)-221(on)-222(the)-221(underlying)]TJ -14.944 -11.955 Td [(communication)-250(library)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
+/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
+ 0 -22.619 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.956 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-222(the)-221(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.053 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.593 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.102 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(-1.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(the)-250(r)18(oot)-250(pr)18(ocess,)-250(the)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-344(a)-344(rank)-344(1)-344(or)-344(2)-344(array)111(,)-367(or)-344(a)-344(character)-344(or)-344(logical)-344(variable,)-367(which)-344(may)-344(be)]TJ 0 -11.955 Td [(a)-377(scalar)-377(or)-377(rank)-377(1)-377(array)111(.)-1067(T)90(ype,)-409(kind,)-409(rank)-377(and)-376(size)-377(must)-377(agr)18(ee)-377(on)-377(all)]TJ 0 -11.955 Td [(pr)18(ocesses.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -254.344 -33.873 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
 0 g 0 G
+/F54 9.9626 Tf 23.253 0 Td [(Root)-250(pr)18(ocess)-250(holding)-250(data)-250(to)-250(be)-250(br)18(oadcast.)]TJ 1.654 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(0)]TJ
 0 g 0 G
- 0 -19.925 Td [(dat)]TJ
+/F51 9.9626 Tf -246.025 -22.618 Td [(mode)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(minimum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.956 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.955 Td [(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
 0 g 0 G
- -12.453 -19.925 Td [(2.)]TJ
+/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.621 0 Td [(dat)]TJ/F54 9.9626 Tf 18.182 0 Td [(ar)18(gument)-250(may)-250(also)-250(be)-250(a)-250(long)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
- 102.127 -108.558 Td [(121)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(120)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1682 0 obj
+1677 0 obj
 <<
-/Length 5045      
+/Length 4820      
 >>
 stream
 0 g 0 G
 0 g 0 G
+0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.13)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(amx)-250(\227)-250(Global)-250(maximum)-250(absolute)-250(value)]TJ
+/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
 0 g 0 G
+/F54 9.9626 Tf 19.368 0 Td [(On)-250(all)-250(pr)18(ocesses)-250(other)-250(than)-250(r)18(oot,)-250(the)-250(br)18(oadcasted)-250(data.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-315(a)-314(rank)-315(1)-315(or)-314(2)-315(array)111(,)-331(or)-314(a)-315(character)-315(or)-314(logical)-315(scalar)74(.)-819(T)90(ype,)-330(kind,)-331(rank)]TJ 0 -11.955 Td [(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_amx\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-342(subr)18(outine)-342(implements)-342(a)-342(maximum)-341(absolute)-342(value)-342(r)18(eduction)-342(opera-)]TJ -14.944 -11.955 Td [(tion)-250(based)-250(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.956 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
 0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 417.212 cm
+0 0 318.804 27.895 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 434.448 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
+ [-525(psb_bcast\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(maximum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -254.343 -33.873 Td [(On)-250(Return)]TJ
+/F54 9.9626 Tf -48.393 -32.18 Td [(3.)]TJ
+0 g 0 G
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 306.627 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 356.739 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_bcast\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
+ [(psb_collective_start_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- 0 -19.925 Td [(dat)]TJ
+ [(bcast_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(maximum)-250(operation.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+ [-525(psb_bcast\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.024 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- -12.454 -19.926 Td [(2.)]TJ
+ [(bcast_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.622 0 Td [(dat)]TJ/F54 9.9626 Tf 18.181 0 Td [(ar)18(gument)-250(may)-250(also)-250(be)-250(a)-250(long)-250(integer)-250(scalar)74(.)]TJ
 0 g 0 G
- 102.128 -96.602 Td [(122)]TJ
+/F54 9.9626 Tf 103.537 -222.465 Td [(121)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1688 0 obj
+1686 0 obj
 <<
-/Length 5040      
+/Length 5829      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(7.14)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.10)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(amn)-250(\227)-250(Global)-250(minimum)-250(absolute)-250(value)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(sum)-250(\227)-250(Global)-250(sum)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_amn\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-360(subr)18(outine)-360(implements)-359(a)-360(minimum)-360(absolute)-360(value)-359(r)18(eduction)-360(opera-)]TJ -14.944 -11.955 Td [(tion)-250(based)-250(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
+/F59 9.9626 Tf -57.098 -19.198 Td [(call)-525(psb_sum\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -22.401 Td [(This)-353(subr)18(outine)-353(implements)-354(a)-353(sum)-353(r)18(eduction)-353(operation)-353(based)-354(on)-353(the)-353(un-)]TJ -14.944 -11.955 Td [(derlying)-250(communication)-250(library)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -19.925 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -20.288 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -20.409 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
+ 0 -20.408 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
+/F51 9.9626 Tf -24.907 -20.409 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(sum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
+/F51 9.9626 Tf -24.907 -20.408 Td [(root)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-222(the)-221(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.053 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.593 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.102 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 10.986 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.132 0 Td [(1,)-250(default)-250(-1.)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(to)-250(hold)-250(the)-250(\002nal)-250(sum,)-250(or)]TJ/F83 10.3811 Tf 143.744 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-250(to)-250(make)-250(it)-250(available)-250(on)-250(all)-250(pr)18(ocesses.)]TJ -150.284 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -254.344 -33.873 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -254.343 -20.409 Td [(mode)]TJ
 0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.956 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.955 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
- 0 -19.925 Td [(dat)]TJ
+/F51 9.9626 Tf -24.907 -32.364 Td [(request)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(minimum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-250(a)-250(rank)-250(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.956 Td [(be)-250(pr)18(esent.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F51 9.9626 Tf -24.907 -22.401 Td [(On)-250(Return)]TJ
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
- -12.453 -19.926 Td [(2.)]TJ
+ 0 -20.408 Td [(dat)]TJ
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.621 0 Td [(dat)]TJ/F54 9.9626 Tf 18.182 0 Td [(ar)18(gument)-250(may)-250(also)-250(be)-250(a)-250(long)-250(integer)-250(scalar)74(.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(sum)-250(operation.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
 0 g 0 G
- 102.127 -96.602 Td [(123)]TJ
+ 79.264 -29.887 Td [(122)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1694 0 obj
+1690 0 obj
 <<
-/Length 6029      
+/Length 4455      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.15)-1000(psb)]TJ
-ET
-q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(nrm2)-250(\227)-250(Global)-250(2-norm)-250(reduction)]TJ
+/F54 9.9626 Tf 124.802 706.129 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.956 Td [(or)-250(a)-250(rank)-250(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_nrm2\050ctxt,)-525(dat,)-525(root\051)]TJ/F54 9.9626 Tf 14.944 -20.207 Td [(This)-297(subr)18(outine)-296(implements)-297(a)-297(2-norm)-296(value)-297(r)18(eduction)-297(operation)-296(based)-297(on)]TJ -14.944 -11.955 Td [(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -18.556 Td [(T)90(ype:)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.241 Td [(On)-250(Entry)]TJ
+ -12.453 -19.926 Td [(2.)]TJ
 0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 441.123 cm
+0 0 318.804 27.895 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- 0 -19.241 Td [(ctxt)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 458.358 Td [(call)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+ [-525(psb_sum\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.241 Td [(dat)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-370(as:)-551(a)-371(r)18(eal)-370(variable,)-401(which)-370(may)-371(be)-370(a)-371(scalar)74(,)-400(or)-371(a)-370(rank)-371(1)-370(array)111(.)]TJ 0 -11.955 Td [(Kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.241 Td [(root)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
+/F54 9.9626 Tf -48.393 -32.179 Td [(3.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -254.343 -32.161 Td [(On)-250(Return)]TJ
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 330.537 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 380.649 Td [(call)]TJ
 0 g 0 G
- 0 -19.241 Td [(dat)]TJ
+ [-525(psb_sum\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(2-norm)-250(r)18(eduction.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(variable,)-250(which)-250(may)-250(be)-250(a)-250(scalar)74(,)-250(or)-250(a)-250(rank)-250(1)-250(array)111(.)]TJ 0 -11.955 Td [(Kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ/F51 11.9552 Tf -24.907 -20.207 Td [(Notes)]TJ
+ [(psb_collective_start_,&)]TJ 23.537 -10.958 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.453 -18.556 Td [(1.)]TJ
+ [(sum_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
- [-500(This)-345(r)18(eduction)-345(is)-346(appr)18(opriate)-345(to)-345(compute)-345(the)-346(r)18(esults)-345(of)-345(multiple)-345(\050local\051)]TJ 12.454 -11.955 Td [(NRM2)-250(operations)-250(at)-250(the)-250(same)-250(time.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
- -12.454 -19.241 Td [(2.)]TJ
+ [-525(psb_sum\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- [-500(Denoting)-249(by)]TJ/F52 9.9626 Tf 69.79 0 Td [(d)-40(a)-25(t)]TJ/F52 7.5716 Tf 13.536 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.23 1.96 Td [(the)-249(value)-249(of)-248(the)-249(variable)]TJ/F52 9.9626 Tf 108.808 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 15.973 0 Td [(on)-249(pr)18(ocess)]TJ/F52 9.9626 Tf 49.078 0 Td [(i)]TJ/F54 9.9626 Tf 2.963 0 Td [(,)-249(the)-249(output)]TJ/F52 9.9626 Tf 53.711 0 Td [(r)-17(e)-25(s)]TJ/F54 9.9626 Tf -306.635 -11.955 Td [(is)-250(equivalent)-250(to)-250(the)-250(computation)-250(of)]TJ/F52 9.9626 Tf 124.796 -23.756 Td [(r)-17(e)-25(s)]TJ/F85 10.3811 Tf 15.061 0 Td [(=)]TJ/F1 9.9626 Tf 11.086 10.922 Td [(r)]TJ
-ET
-q
-1 0 0 1 336.642 198.334 cm
-[]0 d 0 J 0.389 w 0 0 m 30.512 0 l S
-Q
-BT
-/F96 13.9477 Tf 336.766 185.146 Td [(\345)]TJ/F52 7.5716 Tf 4.245 -8.765 Td [(i)]TJ/F52 9.9626 Tf 8.365 10.837 Td [(d)-40(a)-25(t)]TJ/F54 7.5716 Tf 13.494 3.473 Td [(2)]TJ/F52 7.5716 Tf 0.042 -7.027 Td [(i)]TJ/F54 9.9626 Tf 4.242 3.554 Td [(,)]TJ -191.543 -29.095 Td [(with)-250(car)18(e)-250(taken)-250(to)-250(avoid)-250(unnecessary)-250(over\003ow)92(.)]TJ
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- -12.453 -19.241 Td [(3.)]TJ
+ [(sum_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- [-500(The)]TJ/F59 9.9626 Tf 31.024 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.155 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
- 139.477 -36.489 Td [(124)]TJ
+/F54 9.9626 Tf 103.537 -246.376 Td [(123)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1702 0 obj
+1697 0 obj
 <<
-/Length 5349      
+/Length 5548      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(7.16)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.11)-1000(psb)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(snd)-250(\227)-250(Send)-250(data)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(max)-250(\227)-250(Global)-250(maximum)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_snd\050ctxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-250(subr)18(outine)-250(sends)-250(a)-250(packet)-250(of)-250(data)-250(to)-250(a)-250(destination.)]TJ
+/F59 9.9626 Tf -57.098 -20.269 Td [(call)-525(psb_max\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-354(subr)18(outine)-354(implements)-354(a)-354(maximum)-354(valuer)18(eduction)-354(operation)-354(based)]TJ -14.944 -11.955 Td [(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -14.944 -19.925 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous:)-310(see)-250(usage)-250(notes.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
+ 0 -22.619 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.368 0 Td [(The)-250(data)-250(to)-250(be)-250(sent.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-220(a)-220(rank)-219(1)-220(or)-220(2)-220(array)111(,)-226(or)-220(a)-219(character)-220(or)-220(logical)-220(scalar)74(.)-520(T)90(ype,)-225(kind)-220(and)-220(rank)]TJ 0 -11.956 Td [(must)-215(agr)18(ee)-216(on)-215(sender)-215(and)-216(r)18(eceiver)-215(pr)18(ocess;)-227(if)]TJ/F52 9.9626 Tf 197.687 0 Td [(m)]TJ/F54 9.9626 Tf 10.021 0 Td [(is)-215(not)-216(speci\002ed,)-222(size)-215(must)]TJ -207.708 -11.955 Td [(agr)18(ee)-250(as)-250(well.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(maximum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.955 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(dst)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
 0 g 0 G
-/F54 9.9626 Tf 18.81 0 Td [(Destination)-250(pr)18(ocess.)]TJ 6.097 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(d)-25(s)-25(t)]TJ/F61 10.3811 Tf 15.689 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.503 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-255(to)-255(hold)-255(the)-255(\002nal)-255(maximum,)-257(or)]TJ/F83 10.3811 Tf 170.502 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-255(to)-255(make)-255(it)-255(available)-255(on)-255(all)-255(pr)18(o-)]TJ -177.042 -11.955 Td [(cesses.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -241.89 -31.88 Td [(m)]TJ
+/F51 9.9626 Tf -254.343 -34.574 Td [(mode)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.838 0 Td [(Number)-250(of)-250(r)18(ows.)]TJ 11.069 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf 40.946 0 Td [(.)]TJ -68.034 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(m)]TJ/F61 10.3811 Tf 10.767 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(.)]TJ -235.542 -11.955 Td [(When)]TJ/F52 9.9626 Tf 29.859 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 16.898 0 Td [(is)-342(a)-341(rank)-342(2)-341(array)111(,)-365(speci\002es)-342(the)-341(number)-342(of)-341(r)18(ows)-342(to)-342(be)-341(sent)-342(in-)]TJ -46.757 -11.955 Td [(dependently)-341(of)-340(the)-341(leading)-341(dimension)]TJ/F52 9.9626 Tf 175.121 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(;)-386(must)-341(have)-340(the)-341(same)]TJ -222.236 -11.955 Td [(value)-250(on)-250(sending)-250(and)-250(r)18(eceiving)-250(pr)18(ocesses.)]TJ
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
 0 g 0 G
-/F51 11.9552 Tf 0 -21.918 Td [(Notes)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
- [-500(This)-292(subr)18(outine)-291(implies)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.453 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(destination)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 158.309 0 Td [(d)-25(s)-25(t)]TJ/F54 9.9626 Tf 12.797 0 Td [(.)]TJ
 0 g 0 G
- -31.629 -104.573 Td [(125)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(124)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1707 0 obj
+1701 0 obj
 <<
-/Length 5358      
+/Length 4718      
 >>
 stream
 0 g 0 G
 0 g 0 G
+0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(7.17)-1000(psb)]TJ
+/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(maximum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.955 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+0 g 0 G
+ -12.453 -19.926 Td [(2.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 204.216 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+1 0 0 1 124.802 429.167 cm
+0 0 318.804 27.895 re f
 Q
-BT
-/F51 11.9552 Tf 207.803 706.129 Td [(rcv)-250(\227)-250(Receive)-250(data)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_rcv\050ctxt,)-525(dat,)-525(src,)-525(m\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-250(subr)18(outine)-250(r)18(eceives)-250(a)-250(packet)-250(of)-250(data)-250(to)-250(a)-250(destination.)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F51 9.9626 Tf -14.944 -19.925 Td [(T)90(ype:)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 446.403 Td [(call)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous:)-310(see)-250(usage)-250(notes.)]TJ
+ [-525(psb_max\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
 0 g 0 G
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- 0 -19.926 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+/F54 9.9626 Tf -48.393 -32.179 Td [(3.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(src)]TJ
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.956 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 318.582 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 17.703 0 Td [(Sour)18(ce)-250(pr)18(ocess.)]TJ 7.204 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-15(r)-17(c)]TJ/F61 10.3811 Tf 15.14 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 368.694 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -241.342 -31.881 Td [(m)]TJ
+ [-525(psb_max\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 13.838 0 Td [(Number)-250(of)-250(r)18(ows.)]TJ 11.069 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf 40.946 0 Td [(.)]TJ -68.034 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(m)]TJ/F61 10.3811 Tf 10.767 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(.)]TJ -235.542 -11.956 Td [(When)]TJ/F52 9.9626 Tf 29.859 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 16.898 0 Td [(is)-342(a)-341(rank)-342(2)-341(array)111(,)-365(speci\002es)-342(the)-341(number)-342(of)-341(r)18(ows)-342(to)-342(be)-341(sent)-342(in-)]TJ -46.757 -11.955 Td [(dependently)-341(of)-340(the)-341(leading)-341(dimension)]TJ/F52 9.9626 Tf 175.121 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(;)-386(must)-341(have)-340(the)-341(same)]TJ -222.236 -11.955 Td [(value)-250(on)-250(sending)-250(and)-250(r)18(eceiving)-250(pr)18(ocesses.)]TJ
+ [(psb_collective_start_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
+ [(max_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.958 Td [(call)]TJ
 0 g 0 G
- 0 -19.925 Td [(dat)]TJ
+ [-525(psb_max\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.367 0 Td [(The)-250(data)-250(to)-250(be)-250(r)18(eceived.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-220(a)-220(rank)-219(1)-220(or)-220(2)-220(array)111(,)-226(or)-220(a)-219(character)-220(or)-220(logical)-220(scalar)74(.)-520(T)90(ype,)-225(kind)-220(and)-220(rank)]TJ 0 -11.955 Td [(must)-215(agr)18(ee)-216(on)-215(sender)-215(and)-216(r)18(eceiver)-215(pr)18(ocess;)-227(if)]TJ/F52 9.9626 Tf 197.687 0 Td [(m)]TJ/F54 9.9626 Tf 10.021 0 Td [(is)-215(not)-216(speci\002ed,)-222(size)-215(must)]TJ -207.708 -11.955 Td [(agr)18(ee)-250(as)-250(well.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
+ [(max_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- [-500(This)-292(subr)18(outine)-292(impli)1(es)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.454 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(sour)18(ce)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 137.538 0 Td [(s)-15(r)-17(c)]TJ/F54 9.9626 Tf 12.248 0 Td [(.)]TJ
 0 g 0 G
- -10.309 -104.573 Td [(126)]TJ
+/F54 9.9626 Tf 103.537 -234.421 Td [(125)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1714 0 obj
+1708 0 obj
 <<
-/Length 6229      
+/Length 5813      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 99.895 705.784 Td [(8)-1000(Error)-250(handling)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-382(PSBLAS)-382(library)-381(err)18(or)-382(handling)-382(policy)-382(has)-382(been)-382(completely)-381(r)18(ewritten)-382(in)]TJ 0 -11.955 Td [(version)-359(2.0.)-638(The)-359(idea)-359(behind)-360(the)-359(design)-359(of)-359(this)-360(new)-359(err)18(or)-359(handling)-359(strategy)]TJ 0 -11.955 Td [(is)-303(to)-303(keep)-303(err)18(or)-303(messages)-303(on)-303(a)-303(stack)-303(allowing)-303(the)-303(user)-303(to)-303(trace)-303(back)-303(up)-303(to)-303(the)]TJ 0 -11.955 Td [(point)-317(wher)18(e)-318(the)-317(\002rst)-318(e)1(rr)18(or)-318(message)-317(has)-318(been)-317(generated.)-512(Every)-317(r)18(outine)-318(in)-317(the)]TJ 0 -11.956 Td [(PSBLAS-2.0)-336(library)-336(has,)-358(as)-336(last)-337(non-optional)-336(ar)18(gument,)-358(an)-336(integer)]TJ/F59 9.9626 Tf 298.679 0 Td [(info)]TJ/F54 9.9626 Tf 24.271 0 Td [(vari-)]TJ -322.95 -11.955 Td [(able;)-364(whenever)74(,)-344(inside)-326(the)-326(r)18(outine,)-345(an)-326(err)18(or)-325(is)-326(detected,)-345(this)-326(variable)-326(is)-325(set)-326(to)]TJ 0 -11.955 Td [(a)-384(value)-384(corr)18(esponding)-384(to)-384(a)-384(speci\002c)-384(err)18(or)-384(code.)-711(Then)-384(this)-384(err)18(or)-384(code)-384(is)-384(also)]TJ 0 -11.955 Td [(pushed)-274(on)-273(the)-274(err)18(or)-274(stack)-274(and)-273(then)-274(either)-274(contr)18(ol)-274(is)-273(r)18(eturned)-274(to)-274(the)-273(caller)-274(r)18(ou-)]TJ 0 -11.955 Td [(tine)-342(or)-342(the)-342(execution)-343(is)-342(aborted,)-365(depending)-342(on)-342(the)-342(users)-342(choice.)-587(At)-342(the)-342(time)]TJ 0 -11.955 Td [(when)-243(the)-242(execution)-243(is)-242(aborted,)-244(an)-243(err)18(or)-242(message)-243(is)-243(printed)-242(on)-243(standar)18(d)-242(output)]TJ 0 -11.956 Td [(with)-257(a)-256(level)-257(of)-256(verbosity)-257(than)-256(can)-257(be)-257(chosen)-256(by)-257(the)-256(user)74(.)-330(If)-257(the)-256(execution)-257(is)-256(not)]TJ 0 -11.955 Td [(aborted,)-259(then,)-259(the)-257(caller)-258(r)18(ou)1(tine)-258(checks)-257(the)-257(value)-257(r)18(eturned)-258(in)-257(the)]TJ/F59 9.9626 Tf 284.621 0 Td [(info)]TJ/F54 9.9626 Tf 23.485 0 Td [(variable)]TJ -308.106 -11.955 Td [(and,)-290(if)-282(not)-282(zer)18(o,)-291(an)-282(err)18(or)-282(condition)-282(is)-282(raised.)-407(This)-282(pr)18(ocess)-282(continues)-282(on)-282(all)-282(the)]TJ 0 -11.955 Td [(levels)-203(of)-203(nested)-203(calls)-203(until)-203(the)-203(level)-203(wher)18(e)-203(the)-202(user)-203(decides)-203(to)-203(abort)-203(the)-203(pr)18(ogram)]TJ 0 -11.955 Td [(execution.)]TJ 14.944 -11.955 Td [(Figur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
- [-286(5)]TJ
-0 g 0 G
- [-285(shows)-286(the)-286(layout)-285(of)-286(a)-285(generic)]TJ/F59 9.9626 Tf 172.065 0 Td [(psb_foo)]TJ/F54 9.9626 Tf 39.458 0 Td [(r)18(outine)-286(with)-285(r)18(espect)-286(to)-285(the)]TJ -226.467 -11.956 Td [(PSBLAS-2.0)-258(err)18(or)-259(handling)-258(policy)111(.)-335(It)-258(is)-258(possible)-259(to)-258(see)-258(how)92(,)-261(whenever)-258(an)-258(err)18(or)]TJ 0 -11.955 Td [(condition)-298(is)-299(detected,)-310(the)]TJ/F59 9.9626 Tf 114.88 0 Td [(info)]TJ/F54 9.9626 Tf 23.893 0 Td [(variable)-298(is)-299(se)1(t)-299(to)-298(the)-298(corr)18(esponding)-299(err)18(or)-298(code)]TJ -138.773 -11.955 Td [(which)-309(is,)-324(then,)-325(pushe)1(d)-310(on)-309(top)-309(of)-310(the)-309(stack)-309(by)-309(means)-310(of)-309(the)]TJ/F59 9.9626 Tf 265.277 0 Td [(psb_errpush)]TJ/F54 9.9626 Tf 57.534 0 Td [(.)-488(An)]TJ -322.811 -11.955 Td [(err)18(or)-325(condition)-326(may)-325(be)-326(dir)18(ectly)-325(detected)-325(inside)-326(a)-325(r)18(outine)-325(or)-326(indir)18(ectly)-325(check-)]TJ 0 -11.955 Td [(ing)-331(the)-331(err)18(or)-331(code)-331(r)18(eturned)-331(r)18(eturned)-331(by)-331(a)-331(called)-331(r)18(outine.)-553(Whenever)-331(an)-331(err)18(or)]TJ 0 -11.956 Td [(is)-254(e)1(ncounter)18(ed,)-255(after)-253(it)-254(has)-253(been)-254(pushed)-253(on)-254(stack,)-254(the)-253(pr)18(ogram)-254(execution)-253(skips)]TJ 0 -11.955 Td [(to)-264(a)-265(point)-264(wher)18(e)-264(the)-265(err)18(or)-264(condition)-264(is)-265(handl)1(ed;)-272(the)-264(err)18(or)-265(condition)-264(is)-264(handled)]TJ 0 -11.955 Td [(either)-336(by)-336(r)18(eturning)-336(contr)18(ol)-336(to)-336(the)-336(caller)-336(r)18(outine)-335(or)-336(by)-336(calling)-336(the)]TJ/F59 9.9626 Tf 291.408 0 Td [(psb\134_error)]TJ/F54 9.9626 Tf -291.408 -11.955 Td [(r)18(outine)-273(which)-274(prints)-273(the)-274(content)-273(of)-273(the)-274(err)18(or)-273(stack)-274(and)-273(aborts)-273(the)-274(pr)18(ogram)-273(ex-)]TJ 0 -11.955 Td [(ecution,)-373(accor)18(ding)-348(to)-348(the)-348(choice)-348(made)-348(by)-348(the)-348(user)-348(with)]TJ/F59 9.9626 Tf 252.305 0 Td [(psb_set_erraction)]TJ/F54 9.9626 Tf 88.916 0 Td [(.)]TJ -341.221 -11.955 Td [(The)-297(default)-296(is)-297(to)-296(print)-297(the)-297(err)18(or)-296(and)-297(terminate)-296(the)-297(pr)18(ogram,)-308(but)-297(the)-297(user)-296(may)]TJ 0 -11.956 Td [(choose)-250(to)-250(handle)-250(the)-250(err)18(or)-250(explicitly)111(.)]TJ 14.944 -11.955 Td [(Figur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
- [-347(6)]TJ
-0 g 0 G
- [-348(r)18(eports)-347(a)-347(sample)-347(err)18(or)-348(message)-347(generated)-347(by)-348(the)-347(PSBLAS-2.0)-347(li-)]TJ -14.944 -11.955 Td [(brary)111(.)-539(This)-327(err)18(or)-326(has)-327(been)-326(generated)-327(by)-326(the)-327(fact)-326(that)-326(the)-327(user)-326(has)-327(chosen)-326(the)]TJ 0 -11.955 Td [(invalid)-379(\223FOO\224)-380(storage)-379(format)-379(to)-380(r)18(epr)18(esent)-379(the)-379(sparse)-380(mat)1(rix.)-699(Fr)18(om)-379(this)-379(er)18(-)]TJ 0 -11.955 Td [(r)18(or)-394(message)-393(it)-394(is)-393(possible)-394(to)-394(see)-393(that)-394(the)-393(err)18(or)-394(has)-393(been)-394(detected)-394(inside)-393(the)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_cest)]TJ/F54 9.9626 Tf 45.361 0 Td [(subr)18(outine)-353(called)-353(by)]TJ/F59 9.9626 Tf 95.326 0 Td [(psb_spasb)]TJ/F54 9.9626 Tf 50.591 0 Td [(...)-619(by)-354(pr)18(ocess)-353(0)-353(\050i.e.)-619(the)-353(r)18(oot)-354(pr)18(o-)]TJ -191.278 -11.956 Td [(cess\051.)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.12)-1000(psb)]TJ
+ET
+q
+1 0 0 1 204.216 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 207.803 706.129 Td [(min)-250(\227)-250(Global)-250(minimum)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf -57.098 -19.198 Td [(call)-525(psb_min\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -22.401 Td [(This)-328(subr)18(outine)-327(implements)-328(a)-328(minimum)-327(value)-328(r)18(eduction)-328(o)1(peration)-328(based)]TJ -14.944 -11.955 Td [(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -20.288 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -20.409 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.408 Td [(ctxt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -20.409 Td [(dat)]TJ
 0 g 0 G
- 164.384 -198.123 Td [(127)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.956 Td [(1)-250(or)-250(2)-250(array)111(.)-560(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -20.408 Td [(root)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -254.343 -32.364 Td [(mode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.956 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.955 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -32.364 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.956 Td [(be)-250(pr)18(esent.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -22.401 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -20.408 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(minimum)-250(operation.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
+0 g 0 G
+ 79.264 -29.887 Td [(126)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1721 0 obj
+1712 0 obj
 <<
-/Length 6449      
+/Length 4437      
 >>
 stream
 0 g 0 G
 0 g 0 G
+BT
+/F54 9.9626 Tf 124.802 706.129 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-264(as:)-339(an)-264(integer)-264(or)-265(r)18(eal)-264(variable,)-268(which)-264(may)-264(be)-264(a)-265(scalar)74(,)-268(or)-264(a)-264(rank)]TJ 0 -11.956 Td [(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+0 g 0 G
+ -12.453 -19.926 Td [(2.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
 q
-1 0 0 1 150.705 417.212 cm
-0 0 343.711 292.902 re f
+1 0 0 1 124.802 441.123 cm
+0 0 318.804 27.895 re f
 Q
 0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F59 9.9626 Tf 153.694 698.757 Td [(subroutine)]TJ
+/F94 8.9664 Tf 137.205 458.358 Td [(call)]TJ
 0 g 0 G
- [-525(psb_foo\050some)-525(args,)-525(info\051)]TJ
-0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
-/F115 9.9626 Tf 15.691 -11.956 Td [(!...)]TJ
+ [-525(psb_min\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
 0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
-/F59 9.9626 Tf 0 -11.955 Td [(if)]TJ
+ [(ior)]TJ
 0 g 0 G
- [(\050error)-525(detected\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- [-525(then)]TJ
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf -48.393 -32.179 Td [(3.)]TJ
+0 g 0 G
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 330.537 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 380.649 Td [(call)]TJ
 0 g 0 G
- 15.691 -11.955 Td [(info)]TJ
+ [-525(psb_min\050ctxt,dat,mode)]TJ
 0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
  [(=)]TJ
 0 g 0 G
- [(errcode1)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.955 Td [(call)]TJ
+ [(psb_collective_start_,&)]TJ 23.537 -10.958 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- [-525(psb_errpush\050)]TJ
-0.25 0.44 0.63 rg 0.25 0.44 0.63 RG
- [(\015psb_foo\015)]TJ
+ [(min_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
- [(,)-525(errcode1\051)]TJ
 0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.955 Td [(goto)]TJ
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(9999)]TJ
+ [-525(psb_min\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- -15.691 -11.955 Td [(end)-525(if)]TJ
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
-/F115 9.9626 Tf 0 -11.956 Td [(!...)]TJ
+ [(min_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
-/F59 9.9626 Tf 0 -11.955 Td [(call)]TJ
 0 g 0 G
- [-525(psb_bar\050some)-525(args,)-525(info\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.955 Td [(if)]TJ
+/F54 9.9626 Tf 103.537 -246.376 Td [(127)]TJ
 0 g 0 G
- [(\050info)-525(.ne.)-525(zero\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- [-525(then)]TJ
+ET
+
+endstream
+endobj
+1720 0 obj
+<<
+/Length 5616      
+>>
+stream
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 0 g 0 G
- 15.691 -11.955 Td [(info)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(=)]TJ
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(7.13)-1000(psb)]TJ
+ET
+q
+1 0 0 1 204.216 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 207.803 706.129 Td [(amx)-250(\227)-250(Global)-250(maximum)-250(absolute)-250(value)]TJ
 0 g 0 G
- [(errcode2)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.955 Td [(call)]TJ
 0 g 0 G
- [-525(psb_errpush\050)]TJ
-0.25 0.44 0.63 rg 0.25 0.44 0.63 RG
- [(\015psb_foo\015)]TJ
+/F59 9.9626 Tf -57.098 -20.269 Td [(call)-525(psb_amx\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-342(subr)18(outine)-342(implements)-342(a)-342(maximum)-341(absolute)-342(value)-342(r)18(eduction)-342(opera-)]TJ -14.944 -11.955 Td [(tion)-250(based)-250(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
 0 g 0 G
- [(,)-525(errcode2\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.956 Td [(goto)]TJ
+/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(9999)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- -15.691 -11.955 Td [(end)-525(if)]TJ
+/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
 0 g 0 G
-0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
-/F115 9.9626 Tf 0 -11.955 Td [(!...)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
-/F59 9.9626 Tf -15.691 -11.955 Td [(9999)]TJ
+ 0 -22.619 Td [(ctxt)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- [-525(continue)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 15.691 -11.955 Td [(if)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
 0 g 0 G
- [-525(\050err_act)-525(.eq.)-525(act_abort\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- [-525(then)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(maximum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 15.691 -11.955 Td [(call)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
 0 g 0 G
- [-525(psb_error\050icontxt\051)]TJ
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.956 Td [(return)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- -15.691 -11.955 Td [(else)]TJ
+/F51 9.9626 Tf -254.343 -34.574 Td [(mode)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -11.955 Td [(return)]TJ
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- -15.691 -11.955 Td [(end)-525(if)]TJ
+/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
 0 g 0 G
-0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
- 0 -23.91 Td [(end)-525(subroutine)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
 0 g 0 G
- [-525(psb_foo)]TJ
-0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
-/F54 9.9626 Tf -2.989 -41.729 Td [(Listing)-289(5:)-387(The)-289(layout)-289(of)-289(a)-289(g)1(eneric)]TJ/F59 9.9626 Tf 149.96 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 316.983 382.258 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 320.121 382.059 Td [(foo)]TJ/F54 9.9626 Tf 18.569 0 Td [(r)18(outine)-289(with)-289(r)18(espe)1(ct)-289(to)-289(PSBLAS-2.0)]TJ -187.985 -11.955 Td [(err)18(or)-250(handling)-250(policy)111(.)]TJ
+/F54 9.9626 Tf 164.384 -29.887 Td [(128)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
-/F59 9.9626 Tf 0 -19.609 Td [(==========================================================)]TJ
+ET
+
+endstream
+endobj
+1724 0 obj
+<<
+/Length 4760      
+>>
+stream
 0 g 0 G
- 0 -11.955 Td [(Process:)]TJ
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(0)]TJ
 0 g 0 G
- [(.)-1050(PSBLAS)-525(Error)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [-525(\050)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [(4010)]TJ
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(\051)]TJ
+/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(maximum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
 0 g 0 G
- [-525(in)-525(subroutine:)-525(df_sample)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(mat)]TJ
-0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
- [-525(dist)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- 0 -11.955 Td [(==========================================================)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
- 0 -11.955 Td [(Process:)]TJ
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(0)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
- [(.)-1050(PSBLAS)-525(Error)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [-525(\050)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.956 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [(4010)]TJ
+ -12.453 -19.925 Td [(2.)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(\051)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 417.212 cm
+0 0 318.804 27.895 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
- [-525(in)-525(subroutine:)-525(mat_distv)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)]TJ
-0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
- [-525(psb_spasb)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 434.448 Td [(call)]TJ
 0 g 0 G
+ [-525(psb_amx\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
 0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- 0 -11.956 Td [(==========================================================)]TJ
+ [(=)]TJ
 0 g 0 G
- 0 -11.955 Td [(Process:)]TJ
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(0)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
 0 g 0 G
- [(.)-1050(PSBLAS)-525(Error)]TJ
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [-525(\050)]TJ
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [(4010)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(\051)]TJ
+/F54 9.9626 Tf -48.393 -32.18 Td [(3.)]TJ
 0 g 0 G
- [-525(in)-525(subroutine:)-525(psb_spasb)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)]TJ
-0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
- [-525(psb_cest)]TJ
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 306.627 cm
+0 0 318.804 60.772 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- 0 -11.955 Td [(==========================================================)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 127.791 356.739 Td [(call)]TJ
 0 g 0 G
- 0 -11.955 Td [(Process:)]TJ
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [-525(0)]TJ
+ [-525(psb_amx\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- [(.)-1050(PSBLAS)-525(Error)]TJ
+ [(psb_collective_start_,&)]TJ 23.536 -10.959 Td [(&)-525(request)]TJ
 0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [-525(\050)]TJ
+ [(=)]TJ
 0 g 0 G
-0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
- [(136)]TJ
+ [(amx_request\051)]TJ -14.122 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
-0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- [(\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
- [-525(in)-525(subroutine:)-525(psb_cest)]TJ 0 -11.955 Td [(Format)-525(FOO)-525(is)]TJ
-0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
- [-525(unknown)]TJ
+ [-525(psb_amx\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
 0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
- 0 -11.956 Td [(==========================================================)]TJ
+ [(=)]TJ
 0 g 0 G
- 0 -11.955 Td [(Aborting...)]TJ
+ [(amx_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 0 -29.397 Td [(Listing)-364(6:)-537(A)-364(sample)-364(PSBLAS-3.0)-363(err)18(or)-364(message.)-651(Pr)18(ocess)-364(0)-364(detected)-363(an)-364(err)18(or)]TJ 0 -11.955 Td [(condition)-250(inside)-250(the)-250(psb)]TJ
-ET
-q
-1 0 0 1 257.025 153.925 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 260.013 153.726 Td [(cest)-250(subr)18(outine)]TJ
 0 g 0 G
- 55.075 -63.288 Td [(128)]TJ
+/F54 9.9626 Tf 103.537 -222.465 Td [(129)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1726 0 obj
+1731 0 obj
 <<
-/Length 3568      
+/Length 5619      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(8.1)-1000(psb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.14)-1000(psb)]TJ
 ET
 q
-1 0 0 1 147.429 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 151.016 706.129 Td [(errpush)-250(\227)-250(Pushes)-250(an)-250(error)-250(code)-250(onto)-250(the)-250(error)-250(stack)]TJ/F54 9.9626 Tf -49.379 -24.942 Td [(c)-175(a)-175(l)-174(l)-874(p)-98(s)-99(b)]TJ
-ET
-q
-1 0 0 1 150.031 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 154.002 681.187 Td [(e)-99(r)-98(r)-99(p)-98(u)-99(s)-99(h)-232(\050)-266(e)-132(r)-132(r)]TJ
-ET
-q
-1 0 0 1 220.033 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 224.341 681.187 Td [(c)-440(,)-825(r)]TJ
-ET
-q
-1 0 0 1 248.891 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 252.379 681.187 Td [(n)-50(a)-50(m)-50(e)-276(,)-929(i)]TJ
-ET
-q
-1 0 0 1 297.751 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 302.277 681.187 Td [(e)-154(r)-155(r)-483(,)-920(a)]TJ
-ET
-q
-1 0 0 1 341.495 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 345.93 681.187 Td [(e)-145(r)-145(r)-279(\051)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(amn)-250(\227)-250(Global)-250(minimum)-250(absolute)-250(value)]TJ
 0 g 0 G
 0 g 0 G
+/F59 9.9626 Tf -57.098 -20.269 Td [(call)-525(psb_amn\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -24.611 Td [(This)-360(subr)18(outine)-360(impl)1(ements)-360(a)-360(minimum)-360(absolute)-360(value)-359(r)18(eduction)-360(opera-)]TJ -14.944 -11.955 Td [(tion)-250(based)-250(on)-250(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -246.035 -27.895 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -21.945 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -22.619 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(err)]TJ
-ET
-q
-1 0 0 1 113.225 613.641 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 116.214 613.442 Td [(c)]TJ
+ 0 -22.619 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.405 0 Td [(the)-250(err)18(or)-250(code)]TJ -0.817 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(r)]TJ
-ET
-q
-1 0 0 1 104.368 545.895 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 107.357 545.696 Td [(name)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.888 0 Td [(the)-250(soutine)-250(wher)18(e)-250(the)-250(err)18(or)-250(has)-250(been)-250(caught.)]TJ -12.443 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(string.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-300(a)-300(rank)-300(1)-300(or)-301(2)-300(array)111(.)-760(T)90(ype,)-313(kind,)-312(rank)-300(and)-301(size)-300(must)-300(agr)18(ee)-300(on)-300(all)-300(pr)18(o-)]TJ 0 -11.955 Td [(cesses.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -31.881 Td [(i)]TJ
-ET
-q
-1 0 0 1 103.811 466.194 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 106.799 465.994 Td [(err)]TJ
+/F51 9.9626 Tf -24.907 -22.619 Td [(root)]TJ
 0 g 0 G
-/F54 9.9626 Tf 17.714 0 Td [(addional)-250(info)-250(for)-250(err)18(or)-250(code)]TJ 0.289 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -31.881 Td [(a)]TJ
-ET
-q
-1 0 0 1 105.474 398.448 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 108.463 398.249 Td [(err)]TJ
+/F51 9.9626 Tf -254.343 -34.574 Td [(mode)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.955 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.956 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 17.714 0 Td [(addional)-250(info)-250(for)-250(err)18(or)-250(code)]TJ -1.375 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(string.)]TJ
+/F51 9.9626 Tf -24.907 -34.573 Td [(request)]TJ
 0 g 0 G
- 139.477 -271.945 Td [(129)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -24.612 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf 164.384 -29.887 Td [(130)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1732 0 obj
+1735 0 obj
 <<
-/Length 1330      
+/Length 4753      
 >>
 stream
 0 g 0 G
 0 g 0 G
+0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(8.2)-1000(psb)]TJ
+/F51 9.9626 Tf 99.895 706.129 Td [(dat)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.368 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(minimum)-250(operation.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-250(a)-250(rank)-250(1)-250(or)-250(2)-250(array)111(.)]TJ 0 -11.955 Td [(T)90(ype,)-250(kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
+0 g 0 G
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
+0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.956 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 198.238 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+1 0 0 1 124.802 417.212 cm
+0 0 318.804 27.895 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F51 11.9552 Tf 201.825 706.129 Td [(error)-306(\227)-306(Prints)-306(the)-306(error)-307(stack)-306(content)-306(and)-306(aborts)-306(exe-)]TJ -24.221 -13.948 Td [(cution)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-900(p)-126(s)-125(b)]TJ
+/F94 8.9664 Tf 137.205 434.448 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_amn\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
+0 g 0 G
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf -48.393 -32.18 Td [(3.)]TJ
+0 g 0 G
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 201.901 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 124.802 306.627 cm
+0 0 318.804 60.772 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F54 9.9626 Tf 206.138 667.24 Td [(e)-125(r)-125(r)-126(o)-125(r)-259(\050)-279(i)-146(c)-146(o)-147(n)-146(t)-146(x)-146(t)-280(\051)]TJ
+/F94 8.9664 Tf 137.205 356.739 Td [(call)]TJ
 0 g 0 G
+ [-525(psb_amn\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
+ [(psb_collective_start_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -55.433 -27.896 Td [(T)90(ype:)]TJ
+ [(amn_request\051)]TJ -23.537 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [-525(psb_amn\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- 0 -19.925 Td [(icontxt)]TJ
+ [(amn_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
 0 g 0 G
- 139.477 -461.235 Td [(130)]TJ
+/F54 9.9626 Tf 103.537 -222.465 Td [(131)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1738 0 obj
+1742 0 obj
 <<
-/Length 1525      
+/Length 5776      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(8.3)-1000(psb)]TJ
-ET
-q
-1 0 0 1 147.429 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 151.016 706.129 Td [(set)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.15)-1000(psb)]TJ
 ET
 q
-1 0 0 1 166.999 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 170.586 706.129 Td [(errverbosity)-190(\227)-190(Sets)-190(the)-190(verbosity)-190(of)-190(error)-190(messages)]TJ/F54 9.9626 Tf -68.949 -24.942 Td [(c)-175(a)-175(l)-174(l)-921(p)-147(s)-146(b)]TJ
-ET
-q
-1 0 0 1 151.927 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 156.371 681.187 Td [(s)-146(e)-146(t)]TJ
-ET
-q
-1 0 0 1 173.581 681.387 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 178.026 681.187 Td [(e)-146(r)-146(r)-146(v)-147(e)-146(r)-146(b)-146(o)-146(s)-146(i)-147(t)-146(y)-279(\050)-151(v)-151(\051)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(nrm2)-250(\227)-250(Global)-250(2-norm)-250(reduction)]TJ
 0 g 0 G
 0 g 0 G
+/F59 9.9626 Tf -57.098 -19.198 Td [(call)-525(psb_nrm2\050ctxt,)-525(dat)-525([,)-525(root,)-525(mode,)-525(request]\051)]TJ/F54 9.9626 Tf 14.944 -22.401 Td [(This)-297(subr)18(outine)-296(implements)-297(a)-297(2-norm)-296(value)-297(r)18(eduction)-297(operation)-296(based)-297(on)]TJ -14.944 -11.955 Td [(the)-250(underlying)-250(communication)-250(library)111(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -78.131 -27.895 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf 0 -20.288 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -20.409 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(v)]TJ
+ 0 -20.408 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 10.521 0 Td [(the)-250(verbosity)-250(level)]TJ 14.386 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
- 139.477 -475.183 Td [(131)]TJ
+/F51 9.9626 Tf -24.907 -20.409 Td [(dat)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1744 0 obj
-<<
-/Length 2019      
->>
-stream
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(local)-250(contribution)-250(to)-250(the)-250(global)-250(minimum.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-370(as:)-551(a)-371(r)18(eal)-370(variable,)-401(which)-370(may)-371(be)-370(a)-371(scalar)74(,)-400(or)-371(a)-370(rank)-371(1)-370(array)111(.)]TJ 0 -11.956 Td [(Kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -24.907 -20.408 Td [(root)]TJ
 0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(8.4)-1000(psb)]TJ
-ET
-q
-1 0 0 1 198.238 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 201.825 706.129 Td [(set)]TJ
-ET
-q
-1 0 0 1 217.809 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 221.396 706.129 Td [(erraction)-223(\227)-223(Set)-222(the)-223(type)-223(of)-223(action)-223(to)-222(be)-223(taken)-223(upon)]TJ -43.792 -13.948 Td [(error)-250(condition)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-926(p)-151(s)-151(b)]TJ
-ET
-q
-1 0 0 1 202.923 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 207.415 667.24 Td [(s)-151(e)-151(t)]TJ
-ET
-q
-1 0 0 1 224.765 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 229.256 667.24 Td [(e)-151(r)-151(r)-151(a)-150(c)-151(t)-151(i)-151(o)-151(n)-284(\050)-296(e)-163(r)-162(r)]TJ
-ET
-q
-1 0 0 1 307.912 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 312.521 667.24 Td [(a)-163(c)-162(t)-296(\051)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-221(to)-221(hold)-221(the)-222(\002nal)-221(value,)-227(or)]TJ/F83 10.3811 Tf 147.052 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1)-221(to)-221(make)-222(it)-221(available)-221(on)-221(all)-221(pr)18(ocesses.)]TJ -153.592 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)]TJ/F83 10.3811 Tf 131.101 0 Td [(\000)]TJ/F54 9.9626 Tf 8.195 0 Td [(1)]TJ/F61 10.3811 Tf 7.873 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 10.987 0 Td [(r)-17(o)-35(o)-35(t)]TJ/F61 10.3811 Tf 19.923 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1,)-250(default)-250(-1.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -254.343 -32.364 Td [(mode)]TJ
 0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Whether)-314(the)-314(call)-313(is)-314(started)-314(in)-314(non-blocking)-314(mode)-314(and)-313(completed)-314(later)74(,)]TJ -5.539 -11.955 Td [(or)-250(is)-250(executed)-250(synchr)18(onously)111(.)]TJ 0 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-325(as:)-460(an)-325(i)1(nteger)-325(value.)-535(The)-325(action)-325(to)-325(be)-325(t)1(aken)-325(is)-325(determined)-325(by)]TJ 0 -11.956 Td [(its)-375(bit)-374(\002elds,)-406(which)-375(can)-374(be)-375(set)-374(with)-375(bitwise)]TJ/F59 9.9626 Tf 199.497 0 Td [(OR)]TJ/F54 9.9626 Tf 10.461 0 Td [(.)-375(Basic)-374(action)-375(values)-374(ar)18(e)]TJ/F59 9.9626 Tf -209.958 -11.955 Td [(psb_collective_start_)]TJ/F54 9.9626 Tf 109.837 0 Td [(,)]TJ/F59 9.9626 Tf 4.545 0 Td [(psb_collective_end_)]TJ/F54 9.9626 Tf 99.377 0 Td [(.)-292(Default:)-282(both)-196(\002elds)-195(ar)18(e)]TJ -213.759 -11.955 Td [(selected)-250(\050i.e.)-310(r)18(equir)18(e)-250(synchr)18(onous)-250(completion\051.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -161.816 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -24.907 -32.364 Td [(request)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.578 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.956 Td [(be)-250(pr)18(esent.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -24.907 -22.401 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(err)]TJ
-ET
-q
-1 0 0 1 164.035 599.693 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F51 9.9626 Tf 167.023 599.494 Td [(act)]TJ
+ 0 -20.408 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 17.704 0 Td [(the)-250(type)-250(of)-250(action.)]TJ -9.116 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)-310(Possible)-250(values:)]TJ/F59 9.9626 Tf 179.116 0 Td [(psb_act_ret)]TJ/F54 9.9626 Tf 57.534 0 Td [(,)]TJ/F59 9.9626 Tf 4.982 0 Td [(psb_act_abort)]TJ/F54 9.9626 Tf 67.994 0 Td [(.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(On)-250(destination)-250(pr)18(ocess\050es\051,)-250(the)-250(r)18(esult)-250(of)-250(the)-250(2-norm)-250(r)18(eduction.)]TJ 5.54 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.781 0 Td [(.)]TJ
 0 g 0 G
- -170.149 -461.235 Td [(132)]TJ
+ 79.264 -29.887 Td [(132)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1750 0 obj
+1746 0 obj
 <<
-/Length 505       
+/Length 5783      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 99.895 705.784 Td [(9)-1000(Utilities)]TJ/F54 9.9626 Tf 0 -22.702 Td [(W)92(e)-323(have)-322(some)-323(utilities)-322(available)-323(for)-322(input)-323(and)-323(output)-322(of)-323(sparse)-322(matrices;)-359(the)]TJ 0 -11.955 Td [(interfaces)-250(to)-250(these)-250(r)18(outines)-250(ar)18(e)-250(available)-250(in)-250(the)-250(module)]TJ/F59 9.9626 Tf 242.01 0 Td [(psb_util_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)]TJ
+/F54 9.9626 Tf 124.802 706.129 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(variable,)-250(which)-250(may)-250(be)-250(a)-250(scalar)74(,)-250(or)-250(a)-250(rank)-250(1)-250(array)111(.)]TJ 0 -11.956 Td [(Kind,)-250(rank)-250(and)-250(size)-250(must)-250(agr)18(ee)-250(on)-250(all)-250(pr)18(ocesses.)]TJ
 0 g 0 G
- -140.39 -580.689 Td [(133)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(request)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1756 0 obj
-<<
-/Length 4559      
->>
-stream
+/F54 9.9626 Tf 38.735 0 Td [(A)-250(r)18(equest)-250(variable)-250(to)-250(check)-250(for)-250(operation)-250(completion.)]TJ -13.828 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.956 Td [(If)]TJ/F59 9.9626 Tf 8.943 0 Td [(mode)]TJ/F54 9.9626 Tf 23.19 0 Td [(does)-228(not)-227(specify)-228(synchr)18(onous)-228(completion,)-232(then)-227(this)-228(variable)-228(must)]TJ -32.133 -11.955 Td [(be)-250(pr)18(esent.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(9.1)-1206(hb)]TJ
-ET
-q
-1 0 0 1 195.398 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 198.985 706.129 Td [(read)-206(\227)-207(Read)-206(a)-207(sparse)-206(matrix)-206(from)-207(a)-206(\002le)-207(in)-206(the)-207(Harwell\226)]TJ -21.381 -13.948 Td [(Boeing)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-865(h)-90(b)]TJ
+ [-500(This)-345(r)18(eduction)-345(is)-346(appr)18(opriate)-345(to)-345(compute)-345(the)-345(r)18(esults)-346(of)-345(multiple)-345(\050local\051)]TJ 12.453 -11.955 Td [(NRM2)-250(operations)-250(at)-250(the)-250(same)-250(time.)]TJ
+0 g 0 G
+ -12.453 -19.925 Td [(2.)]TJ
+0 g 0 G
+ [-500(Denoting)-249(by)]TJ/F52 9.9626 Tf 69.789 0 Td [(d)-40(a)-25(t)]TJ/F52 7.5716 Tf 13.536 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.23 1.96 Td [(the)-249(value)-249(of)-248(the)-249(variable)]TJ/F52 9.9626 Tf 108.808 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 15.973 0 Td [(on)-249(pr)18(ocess)]TJ/F52 9.9626 Tf 49.078 0 Td [(i)]TJ/F54 9.9626 Tf 2.964 0 Td [(,)-249(the)-249(output)]TJ/F52 9.9626 Tf 53.71 0 Td [(r)-17(e)-25(s)]TJ/F54 9.9626 Tf -306.635 -11.955 Td [(is)-250(equivalent)-250(to)-250(the)-250(computation)-250(of)]TJ/F52 9.9626 Tf 124.796 -25.468 Td [(r)-17(e)-25(s)]TJ/F85 10.3811 Tf 15.061 0 Td [(=)]TJ/F1 9.9626 Tf 11.086 10.922 Td [(r)]TJ
 ET
 q
-1 0 0 1 195.188 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 285.832 490.532 cm
+[]0 d 0 J 0.389 w 0 0 m 30.512 0 l S
 Q
 BT
-/F54 9.9626 Tf 199.074 667.24 Td [(r)-90(e)-90(a)-90(d)-224(\050)-166(a)-242(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-871(f)-97(i)-96(l)-96(e)-96(n)-96(a)-97(m)-96(e)-367(,)-791(b)-206(,)-919(m)-143(t)-144(i)-143(t)-143(l)-144(e)-277(\051)]TJ
-0 g 0 G
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -48.369 -27.896 Td [(T)90(ype:)]TJ
+/F96 13.9477 Tf 285.957 477.344 Td [(\345)]TJ/F52 7.5716 Tf 4.245 -8.764 Td [(i)]TJ/F52 9.9626 Tf 8.364 10.836 Td [(d)-40(a)-25(t)]TJ/F54 7.5716 Tf 13.495 3.473 Td [(2)]TJ/F52 7.5716 Tf 0.041 -7.027 Td [(i)]TJ/F54 9.9626 Tf 4.243 3.554 Td [(,)]TJ -191.543 -30.806 Td [(with)-250(car)18(e)-250(taken)-250(to)-250(avoid)-250(unnecessary)-250(over\003ow)92(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+ -12.453 -19.926 Td [(3.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 31.023 0 Td [(dat)]TJ/F54 9.9626 Tf 17.584 0 Td [(ar)18(gument)-190(is)-190(both)-190(input)-190(and)-190(output,)-202(and)-190(its)-190(value)-190(may)-190(be)-190(changed)]TJ -36.154 -11.955 Td [(even)-250(on)-250(pr)18(ocesses)-250(dif)18(fer)18(ent)-250(fr)18(om)-250(the)-250(\002nal)-250(r)18(esult)-250(destination.)]TJ
 0 g 0 G
+ -12.453 -19.925 Td [(4.)]TJ
 0 g 0 G
- 0 -19.925 Td [(\002lename)]TJ
+ [-500(The)]TJ/F59 9.9626 Tf 32.225 0 Td [(mode)]TJ/F54 9.9626 Tf 24.015 0 Td [(ar)18(gument)-311(can)-310(be)-311(built)-310(with)-311(the)-310(bitwise)]TJ/F59 9.9626 Tf 176.537 0 Td [(IOR\050\051)]TJ/F54 9.9626 Tf 29.246 0 Td [(operator;)-341(in)-310(the)]TJ -249.57 -11.955 Td [(following)-203(example,)-213(the)-204(ar)18(gument)-203(is)-204(for)18(cing)-203(immediate)-203(completion,)-213(hence)]TJ 0 -11.955 Td [(the)]TJ/F59 9.9626 Tf 16.309 0 Td [(request)]TJ/F54 9.9626 Tf 39.103 0 Td [(ar)18(gument)-250(needs)-250(not)-250(be)-250(speci\002ed:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 124.802 333.043 cm
+0 0 318.804 27.895 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+BT
+/F94 8.9664 Tf 137.205 350.279 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+ [-525(psb_nrm2\050ctxt,dat,&)]TJ 23.537 -10.959 Td [(&)-525(mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [(ior)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.894 -21.918 Td [(On)-250(Return)]TJ
+ [(\050psb_collective_start_,psb_collective_end_\051\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
 0 g 0 G
- 0 -19.926 Td [(a)]TJ
+/F54 9.9626 Tf -48.393 -32.18 Td [(5.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(r)18(ead)-250(fr)18(om)-250(\002le.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 360.068 442.283 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 363.206 442.084 Td [(Tspmat)]TJ
+ [-500(When)-295(splitting)-294(the)-295(operation)-295(in)-295(two)-294(calls,)-306(the)]TJ/F59 9.9626 Tf 216.877 0 Td [(dat)]TJ/F54 9.9626 Tf 18.628 0 Td [(ar)18(gument)]TJ/F52 9.9626 Tf 45.835 0 Td [(must)-295(not)]TJ/F54 9.9626 Tf 39.636 0 Td [(be)]TJ -308.523 -11.955 Td [(accessed)-250(between)-250(calls:)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 395.216 442.283 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 124.802 222.458 cm
+0 0 318.804 60.772 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F59 9.9626 Tf 398.354 442.084 Td [(type)]TJ
+/F94 8.9664 Tf 127.791 272.57 Td [(call)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+ [-525(psb_nrm2\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -19.925 Td [(b)]TJ
+ [(psb_collective_start_,&)]TJ 23.536 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-235(array)-234(of)-235(type)-234(r)18(eal)-235(or)-234(complex,)-238(rank)-234(2)-235(and)-234(having)-235(the)-234(ALLOCA)74(T)74(ABLE)]TJ 0 -11.956 Td [(attribute;)-361(will)-324(be)-324(allocated)-323(and)-324(\002lled)-324(in)-324(if)-324(the)-324(input)-324(\002le)-323(contains)-324(a)-324(right)]TJ 0 -11.955 Td [(hand)-250(side,)-250(otherwise)-250(will)-250(be)-250(left)-250(in)-250(the)-250(UNALLOCA)74(TED)-250(state.)]TJ
+ [(nrm2_request\051)]TJ -14.122 -10.959 Td [(.......)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 8.9664 Tf 37.659 0 Td [(!)-525(Do)-525(not)-525(access)-525(dat)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.925 Td [(mtitle)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F94 8.9664 Tf -37.659 -10.959 Td [(call)]TJ
 0 g 0 G
-/F54 9.9626 Tf 32.089 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(A)-337(charachter)-338(variable)-337(of)-338(length)-337(72)-337(holding)-338(a)-337(copy)-338(of)-337(the)-337(matrix)-338(title)-337(as)]TJ 0 -11.956 Td [(speci\002ed)-250(by)-250(the)-250(Harwell-Boeing)-250(format)-250(and)-250(contained)-250(in)-250(the)-250(input)-250(\002le.)]TJ
+ [-525(psb_nrm2\050ctxt,dat,mode)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(psb_collective_end_,&)]TJ 23.537 -10.959 Td [(&)-525(request)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.925 Td [(iret)]TJ
+ [(nrm2_request\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.433 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -184.274 Td [(134)]TJ
+/F54 9.9626 Tf 103.537 -138.296 Td [(133)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1763 0 obj
+1757 0 obj
 <<
-/Length 4944      
+/Length 5352      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(9.2)-1000(hb)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(7.16)-1000(psb)]TJ
 ET
 q
-1 0 0 1 142.121 706.328 cm
+1 0 0 1 204.216 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 145.708 706.129 Td [(write)-298(\227)-297(W)74(rite)-298(a)-298(sparse)-298(matrix)-297(to)-298(a)-298(\002le)-297(in)-298(the)-298(Harwell\226)]TJ -18.913 -13.948 Td [(Boeing)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-884(h)-109(b)]TJ
-ET
-q
-1 0 0 1 144.944 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 149.017 667.24 Td [(w)-109(r)-109(i)-109(t)-109(e)-242(\050)-167(a)-242(,)-926(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-129(t)-435(,)-871(f)-96(i)-96(l)-96(e)-97(n)-96(a)-96(m)-96(e)-368(,)-817(k)-41(e)-42(y)-259(,)-855(r)-79(h)-80(s)-335(,)-918(m)-144(t)-143(i)-144(t)-143(l)-143(e)-277(\051)]TJ
+/F51 11.9552 Tf 207.803 706.129 Td [(snd)-250(\227)-250(Send)-250(data)]TJ
 0 g 0 G
 0 g 0 G
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_snd\050ctxt,)-525(dat,)-525(dst,)-525(m\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-250(subr)18(outine)-250(sends)-250(a)-250(packet)-250(of)-250(data)-250(to)-250(a)-250(destination.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -49.122 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -14.944 -19.925 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous:)-310(see)-250(usage)-250(notes.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 309.258 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 312.397 575.584 Td [(Tspmat)]TJ
-ET
-q
-1 0 0 1 344.406 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 347.544 575.584 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -268.571 -19.926 Td [(b)]TJ
-0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(Rigth)-250(hand)-250(side.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-235(array)-234(of)-235(type)-234(r)18(eal)-235(or)-234(complex,)-238(rank)-234(1)-235(and)-234(having)-235(the)-234(ALLOCA)74(T)74(ABLE)]TJ 0 -11.955 Td [(attribute;)-361(will)-324(be)-324(al)1(located)-324(and)-324(\002lled)-324(in)-324(if)-324(the)-324(input)-324(\002le)-323(contains)-324(a)-324(right)]TJ 0 -11.955 Td [(hand)-250(side.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -19.926 Td [(\002lename)]TJ
+ 0 -19.926 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-233(\050i.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.955 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -104.936 -19.926 Td [(iunit)]TJ
+/F51 9.9626 Tf -24.907 -19.926 Td [(dat)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+/F54 9.9626 Tf 19.367 0 Td [(The)-250(data)-250(to)-250(be)-250(sent.)]TJ 5.54 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.01 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-269(may)-270(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-220(a)-220(rank)-219(1)-220(or)-220(2)-220(array)111(,)-226(or)-220(a)-219(character)-220(or)-220(logical)-220(scalar)74(.)-520(T)90(ype,)-225(kind)-220(and)-220(rank)]TJ 0 -11.956 Td [(must)-215(agr)18(ee)-216(on)-215(sender)-215(and)-216(r)18(eceiver)-215(pr)18(ocess;)-227(if)]TJ/F52 9.9626 Tf 197.687 0 Td [(m)]TJ/F54 9.9626 Tf 10.021 0 Td [(is)-215(not)-216(speci\002ed,)-222(size)-215(must)]TJ -207.708 -11.955 Td [(agr)18(ee)-250(as)-250(well.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.895 -19.925 Td [(key)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(dst)]TJ
 0 g 0 G
-/F54 9.9626 Tf 21.589 0 Td [(Matrix)-250(key)111(.)]TJ 3.318 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-291(charachter)-291(variable)-291(of)-291(length)-291(8)-291(holding)-290(the)-291(matrix)-291(key)-291(as)-291(speci\002ed)-291(by)]TJ 0 -11.955 Td [(the)-250(Harwell-Boeing)-250(format)-250(and)-250(to)-250(be)-250(written)-250(to)-250(\002le.)]TJ
+/F54 9.9626 Tf 18.809 0 Td [(Destination)-250(pr)18(ocess.)]TJ 6.098 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(d)-25(s)-25(t)]TJ/F61 10.3811 Tf 15.689 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(mtitle)]TJ
+/F51 9.9626 Tf -241.89 -31.88 Td [(m)]TJ
 0 g 0 G
-/F54 9.9626 Tf 32.09 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-239(charachter)-239(variable)-239(of)-239(length)-239(72)-240(holding)-239(the)-239(matrix)-239(title)-239(as)-239(speci\002ed)-239(by)]TJ 0 -11.956 Td [(the)-250(Harwell-Boeing)-250(format)-250(and)-250(to)-250(be)-250(written)-250(to)-250(\002le.)]TJ
+/F54 9.9626 Tf 13.838 0 Td [(Number)-250(of)-250(r)18(ows.)]TJ 11.069 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.213 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf 40.946 0 Td [(.)]TJ -68.034 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(m)]TJ/F61 10.3811 Tf 10.767 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(.)]TJ -235.542 -11.955 Td [(When)]TJ/F52 9.9626 Tf 29.859 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 16.898 0 Td [(is)-342(a)-341(rank)-342(2)-341(array)111(,)-365(speci\002es)-342(the)-341(number)-342(of)-341(r)18(ows)-342(to)-342(be)-341(sent)-342(in-)]TJ -46.757 -11.955 Td [(dependently)-341(of)-340(the)-341(leading)-341(dimension)]TJ/F52 9.9626 Tf 175.121 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(;)-386(must)-341(have)-340(the)-341(same)]TJ -222.236 -11.955 Td [(value)-250(on)-250(sending)-250(and)-250(r)18(eceiving)-250(pr)18(ocesses.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -21.917 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
+/F51 11.9552 Tf 0 -21.918 Td [(Notes)]TJ
 0 g 0 G
- 0 -19.926 Td [(iret)]TJ
+/F54 9.9626 Tf 12.453 -19.925 Td [(1.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+ [-500(This)-292(subr)18(outine)-292(impl)1(ies)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.454 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(destination)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 158.309 0 Td [(d)-25(s)-25(t)]TJ/F54 9.9626 Tf 12.797 0 Td [(.)]TJ
 0 g 0 G
- 139.477 -128.483 Td [(135)]TJ
+ -31.629 -104.573 Td [(134)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1770 0 obj
+1762 0 obj
 <<
-/Length 3555      
+/Length 5356      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(9.3)-1000(mm)]TJ
-ET
-q
-1 0 0 1 199.577 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 203.164 706.129 Td [(mat)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(7.17)-1000(psb)]TJ
 ET
 q
-1 0 0 1 224.468 706.328 cm
+1 0 0 1 153.407 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 228.054 706.129 Td [(read)-202(\227)-203(Read)-202(a)-203(sparse)-202(matrix)-203(from)-202(a)-203(\002le)-202(in)-203(the)-202(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-810(m)-35(m)]TJ
-ET
-q
-1 0 0 1 199.831 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 203.169 667.24 Td [(m)-35(a)-35(t)]TJ
-ET
-q
-1 0 0 1 221.839 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 225.176 667.24 Td [(r)-35(e)-35(a)-35(d)-169(\050)-166(a)-242(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-882(f)-107(i)-107(l)-107(e)-107(n)-107(a)-106(m)-107(e)-241(\051)]TJ
+/F51 11.9552 Tf 156.993 706.129 Td [(rcv)-250(\227)-250(Receive)-250(data)]TJ
 0 g 0 G
 0 g 0 G
+/F59 9.9626 Tf -57.098 -18.964 Td [(call)-525(psb_rcv\050ctxt,)-525(dat,)-525(src,)-525(m\051)]TJ/F54 9.9626 Tf 14.944 -21.918 Td [(This)-250(subr)18(outine)-250(r)18(eceives)-250(a)-250(packet)-250(of)-250(data)-250(to)-250(a)-250(destination.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -74.471 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -14.944 -19.925 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous:)-310(see)-250(usage)-250(notes.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(\002lename)]TJ
+ 0 -19.926 Td [(ctxt)]TJ
 0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+/F54 9.9626 Tf 21.021 0 Td [(the)-250(communication)-250(context)-250(identifying)-250(the)-250(virtual)-250(parallel)-250(machine.)]TJ 3.886 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+/F51 9.9626 Tf -24.907 -19.926 Td [(src)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+/F54 9.9626 Tf 17.704 0 Td [(Sour)18(ce)-250(pr)18(ocess.)]TJ 7.203 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-15(r)-17(c)]TJ/F61 10.3811 Tf 15.141 0 Td [(<)]TJ/F85 10.3811 Tf 8.318 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 13.504 0 Td [(\000)]TJ/F54 9.9626 Tf 10.131 0 Td [(1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.894 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -241.342 -31.881 Td [(m)]TJ
 0 g 0 G
+/F54 9.9626 Tf 13.838 0 Td [(Number)-250(of)-250(r)18(ows.)]TJ 11.069 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -60.214 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf 40.946 0 Td [(.)]TJ -68.034 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value)-250(0)]TJ/F61 10.3811 Tf 138.85 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(m)]TJ/F61 10.3811 Tf 10.767 0 Td [(<)]TJ/F85 10.3811 Tf 8.319 0 Td [(=)]TJ/F52 9.9626 Tf 11.086 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(.)]TJ -235.542 -11.956 Td [(When)]TJ/F52 9.9626 Tf 29.859 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 16.898 0 Td [(is)-342(a)-341(rank)-342(2)-341(array)111(,)-365(speci\002es)-342(the)-341(number)-342(of)-341(r)18(ows)-342(to)-342(be)-341(sent)-342(in-)]TJ -46.757 -11.955 Td [(dependently)-341(of)-340(the)-341(leading)-341(dimension)]TJ/F52 9.9626 Tf 175.121 0 Td [(s)-18(i)-32(z)-25(e)]TJ/F85 10.3811 Tf 15.94 0 Td [(\050)]TJ/F52 9.9626 Tf 4.274 0 Td [(d)-40(a)-25(t)]TJ/F54 9.9626 Tf 13.494 0 Td [(,)-167(1)]TJ/F85 10.3811 Tf 9.257 0 Td [(\051)]TJ/F54 9.9626 Tf 4.15 0 Td [(;)-386(must)-341(have)-340(the)-341(same)]TJ -222.236 -11.955 Td [(value)-250(on)-250(sending)-250(and)-250(r)18(eceiving)-250(pr)18(ocesses.)]TJ
 0 g 0 G
- 0 -19.926 Td [(a)]TJ
+/F51 9.9626 Tf -24.907 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(r)18(ead)-250(fr)18(om)-250(\002le.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 360.068 442.283 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 363.206 442.084 Td [(Tspmat)]TJ
-ET
-q
-1 0 0 1 395.216 442.283 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 398.354 442.084 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+ 0 -19.925 Td [(dat)]TJ
 0 g 0 G
-/F51 9.9626 Tf -268.57 -19.925 Td [(iret)]TJ
+/F54 9.9626 Tf 19.368 0 Td [(The)-250(data)-250(to)-250(be)-250(r)18(eceived.)]TJ 5.539 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -66.38 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-269(as:)-349(an)-269(integer)74(,)-274(r)18(eal)-269(or)-269(complex)-269(variable,)-274(which)-270(may)-269(be)-269(a)-269(scalar)74(,)]TJ 0 -11.955 Td [(or)-220(a)-220(rank)-219(1)-220(or)-220(2)-220(array)111(,)-226(or)-220(a)-219(character)-220(or)-220(logical)-220(scalar)74(.)-520(T)90(ype,)-225(kind)-220(and)-220(rank)]TJ 0 -11.955 Td [(must)-215(agr)18(ee)-216(on)-215(sender)-215(and)-216(r)18(eceiver)-215(pr)18(ocess;)-227(if)]TJ/F52 9.9626 Tf 197.687 0 Td [(m)]TJ/F54 9.9626 Tf 10.021 0 Td [(is)-215(not)-216(speci\002ed,)-222(size)-215(must)]TJ -207.708 -11.955 Td [(agr)18(ee)-250(as)-250(well.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.433 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 12.454 -19.925 Td [(1.)]TJ
 0 g 0 G
- 139.477 -307.811 Td [(136)]TJ
+ [-500(This)-292(subr)18(outine)-291(implies)-292(a)-292(synchr)18(onization,)-302(but)-292(only)-292(between)-291(the)-292(calling)]TJ 12.453 -11.955 Td [(pr)18(ocess)-250(and)-250(the)-250(sour)18(ce)-250(pr)18(ocess)]TJ/F52 9.9626 Tf 137.538 0 Td [(s)-15(r)-17(c)]TJ/F54 9.9626 Tf 12.249 0 Td [(.)]TJ
+0 g 0 G
+ -10.31 -104.573 Td [(135)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1777 0 obj
+1769 0 obj
 <<
-/Length 4132      
+/Length 6241      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(9.4)-1000(mm)]TJ
-ET
-q
-1 0 0 1 148.768 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 152.354 706.129 Td [(array)]TJ
-ET
-q
-1 0 0 1 180.975 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
-Q
-BT
-/F51 11.9552 Tf 184.561 706.129 Td [(read)-222(\227)-223(Read)-222(a)-223(dense)-222(array)-223(from)-222(a)-223(\002le)-222(in)-223(the)-222(Ma-)]TJ -57.766 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-845(m)-71(m)]TJ
-ET
-q
-1 0 0 1 150.074 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
-Q
-BT
-/F54 9.9626 Tf 153.763 667.24 Td [(a)-70(r)-70(r)-71(a)-70(y)]TJ
+/F51 14.3462 Tf 150.705 705.784 Td [(8)-1000(Error)-250(handling)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-382(PSBLAS)-382(library)-381(err)18(or)-382(handling)-382(policy)-382(has)-382(been)-382(comple)1(tely)-382(r)18(ewritten)-382(in)]TJ 0 -11.955 Td [(version)-359(2.0.)-638(The)-359(idea)-359(behind)-360(the)-359(design)-359(of)-359(this)-359(new)-360(err)18(or)-359(handling)-359(strategy)]TJ 0 -11.955 Td [(is)-303(to)-303(keep)-303(err)18(or)-303(messages)-303(on)-303(a)-303(stack)-303(allowing)-303(the)-303(user)-303(to)-303(trace)-303(back)-303(up)-303(to)-303(the)]TJ 0 -11.955 Td [(point)-317(wher)18(e)-318(the)-317(\002rst)-317(err)18(or)-318(message)-317(has)-318(been)-317(generated.)-512(Every)-317(r)18(outine)-318(in)-317(the)]TJ 0 -11.956 Td [(PSBLAS-2.0)-336(library)-336(has,)-358(as)-336(last)-337(non-optional)-336(ar)18(gument,)-358(an)-336(integer)]TJ/F59 9.9626 Tf 298.678 0 Td [(info)]TJ/F54 9.9626 Tf 24.271 0 Td [(vari-)]TJ -322.949 -11.955 Td [(able;)-364(whenever)74(,)-344(inside)-326(the)-326(r)18(outine,)-345(an)-326(err)18(or)-325(is)-326(detected,)-345(this)-326(variable)-326(is)-325(set)-326(to)]TJ 0 -11.955 Td [(a)-384(value)-384(corr)18(esponding)-384(to)-384(a)-384(speci\002c)-384(err)18(or)-384(code.)-711(Then)-384(this)-384(err)18(or)-384(code)-384(is)-384(also)]TJ 0 -11.955 Td [(pushed)-274(on)-273(the)-274(err)18(or)-274(stack)-274(and)-273(then)-274(either)-274(contr)18(ol)-274(is)-273(r)18(eturned)-274(to)-274(the)-273(caller)-274(r)18(ou-)]TJ 0 -11.955 Td [(tine)-342(or)-342(the)-342(execution)-343(is)-342(aborted,)-365(depending)-342(on)-342(the)-342(users)-342(choice.)-587(At)-342(the)-342(time)]TJ 0 -11.955 Td [(when)-243(the)-242(execution)-243(is)-242(aborted,)-244(an)-243(err)18(or)-242(message)-243(is)-243(p)1(rinted)-243(on)-243(standar)18(d)-242(output)]TJ 0 -11.956 Td [(with)-257(a)-256(level)-257(of)-256(verbosity)-257(than)-256(can)-257(be)-256(chosen)-257(by)-257(the)-256(user)74(.)-330(If)-256(the)-257(execution)-257(is)-256(not)]TJ 0 -11.955 Td [(aborted,)-259(then,)-259(the)-257(caller)-257(r)18(outine)-258(checks)-257(the)-257(value)-257(r)18(eturned)-257(in)-258(the)]TJ/F59 9.9626 Tf 284.621 0 Td [(info)]TJ/F54 9.9626 Tf 23.484 0 Td [(variable)]TJ -308.105 -11.955 Td [(and,)-290(if)-282(not)-282(zer)18(o,)-291(an)-282(err)18(or)-282(condition)-282(is)-282(raised.)-407(This)-282(pr)18(ocess)-282(continues)-282(on)-282(all)-282(the)]TJ 0 -11.955 Td [(levels)-203(of)-203(nested)-203(calls)-203(until)-203(the)-203(level)-203(wher)18(e)-202(the)-203(user)-203(decides)-203(to)-203(abort)-203(the)-203(pr)18(ogram)]TJ 0 -11.955 Td [(execution.)]TJ 14.944 -11.955 Td [(Figur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+ [-286(5)]TJ
+0 g 0 G
+ [-285(shows)-286(the)-286(layou)1(t)-286(of)-286(a)-285(generic)]TJ/F59 9.9626 Tf 172.064 0 Td [(psb_foo)]TJ/F54 9.9626 Tf 39.458 0 Td [(r)18(outine)-286(with)-285(r)18(espect)-286(to)-286(the)]TJ -226.466 -11.956 Td [(PSBLAS-2.0)-258(err)18(or)-259(handling)-258(policy)111(.)-335(It)-258(is)-258(possible)-259(to)-258(see)-258(how)92(,)-261(whenever)-258(an)-258(err)18(or)]TJ 0 -11.955 Td [(condition)-298(is)-298(detected,)-311(the)]TJ/F59 9.9626 Tf 114.879 0 Td [(info)]TJ/F54 9.9626 Tf 23.893 0 Td [(variable)-298(is)-299(set)-298(to)-298(the)-298(corr)18(esponding)-299(err)18(or)-298(code)]TJ -138.772 -11.955 Td [(which)-309(is,)-324(then,)-324(pushed)-310(on)-309(top)-309(of)-310(the)-309(stack)-309(by)-309(means)-310(of)-309(the)]TJ/F59 9.9626 Tf 265.277 0 Td [(psb_errpush)]TJ/F54 9.9626 Tf 57.534 0 Td [(.)-488(An)]TJ -322.811 -11.955 Td [(err)18(or)-325(condition)-326(may)-325(be)-326(dir)18(ectl)1(y)-326(detected)-325(inside)-326(a)-325(r)18(outine)-325(or)-326(indir)18(ectly)-325(check-)]TJ 0 -11.955 Td [(ing)-331(the)-331(err)18(or)-331(code)-331(r)18(eturned)-331(r)18(eturned)-331(by)-331(a)-331(called)-331(r)18(outine.)-553(Whenever)-331(an)-331(err)18(or)]TJ 0 -11.956 Td [(is)-253(encounter)18(ed,)-255(after)-253(it)-254(has)-253(been)-254(pushed)-253(on)-254(st)1(ack,)-255(the)-253(pr)18(ogram)-254(execution)-253(skips)]TJ 0 -11.955 Td [(to)-264(a)-265(point)-264(wher)18(e)-264(the)-265(err)18(or)-264(condition)-264(is)-264(handled;)-272(the)-264(err)18(or)-265(condition)-264(is)-264(handled)]TJ 0 -11.955 Td [(either)-336(by)-336(r)18(eturning)-336(contr)18(ol)-336(to)-336(the)-336(caller)-335(r)17(o)1(utine)-336(or)-336(by)-336(calling)-336(the)]TJ/F59 9.9626 Tf 291.408 0 Td [(psb\134_error)]TJ/F54 9.9626 Tf -291.408 -11.955 Td [(r)18(outine)-273(which)-274(prints)-273(the)-274(content)-273(of)-273(the)-274(err)18(or)-273(stack)-274(and)-273(aborts)-273(the)-274(pr)18(ogram)-273(ex-)]TJ 0 -11.955 Td [(ecution,)-373(accor)18(ding)-348(to)-348(the)-348(choice)-348(made)-348(by)-348(the)-348(user)-348(with)]TJ/F59 9.9626 Tf 252.305 0 Td [(psb_set_erraction)]TJ/F54 9.9626 Tf 88.915 0 Td [(.)]TJ -341.22 -11.955 Td [(The)-297(default)-296(is)-297(to)-296(print)-297(the)-297(err)18(or)-296(and)-297(terminate)-296(the)-297(pr)18(ogram,)-308(but)-297(the)-297(user)-296(may)]TJ 0 -11.956 Td [(choose)-250(to)-250(handle)-250(the)-250(err)18(or)-250(explicitly)111(.)]TJ 14.944 -11.955 Td [(Figur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+ [-347(6)]TJ
+0 g 0 G
+ [-348(r)18(eports)-347(a)-347(sample)-347(err)18(or)-348(message)-347(generated)-347(by)-348(the)-347(PSBLAS-2.0)-347(li-)]TJ -14.944 -11.955 Td [(brary)111(.)-539(This)-327(err)18(or)-326(has)-327(been)-326(generated)-327(by)-326(the)-326(fact)-327(that)-326(the)-327(user)-326(has)-327(chosen)-326(the)]TJ 0 -11.955 Td [(invalid)-379(\223FOO\224)-380(stor)1(a)-1(g)1(e)-380(format)-379(to)-379(r)18(epr)18(esent)-380(the)-379(sparse)-379(matrix.)-698(Fr)18(om)-380(this)-379(er)18(-)]TJ 0 -11.955 Td [(r)18(or)-394(message)-393(it)-394(is)-393(possible)-394(to)-394(se)1(e)-394(that)-394(the)-393(err)18(or)-394(has)-393(been)-394(detected)-394(inside)-393(the)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_cest)]TJ/F54 9.9626 Tf 45.361 0 Td [(subr)18(outine)-353(called)-353(by)]TJ/F59 9.9626 Tf 95.326 0 Td [(psb_spasb)]TJ/F54 9.9626 Tf 50.591 0 Td [(...)-619(by)-354(pr)18(ocess)-353(0)-353(\050i.e.)-619(the)-353(r)18(oot)-354(pr)18(o-)]TJ -191.278 -11.956 Td [(cess\051.)]TJ
+0 g 0 G
+ 164.384 -198.123 Td [(136)]TJ
+0 g 0 G
 ET
+
+endstream
+endobj
+1775 0 obj
+<<
+/Length 6642      
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 q
-1 0 0 1 181.23 667.439 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 99.895 417.212 cm
+0 0 343.711 292.902 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F54 9.9626 Tf 184.919 667.24 Td [(r)-70(e)-70(a)-71(d)-203(\050)-150(b)-206(,)-926(i)-152(r)-151(e)-152(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-882(f)-107(i)-107(l)-107(e)-106(n)-107(a)-107(m)-107(e)-241(\051)]TJ
+/F59 9.9626 Tf 102.884 698.757 Td [(subroutine)]TJ
+0 g 0 G
+ [-525(psb_foo\050some)-525(args,)-525(info\051)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 9.9626 Tf 15.691 -11.956 Td [(!...)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F59 9.9626 Tf 0 -11.955 Td [(if)]TJ
 0 g 0 G
+ [(\050error)-525(detected\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 0 g 0 G
-/F51 9.9626 Tf -85.024 -27.896 Td [(T)90(ype:)]TJ
+ 15.691 -11.955 Td [(info)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+ [(errcode1)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.955 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [-525(psb_errpush\050)]TJ
+0.25 0.44 0.63 rg 0.25 0.44 0.63 RG
+ [(\015psb_foo\015)]TJ
 0 g 0 G
+ [(,)-525(errcode1\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.955 Td [(goto)]TJ
 0 g 0 G
- 0 -19.925 Td [(\002lename)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(9999)]TJ
 0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.185 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -15.691 -11.955 Td [(end)-525(if)]TJ
 0 g 0 G
-/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 9.9626 Tf 0 -11.956 Td [(!...)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+/F59 9.9626 Tf 0 -11.955 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.895 -21.918 Td [(On)-250(Return)]TJ
+ [-525(psb_bar\050some)-525(args,)-525(info\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.955 Td [(if)]TJ
 0 g 0 G
+ [(\050info)-525(.ne.)-525(zero\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
 0 g 0 G
- 0 -19.926 Td [(b)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-398(array)-398(of)-397(type)-398(r)18(eal)-398(or)-398(complex,)-435(rank)-397(1)-398(or)-398(2)-398(and)-398(having)-397(the)-398(ALLO-)]TJ 0 -11.955 Td [(CA)74(T)74(ABLE)-257(attribute,)-258(or)-257(an)-257(object)-257(of)-257(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 177.911 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 319.032 430.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 322.17 430.129 Td [(T)]TJ
-ET
-q
-1 0 0 1 328.028 430.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 331.166 430.129 Td [(vect)]TJ
+ 15.691 -11.955 Td [(info)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
+0 g 0 G
+ [(errcode2)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.955 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_errpush\050)]TJ
+0.25 0.44 0.63 rg 0.25 0.44 0.63 RG
+ [(\015psb_foo\015)]TJ
+0 g 0 G
+ [(,)-525(errcode2\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.956 Td [(goto)]TJ
+0 g 0 G
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(9999)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -15.691 -11.955 Td [(end)-525(if)]TJ
+0 g 0 G
+0.38 0.63 0.69 rg 0.38 0.63 0.69 RG
+/F112 9.9626 Tf 0 -11.955 Td [(!...)]TJ
+0 g 0 G
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+/F59 9.9626 Tf -15.691 -11.955 Td [(9999)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(continue)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 15.691 -11.955 Td [(if)]TJ
+0 g 0 G
+ [-525(\050err_act)-525(.eq.)-525(act_abort\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 15.691 -11.955 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_error\050icontxt\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.956 Td [(return)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -15.691 -11.955 Td [(else)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -11.955 Td [(return)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -15.691 -11.955 Td [(end)-525(if)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -23.91 Td [(end)-525(subroutine)]TJ
+0 g 0 G
+ [-525(psb_foo)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf -2.989 -41.729 Td [(Listing)-289(5:)-387(The)-289(layout)-289(of)-289(a)-289(generic)]TJ/F59 9.9626 Tf 149.96 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 352.715 430.328 cm
+1 0 0 1 266.174 382.258 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 355.853 430.129 Td [(type)]TJ
+/F59 9.9626 Tf 269.312 382.059 Td [(foo)]TJ/F54 9.9626 Tf 18.568 0 Td [(r)18(outine)-289(with)-289(r)18(espect)-288(to)-289(PSBLAS-2.0)]TJ -187.985 -11.955 Td [(err)18(or)-250(handling)-250(policy)111(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(,)-259(of)-257(type)-256(r)18(eal)-257(or)]TJ -251.972 -11.955 Td [(complex.)]TJ 0 -11.955 Td [(W)55(ill)-275(be)-276(allocated)-275(and)-275(\002lled)-276(in)-275(if)-276(the)-275(input)-275(\002le)-276(contains)-275(a)-275(right)-276(hand)-275(side,)]TJ 0 -11.956 Td [(otherwise)-250(will)-250(be)-250(left)-250(in)-250(the)-250(UNALLOCA)74(TED)-250(state.)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+/F59 9.9626 Tf 0 -19.609 Td [(==========================================================)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(iret)]TJ
+ 0 -11.955 Td [(Process:)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(0)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+ [(.)-1050(PSBLAS)-525(Error)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(\050)]TJ
 0 g 0 G
- 139.477 -248.035 Td [(137)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [(4010)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1672 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 968
-/Length 9330      
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(\051)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(in)]TJ
+0 g 0 G
+ [-525(subroutine:)-525(df_sample)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)-525(mat)]TJ
+0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
+ [-525(dist)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ 0 -11.955 Td [(==========================================================)]TJ
+0 g 0 G
+ 0 -11.955 Td [(Process:)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(0)]TJ
+0 g 0 G
+ [(.)-1050(PSBLAS)-525(Error)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(\050)]TJ
+0 g 0 G
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [(4010)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(\051)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(in)]TJ
+0 g 0 G
+ [-525(subroutine:)-525(mat_distv)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)]TJ
+0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
+ [-525(psb_spasb)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ 0 -11.956 Td [(==========================================================)]TJ
+0 g 0 G
+ 0 -11.955 Td [(Process:)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(0)]TJ
+0 g 0 G
+ [(.)-1050(PSBLAS)-525(Error)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(\050)]TJ
+0 g 0 G
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [(4010)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(\051)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(in)]TJ
+0 g 0 G
+ [-525(subroutine:)-525(psb_spasb)]TJ 0 -11.955 Td [(Error)-525(from)-525(call)-525(to)-525(subroutine)]TJ
+0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
+ [-525(psb_cest)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ 0 -11.955 Td [(==========================================================)]TJ
+0 g 0 G
+ 0 -11.955 Td [(Process:)]TJ
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [-525(0)]TJ
+0 g 0 G
+ [(.)-1050(PSBLAS)-525(Error)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(\050)]TJ
+0 g 0 G
+0.25 0.63 0.44 rg 0.25 0.63 0.44 RG
+ [(136)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(\051)]TJ
+0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(in)]TJ
+0 g 0 G
+ [-525(subroutine:)-525(psb_cest)]TJ 0 -11.955 Td [(Format)-525(FOO)-525(is)]TJ
+0.73 0.38 0.84 rg 0.73 0.38 0.84 RG
+ [-525(unknown)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ 0 -11.956 Td [(==========================================================)]TJ
+0 g 0 G
+ 0 -11.955 Td [(Aborting...)]TJ
+0 g 0 G
+/F54 9.9626 Tf 0 -29.397 Td [(Listing)-364(6:)-537(A)-364(sample)-364(PSBLAS-3.0)-363(err)18(or)-364(message.)-651(Pr)18(ocess)-364(0)-364(detected)-363(an)-364(err)18(or)]TJ 0 -11.955 Td [(condition)-250(inside)-250(the)-250(psb)]TJ
+ET
+q
+1 0 0 1 206.215 153.925 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 209.204 153.726 Td [(cest)-250(subr)18(outine)]TJ
+0 g 0 G
+ 55.075 -63.288 Td [(137)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1779 0 obj
+<<
+/Length 3570      
 >>
 stream
-465 0 1670 58 1671 117 1666 176 1674 323 1676 441 469 499 1677 556 1678 614 1673 672
-1681 819 1683 937 473 996 1684 1054 1685 1113 1680 1172 1687 1319 1689 1437 477 1495 1690 1552
-1691 1610 1686 1668 1693 1815 1695 1933 481 1992 1696 2050 1697 2109 1699 2168 1692 2227 1701 2401
-1703 2519 485 2577 1704 2634 1700 2692 1706 2839 1708 2957 489 3016 1709 3074 1705 3133 1713 3280
-1710 3428 1711 3576 1715 3723 493 3781 1712 3838 1720 3932 1722 4050 1717 4109 1718 4168 1719 4227
-1725 4323 1727 4441 497 4499 1728 4556 1729 4614 1724 4672 1731 4753 1733 4871 501 4930 1734 4988
-1735 5046 1730 5105 1737 5186 1739 5304 505 5362 1740 5419 1741 5477 1736 5535 1743 5616 1745 5734
-509 5793 1746 5851 1747 5909 1742 5968 1749 6062 1751 6180 513 6238 1748 6295 1755 6389 1753 6528
-1757 6673 517 6732 1758 6790 1759 6849 1754 6908 1762 7002 1760 7141 1764 7286 521 7344 1765 7401
-1766 7459 1761 7517 1769 7611 1767 7750 1771 7895 525 7954 1772 8012 1773 8070 1768 8129 1776 8223
-% 465 0 obj
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(8.1)-1000(psb)]TJ
+ET
+q
+1 0 0 1 198.238 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 201.825 706.129 Td [(errpush)-250(\227)-250(Pushes)-250(an)-250(error)-250(code)-250(onto)-250(the)-250(error)-250(stack)]TJ/F54 9.9626 Tf -49.379 -24.942 Td [(c)-175(a)-175(l)-174(l)-874(p)-98(s)-99(b)]TJ
+ET
+q
+1 0 0 1 200.841 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 204.812 681.187 Td [(e)-99(r)-98(r)-99(p)-98(u)-99(s)-99(h)-232(\050)-266(e)-132(r)-132(r)]TJ
+ET
+q
+1 0 0 1 270.843 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 275.151 681.187 Td [(c)-440(,)-825(r)]TJ
+ET
+q
+1 0 0 1 299.7 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 303.188 681.187 Td [(n)-50(a)-50(m)-50(e)-276(,)-929(i)]TJ
+ET
+q
+1 0 0 1 348.561 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 353.087 681.187 Td [(e)-154(r)-155(r)-483(,)-920(a)]TJ
+ET
+q
+1 0 0 1 392.305 681.387 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 396.74 681.187 Td [(e)-145(r)-145(r)-279(\051)]TJ
+0 g 0 G
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -246.035 -27.895 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(err)]TJ
+ET
+q
+1 0 0 1 164.035 613.641 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 167.023 613.442 Td [(c)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.405 0 Td [(the)-250(err)18(or)-250(code)]TJ -0.817 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -19.925 Td [(r)]TJ
+ET
+q
+1 0 0 1 155.178 545.895 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 158.167 545.696 Td [(name)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.888 0 Td [(the)-250(soutine)-250(wher)18(e)-250(the)-250(err)18(or)-250(has)-250(been)-250(caught.)]TJ -12.444 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(string.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -31.881 Td [(i)]TJ
+ET
+q
+1 0 0 1 154.62 466.194 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 157.609 465.994 Td [(err)]TJ
+0 g 0 G
+/F54 9.9626 Tf 17.713 0 Td [(addional)-250(info)-250(for)-250(err)18(or)-250(code)]TJ 0.289 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(array)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -31.881 Td [(a)]TJ
+ET
+q
+1 0 0 1 156.284 398.448 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 159.273 398.249 Td [(err)]TJ
+0 g 0 G
+/F54 9.9626 Tf 17.713 0 Td [(addional)-250(info)-250(for)-250(err)18(or)-250(code)]TJ -1.375 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(string.)]TJ
+0 g 0 G
+ 139.477 -271.945 Td [(138)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1785 0 obj
 <<
-/D [1667 0 R /XYZ 150.705 716.092 null]
+/Length 1332      
 >>
-% 1670 0 obj
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(8.2)-1000(psb)]TJ
+ET
+q
+1 0 0 1 147.429 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 151.016 706.129 Td [(error)-306(\227)-306(Prints)-306(the)-306(error)-307(s)1(tack)-307(content)-306(and)-306(aborts)-306(exe-)]TJ -24.221 -13.948 Td [(cution)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-900(p)-126(s)-125(b)]TJ
+ET
+q
+1 0 0 1 151.092 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 155.328 667.24 Td [(e)-125(r)-125(r)-126(o)-125(r)-259(\050)-279(i)-146(c)-146(o)-147(n)-146(t)-146(x)-146(t)-280(\051)]TJ
+0 g 0 G
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -55.433 -27.896 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(icontxt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
+0 g 0 G
+ 139.477 -461.235 Td [(139)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1674 0 obj
 <<
-/D [1667 0 R /XYZ 150.705 246.601 null]
+/Type /ObjStm
+/N 100
+/First 975
+/Length 9667      
 >>
+stream
+1671 0 1673 118 457 177 1670 235 1676 382 1678 500 1679 558 1680 616 1681 674 1675 731
+1685 866 1687 984 461 1043 1684 1101 1689 1248 1691 1366 1692 1424 1693 1482 1694 1540 1688 1597
+1696 1732 1698 1850 465 1909 1695 1967 1700 2114 1702 2232 1703 2290 1704 2348 1705 2406 1699 2464
+1707 2599 1709 2717 469 2776 1706 2834 1711 2981 1713 3099 1714 3157 1715 3215 1716 3273 1710 3330
+1719 3465 1721 3583 473 3642 1718 3700 1723 3847 1725 3965 1726 4023 1727 4081 1728 4139 1722 4196
+1730 4331 1732 4449 477 4508 1729 4566 1734 4713 1736 4831 1737 4889 1738 4947 1739 5005 1733 5062
+1741 5197 1743 5315 481 5374 1740 5432 1745 5579 1747 5697 1748 5755 1749 5813 1751 5870 1752 5928
+1753 5986 1744 6043 1756 6218 1758 6336 485 6395 1759 6453 1755 6512 1761 6659 1763 6777 489 6835
+1764 6892 1760 6950 1768 7097 1765 7245 1766 7393 1770 7541 493 7600 1767 7658 1774 7752 1776 7870
+1771 7928 1772 7986 1773 8044 1778 8140 1780 8258 497 8317 1781 8375 1782 8434 1777 8493 1784 8574
 % 1671 0 obj
 <<
-/D [1667 0 R /XYZ 150.705 212.127 null]
+/Type /Page
+/Contents 1672 0 R
+/Resources 1670 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1653 0 R
 >>
-% 1666 0 obj
+% 1673 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
+/D [1671 0 R /XYZ 149.705 753.953 null]
+>>
+% 457 0 obj
+<<
+/D [1671 0 R /XYZ 150.705 716.092 null]
+>>
+% 1670 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1674 0 obj
+% 1676 0 obj
 <<
 /Type /Page
-/Contents 1675 0 R
-/Resources 1673 0 R
+/Contents 1677 0 R
+/Resources 1675 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
+/Parent 1683 0 R
 >>
-% 1676 0 obj
+% 1678 0 obj
 <<
-/D [1674 0 R /XYZ 98.895 753.953 null]
+/D [1676 0 R /XYZ 98.895 753.953 null]
 >>
-% 469 0 obj
+% 1679 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 716.092 null]
+/D [1676 0 R /XYZ 99.895 528.579 null]
 >>
-% 1677 0 obj
+% 1680 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 246.601 null]
+/D [1676 0 R /XYZ 99.895 494.104 null]
 >>
-% 1678 0 obj
+% 1681 0 obj
 <<
-/D [1674 0 R /XYZ 99.895 212.127 null]
+/D [1676 0 R /XYZ 99.895 407.25 null]
 >>
-% 1673 0 obj
+% 1675 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1681 0 obj
+% 1685 0 obj
 <<
 /Type /Page
-/Contents 1682 0 R
-/Resources 1680 0 R
+/Contents 1686 0 R
+/Resources 1684 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
+/Parent 1683 0 R
 >>
-% 1683 0 obj
+% 1687 0 obj
 <<
-/D [1681 0 R /XYZ 149.705 753.953 null]
+/D [1685 0 R /XYZ 149.705 753.953 null]
 >>
-% 473 0 obj
+% 461 0 obj
 <<
-/D [1681 0 R /XYZ 150.705 716.092 null]
+/D [1685 0 R /XYZ 150.705 716.092 null]
 >>
 % 1684 0 obj
 <<
-/D [1681 0 R /XYZ 150.705 234.646 null]
->>
-% 1685 0 obj
-<<
-/D [1681 0 R /XYZ 150.705 200.171 null]
->>
-% 1680 0 obj
-<<
 /Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1687 0 obj
+% 1689 0 obj
 <<
 /Type /Page
-/Contents 1688 0 R
-/Resources 1686 0 R
+/Contents 1690 0 R
+/Resources 1688 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
+/Parent 1683 0 R
 >>
-% 1689 0 obj
+% 1691 0 obj
 <<
-/D [1687 0 R /XYZ 98.895 753.953 null]
+/D [1689 0 R /XYZ 98.895 753.953 null]
 >>
-% 477 0 obj
+% 1692 0 obj
 <<
-/D [1687 0 R /XYZ 99.895 716.092 null]
+/D [1689 0 R /XYZ 99.895 552.489 null]
 >>
-% 1690 0 obj
+% 1693 0 obj
 <<
-/D [1687 0 R /XYZ 99.895 234.646 null]
+/D [1689 0 R /XYZ 99.895 518.014 null]
 >>
-% 1691 0 obj
+% 1694 0 obj
 <<
-/D [1687 0 R /XYZ 99.895 200.171 null]
+/D [1689 0 R /XYZ 99.895 431.16 null]
 >>
-% 1686 0 obj
+% 1688 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1693 0 obj
+% 1696 0 obj
 <<
 /Type /Page
-/Contents 1694 0 R
-/Resources 1692 0 R
+/Contents 1697 0 R
+/Resources 1695 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
+/Parent 1683 0 R
 >>
-% 1695 0 obj
-<<
-/D [1693 0 R /XYZ 149.705 753.953 null]
->>
-% 481 0 obj
-<<
-/D [1693 0 R /XYZ 150.705 716.092 null]
->>
-% 1696 0 obj
-<<
-/D [1693 0 R /XYZ 150.705 269.508 null]
->>
-% 1697 0 obj
+% 1698 0 obj
 <<
-/D [1693 0 R /XYZ 150.705 235.718 null]
+/D [1696 0 R /XYZ 149.705 753.953 null]
 >>
-% 1699 0 obj
+% 465 0 obj
 <<
-/D [1693 0 R /XYZ 150.705 151.671 null]
+/D [1696 0 R /XYZ 150.705 716.092 null]
 >>
-% 1692 0 obj
+% 1695 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F1 1698 0 R /F96 1154 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1701 0 obj
+% 1700 0 obj
 <<
 /Type /Page
-/Contents 1702 0 R
-/Resources 1700 0 R
+/Contents 1701 0 R
+/Resources 1699 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
+/Parent 1683 0 R
 >>
-% 1703 0 obj
+% 1702 0 obj
 <<
-/D [1701 0 R /XYZ 98.895 753.953 null]
+/D [1700 0 R /XYZ 98.895 753.953 null]
 >>
-% 485 0 obj
+% 1703 0 obj
 <<
-/D [1701 0 R /XYZ 99.895 716.092 null]
+/D [1700 0 R /XYZ 99.895 540.534 null]
 >>
 % 1704 0 obj
 <<
-/D [1701 0 R /XYZ 99.895 222.691 null]
+/D [1700 0 R /XYZ 99.895 506.059 null]
 >>
-% 1700 0 obj
+% 1705 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F61 1360 0 R /F85 814 0 R /F83 813 0 R >>
+/D [1700 0 R /XYZ 99.895 419.205 null]
+>>
+% 1699 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1706 0 obj
+% 1707 0 obj
 <<
 /Type /Page
-/Contents 1707 0 R
-/Resources 1705 0 R
+/Contents 1708 0 R
+/Resources 1706 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1679 0 R
->>
-% 1708 0 obj
-<<
-/D [1706 0 R /XYZ 149.705 753.953 null]
+/Parent 1683 0 R
 >>
-% 489 0 obj
+% 1709 0 obj
 <<
-/D [1706 0 R /XYZ 150.705 716.092 null]
+/D [1707 0 R /XYZ 149.705 753.953 null]
 >>
-% 1709 0 obj
+% 469 0 obj
 <<
-/D [1706 0 R /XYZ 150.705 222.691 null]
+/D [1707 0 R /XYZ 150.705 716.092 null]
 >>
-% 1705 0 obj
+% 1706 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1713 0 obj
+% 1711 0 obj
 <<
 /Type /Page
-/Contents 1714 0 R
-/Resources 1712 0 R
+/Contents 1712 0 R
+/Resources 1710 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
-/Annots [ 1710 0 R 1711 0 R ]
+/Parent 1717 0 R
 >>
-% 1710 0 obj
+% 1713 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [145.202 499.949 152.175 512.009]
-/A << /S /GoTo /D (listing.5) >>
+/D [1711 0 R /XYZ 98.895 753.953 null]
 >>
-% 1711 0 obj
+% 1714 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [145.816 344.532 152.79 356.591]
-/A << /S /GoTo /D (listing.6) >>
+/D [1711 0 R /XYZ 99.895 552.489 null]
 >>
 % 1715 0 obj
 <<
-/D [1713 0 R /XYZ 98.895 753.953 null]
+/D [1711 0 R /XYZ 99.895 518.014 null]
 >>
-% 493 0 obj
+% 1716 0 obj
 <<
-/D [1713 0 R /XYZ 99.895 716.092 null]
+/D [1711 0 R /XYZ 99.895 431.16 null]
 >>
-% 1712 0 obj
+% 1710 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1720 0 obj
+% 1719 0 obj
 <<
 /Type /Page
-/Contents 1721 0 R
-/Resources 1719 0 R
+/Contents 1720 0 R
+/Resources 1718 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
+/Parent 1717 0 R
 >>
-% 1722 0 obj
+% 1721 0 obj
 <<
-/D [1720 0 R /XYZ 149.705 753.953 null]
+/D [1719 0 R /XYZ 149.705 753.953 null]
 >>
-% 1717 0 obj
+% 473 0 obj
 <<
-/D [1720 0 R /XYZ 150.705 411.235 null]
+/D [1719 0 R /XYZ 150.705 716.092 null]
 >>
 % 1718 0 obj
 <<
-/D [1720 0 R /XYZ 150.705 182.902 null]
->>
-% 1719 0 obj
-<<
-/Font << /F59 812 0 R /F115 1723 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1725 0 obj
+% 1723 0 obj
 <<
 /Type /Page
-/Contents 1726 0 R
-/Resources 1724 0 R
+/Contents 1724 0 R
+/Resources 1722 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
+/Parent 1717 0 R
 >>
-% 1727 0 obj
+% 1725 0 obj
 <<
-/D [1725 0 R /XYZ 98.895 753.953 null]
+/D [1723 0 R /XYZ 98.895 753.953 null]
 >>
-% 497 0 obj
+% 1726 0 obj
 <<
-/D [1725 0 R /XYZ 99.895 716.092 null]
+/D [1723 0 R /XYZ 99.895 528.579 null]
 >>
-% 1728 0 obj
+% 1727 0 obj
 <<
-/D [1725 0 R /XYZ 99.895 690.058 null]
+/D [1723 0 R /XYZ 99.895 494.104 null]
 >>
-% 1729 0 obj
+% 1728 0 obj
 <<
-/D [1725 0 R /XYZ 99.895 693.143 null]
+/D [1723 0 R /XYZ 99.895 407.25 null]
 >>
-% 1724 0 obj
+% 1722 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1731 0 obj
+% 1730 0 obj
 <<
 /Type /Page
-/Contents 1732 0 R
-/Resources 1730 0 R
+/Contents 1731 0 R
+/Resources 1729 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
+/Parent 1717 0 R
 >>
-% 1733 0 obj
-<<
-/D [1731 0 R /XYZ 149.705 753.953 null]
->>
-% 501 0 obj
+% 1732 0 obj
 <<
-/D [1731 0 R /XYZ 150.705 716.092 null]
+/D [1730 0 R /XYZ 149.705 753.953 null]
 >>
-% 1734 0 obj
-<<
-/D [1731 0 R /XYZ 150.705 678.98 null]
->>
-% 1735 0 obj
+% 477 0 obj
 <<
-/D [1731 0 R /XYZ 150.705 679.195 null]
+/D [1730 0 R /XYZ 150.705 716.092 null]
 >>
-% 1730 0 obj
+% 1729 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1737 0 obj
+% 1734 0 obj
 <<
 /Type /Page
-/Contents 1738 0 R
-/Resources 1736 0 R
+/Contents 1735 0 R
+/Resources 1733 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
+/Parent 1717 0 R
 >>
-% 1739 0 obj
+% 1736 0 obj
 <<
-/D [1737 0 R /XYZ 98.895 753.953 null]
+/D [1734 0 R /XYZ 98.895 753.953 null]
 >>
-% 505 0 obj
+% 1737 0 obj
 <<
-/D [1737 0 R /XYZ 99.895 716.092 null]
+/D [1734 0 R /XYZ 99.895 528.579 null]
 >>
-% 1740 0 obj
+% 1738 0 obj
 <<
-/D [1737 0 R /XYZ 99.895 689.963 null]
+/D [1734 0 R /XYZ 99.895 494.104 null]
 >>
-% 1741 0 obj
+% 1739 0 obj
 <<
-/D [1737 0 R /XYZ 99.895 693.143 null]
+/D [1734 0 R /XYZ 99.895 407.25 null]
 >>
-% 1736 0 obj
+% 1733 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F94 915 0 R /F52 585 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1743 0 obj
+% 1741 0 obj
 <<
 /Type /Page
-/Contents 1744 0 R
-/Resources 1742 0 R
+/Contents 1742 0 R
+/Resources 1740 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1716 0 R
+/Parent 1717 0 R
 >>
-% 1745 0 obj
+% 1743 0 obj
 <<
-/D [1743 0 R /XYZ 149.705 753.953 null]
+/D [1741 0 R /XYZ 149.705 753.953 null]
 >>
-% 509 0 obj
+% 481 0 obj
+<<
+/D [1741 0 R /XYZ 150.705 716.092 null]
+>>
+% 1740 0 obj
 <<
-/D [1743 0 R /XYZ 150.705 716.092 null]
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F83 813 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1746 0 obj
+% 1745 0 obj
 <<
-/D [1743 0 R /XYZ 150.705 678.98 null]
+/Type /Page
+/Contents 1746 0 R
+/Resources 1744 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1754 0 R
 >>
 % 1747 0 obj
 <<
-/D [1743 0 R /XYZ 150.705 679.195 null]
+/D [1745 0 R /XYZ 98.895 753.953 null]
 >>
-% 1742 0 obj
+% 1748 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1745 0 R /XYZ 99.895 564.444 null]
 >>
 % 1749 0 obj
 <<
-/Type /Page
-/Contents 1750 0 R
-/Resources 1748 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
+/D [1745 0 R /XYZ 99.895 529.97 null]
 >>
 % 1751 0 obj
 <<
-/D [1749 0 R /XYZ 98.895 753.953 null]
+/D [1745 0 R /XYZ 99.895 441.815 null]
 >>
-% 513 0 obj
+% 1752 0 obj
 <<
-/D [1749 0 R /XYZ 99.895 716.092 null]
+/D [1745 0 R /XYZ 99.895 409.935 null]
 >>
-% 1748 0 obj
+% 1753 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/D [1745 0 R /XYZ 99.895 323.08 null]
+>>
+% 1744 0 obj
+<<
+/Font << /F54 586 0 R /F51 584 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F1 1750 0 R /F96 1154 0 R /F94 915 0 R /F112 1682 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1755 0 obj
+% 1756 0 obj
 <<
 /Type /Page
-/Contents 1756 0 R
-/Resources 1754 0 R
+/Contents 1757 0 R
+/Resources 1755 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
-/Annots [ 1753 0 R ]
+/Parent 1754 0 R
 >>
-% 1753 0 obj
+% 1758 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 438.278 420.271 450.338]
-/A << /S /GoTo /D (spdata) >>
+/D [1756 0 R /XYZ 149.705 753.953 null]
 >>
-% 1757 0 obj
+% 485 0 obj
 <<
-/D [1755 0 R /XYZ 149.705 753.953 null]
+/D [1756 0 R /XYZ 150.705 716.092 null]
 >>
-% 517 0 obj
+% 1759 0 obj
 <<
-/D [1755 0 R /XYZ 150.705 716.092 null]
+/D [1756 0 R /XYZ 150.705 222.691 null]
 >>
-% 1758 0 obj
+% 1755 0 obj
 <<
-/D [1755 0 R /XYZ 150.705 676.015 null]
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F61 1360 0 R /F85 814 0 R /F83 813 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1759 0 obj
+% 1761 0 obj
 <<
-/D [1755 0 R /XYZ 150.705 679.195 null]
+/Type /Page
+/Contents 1762 0 R
+/Resources 1760 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1754 0 R
 >>
-% 1754 0 obj
+% 1763 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/D [1761 0 R /XYZ 98.895 753.953 null]
+>>
+% 489 0 obj
+<<
+/D [1761 0 R /XYZ 99.895 716.092 null]
+>>
+% 1764 0 obj
+<<
+/D [1761 0 R /XYZ 99.895 222.691 null]
+>>
+% 1760 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F61 1360 0 R /F85 814 0 R /F52 585 0 R /F83 813 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1762 0 obj
+% 1768 0 obj
 <<
 /Type /Page
-/Contents 1763 0 R
-/Resources 1761 0 R
+/Contents 1769 0 R
+/Resources 1767 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
-/Annots [ 1760 0 R ]
+/Parent 1754 0 R
+/Annots [ 1765 0 R 1766 0 R ]
 >>
-% 1760 0 obj
+% 1765 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 571.778 369.462 583.837]
-/A << /S /GoTo /D (spdata) >>
->>
-% 1764 0 obj
-<<
-/D [1762 0 R /XYZ 98.895 753.953 null]
+/Rect [196.011 499.949 202.985 512.009]
+/A << /S /GoTo /D (listing.5) >>
 >>
-% 521 0 obj
+% 1766 0 obj
 <<
-/D [1762 0 R /XYZ 99.895 716.092 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [196.625 344.532 203.599 356.591]
+/A << /S /GoTo /D (listing.6) >>
 >>
-% 1765 0 obj
+% 1770 0 obj
 <<
-/D [1762 0 R /XYZ 99.895 676.015 null]
+/D [1768 0 R /XYZ 149.705 753.953 null]
 >>
-% 1766 0 obj
+% 493 0 obj
 <<
-/D [1762 0 R /XYZ 99.895 679.195 null]
+/D [1768 0 R /XYZ 150.705 716.092 null]
 >>
-% 1761 0 obj
+% 1767 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1769 0 obj
+% 1774 0 obj
 <<
 /Type /Page
-/Contents 1770 0 R
-/Resources 1768 0 R
+/Contents 1775 0 R
+/Resources 1773 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
-/Annots [ 1767 0 R ]
+/Parent 1754 0 R
 >>
-% 1767 0 obj
+% 1776 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 438.278 420.271 450.338]
-/A << /S /GoTo /D (spdata) >>
+/D [1774 0 R /XYZ 98.895 753.953 null]
 >>
 % 1771 0 obj
 <<
-/D [1769 0 R /XYZ 149.705 753.953 null]
->>
-% 525 0 obj
-<<
-/D [1769 0 R /XYZ 150.705 716.092 null]
+/D [1774 0 R /XYZ 99.895 411.235 null]
 >>
 % 1772 0 obj
 <<
-/D [1769 0 R /XYZ 150.705 678.98 null]
+/D [1774 0 R /XYZ 99.895 182.902 null]
 >>
 % 1773 0 obj
 <<
-/D [1769 0 R /XYZ 150.705 679.195 null]
+/Font << /F59 812 0 R /F112 1682 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1768 0 obj
+% 1778 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Type /Page
+/Contents 1779 0 R
+/Resources 1777 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1754 0 R
+>>
+% 1780 0 obj
+<<
+/D [1778 0 R /XYZ 149.705 753.953 null]
+>>
+% 497 0 obj
+<<
+/D [1778 0 R /XYZ 150.705 716.092 null]
+>>
+% 1781 0 obj
+<<
+/D [1778 0 R /XYZ 150.705 690.058 null]
+>>
+% 1782 0 obj
+<<
+/D [1778 0 R /XYZ 150.705 693.143 null]
+>>
+% 1777 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1776 0 obj
+% 1784 0 obj
 <<
 /Type /Page
-/Contents 1777 0 R
-/Resources 1775 0 R
+/Contents 1785 0 R
+/Resources 1783 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
-/Annots [ 1774 0 R ]
+/Parent 1789 0 R
 >>
 
 endstream
 endobj
-1785 0 obj
+1793 0 obj
 <<
-/Length 4016      
+/Length 1526      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(9.5)-1000(mm)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(8.3)-1000(psb)]TJ
 ET
 q
-1 0 0 1 199.577 706.328 cm
+1 0 0 1 198.238 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 203.164 706.129 Td [(mat)]TJ
+/F51 11.9552 Tf 201.825 706.129 Td [(set)]TJ
 ET
 q
-1 0 0 1 224.468 706.328 cm
+1 0 0 1 217.809 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 228.054 706.129 Td [(write)-275(\227)-275(W)74(rite)-275(a)-275(sparse)-275(matrix)-275(to)-275(a)-275(\002le)-275(in)-275(the)-275(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-828(m)-52(m)]TJ
+/F51 11.9552 Tf 221.396 706.129 Td [(errverbosity)-190(\227)-190(Sets)-190(the)-190(verbosity)-190(of)-190(error)-190(messages)]TJ/F54 9.9626 Tf -68.95 -24.942 Td [(c)-175(a)-175(l)-174(l)-921(p)-147(s)-146(b)]TJ
 ET
 q
-1 0 0 1 200.348 667.439 cm
+1 0 0 1 202.736 681.387 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 203.858 667.24 Td [(m)-52(a)-53(t)]TJ
+/F54 9.9626 Tf 207.181 681.187 Td [(s)-146(e)-146(t)]TJ
 ET
 q
-1 0 0 1 223.046 667.439 cm
+1 0 0 1 224.391 681.387 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 226.556 667.24 Td [(w)-52(r)-53(i)-52(t)-52(e)-186(\050)-167(a)-242(,)-900(m)-126(t)-125(i)-126(t)-125(l)-126(e)-426(,)-926(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-130(t)-434(,)-882(f)-107(i)-106(l)-107(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
+/F54 9.9626 Tf 228.836 681.187 Td [(e)-146(r)-146(r)-146(v)-147(e)-146(r)-146(b)-146(o)-146(s)-146(i)-146(t)-147(y)-279(\050)-151(v)-151(\051)]TJ
 0 g 0 G
 0 g 0 G
 0 g 0 G
-/F51 9.9626 Tf -75.851 -27.896 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -78.131 -27.895 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.292 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 360.068 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 363.206 575.584 Td [(Tspmat)]TJ
-ET
-q
-1 0 0 1 395.216 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 398.354 575.584 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -268.57 -19.926 Td [(mtitle)]TJ
-0 g 0 G
-/F54 9.9626 Tf 32.089 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(A)-231(charachter)-230(variable)-231(holding)-231(a)-230(descriptive)-231(title)-231(for)-230(the)-231(matrix)-231(to)-231(be)-230(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.906 -19.926 Td [(\002lename)]TJ
-0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.368 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.765 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-234(\050i)1(.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.955 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -104.935 -19.926 Td [(iunit)]TJ
-0 g 0 G
-/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.758 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -317.894 -21.918 Td [(On)-250(Return)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(iret)]TJ
+ 0 -19.925 Td [(v)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.433 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 10.52 0 Td [(the)-250(verbosity)-250(level)]TJ 14.386 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)]TJ
 0 g 0 G
- 139.477 -252.02 Td [(138)]TJ
+ 139.477 -475.183 Td [(140)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1792 0 obj
+1799 0 obj
 <<
-/Length 4279      
+/Length 2016      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(9.6)-1000(mm)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(8.4)-1000(psb)]TJ
 ET
 q
-1 0 0 1 148.768 706.328 cm
+1 0 0 1 147.429 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 152.354 706.129 Td [(array)]TJ
+/F51 11.9552 Tf 151.016 706.129 Td [(set)]TJ
 ET
 q
-1 0 0 1 180.975 706.328 cm
+1 0 0 1 166.999 706.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F51 11.9552 Tf 184.561 706.129 Td [(write)-374(\227)-375(W)74(rite)-374(a)-375(dense)-374(array)-374(from)-375(a)-374(\002le)-375(in)-374(the)]TJ -57.766 -13.948 Td [(MatrixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-858(m)-83(m)]TJ
+/F51 11.9552 Tf 170.586 706.129 Td [(erraction)-223(\227)-223(Set)-222(the)-223(type)-223(of)-223(action)-223(to)-222(be)-223(taken)-223(upon)]TJ -43.792 -13.948 Td [(error)-250(condition)]TJ/F54 9.9626 Tf -25.157 -24.941 Td [(c)-175(a)-175(l)-174(l)-926(p)-151(s)-151(b)]TJ
 ET
 q
-1 0 0 1 150.452 667.439 cm
+1 0 0 1 152.113 667.439 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 154.267 667.24 Td [(a)-83(r)-83(r)-83(a)-82(y)]TJ
+/F54 9.9626 Tf 156.605 667.24 Td [(s)-151(e)-151(t)]TJ
 ET
 q
-1 0 0 1 182.365 667.439 cm
+1 0 0 1 173.955 667.439 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F54 9.9626 Tf 186.18 667.24 Td [(w)-83(r)-83(i)-83(t)-82(e)-217(\050)-149(b)-206(,)-941(v)-165(t)-165(i)-165(t)-166(l)-165(e)-505(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-130(u)-129(n)-130(i)-129(t)-435(,)-881(f)-107(i)-107(l)-107(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
-0 g 0 G
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -86.285 -27.896 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.925 Td [(b)]TJ
-0 g 0 G
-/F54 9.9626 Tf 11.069 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-190(array)-190(of)-190(type)-190(r)18(eal)-190(or)-190(complex,)-202(rank)-190(1)-190(or)-190(2,)-202(or)-190(an)-190(object)-190(of)-190(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 277.746 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 418.866 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 422.005 575.584 Td [(T)]TJ
-ET
-q
-1 0 0 1 427.863 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 431.001 575.584 Td [(vect)]TJ
+/F54 9.9626 Tf 178.447 667.24 Td [(e)-151(r)-151(r)-150(a)-151(c)-151(t)-151(i)-151(o)-151(n)-284(\050)-296(e)-163(r)-162(r)]TJ
 ET
 q
-1 0 0 1 452.55 575.783 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 257.102 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 455.688 575.584 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(,)]TJ -351.807 -11.956 Td [(of)-250(type)-250(r)18(eal)-250(or)-250(complex;)-250(its)-250(contents)-250(will)-250(be)-250(written)-250(to)-250(disk.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.907 -31.88 Td [(\002lename)]TJ
-0 g 0 G
-/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written.)]TJ
+/F54 9.9626 Tf 261.712 667.24 Td [(a)-163(c)-162(t)-296(\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -44.274 -31.881 Td [(vtitle)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.772 0 Td [(Matrix)-250(title.)]TJ -3.865 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-244(charachter)-243(variable)-244(holding)-244(a)-243(descriptive)-244(title)-244(for)-243(the)-244(vector)-244(to)-243(be)-244(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)-310(T)90(ype:)]TJ/F51 9.9626 Tf 70.764 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -108.95 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.956 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.185 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+/F51 9.9626 Tf -161.817 -27.896 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.895 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(iret)]TJ
+ 0 -19.925 Td [(err)]TJ
+ET
+q
+1 0 0 1 113.225 599.693 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 116.214 599.494 Td [(act)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 17.703 0 Td [(the)-250(type)-250(of)-250(action.)]TJ -9.115 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)74(.)-310(Possible)-250(values:)]TJ/F59 9.9626 Tf 179.116 0 Td [(psb_act_ret)]TJ/F54 9.9626 Tf 57.534 0 Td [(,)]TJ/F59 9.9626 Tf 4.981 0 Td [(psb_act_abort)]TJ/F54 9.9626 Tf 67.995 0 Td [(.)]TJ
 0 g 0 G
- 139.477 -228.109 Td [(139)]TJ
+ -170.149 -461.235 Td [(141)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1799 0 obj
+1805 0 obj
 <<
-/Length 1109      
+/Length 507       
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 150.705 705.784 Td [(10)-1000(Preconditioner)-250(routines)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-228(base)-227(PSBLAS)-228(library)-227(contains)-228(the)-227(implementation)-228(of)-227(two)-228(simple)-227(pr)18(econdi-)]TJ 0 -11.955 Td [(tioning)-250(techniques:)]TJ
-0 g 0 G
- 13.888 -19.925 Td [(\225)]TJ
-0 g 0 G
- [-500(Diagonal)-250(Scaling)]TJ
-0 g 0 G
- 0 -19.926 Td [(\225)]TJ
-0 g 0 G
- [-500(Block)-250(Jacobi)-250(with)-250(ILU\0500\051)-250(factorization)]TJ -13.888 -19.925 Td [(The)-356(supporting)-356(data)-356(type)-356(and)-356(subr)18(outine)-356(interfaces)-356(ar)18(e)-356(de\002ned)-356(in)-356(the)-356(mod-)]TJ 0 -11.955 Td [(ule)]TJ/F59 9.9626 Tf 16.301 0 Td [(psb_prec_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)-350(The)-263(old)-263(interfaces)]TJ/F59 9.9626 Tf 87.314 0 Td [(psb_precinit)]TJ/F54 9.9626 Tf 65.386 0 Td [(and)]TJ/F59 9.9626 Tf 19.489 0 Td [(psb_precbld)]TJ/F54 9.9626 Tf 60.156 0 Td [(ar)18(e)-263(still)]TJ -311.41 -11.955 Td [(supported)-250(for)-250(backwar)18(d)-250(compatibility)]TJ
+/F51 14.3462 Tf 150.705 705.784 Td [(9)-1000(Utilities)]TJ/F54 9.9626 Tf 0 -22.702 Td [(W)92(e)-323(have)-322(some)-323(utilities)-322(available)-323(for)-322(input)-323(and)-323(output)-322(of)-323(sparse)-322(matrices;)-359(the)]TJ 0 -11.955 Td [(interfaces)-250(to)-250(these)-250(r)18(outines)-250(ar)18(e)-250(available)-250(in)-250(the)-250(module)]TJ/F59 9.9626 Tf 242.009 0 Td [(psb_util_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)]TJ
 0 g 0 G
- 164.383 -497.003 Td [(140)]TJ
+ -140.39 -580.689 Td [(142)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1805 0 obj
+1810 0 obj
 <<
-/Length 5016      
+/Length 4553      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.1)-1000(init)-250(\227)-250(Initialize)-250(a)-250(preconditioner)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(9.1)-1206(hb)]TJ
+ET
+q
+1 0 0 1 144.589 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 148.175 706.129 Td [(read)-206(\227)-207(Read)-206(a)-207(sparse)-206(matrix)-207(fr)1(om)-207(a)-206(\002le)-207(in)-206(the)-207(Harwell\226)]TJ -21.381 -13.948 Td [(Boeing)-250(format)]TJ/F54 9.9626 Tf -25.157 -24.941 Td [(c)-175(a)-175(l)-174(l)-865(h)-90(b)]TJ
+ET
+q
+1 0 0 1 144.379 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 148.265 667.24 Td [(r)-90(e)-90(a)-90(d)-223(\050)-167(a)-242(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-871(f)-97(i)-96(l)-96(e)-96(n)-96(a)-97(m)-96(e)-367(,)-791(b)-206(,)-919(m)-143(t)-144(i)-143(t)-143(l)-144(e)-277(\051)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -48.37 -27.896 Td [(T)90(ype:)]TJ
 0 g 0 G
 /F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(icontxt)]TJ
+ 0 -19.925 Td [(\002lename)]TJ
 0 g 0 G
-/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -57.125 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.185 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(ptype)]TJ
+/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.994 0 Td [(the)-250(type)-250(of)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 151.121 0 Td [(global)]TJ/F54 9.9626 Tf -157.208 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)-250(string,)-250(see)-250(usage)-250(notes.)]TJ
+/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Exit)]TJ
+/F51 9.9626 Tf -317.895 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(prec)]TJ
+ 0 -19.926 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(r)18(ead)-250(fr)18(om)-250(\002le.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 337.631 446.268 cm
+1 0 0 1 309.258 442.283 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 340.77 446.069 Td [(prec)]TJ
+/F59 9.9626 Tf 312.397 442.084 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 362.319 446.268 cm
+1 0 0 1 344.406 442.283 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 365.457 446.069 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
-0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ/F54 9.9626 Tf 34.311 0 Td [(Legal)-245(inputs)-244(to)-245(this)-245(subr)18(outine)-245(ar)18(e)-244(interpr)18(eted)-245(depending)-245(on)-244(the)]TJ/F52 9.9626 Tf 285.595 0 Td [(p)-25(t)-25(y)-80(p)-25(e)]TJ/F54 9.9626 Tf -319.906 -11.956 Td [(string)-250(as)-250(follows)]TJ
-0 0 1 rg 0 0 1 RG
-/F54 7.5716 Tf 72.358 3.617 Td [(4)]TJ
-0 g 0 G
-/F54 9.9626 Tf 4.284 -3.617 Td [(:)]TJ
-0 g 0 G
-/F51 9.9626 Tf -76.642 -19.925 Td [(NONE)]TJ
+/F59 9.9626 Tf 347.544 442.084 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 35.965 0 Td [(No)-250(pr)18(econditioning,)-250(i.e.)-310(the)-250(pr)18(econditioner)-250(is)-250(just)-250(a)-250(copy)-250(operator)74(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -35.965 -19.925 Td [(DIAG)]TJ
+/F51 9.9626 Tf -268.571 -19.925 Td [(b)]TJ
 0 g 0 G
-/F54 9.9626 Tf 33.205 0 Td [(Diagonal)-371(scaling;)-432(each)-371(entry)-372(of)-371(the)-371(input)-371(vector)-372(is)-371(multiplied)-371(by)-371(the)]TJ -8.298 -11.955 Td [(r)18(ecipr)18(ocal)-266(of)-267(the)-266(sum)-267(of)-266(the)-266(absolute)-267(values)-266(of)-267(the)-266(coef)18(\002cients)-266(in)-267(the)-266(cor)18(-)]TJ 0 -11.955 Td [(r)18(esponding)-250(r)18(ow)-250(of)-250(matrix)]TJ/F52 9.9626 Tf 116.148 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)]TJ
+/F54 9.9626 Tf 11.069 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-235(array)-234(of)-235(type)-234(r)18(eal)-235(or)-234(complex,)-238(rank)-234(2)-235(and)-234(having)-235(the)-234(ALLOCA)74(T)74(ABLE)]TJ 0 -11.956 Td [(attribute;)-361(will)-324(be)-324(al)1(located)-324(and)-324(\002lled)-324(in)-324(if)-324(the)-324(input)-324(\002le)-323(contains)-324(a)-324(right)]TJ 0 -11.955 Td [(hand)-250(side,)-250(otherwise)-250(will)-250(be)-250(left)-250(in)-250(the)-250(UNALLOCA)74(TED)-250(state.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -148.373 -19.926 Td [(BJAC)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(mtitle)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.446 0 Td [(Pr)18(econdition)-211(by)-212(a)-211(factorization)-212(of)-211(the)-212(block-diagonal)-211(of)-212(matrix)]TJ/F52 9.9626 Tf 273.867 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(,)-219(wher)18(e)]TJ -286.723 -11.955 Td [(block)-347(boundaries)-348(ar)18(e)-347(determined)-347(by)-348(the)-347(data)-347(allocation)-348(boundaries)-347(for)]TJ 0 -11.955 Td [(each)-223(pr)18(ocess;)-232(r)18(equir)18(es)-222(no)-223(communication.)-301(Only)-223(the)-222(incomplete)-223(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F52 9.9626 Tf 20.498 0 Td [(I)-96(L)-9(U)]TJ/F85 10.3811 Tf 18.202 0 Td [(\050)]TJ/F54 9.9626 Tf 4.149 0 Td [(0)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 6.64 0 Td [(is)-250(curr)18(ently)-250(implemented.)]TJ
+/F54 9.9626 Tf 32.09 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-337(charachter)-338(variable)-337(of)-338(l)1(ength)-338(72)-337(holding)-338(a)-337(copy)-338(of)-337(the)-337(matrix)-338(title)-337(as)]TJ 0 -11.956 Td [(speci\002ed)-250(by)-250(the)-250(Harwell-Boeing)-250(format)-250(and)-250(contained)-250(in)-250(the)-250(input)-250(\002le.)]TJ
 0 g 0 G
-ET
-q
-1 0 0 1 99.895 130.181 cm
-[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S
-Q
-BT
-/F54 5.9776 Tf 110.755 123.219 Td [(4)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(The)-250(string)-250(is)-250(case-insensitive)]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(iret)]TJ
 0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 150.037 -29.888 Td [(141)]TJ
+ 139.477 -184.274 Td [(143)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1814 0 obj
+1817 0 obj
 <<
-/Length 7572      
+/Length 4948      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.2)-1000(build)-250(\227)-250(Builds)-250(a)-250(preconditioner)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(9.2)-1000(hb)]TJ
+ET
+q
+1 0 0 1 192.93 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 196.517 706.129 Td [(write)-298(\227)-297(W)74(rite)-298(a)-298(sparse)-298(matrix)-297(to)-298(a)-298(\002le)-298(in)-297(the)-298(Harwell\226)]TJ -18.913 -13.948 Td [(Boeing)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-884(h)-109(b)]TJ
+ET
+q
+1 0 0 1 195.753 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 199.827 667.24 Td [(w)-109(r)-109(i)-109(t)-109(e)-242(\050)-167(a)-241(,)-927(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-129(t)-435(,)-871(f)-96(i)-96(l)-96(e)-97(n)-96(a)-96(m)-96(e)-368(,)-816(k)-42(e)-42(y)-259(,)-855(r)-79(h)-80(s)-335(,)-918(m)-144(t)-143(i)-144(t)-143(l)-143(e)-277(\051)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf 0 -20.364 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -24.086 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -49.122 -27.896 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -22.815 Td [(On)-250(Entry)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -22.816 Td [(a)]TJ
+ 0 -19.925 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(system)-250(sparse)-250(matrix.)-310(Scope:)]TJ/F51 9.9626 Tf 146.229 0 Td [(local)]TJ/F54 9.9626 Tf -131.285 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(sparse)-250(matrix)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(required)]TJ/F54 9.9626 Tf 39.293 0 Td [(.)]TJ -63.292 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 190.872 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.137 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 382.802 580.382 cm
+1 0 0 1 360.068 575.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 385.94 580.183 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 363.206 575.584 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 417.95 580.382 cm
+1 0 0 1 395.216 575.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 421.088 580.183 Td [(type)]TJ
+/F59 9.9626 Tf 398.354 575.584 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -291.305 -22.815 Td [(prec)]TJ
+/F51 9.9626 Tf -268.57 -19.926 Td [(b)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(alr)18(eady)-190(initialized)-190(pr)18(econdtioner)-190(data)-190(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 277.288 0 Td [(psb)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side.)]TJ 13.838 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-235(array)-234(of)-235(type)-234(r)18(eal)-235(or)-234(complex,)-238(rank)-234(1)-235(and)-234(having)-235(the)-234(ALLOCA)74(T)74(ABLE)]TJ 0 -11.955 Td [(attribute;)-361(will)-324(be)-324(allocated)-323(and)-324(\002lled)-324(in)-324(if)-324(the)-324(input)-324(\002le)-323(contains)-324(a)-324(right)]TJ 0 -11.955 Td [(hand)-250(side.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -19.926 Td [(\002lename)]TJ
+0 g 0 G
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.368 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.765 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-234(\050i)1(.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.955 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -104.935 -19.926 Td [(iunit)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.187 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.758 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.894 -19.925 Td [(key)]TJ
+0 g 0 G
+/F54 9.9626 Tf 21.589 0 Td [(Matrix)-250(key)111(.)]TJ 3.317 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(A)-291(charachter)-291(variable)-291(of)-291(length)-291(8)-291(holding)-291(the)-290(matrix)-291(key)-291(as)-291(speci\002ed)-291(by)]TJ 0 -11.955 Td [(the)-250(Harwell-Boeing)-250(format)-250(and)-250(to)-250(be)-250(written)-250(to)-250(\002le.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -19.925 Td [(mtitle)]TJ
+0 g 0 G
+/F54 9.9626 Tf 32.089 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(Optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(A)-239(charachter)-239(variable)-239(of)-239(length)-240(72)-239(holding)-239(the)-239(matrix)-239(title)-239(as)-239(speci\002ed)-239(by)]TJ 0 -11.956 Td [(the)-250(Harwell-Boeing)-250(format)-250(and)-250(to)-250(be)-250(written)-250(to)-250(\002le.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -21.917 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(iret)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.433 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 139.477 -128.483 Td [(144)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1824 0 obj
+<<
+/Length 3542      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(9.3)-1000(mm)]TJ
 ET
 q
-1 0 0 1 469.217 509.746 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 148.768 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 472.355 509.547 Td [(prec)]TJ
+/F51 11.9552 Tf 152.354 706.129 Td [(mat)]TJ
 ET
 q
-1 0 0 1 493.904 509.746 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 173.658 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 497.043 509.547 Td [(type)]TJ
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -346.338 -34.771 Td [(desc)]TJ
+/F51 11.9552 Tf 177.245 706.129 Td [(read)-202(\227)-203(Read)-202(a)-203(sparse)-202(matrix)-203(from)-202(a)-203(\002le)-202(in)-203(the)-202(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-810(m)-35(m)]TJ
 ET
 q
-1 0 0 1 171.218 474.975 cm
+1 0 0 1 149.022 667.439 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 174.207 474.776 Td [(a)]TJ
+/F54 9.9626 Tf 152.359 667.24 Td [(m)-35(a)-35(t)]TJ
+ET
+q
+1 0 0 1 171.029 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 174.367 667.24 Td [(r)-35(e)-35(a)-35(d)-169(\050)-166(a)-242(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-882(f)-107(i)-107(l)-107(e)-107(n)-107(a)-106(m)-107(e)-241(\051)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(descriptor)-250(data)-250(str)8(uctur)18(e)]TJ
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -74.472 -27.896 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(\002lename)]TJ
+0 g 0 G
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.185 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.895 -21.918 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(r)18(ead)-250(fr)18(om)-250(\002le.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 247.649 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 439.579 439.11 cm
+1 0 0 1 309.258 442.283 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 442.717 438.911 Td [(desc)]TJ
+/F59 9.9626 Tf 312.397 442.084 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 464.266 439.11 cm
+1 0 0 1 344.406 442.283 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 467.404 438.911 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 442.084 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -337.62 -22.816 Td [(amold)]TJ
+/F51 9.9626 Tf -268.571 -19.925 Td [(iret)]TJ
 0 g 0 G
-/F54 9.9626 Tf 33.763 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 139.477 -307.811 Td [(145)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1832 0 obj
+<<
+/Length 4155      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(9.4)-1000(mm)]TJ
 ET
 q
-1 0 0 1 393.323 368.474 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 199.577 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.461 368.275 Td [(T)]TJ
+/F51 11.9552 Tf 203.164 706.129 Td [(array)]TJ
 ET
 q
-1 0 0 1 402.319 368.474 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 231.784 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 405.457 368.275 Td [(base)]TJ
+/F51 11.9552 Tf 235.371 706.129 Td [(read)-222(\227)-223(Read)-222(a)-223(dense)-222(array)-223(from)-222(a)-223(\002le)-222(in)-223(the)-222(Ma-)]TJ -57.767 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.941 Td [(c)-175(a)-175(l)-174(l)-845(m)-71(m)]TJ
 ET
 q
-1 0 0 1 427.006 368.474 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 200.884 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 430.144 368.275 Td [(sparse)]TJ
+/F54 9.9626 Tf 204.572 667.24 Td [(a)-70(r)-70(r)-71(a)-70(y)]TJ
 ET
 q
-1 0 0 1 462.154 368.474 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 232.04 667.439 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 465.292 368.275 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
+/F54 9.9626 Tf 235.728 667.24 Td [(r)-70(e)-70(a)-71(d)-203(\050)-150(b)-206(,)-926(i)-152(r)-151(e)-152(t)-478(,)-905(i)-129(u)-130(n)-129(i)-130(t)-434(,)-882(f)-107(i)-107(l)-107(e)-107(n)-106(a)-107(m)-107(e)-241(\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -330.278 -22.816 Td [(vmold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 34.321 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(vector)-250(storage.)]TJ -9.415 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
+0 g 0 G
+/F51 9.9626 Tf -85.023 -27.896 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(\002lename)]TJ
+0 g 0 G
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(r)18(ead.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -95.322 -19.925 Td [(iunit)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.894 -21.918 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(b)]TJ
+0 g 0 G
+/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.839 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-398(array)-398(of)-397(type)-398(r)18(eal)-398(or)-398(complex,)-434(rank)-398(1)-398(or)-398(2)-398(and)-398(h)1(a)-1(v)1(ing)-398(the)-398(ALLO-)]TJ 0 -11.955 Td [(CA)74(T)74(ABLE)-257(attribute,)-258(or)-257(an)-257(object)-257(of)-257(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 177.91 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 393.323 297.838 cm
+1 0 0 1 369.841 430.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.461 297.638 Td [(T)]TJ
+/F59 9.9626 Tf 372.979 430.129 Td [(T)]TJ
 ET
 q
-1 0 0 1 402.319 297.838 cm
+1 0 0 1 378.837 430.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 405.457 297.638 Td [(base)]TJ
+/F59 9.9626 Tf 381.975 430.129 Td [(vect)]TJ
 ET
 q
-1 0 0 1 427.006 297.838 cm
+1 0 0 1 403.524 430.328 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 430.144 297.638 Td [(vect)]TJ
+/F59 9.9626 Tf 406.663 430.129 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(,)-259(of)-257(type)-256(r)18(eal)-257(or)]TJ -251.973 -11.955 Td [(complex.)]TJ 0 -11.955 Td [(W)55(ill)-275(be)-276(allocated)-275(and)-276(\002ll)1(ed)-276(in)-275(if)-276(the)-275(input)-275(\002le)-276(contains)-275(a)-275(right)-276(hand)-275(side,)]TJ 0 -11.956 Td [(otherwise)-250(will)-250(be)-250(left)-250(in)-250(the)-250(UNALLOCA)74(TED)-250(state.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -31.88 Td [(iret)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 139.476 -248.035 Td [(146)]TJ
+0 g 0 G
 ET
-q
-1 0 0 1 451.693 297.838 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 454.832 297.638 Td [(type)]TJ/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+
+endstream
+endobj
+1839 0 obj
+<<
+/Length 6815      
+>>
+stream
 0 g 0 G
-/F51 9.9626 Tf -325.048 -22.815 Td [(imold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 32.099 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(integer)-250(vector)-250(storage.)]TJ -7.193 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(object)-190(of)-190(a)-190(class)-190(derived)-190(fr)18(om)-190(\050integer\051)]TJ/F59 9.9626 Tf 235.804 0 Td [(psb)]TJ
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(9.5)-1000(mm)]TJ
 ET
 q
-1 0 0 1 427.733 227.202 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 148.768 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 430.872 227.002 Td [(T)]TJ
+/F51 11.9552 Tf 152.354 706.129 Td [(mat)]TJ
 ET
 q
-1 0 0 1 436.73 227.202 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 173.658 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 439.868 227.002 Td [(base)]TJ
+/F51 11.9552 Tf 177.245 706.129 Td [(write)-275(\227)-275(W)74(rite)-275(a)-275(sparse)-275(matrix)-275(to)-275(a)-275(\002le)-275(in)-275(the)-275(Ma-)]TJ -50.45 -13.948 Td [(trixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.48 Td [(c)-175(a)-175(l)-174(l)-828(m)-52(m)]TJ
 ET
 q
-1 0 0 1 461.417 227.202 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 149.539 667.901 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 464.555 227.002 Td [(vect)]TJ
+/F54 9.9626 Tf 153.049 667.701 Td [(m)-52(a)-53(t)]TJ
 ET
 q
-1 0 0 1 486.104 227.202 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 172.236 667.901 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 489.242 227.002 Td [(type)]TJ/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F54 9.9626 Tf 175.746 667.701 Td [(w)-52(r)-53(i)-52(t)-52(e)-186(\050)-167(a)-242(,)-900(m)-126(t)-125(i)-126(t)-125(l)-126(e)-426(,)-926(i)-152(r)-151(e)-152(t)-478(,)-904(i)-130(u)-129(n)-130(i)-130(t)-434(,)-882(f)-107(i)-107(l)-106(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -359.459 -24.085 Td [(On)-250(Return)]TJ
 0 g 0 G
 0 g 0 G
- 0 -22.816 Td [(prec)]TJ
+/F51 9.9626 Tf -75.851 -26.279 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econdtioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.464 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.464 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(sparse)-250(matrix)-250(to)-250(be)-250(written.)]TJ 14.944 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 193.612 0 Td [(psb)]TJ
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 385.542 132.48 cm
+1 0 0 1 309.258 578.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 388.68 132.281 Td [(prec)]TJ
+/F59 9.9626 Tf 312.397 578.584 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 410.229 132.48 cm
+1 0 0 1 344.406 578.783 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.367 132.281 Td [(type)]TJ
+/F59 9.9626 Tf 347.544 578.584 Td [(type)]TJ
 0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf -98.279 -41.843 Td [(142)]TJ
+/F51 9.9626 Tf -268.571 -19.464 Td [(mtitle)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1818 0 obj
-<<
-/Length 1021      
->>
-stream
+/F54 9.9626 Tf 32.09 0 Td [(Matrix)-250(title.)]TJ -7.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-231(charachter)-230(variable)-231(holding)-231(a)-230(descriptive)-231(title)-231(for)-230(the)-231(matrix)-231(to)-230(be)-231(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -24.907 -19.464 Td [(\002lename)]TJ
 0 g 0 G
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written)-250(to.)]TJ -19.367 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.534 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-387(in)]TJ -303.764 -11.955 Td [(which)-234(case)-234(the)-233(default)-234(output)-234(unit)-234(6)-233(\050i.e.)-305(standar)18(d)-234(output)-234(in)-233(Unix)-234(jar)18(gon\051)]TJ 0 -11.956 Td [(is)-250(used.)-310(Default:)]TJ/F59 9.9626 Tf 74.799 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
 0 g 0 G
-BT
-/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
+/F51 9.9626 Tf -104.936 -19.463 Td [(iunit)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ -24.907 -21.918 Td [(The)]TJ/F59 9.9626 Tf 20.388 0 Td [(amold)]TJ/F54 9.9626 Tf 26.152 0 Td [(,)]TJ/F59 9.9626 Tf 6.506 0 Td [(vmold)]TJ/F54 9.9626 Tf 29.862 0 Td [(and)]TJ/F59 9.9626 Tf 20.577 0 Td [(imold)]TJ/F54 9.9626 Tf 29.862 0 Td [(ar)18(guments)-372(may)-373(be)-372(employed)-373(to)-372(interface)-372(with)]TJ -133.347 -11.955 Td [(special)-250(devices,)-250(such)-250(as)-250(GPUs)-250(and)-250(other)-250(accelerators.)]TJ
+/F54 9.9626 Tf 27.109 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.202 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -62.186 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
 0 g 0 G
- 164.384 -533.997 Td [(143)]TJ
+/F51 9.9626 Tf -317.895 -20.764 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.463 Td [(iret)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.763 Td [(Notes)]TJ/F54 9.9626 Tf 14.944 -11.956 Td [(If)-283(this)-282(function)-283(is)-283(called)-282(on)-283(a)-282(matrix)-283(a)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1826 0 obj
-<<
-/Length 5673      
->>
-stream
 0 g 0 G
+ [-283(on)-282(a)-283(distributed)-283(communicator)-282(only)]TJ -14.944 -11.955 Td [(the)-316(local)-317(part)-316(is)-316(written)-317(in)-316(output.)-509(T)92(o)-316(get)-317(a)-316(single)-316(MatrixMarket)-317(\002le)-316(with)-316(the)]TJ 0 -11.955 Td [(whole)-225(matrix)-225(when)-225(appr)18(opriate,)-230(e.g.)-302(for)-225(debugging)-225(purposes,)-230(one)-225(could)]TJ/F52 9.9626 Tf 318.257 0 Td [(gather)]TJ/F54 9.9626 Tf -318.257 -11.955 Td [(the)-339(whole)-338(matrix)-339(on)-338(a)-339(single)-338(rank)-339(and)-338(then)-339(write)-338(it.)-576(Consider)-339(the)-338(following)]TJ 0 -11.955 Td [(example)-250(for)-250(a)]TJ/F52 9.9626 Tf 62.495 0 Td [(double)]TJ/F54 9.9626 Tf 28.692 0 Td [(pr)18(ecision)-250(matrix)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+ET
+q
+1 0 0 1 99.895 178.717 cm
+0 0 343.711 82.69 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
 BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.3)-1000(apply)-250(\227)-250(Preconditioner)-250(application)-250(routine)]TJ
+/F94 8.9664 Tf 102.884 250.747 Td [(type)]TJ
 0 g 0 G
+ [(\050psb_ldspmat_type\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(::)]TJ
 0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%apply\050x,y,desc_a,info,trans,work\051)]TJ 0 -11.955 Td [(call)-525(prec%apply\050x,desc_a,info,trans\051)]TJ
+ [-525(aglobal)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -21.918 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+ [-525(psb_gather\050aglobal,a,desc_a,info\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(if)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+ [-525(\050iam)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(==)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [-525(psb_root_\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 37.659 -10.959 Td [(call)]TJ
 0 g 0 G
- 0 -19.925 Td [(prec)]TJ
+ [-525(mm_mat_write\050aglobal,mtitle,info,filename\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ -37.659 -10.959 Td [(end)-525(if)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.837 0 Td [(local)]TJ/F54 9.9626 Tf -117.279 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 388.441 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 391.579 577.576 Td [(prec)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)]TJ
+0 g 0 G
+ [-525(psb_spfree\050aglobal,)-525(desc_a,)-525(info\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+/F54 9.9626 Tf -2.989 -23.747 Td [(T)92(o)-250(simplify)-250(this)-250(pr)18(ocedur)18(e)-250(in)]TJ/F59 9.9626 Tf 129.513 0 Td [(C)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-250(ther)18(e)-250(is)-250(a)-250(utility)-250(function)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 413.128 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 99.895 137.797 cm
+0 0 343.711 16.936 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
 BT
-/F59 9.9626 Tf 416.266 577.576 Td [(type)]TJ
+/F94 8.9664 Tf 102.884 144.073 Td [(psb_i_t)-525(psb_c_)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(<)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+ [(s,d,c,z)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(>)]TJ
 0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(x)]TJ
+ [(global_mat_write\050ah,cdh\051;)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+/F54 9.9626 Tf -2.989 -23.747 Td [(that)-250(pr)18(oduces)-250(exactly)-250(this)-250(r)18(esult.)]TJ
+0 g 0 G
+ 164.384 -29.888 Td [(147)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(sour)18(ce)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 111.142 0 Td [(local)]TJ/F54 9.9626 Tf -96.198 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
-q
-1 0 0 1 410.618 521.985 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
+
+endstream
+endobj
+1846 0 obj
+<<
+/Length 6720      
+>>
+stream
+0 g 0 G
+0 g 0 G
 BT
-/F59 9.9626 Tf 413.756 521.785 Td [(T)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(9.6)-1000(mm)]TJ
 ET
 q
-1 0 0 1 419.614 521.985 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 199.577 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 422.752 521.785 Td [(vect)]TJ
+/F51 11.9552 Tf 203.164 706.129 Td [(array)]TJ
 ET
 q
-1 0 0 1 444.301 521.985 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 231.784 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
 Q
 BT
-/F59 9.9626 Tf 447.439 521.785 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -317.656 -19.925 Td [(desc)]TJ
+/F51 11.9552 Tf 235.371 706.129 Td [(write)-374(\227)-375(W)74(rite)-374(a)-375(dense)-374(array)-374(from)-375(a)-374(\002le)-375(in)-374(the)]TJ -57.767 -13.948 Td [(MatrixMarket)-250(format)]TJ/F54 9.9626 Tf -25.158 -24.509 Td [(c)-175(a)-175(l)-174(l)-858(m)-83(m)]TJ
 ET
 q
-1 0 0 1 171.218 502.059 cm
+1 0 0 1 201.262 667.872 cm
 []0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F51 9.9626 Tf 174.207 501.86 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 200.207 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 392.137 466.194 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 395.275 465.994 Td [(desc)]TJ
+/F54 9.9626 Tf 205.076 667.672 Td [(a)-83(r)-83(r)-83(a)-83(y)]TJ
 ET
 q
-1 0 0 1 416.824 466.194 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 233.175 667.872 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F59 9.9626 Tf 419.963 465.994 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 236.989 667.672 Td [(w)-83(r)-83(i)-83(t)-82(e)-217(\050)-149(b)-206(,)-941(v)-165(t)-165(i)-165(t)-166(l)-165(e)-505(,)-927(i)-151(r)-152(e)-151(t)-478(,)-905(i)-130(u)-129(n)-130(i)-129(t)-435(,)-881(f)-107(i)-107(l)-107(e)-107(n)-107(a)-107(m)-107(e)-240(\051)]TJ
 0 g 0 G
-/F51 9.9626 Tf -290.179 -19.925 Td [(trans)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.666 0 Td [(Scope:)]TJ -2.76 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)74(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -19.926 Td [(work)]TJ
+/F51 9.9626 Tf -86.284 -26.38 Td [(T)90(ype:)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.782 0 Td [(an)-250(optional)-250(work)-250(space)-250(Scope:)]TJ/F51 9.9626 Tf 136.476 0 Td [(local)]TJ/F54 9.9626 Tf -140.352 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(double)-250(pr)18(ecision)-250(array)111(.)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.906 -21.918 Td [(On)-250(Return)]TJ
+/F51 9.9626 Tf -29.828 -19.493 Td [(On)-250(Entry)]TJ
 0 g 0 G
 0 g 0 G
- 0 -19.925 Td [(y)]TJ
+ 0 -19.493 Td [(b)]TJ
 0 g 0 G
-/F54 9.9626 Tf 10.52 0 Td [(the)-250(destination)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 131.914 0 Td [(local)]TJ/F54 9.9626 Tf -117.528 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F54 9.9626 Tf 11.068 0 Td [(Rigth)-250(hand)-250(side\050s\051.)]TJ 13.839 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(An)-190(array)-190(of)-190(type)-190(r)18(eal)-190(or)-190(complex,)-202(rank)-190(1)-190(or)-190(2,)-202(or)-190(an)-190(object)-190(of)-190(type)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
+/F59 9.9626 Tf 277.745 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 410.618 276.904 cm
+1 0 0 1 469.676 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.756 276.704 Td [(T)]TJ
+/F59 9.9626 Tf 472.814 578.396 Td [(T)]TJ
 ET
 q
-1 0 0 1 419.614 276.904 cm
+1 0 0 1 478.672 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 422.752 276.704 Td [(vect)]TJ
+/F59 9.9626 Tf 481.81 578.396 Td [(vect)]TJ
 ET
 q
-1 0 0 1 444.301 276.904 cm
+1 0 0 1 503.359 578.595 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 447.439 276.704 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -317.656 -19.925 Td [(info)]TJ
+/F59 9.9626 Tf 506.497 578.396 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(,)]TJ -351.808 -11.955 Td [(of)-250(type)-250(r)18(eal)-250(or)-250(complex;)-250(its)-250(contents)-250(will)-250(be)-250(written)-250(to)-250(disk.)]TJ
 0 g 0 G
- 139.477 -118.52 Td [(144)]TJ
+/F51 9.9626 Tf -24.906 -31.448 Td [(\002lename)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1831 0 obj
-<<
-/Length 3387      
->>
-stream
+/F54 9.9626 Tf 44.274 0 Td [(The)-250(name)-250(of)-250(the)-250(\002le)-250(to)-250(be)-250(written.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -44.274 -31.448 Td [(vtitle)]TJ
 0 g 0 G
-BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.4)-1000(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(current)-250(preconditioner)]TJ
+/F54 9.9626 Tf 28.772 0 Td [(Matrix)-250(title.)]TJ -3.865 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(A)-244(charachter)-243(variable)-244(holding)-244(a)-243(descriptive)-244(title)-244(for)-243(the)-244(vector)-244(to)-243(be)-244(writ-)]TJ 0 -11.955 Td [(ten)-250(to)-250(\002le.)-310(T)90(ype:)]TJ/F51 9.9626 Tf 70.763 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -108.95 -11.955 Td [(Speci\002ed)-359(as:)-529(a)-359(character)-360(variable)-359(containing)-359(a)-360(valid)-359(\002le)-359(name,)-387(or)]TJ/F59 9.9626 Tf 298.533 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(,)-387(in)]TJ -303.764 -11.956 Td [(which)-254(case)-253(the)-254(default)-254(input)-253(unit)-254(5)-254(\050i.e.)-321(standar)18(d)-253(input)-254(in)-254(Unix)-253(jar)18(gon\051)-254(is)]TJ 0 -11.955 Td [(used.)-310(Default:)]TJ/F59 9.9626 Tf 65.184 0 Td [(-)]TJ/F54 9.9626 Tf 5.231 0 Td [(.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -95.322 -19.492 Td [(iunit)]TJ
 0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%descr\050info\051)]TJ 0 -11.955 Td [(call)-525(prec%descr\050info,iout,)-525(root\051)]TJ
+/F54 9.9626 Tf 27.108 0 Td [(The)-250(Fortran)-250(\002le)-250(unit)-250(number)74(.)]TJ -2.201 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 23.999 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -62.186 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)-310(Only)-250(meaningful)-250(if)-250(\002lename)-250(is)-250(not)]TJ/F59 9.9626 Tf 287.757 0 Td [(-)]TJ/F54 9.9626 Tf 5.23 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+/F51 9.9626 Tf -317.894 -20.836 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ 0 -19.492 Td [(iret)]TJ
 0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(Err)18(or)-250(code.)]TJ 4.434 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ/F51 11.9552 Tf -24.907 -20.836 Td [(Notes)]TJ/F54 9.9626 Tf 14.944 -11.955 Td [(If)-290(this)-289(function)-290(is)-290(call)1(ed)-290(on)-290(a)-289(vector)-290(v)]TJ
 0 g 0 G
- 0 -19.925 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.836 0 Td [(local)]TJ/F54 9.9626 Tf -117.278 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ [-290(on)-289(a)-290(distributed)-290(communicator)-289(only)]TJ -14.944 -11.955 Td [(the)-316(local)-317(part)-316(is)-316(written)-317(in)-316(output.)-509(T)92(o)-316(get)-317(a)-316(single)-316(MatrixMarket)-317(\002le)-316(with)-316(the)]TJ 0 -11.955 Td [(whole)-243(vect)1(or)-243(when)-243(appr)18(opriate,)-244(e.g.)-307(for)-243(debugging)-242(purposes,)-244(one)-243(could)]TJ/F52 9.9626 Tf 318.257 0 Td [(gather)]TJ/F54 9.9626 Tf -318.257 -11.955 Td [(the)-349(whole)-349(vector)-349(on)-349(a)-349(single)-349(rank)-349(and)-349(then)-349(writ)1(e)-349(it.)-607(Consider)-349(the)-349(following)]TJ 0 -11.956 Td [(example)-250(for)-250(a)]TJ/F52 9.9626 Tf 62.495 0 Td [(double)]TJ/F54 9.9626 Tf 28.692 0 Td [(pr)18(ecision)-250(vector)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 ET
 q
-1 0 0 1 337.631 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 150.705 149.348 cm
+0 0 343.711 82.69 re f
 Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+0.56 0.13 0.00 rg 0.56 0.13 0.00 RG
 BT
-/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
-ET
-q
-1 0 0 1 362.319 577.775 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
+/F94 8.9664 Tf 153.694 221.378 Td [(real)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+ [(\050psb_dpk_\051,)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(allocatable)]TJ
 0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(iout)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(::)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.243 0 Td [(output)-250(unit.)-310(Scope:)]TJ/F51 9.9626 Tf 87.391 0 Td [(local)]TJ/F54 9.9626 Tf -85.727 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(number)74(.)-310(Default:)-310(default)-250(output)-250(unit.)]TJ
+ [-525(vglobal\050:\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -21.918 Td [(call)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
+ [-525(psb_gather\050vglobal,v,desc,info\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(if)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(fr)18(om)-250(which)-250(to)-250(print)-250(Scope:)]TJ/F51 9.9626 Tf 155.834 0 Td [(local)]TJ/F54 9.9626 Tf -154.18 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-387(as:)-585(an)-387(integer)-387(number)-388(between)-387(0)-387(and)]TJ/F52 9.9626 Tf 220.442 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 14.01 0 Td [(\000)]TJ/F54 9.9626 Tf 10.638 0 Td [(1,)-422(in)-387(which)-387(case)]TJ -245.09 -11.955 Td [(the)-314(speci\002e)1(d)-314(pr)18(ocess)-314(will)-313(print)-314(the)-313(description,)-330(or)]TJ/F83 10.3811 Tf 225.38 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1,)-329(in)-314(which)-314(case)-313(all)]TJ -233.574 -11.955 Td [(pr)18(ocesses)-250(will)-250(print.)-310(Default:)-310(0.)]TJ
+ [-525(\050iam)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [-525(==)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
+ [-525(psb_root_\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(then)]TJ
 0 g 0 G
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)]TJ
 0 g 0 G
- 0 -19.925 Td [(info)]TJ
+ [-525(mm_array_write\050vglobal,vtitle,info,filename\051)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.958 Td [(end)-525(if)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ 0 -10.959 Td [(call)-525(deallocate)]TJ
+0 g 0 G
+ [(\050vglobal,)]TJ
+0.00 0.44 0.13 rg 0.00 0.44 0.13 RG
+ [-525(stat)]TJ
+0 g 0 G
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(=)]TJ
 0 g 0 G
- 139.477 -263.975 Td [(145)]TJ
+ [(info\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0 g 0 G
+/F54 9.9626 Tf -2.989 -23.777 Td [(T)92(o)-250(simplify)-250(this)-250(pr)18(ocedur)18(e)-250(in)]TJ/F59 9.9626 Tf 129.513 0 Td [(C)]TJ/F54 9.9626 Tf 5.23 0 Td [(,)-250(ther)18(e)-250(is)-250(a)-250(utility)-250(function)]TJ
+0 g 0 G
+ 29.64 -41.41 Td [(148)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1836 0 obj
+1852 0 obj
 <<
-/Length 973       
+/Length 604       
 >>
 stream
 0 g 0 G
 0 g 0 G
-BT
-/F51 11.9552 Tf 150.705 706.129 Td [(10.5)-1000(clone)-250(\227)-250(clone)-250(current)-250(preconditioner)]TJ
-0 g 0 G
-0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-1050(prec%clone\050precout,info\051)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
+q
+1 0 0 1 99.895 695.17 cm
+0 0 343.711 16.936 re f
+Q
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
-/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+BT
+/F94 8.9664 Tf 102.884 701.446 Td [(psb_i_t)-525(psb_c_)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(<)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+ [(s,d,c,z)]TJ
+0.40 0.40 0.40 rg 0.40 0.40 0.40 RG
+ [(>)]TJ
 0 g 0 G
-/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+ [(global_vec_write\050vh,cdh\051;)]TJ
+0.95 0.95 0.95 rg 0.95 0.95 0.95 RG
 0 g 0 G
+/F54 9.9626 Tf -2.989 -24.209 Td [(that)-250(pr)18(oduces)-250(exactly)-250(this)-250(r)18(esult.)]TJ
 0 g 0 G
- 0 -19.925 Td [(prec)]TJ
+ 164.384 -586.799 Td [(149)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ
+ET
+
+endstream
+endobj
+1856 0 obj
+<<
+/Length 1109      
+>>
+stream
 0 g 0 G
-/F51 9.9626 Tf -77.917 -33.873 Td [(On)-250(Return)]TJ
 0 g 0 G
+BT
+/F51 14.3462 Tf 150.705 705.784 Td [(10)-1000(Preconditioner)-250(routines)]TJ/F54 9.9626 Tf 0 -22.702 Td [(The)-228(base)-227(PSBLAS)-228(library)-227(contains)-228(the)-227(implementation)-228(of)-227(two)-228(simple)-227(pr)18(econdi-)]TJ 0 -11.955 Td [(tioning)-250(techniques:)]TJ
 0 g 0 G
- 0 -19.926 Td [(precout)]TJ
+ 13.888 -19.925 Td [(\225)]TJ
 0 g 0 G
-/F54 9.9626 Tf 39.292 0 Td [(A)-250(copy)-250(of)-250(the)-250(input)-250(object.)]TJ
+ [-500(Diagonal)-250(Scaling)]TJ
 0 g 0 G
-/F51 9.9626 Tf -39.292 -19.925 Td [(info)]TJ
+ 0 -19.926 Td [(\225)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.8 0 Td [(Return)-250(code.)]TJ
+ [-500(Block)-250(Jacobi)-250(with)-250(ILU\0500\051)-250(factorization)]TJ -13.888 -19.925 Td [(The)-356(supporting)-356(data)-356(type)-356(and)-356(subr)18(outine)-356(interfaces)-356(ar)18(e)-356(de\002ned)-356(in)-356(the)-356(mod-)]TJ 0 -11.955 Td [(ule)]TJ/F59 9.9626 Tf 16.301 0 Td [(psb_prec_mod)]TJ/F54 9.9626 Tf 62.764 0 Td [(.)-350(The)-263(old)-263(interfaces)]TJ/F59 9.9626 Tf 87.314 0 Td [(psb_precinit)]TJ/F54 9.9626 Tf 65.386 0 Td [(and)]TJ/F59 9.9626 Tf 19.489 0 Td [(psb_precbld)]TJ/F54 9.9626 Tf 60.156 0 Td [(ar)18(e)-263(still)]TJ -311.41 -11.955 Td [(supported)-250(for)-250(backwar)18(d)-250(compatibility)]TJ
 0 g 0 G
- 140.583 -449.28 Td [(146)]TJ
+ 164.383 -497.003 Td [(150)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1842 0 obj
+1862 0 obj
 <<
-/Length 2703      
+/Length 5016      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(10.6)-1000(free)-250(\227)-250(Free)-250(a)-250(preconditioner)]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(10.1)-1000(init)-250(\227)-250(Initialize)-250(a)-250(preconditioner)]TJ
 0 g 0 G
 0 g 0 G
-/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%free\050info\051)]TJ
+/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%init\050icontxt,ptype,)-525(info\051)]TJ
 0 g 0 G
 /F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
@@ -24327,914 +24680,831 @@ BT
 0 g 0 G
 /F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(icontxt)]TJ
+0 g 0 G
+/F54 9.9626 Tf 35.965 0 Td [(the)-250(communication)-250(context.)]TJ -11.058 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 28.343 0 Td [(global)]TJ/F54 9.9626 Tf 28.782 0 Td [(.)]TJ -57.125 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 24 0 Td [(required)]TJ/F54 9.9626 Tf 39.292 0 Td [(.)]TJ -63.292 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(value.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(ptype)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.994 0 Td [(the)-250(type)-250(of)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 151.121 0 Td [(global)]TJ/F54 9.9626 Tf -157.208 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)-250(string,)-250(see)-250(usage)-250(notes.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Exit)]TJ
+0 g 0 G
 0 g 0 G
  0 -19.925 Td [(prec)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 337.631 577.775 cm
+1 0 0 1 337.631 446.268 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
+/F59 9.9626 Tf 340.77 446.069 Td [(prec)]TJ
 ET
 q
-1 0 0 1 362.319 577.775 cm
+1 0 0 1 362.319 446.268 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
+/F59 9.9626 Tf 365.457 446.069 Td [(type)]TJ
 0 g 0 G
 /F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(On)-250(Exit)]TJ
+/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
 0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.917 Td [(Notes)]TJ/F54 9.9626 Tf 34.311 0 Td [(Legal)-245(inputs)-244(to)-245(this)-245(subr)18(outine)-245(ar)18(e)-244(interpr)18(eted)-245(depending)-245(on)-244(the)]TJ/F52 9.9626 Tf 285.595 0 Td [(p)-25(t)-25(y)-80(p)-25(e)]TJ/F54 9.9626 Tf -319.906 -11.956 Td [(string)-250(as)-250(follows)]TJ
+0 0 1 rg 0 0 1 RG
+/F54 7.5716 Tf 72.358 3.617 Td [(4)]TJ
 0 g 0 G
- 0 -19.926 Td [(prec)]TJ
+/F54 9.9626 Tf 4.284 -3.617 Td [(:)]TJ
+0 g 0 G
+/F51 9.9626 Tf -76.642 -19.925 Td [(NONE)]TJ
+0 g 0 G
+/F54 9.9626 Tf 35.965 0 Td [(No)-250(pr)18(econditioning,)-250(i.e.)-310(the)-250(pr)18(econditioner)-250(is)-250(just)-250(a)-250(copy)-250(operator)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -35.965 -19.925 Td [(DIAG)]TJ
+0 g 0 G
+/F54 9.9626 Tf 33.205 0 Td [(Diagonal)-371(scaling;)-432(each)-371(entry)-372(of)-371(the)-371(input)-371(vector)-372(is)-371(multiplied)-371(by)-371(the)]TJ -8.298 -11.955 Td [(r)18(ecipr)18(ocal)-266(of)-267(the)-266(sum)-267(of)-266(the)-266(absolute)-267(values)-266(of)-267(the)-266(coef)18(\002cients)-266(in)-267(the)-266(cor)18(-)]TJ 0 -11.955 Td [(r)18(esponding)-250(r)18(ow)-250(of)-250(matrix)]TJ/F52 9.9626 Tf 116.148 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -148.373 -19.926 Td [(BJAC)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.446 0 Td [(Pr)18(econdition)-211(by)-212(a)-211(factorization)-212(of)-211(the)-212(block-diagonal)-211(of)-212(matrix)]TJ/F52 9.9626 Tf 273.867 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(,)-219(wher)18(e)]TJ -286.723 -11.955 Td [(block)-347(boundaries)-348(ar)18(e)-347(determined)-347(by)-348(the)-347(data)-347(allocation)-348(boundaries)-347(for)]TJ 0 -11.955 Td [(each)-223(pr)18(ocess;)-232(r)18(equir)18(es)-222(no)-223(communication.)-301(Only)-223(the)-222(incomplete)-223(factoriza-)]TJ 0 -11.955 Td [(tion)]TJ/F52 9.9626 Tf 20.498 0 Td [(I)-96(L)-9(U)]TJ/F85 10.3811 Tf 18.202 0 Td [(\050)]TJ/F54 9.9626 Tf 4.149 0 Td [(0)]TJ/F85 10.3811 Tf 5.106 0 Td [(\051)]TJ/F54 9.9626 Tf 6.64 0 Td [(is)-250(curr)18(ently)-250(implemented.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
-ET
-q
-1 0 0 1 337.631 502.059 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
-Q
-BT
-/F59 9.9626 Tf 340.77 501.86 Td [(prec)]TJ
 ET
 q
-1 0 0 1 362.319 502.059 cm
-[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+1 0 0 1 99.895 130.181 cm
+[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S
 Q
 BT
-/F59 9.9626 Tf 365.457 501.86 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
+/F54 5.9776 Tf 110.755 123.219 Td [(4)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(The)-250(string)-250(is)-250(case-insensitive)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F54 9.9626 Tf 34.363 0 Td [(Releases)-250(all)-250(internal)-250(storage.)]TJ
 0 g 0 G
- 130.021 -333.713 Td [(147)]TJ
+/F54 9.9626 Tf 150.037 -29.888 Td [(151)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1846 0 obj
+1872 0 obj
 <<
-/Length 548       
+/Length 7572      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 150.705 705.784 Td [(11)-1000(Iterative)-250(Methods)]TJ/F54 9.9626 Tf 0 -22.702 Td [(In)-402(this)-403(chapter)-402(we)-403(pr)18(ovide)-402(r)18(outines)-403(for)-402(pr)18(econditioners)-402(and)-403(iterative)-402(meth-)]TJ 0 -11.955 Td [(ods.)-472(The)-304(interfaces)-304(for)-304(Krylov)-304(subspace)-303(methods)-304(ar)18(e)-304(available)-304(in)-304(the)-304(module)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F54 9.9626 Tf 73.225 0 Td [(.)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(10.2)-1000(build)-250(\227)-250(Builds)-250(a)-250(preconditioner)]TJ
 0 g 0 G
- 91.158 -568.734 Td [(148)]TJ
 0 g 0 G
-ET
-
-endstream
-endobj
-1853 0 obj
-<<
-/Length 8246      
->>
-stream
+/F59 9.9626 Tf 0 -20.364 Td [(call)-525(prec%build\050a,)-525(desc_a,)-525(info[,amold,vmold,imold]\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -24.086 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -22.815 Td [(On)-250(Entry)]TJ
+0 g 0 G
 0 g 0 G
+ 0 -22.816 Td [(a)]TJ
 0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(system)-250(sparse)-250(matrix.)-310(Scope:)]TJ/F51 9.9626 Tf 146.229 0 Td [(local)]TJ/F54 9.9626 Tf -131.285 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(sparse)-250(matrix)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 190.872 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 382.802 580.382 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
 BT
-/F51 11.9552 Tf 99.895 706.129 Td [(11.1)-1000(psb)]TJ
+/F59 9.9626 Tf 385.94 580.183 Td [(Tspmat)]TJ
 ET
 q
-1 0 0 1 153.407 706.328 cm
-[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+1 0 0 1 417.95 580.382 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F51 11.9552 Tf 156.993 706.129 Td [(krylov)-250(\227)-250(Krylov)-250(Methods)-250(Driver)-250(Routine)]TJ/F54 9.9626 Tf -57.098 -18.964 Td [(This)-266(subr)18(outine)-266(is)-267(a)-266(driver)-266(that)-267(p)1(r)18(ovides)-267(a)-266(general)-266(interface)-266(for)-267(all)-266(the)-266(Krylov-)]TJ 0 -11.955 Td [(Subspace)-250(family)-250(methods)-250(implemented)-250(in)-250(PSBLAS)-250(version)-250(2.)]TJ 14.944 -11.955 Td [(The)-250(stopping)-250(criterion)-250(can)-250(take)-250(the)-250(following)-250(values:)]TJ
+/F59 9.9626 Tf 421.088 580.183 Td [(type)]TJ
 0 g 0 G
-/F51 9.9626 Tf -14.944 -18.774 Td [(1)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(normwise)-222(backwar)18(d)-221(err)18(or)-222(in)-221(the)-222(in\002nity)-222(norm;)-231(the)-221(iteration)-222(is)-222(stopped)-221(when)]TJ/F52 9.9626 Tf 109.036 -26.864 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 40.62 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F51 9.9626 Tf -291.305 -22.815 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-190(as:)-280(an)-190(alr)18(eady)-190(initialized)-190(pr)18(econdtioner)-190(data)-190(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 277.288 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 246.191 620.108 cm
-[]0 d 0 J 0.398 w 0 0 m 74.372 0 l S
+1 0 0 1 469.217 509.746 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F85 10.3811 Tf 246.316 610.783 Td [(\050)]TJ/F83 10.3811 Tf 4.274 0 Td [(k)]TJ/F52 9.9626 Tf 5.938 0 Td [(A)]TJ/F83 10.3811 Tf 7.442 0 Td [(k)-24(k)]TJ/F52 9.9626 Tf 11.048 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.876 1.96 Td [(k)]TJ/F85 10.3811 Tf 7.376 0 Td [(+)]TJ/F83 10.3811 Tf 10.256 0 Td [(k)]TJ/F52 9.9626 Tf 5.44 0 Td [(b)]TJ/F83 10.3811 Tf 4.861 0 Td [(k)]TJ/F85 10.3811 Tf 5.44 0 Td [(\051)]TJ/F61 10.3811 Tf 8.236 6.834 Td [(<)]TJ/F52 9.9626 Tf 11.087 0 Td [(e)-80(p)-25(s)]TJ
-0 g 0 G
-/F51 9.9626 Tf -235.842 -29.908 Td [(2)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 136.209 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.141 0 Td [(=)]TJ/F83 10.3811 Tf 13.446 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F59 9.9626 Tf 472.355 509.547 Td [(prec)]TJ
 ET
 q
-1 0 0 1 273.365 563.335 cm
-[]0 d 0 J 0.398 w 0 0 m 20.025 0 l S
+1 0 0 1 493.904 509.746 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F83 10.3811 Tf 273.49 554.01 Td [(k)]TJ/F52 9.9626 Tf 5.439 0 Td [(b)]TJ/F83 10.3811 Tf 4.862 0 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ
+/F59 9.9626 Tf 497.043 509.547 Td [(type)]TJ
 0 g 0 G
-/F51 9.9626 Tf -208.668 -29.848 Td [(3)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 134.486 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 15.17 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+/F51 9.9626 Tf -346.338 -34.771 Td [(desc)]TJ
 ET
 q
-1 0 0 1 271.641 506.622 cm
-[]0 d 0 J 0.398 w 0 0 m 23.472 0 l S
+1 0 0 1 171.218 474.975 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
 Q
 BT
-/F83 10.3811 Tf 271.766 497.297 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F54 7.5716 Tf 4 -1.744 Td [(0)]TJ/F83 10.3811 Tf 4.408 1.744 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ/F54 9.9626 Tf -210.391 -29.848 Td [(The)-248(behaviour)-248(is)-248(contr)18(olled)-249(by)-248(the)-248(istop)-248(ar)18(gument)-248(\050see)-248(later\051.)-310(In)-248(the)-248(above)-248(for)18(-)]TJ 0 -11.956 Td [(mulae,)]TJ/F52 9.9626 Tf 32.81 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(is)-256(the)-256(tentative)-257(soluti)1(on)-257(and)]TJ/F52 9.9626 Tf 125.144 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F85 10.3811 Tf 5.757 1.96 Td [(=)]TJ/F52 9.9626 Tf 11.2 0 Td [(b)]TJ/F83 10.3811 Tf 6.822 0 Td [(\000)]TJ/F52 9.9626 Tf 10.777 0 Td [(A)-42(x)]TJ/F52 7.5716 Tf 12.759 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(the)-256(corr)18(esponding)-256(r)18(esidual)]TJ -225.064 -11.955 Td [(at)-250(the)]TJ/F52 9.9626 Tf 27.083 0 Td [(i)]TJ/F54 9.9626 Tf 2.964 0 Td [(-th)-250(iteration.)]TJ -28.305 -17.357 Td [(c)-175(a)-175(l)-174(l)-880(p)-105(s)-105(b)]TJ
+/F51 9.9626 Tf 174.207 474.776 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(,)-250(tar)18(get.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(descriptor)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 247.649 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 150.28 433.215 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 439.579 439.11 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F54 9.9626 Tf 154.313 433.015 Td [(k)-105(r)-105(y)-104(l)-105(o)-105(v)-238(\050)-156(m)-21(e)-22(t)-21(h)-22(o)-22(d)-218(,)-208(a)-242(,)-255(p)-80(r)-81(e)-80(c)-335(,)-191(b)-206(,)-203(x)-231(,)-234(e)-60(p)-59(s)-293(,)-273(d)-98(e)-97(s)-98(c)]TJ
+/F59 9.9626 Tf 442.717 438.911 Td [(desc)]TJ
 ET
 q
-1 0 0 1 352.02 433.215 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 464.266 439.11 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F54 9.9626 Tf 355.983 433.015 Td [(a)-370(,)-283(i)-108(n)-108(f)-108(o)-274(,)-57(&)]TJ -227.086 -11.955 Td [(&)-580(i)-69(t)-69(m)-70(a)-69(x)-313(,)-327(i)-151(t)-152(e)-151(r)-478(,)-281(e)-107(r)-106(r)-387(,)-321(i)-145(t)-146(r)-146(a)-145(c)-146(e)-466(,)-336(i)-161(r)-160(s)-161(t)-496(,)-291(i)-116(s)-116(t)-116(o)-116(p)-407(,)-219(c)-43(o)-43(n)-44(d)-177(\051)]TJ
-0 g 0 G
-0 g 0 G
-0 g 0 G
-/F51 9.9626 Tf -29.002 -25.88 Td [(T)90(ype:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.828 -19.349 Td [(On)-250(Entry)]TJ
-0 g 0 G
-0 g 0 G
- 0 -19.349 Td [(method)]TJ
-0 g 0 G
-/F54 9.9626 Tf 39.851 0 Td [(a)-193(string)-194(that)-193(de\002nes)-194(the)-194(it)1(erative)-194(method)-193(to)-194(be)-194(use)1(d.)-292(Supported)-193(values)]TJ -14.944 -11.956 Td [(ar)18(e:)]TJ
-0 g 0 G
-/F51 9.9626 Tf 0 -19.349 Td [(CG:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 22.964 0 Td [(the)-250(Conjugate)-250(Gradient)-250(method;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -22.964 -15.364 Td [(CGS:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 29.051 0 Td [(the)-250(Conjugate)-250(Gradient)-250(Stabilized)-250(method;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -29.051 -15.365 Td [(GCR:)]TJ
+/F59 9.9626 Tf 467.404 438.911 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.157 0 Td [(the)-250(Generalized)-250(Conjugate)-250(Residual)-250(method;)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -30.157 -15.364 Td [(FCG:)]TJ
+/F51 9.9626 Tf -337.62 -22.816 Td [(amold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 28.503 0 Td [(the)-250(Flexible)-250(Conjugate)-250(Gradient)-250(method)]TJ
-0 0 1 rg 0 0 1 RG
-/F54 7.5716 Tf 176.854 3.616 Td [(5)]TJ
-0 g 0 G
-/F54 9.9626 Tf 4.284 -3.616 Td [(;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -209.641 -15.364 Td [(BICG:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 33.484 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(method;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -33.484 -15.365 Td [(BICGST)92(AB:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 59.696 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(Stabilized)-250(method;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -59.696 -15.364 Td [(BICGST)92(ABL:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 65.783 0 Td [(the)-218(Bi-Conjugate)-217(Gradient)-218(Stabilized)-218(method)-217(with)-218(r)18(estart-)]TJ -43.865 -11.955 Td [(ing;)]TJ
-0 g 0 G
-/F51 9.9626 Tf -21.918 -15.365 Td [(RGMRES:)]TJ
-0 g 0 G
-/F54 9.9626 Tf 52.294 0 Td [(the)-250(Generalized)-250(Minimal)-250(Residual)-250(method)-250(with)-250(r)18(estarting.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -77.201 -19.349 Td [(a)]TJ
-0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(the)-250(local)-250(portion)-250(of)-250(global)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 178.414 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(.)]TJ -170.787 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+/F54 9.9626 Tf 33.763 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(matrix)-250(storage.)]TJ -8.857 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 309.258 138.701 cm
+1 0 0 1 393.323 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 312.397 138.501 Td [(Tspmat)]TJ
+/F59 9.9626 Tf 396.461 368.275 Td [(T)]TJ
 ET
 q
-1 0 0 1 344.406 138.701 cm
+1 0 0 1 402.319 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 347.544 138.501 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
+/F59 9.9626 Tf 405.457 368.275 Td [(base)]TJ
 ET
 q
-1 0 0 1 99.895 130.091 cm
-[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S
+1 0 0 1 427.006 368.474 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F54 5.9776 Tf 110.755 123.219 Td [(5)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(Note:)-310(the)-250(implementation)-250(is)-250(for)]TJ/F52 7.9701 Tf 113.297 0 Td [(F)-31(C)-45(G)]TJ/F85 8.3049 Tf 16.387 0 Td [(\050)]TJ/F54 7.9701 Tf 3.319 0 Td [(1)]TJ/F85 8.3049 Tf 4.085 0 Td [(\051)]TJ/F54 7.9701 Tf 3.32 0 Td [(.)]TJ
-0 g 0 G
-0 g 0 G
-/F54 9.9626 Tf 9.629 -29.888 Td [(149)]TJ
-0 g 0 G
-ET
-
-endstream
-endobj
-1864 0 obj
-<<
-/Length 7054      
->>
-stream
-0 g 0 G
-0 g 0 G
-0 g 0 G
-BT
-/F51 9.9626 Tf 150.705 706.129 Td [(prec)]TJ
-0 g 0 G
-/F54 9.9626 Tf 24.348 0 Td [(The)-250(data)-250(str)8(uctur)18(e)-250(containing)-250(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+/F59 9.9626 Tf 430.144 368.275 Td [(sparse)]TJ
 ET
 q
-1 0 0 1 360.068 658.507 cm
+1 0 0 1 462.154 368.474 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 658.308 Td [(prec)]TJ
+/F59 9.9626 Tf 465.292 368.275 Td [(mat)]TJ/F54 9.9626 Tf 15.691 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -330.278 -22.816 Td [(vmold)]TJ
+0 g 0 G
+/F54 9.9626 Tf 34.321 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(vector)-250(storage.)]TJ -9.415 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(object)-250(of)-250(a)-250(class)-250(derived)-250(fr)18(om)]TJ/F59 9.9626 Tf 201.393 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 384.755 658.507 cm
+1 0 0 1 393.323 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 387.893 658.308 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -258.11 -22.202 Td [(b)]TJ
-0 g 0 G
-/F54 9.9626 Tf 11.068 0 Td [(The)-250(RHS)-250(vector)74(.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
+/F59 9.9626 Tf 396.461 297.638 Td [(T)]TJ
 ET
 q
-1 0 0 1 410.618 588.484 cm
+1 0 0 1 402.319 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.756 588.285 Td [(T)]TJ
+/F59 9.9626 Tf 405.457 297.638 Td [(base)]TJ
 ET
 q
-1 0 0 1 419.614 588.484 cm
+1 0 0 1 427.006 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 422.752 588.285 Td [(vect)]TJ
+/F59 9.9626 Tf 430.144 297.638 Td [(vect)]TJ
 ET
 q
-1 0 0 1 444.301 588.484 cm
+1 0 0 1 451.693 297.838 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 447.439 588.285 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+/F59 9.9626 Tf 454.832 297.638 Td [(type)]TJ/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.656 -22.202 Td [(x)]TJ
+/F51 9.9626 Tf -325.048 -22.815 Td [(imold)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(initial)-250(guess.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
-0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 218.687 0 Td [(psb)]TJ
+/F54 9.9626 Tf 32.099 0 Td [(The)-250(desir)18(ed)-250(dynamic)-250(type)-250(for)-250(the)-250(internal)-250(integer)-250(vector)-250(storage.)]TJ -7.193 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.275 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-190(as:)-280(an)-190(object)-190(of)-190(a)-190(class)-190(derived)-190(fr)18(om)-190(\050integer\051)]TJ/F59 9.9626 Tf 235.804 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 410.618 518.461 cm
+1 0 0 1 427.733 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 413.756 518.262 Td [(T)]TJ
+/F59 9.9626 Tf 430.872 227.002 Td [(T)]TJ
 ET
 q
-1 0 0 1 419.614 518.461 cm
+1 0 0 1 436.73 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 422.752 518.262 Td [(vect)]TJ
+/F59 9.9626 Tf 439.868 227.002 Td [(base)]TJ
 ET
 q
-1 0 0 1 444.301 518.461 cm
+1 0 0 1 461.417 227.202 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 447.439 518.262 Td [(type)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -317.656 -22.203 Td [(eps)]TJ
-0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(The)-250(stopping)-250(tolerance.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
-0 g 0 G
-/F51 9.9626 Tf -24.906 -22.203 Td [(desc)]TJ
+/F59 9.9626 Tf 464.555 227.002 Td [(vect)]TJ
 ET
 q
-1 0 0 1 171.218 426.236 cm
-[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+1 0 0 1 486.104 227.202 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F51 9.9626 Tf 174.207 426.036 Td [(a)]TJ
+/F59 9.9626 Tf 489.242 227.002 Td [(type)]TJ/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.962 0 Td [(contains)-250(data)-250(str)8(uctur)18(es)-250(for)-250(communications.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+/F51 9.9626 Tf -359.459 -24.085 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -22.816 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econdtioner)-250(data)-250(str)8(uctur)18(e)]TJ
 0 0 1 rg 0 0 1 RG
-/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+/F59 9.9626 Tf 193.612 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 360.068 378.415 cm
+1 0 0 1 385.542 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 363.206 378.216 Td [(desc)]TJ
+/F59 9.9626 Tf 388.68 132.281 Td [(prec)]TJ
 ET
 q
-1 0 0 1 384.755 378.415 cm
+1 0 0 1 410.229 132.48 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 387.893 378.216 Td [(type)]TJ
+/F59 9.9626 Tf 413.367 132.281 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -258.11 -22.203 Td [(itmax)]TJ
+/F54 9.9626 Tf -98.279 -41.843 Td [(152)]TJ
 0 g 0 G
-/F54 9.9626 Tf 30.436 0 Td [(The)-250(maximum)-250(number)-250(of)-250(iterations)-250(to)-250(perform.)]TJ -5.529 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.569 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F85 10.3811 Tf 27.744 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(1000.)]TJ -77.274 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable)]TJ/F52 9.9626 Tf 142.349 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F83 10.3811 Tf 27.743 0 Td [(\025)]TJ/F54 9.9626 Tf 10.962 0 Td [(1.)]TJ
+ET
+
+endstream
+endobj
+1876 0 obj
+<<
+/Length 1021      
+>>
+stream
 0 g 0 G
-/F51 9.9626 Tf -205.961 -22.202 Td [(itrace)]TJ
 0 g 0 G
-/F54 9.9626 Tf 29.878 0 Td [(If)]TJ/F61 10.3811 Tf 11.007 0 Td [(>)]TJ/F54 9.9626 Tf 14.142 0 Td [(0)-422(print)-423(out)-422(an)-422(informational)-423(message)-422(about)-422(conver)18(gence)-423(every)]TJ/F52 9.9626 Tf -30.066 -11.955 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F54 9.9626 Tf 26.396 0 Td [(iterations.)-310(If)]TJ/F85 10.3811 Tf 56.313 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(0)-250(print)-250(a)-250(message)-250(in)-250(case)-250(of)-250(conver)18(gence)-250(failur)18(e.)]TJ -93.724 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.57 0 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F85 10.3811 Tf 26.796 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -109.553 -34.158 Td [(irst)]TJ
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(info)]TJ
 0 g 0 G
-/F54 9.9626 Tf 19.915 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(r)18(estart)-250(parameter)74(.)]TJ 4.992 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)]TJ/F52 9.9626 Tf 34.613 0 Td [(i)-22(r)-35(s)-25(t)]TJ/F61 10.3811 Tf 17.671 0 Td [(>)]TJ/F54 9.9626 Tf 10.961 0 Td [(0.)-298(This)-214(is)-213(employed)-214(for)-213(the)-214(BiCGST)74(ABL)-214(or)-213(RGMRES)-214(meth-)]TJ -63.245 -11.955 Td [(ods,)-250(otherwise)-250(it)-250(is)-250(ignor)18(ed.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ -24.907 -21.918 Td [(The)]TJ/F59 9.9626 Tf 20.388 0 Td [(amold)]TJ/F54 9.9626 Tf 26.152 0 Td [(,)]TJ/F59 9.9626 Tf 6.506 0 Td [(vmold)]TJ/F54 9.9626 Tf 29.862 0 Td [(and)]TJ/F59 9.9626 Tf 20.577 0 Td [(imold)]TJ/F54 9.9626 Tf 29.862 0 Td [(ar)18(guments)-372(may)-373(be)-372(employed)-373(to)-372(interface)-372(with)]TJ -133.347 -11.955 Td [(special)-250(devices,)-250(such)-250(as)-250(GPUs)-250(and)-250(other)-250(accelerators.)]TJ
 0 g 0 G
- 139.477 -29.888 Td [(150)]TJ
+ 164.384 -533.997 Td [(153)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1869 0 obj
+1884 0 obj
 <<
-/Length 4489      
+/Length 5673      
 >>
 stream
 0 g 0 G
 0 g 0 G
-0 g 0 G
 BT
-/F51 9.9626 Tf 99.895 706.129 Td [(istop)]TJ
+/F51 11.9552 Tf 150.705 706.129 Td [(10.3)-1000(apply)-250(\227)-250(Preconditioner)-250(application)-250(routine)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.666 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(stopping)-250(criterion.)]TJ -2.759 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)-351(1:)-351(use)-271(the)-270(normwise)-271(backwar)18(d)-270(err)18(or)74(,)-276(2:)-351(use)-271(the)-270(scaled)-271(2-norm)-270(of)]TJ 0 -11.955 Td [(the)-250(r)18(esidual,)-250(3:)-310(use)-250(the)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm.)-310(Default:)-310(2.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
+/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%apply\050x,y,desc_a,info,trans,work\051)]TJ 0 -11.955 Td [(call)-525(prec%apply\050x,desc_a,info,trans\051)]TJ
 0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
- 0 -19.926 Td [(x)]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 9.963 0 Td [(The)-250(computed)-250(solution.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.837 0 Td [(local)]TJ/F54 9.9626 Tf -117.279 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 388.441 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 391.579 577.576 Td [(prec)]TJ
+ET
+q
+1 0 0 1 413.128 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 416.266 577.576 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -286.483 -19.925 Td [(x)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(sour)18(ce)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 111.142 0 Td [(local)]TJ/F54 9.9626 Tf -96.198 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
 0 0 1 rg 0 0 1 RG
 /F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
 q
-1 0 0 1 359.808 558.881 cm
+1 0 0 1 410.618 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 362.947 558.682 Td [(T)]TJ
+/F59 9.9626 Tf 413.756 521.785 Td [(T)]TJ
 ET
 q
-1 0 0 1 368.804 558.881 cm
+1 0 0 1 419.614 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 371.943 558.682 Td [(vect)]TJ
+/F59 9.9626 Tf 422.752 521.785 Td [(vect)]TJ
 ET
 q
-1 0 0 1 393.492 558.881 cm
+1 0 0 1 444.301 521.985 cm
 []0 d 0 J 0.398 w 0 0 m 3.138 0 l S
 Q
 BT
-/F59 9.9626 Tf 396.63 558.682 Td [(type)]TJ
+/F59 9.9626 Tf 447.439 521.785 Td [(type)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
-/F51 9.9626 Tf -317.656 -19.925 Td [(iter)]TJ
+/F51 9.9626 Tf -317.656 -19.925 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 502.059 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 501.86 Td [(a)]TJ
 0 g 0 G
-/F54 9.9626 Tf 20.473 0 Td [(The)-250(number)-250(of)-250(iterations)-250(performed.)]TJ 4.434 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+/F54 9.9626 Tf 9.962 0 Td [(the)-250(pr)18(oblem)-250(communication)-250(descriptor)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 208.625 0 Td [(local)]TJ/F54 9.9626 Tf -217.183 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-250(as:)-310(a)-250(communication)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 200.207 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 392.137 466.194 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 395.275 465.994 Td [(desc)]TJ
+ET
+q
+1 0 0 1 416.824 466.194 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 419.963 465.994 Td [(type)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(err)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 17.714 0 Td [(The)-250(conver)18(gence)-250(estimate)-250(on)-250(exit.)]TJ 7.193 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
+/F51 9.9626 Tf -290.179 -19.925 Td [(trans)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(cond)]TJ
+/F54 9.9626 Tf 27.666 0 Td [(Scope:)]TJ -2.76 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(character)74(.)]TJ
 0 g 0 G
-/F54 9.9626 Tf 27.119 0 Td [(An)-210(esti)1(mate)-210(of)-210(the)-209(condition)-210(number)-209(of)-210(matrix)]TJ/F52 9.9626 Tf 204.999 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)-223(only)-210(available)-209(with)-210(the)]TJ/F52 9.9626 Tf -214.444 -11.956 Td [(C)-45(G)]TJ/F54 9.9626 Tf 17.001 0 Td [(method)-250(on)-250(r)18(eal)-250(data.)]TJ -17.086 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-249(as:)-310(a)-249(r)18(eal)-249(number)74(.)-310(A)-249(corr)18(ect)-250(r)18(esult)-249(will)-249(be)-249(gr)18(eater)-250(than)-249(or)-249(equal)]TJ 0 -11.955 Td [(to)-403(one;)-480(if)-403(speci\002ed)-403(for)-403(non-r)18(eal)-403(data,)-441(or)-403(an)-403(err)18(or)-403(occurr)18(ed,)-441(zer)18(o)-403(is)-403(r)18(e-)]TJ 0 -11.956 Td [(turned.)]TJ
+/F51 9.9626 Tf -24.906 -19.926 Td [(work)]TJ
 0 g 0 G
-/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
+/F54 9.9626 Tf 28.782 0 Td [(an)-250(optional)-250(work)-250(space)-250(Scope:)]TJ/F51 9.9626 Tf 136.476 0 Td [(local)]TJ/F54 9.9626 Tf -140.352 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(optional)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(double)-250(pr)18(ecision)-250(array)111(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -21.918 Td [(On)-250(Return)]TJ
 0 g 0 G
-/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 139.477 -161.394 Td [(151)]TJ
+ 0 -19.925 Td [(y)]TJ
 0 g 0 G
+/F54 9.9626 Tf 10.52 0 Td [(the)-250(destination)-250(vector)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 131.914 0 Td [(local)]TJ/F54 9.9626 Tf -117.528 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
 ET
-
-endstream
-endobj
-1874 0 obj
-<<
-/Length 81        
->>
-stream
+q
+1 0 0 1 410.618 276.904 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 413.756 276.704 Td [(T)]TJ
+ET
+q
+1 0 0 1 419.614 276.904 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 422.752 276.704 Td [(vect)]TJ
+ET
+q
+1 0 0 1 444.301 276.904 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 447.439 276.704 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
 0 g 0 G
+/F51 9.9626 Tf -317.656 -19.925 Td [(info)]TJ
 0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.745 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
-BT
-/F54 9.9626 Tf 315.088 90.438 Td [(152)]TJ
+ 139.477 -118.52 Td [(154)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1878 0 obj
+1889 0 obj
 <<
-/Length 6590      
+/Length 3387      
 >>
 stream
 0 g 0 G
 0 g 0 G
 BT
-/F51 14.3462 Tf 99.895 705.784 Td [(References)]TJ
-0 g 0 G
-/F54 9.9626 Tf 4.982 -22.702 Td [([1])]TJ
-0 g 0 G
- [-500(D.)-314(Barbieri,)-330(V)129(.)-314(Car)18(dellini,)-330(S.)-314(Filippone)-314(and)-314(D.)-314(Rouson)]TJ/F52 9.9626 Tf 258.302 0 Td [(Design)-314(Patterns)-314(for)]TJ -241.705 -11.955 Td [(Scienti\002c)-224(Computations)-225(on)-224(Sparse)-224(Matrices)]TJ/F54 9.9626 Tf 175.255 0 Td [(,)-229(HPSS)-225(2011,)-229(Algorithms)-225(and)-224(Pr)18(o-)]TJ -175.255 -11.955 Td [(gramming)-396(T)92(ools)-395(for)-396(Next-Generation)-396(High-Performance)-396(Scie)1(nti\002c)-396(Soft-)]TJ 0 -11.955 Td [(war)18(e,)-250(Bor)18(deaux,)-250(Sep.)-250(2011)]TJ
-0 g 0 G
- -16.597 -19.642 Td [([2])]TJ
-0 g 0 G
- [-500(G.)-362(Bella,)-391(S.)-362(Filippone,)-390(A.)-363(De)-362(Maio)-362(and)-363(M.)-362(T)92(esta,)]TJ/F52 9.9626 Tf 239.345 0 Td [(A)-362(Simulation)-362(Model)-363(for)]TJ -222.748 -11.955 Td [(For)18(est)-346(Fir)18(es)]TJ/F54 9.9626 Tf 47.93 0 Td [(,)-370(in)-346(J.)-346(Dongarra,)-370(K.)-346(Madsen,)-370(J.)-346(W)92(asniewski,)-370(editors,)-370(Pr)18(oceed-)]TJ -47.93 -11.955 Td [(ings)-338(of)-337(P)92(ARA)-338(04)-338(W)92(orkshop)-337(on)-338(State)-338(of)-338(the)-337(Art)-338(in)-338(Scienti\002c)-337(Computing,)]TJ 0 -11.955 Td [(pp.)-250(546\226553,)-250(Lectur)18(e)-250(Notes)-250(in)-250(Computer)-250(Science,)-250(Springer)74(,)-250(2005.)]TJ
-0 g 0 G
- -16.597 -19.642 Td [([3])]TJ
-0 g 0 G
- [-500(A.)-216(Buttari,)-223(D.)-216(di)-217(Sera\002no,)-223(P)129(.)-216(D'Ambra,)-223(S.)-216(Filippone,)-71(2LEV)74(-D2P4:)-293(a)-216(package)]TJ 16.597 -11.955 Td [(of)-247(high-performance)-247(pr)18(econditioners,)-107(Applicable)-247(Algebra)-247(in)-247(Engineering,)]TJ 0 -11.955 Td [(Communications)-292(and)-293(Computing,)-303(V)111(olume)-292(18,)-303(Number)-292(3,)-303(May)111(,)-303(2007,)-303(pp.)]TJ 0 -11.955 Td [(223-239)]TJ
-0 g 0 G
- -16.597 -19.642 Td [([4])]TJ
+/F51 11.9552 Tf 99.895 706.129 Td [(10.4)-1000(descr)-250(\227)-250(Prints)-250(a)-250(description)-250(of)-250(current)-250(preconditioner)]TJ
 0 g 0 G
- [-500(P)129(.)-248(D'Ambra,)-248(S.)-248(Filippone,)-249(D.)-248(Di)-248(Sera\002no)-107(On)-248(the)-248(Development)-248(of)-248(PSBLAS-)]TJ 16.597 -11.955 Td [(based)-523(Parallel)-524(T)90(wo-level)-523(Schwarz)-523(Pr)18(econditioners)-1235(Applied)-523(Numeri-)]TJ 0 -11.955 Td [(cal)-376(Mathematics,)-408(Elsevier)-376(Science,)-408(V)111(olume)-376(57,)-408(Issues)-376(11-12,)-408(November)18(-)]TJ 0 -11.955 Td [(December)-250(2007,)-250(Pages)-250(1181-1196.)]TJ
 0 g 0 G
- -16.597 -19.642 Td [([5])]TJ
+/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%descr\050info\051)]TJ 0 -11.955 Td [(call)-525(prec%descr\050info,iout,)-525(root\051)]TJ
 0 g 0 G
- [-500(Dongarra,)-268(J.)-265(J.,)-269(DuCr)18(oz,)-268(J.,)-269(Hammarli)1(ng,)-269(S.)-265(and)-264(Hanson,)-269(R.,)-268(An)-265(Extended)]TJ 16.597 -11.955 Td [(Set)-463(of)-463(Fortran)-463(Basic)-464(Linear)-463(Algebra)-463(Subpr)18(ograms,)-516(ACM)-463(T)90(rans.)-463(Math.)]TJ 0 -11.955 Td [(Softw)92(.)-250(vol.)-250(14,)-250(1\22617,)-250(1988.)]TJ
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
 0 g 0 G
- -16.597 -19.642 Td [([6])]TJ
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
 0 g 0 G
- [-500(Dongarra,)-422(J.,)-421(DuCr)18(oz,)-422(J.,)-422(Hammarling,)-422(S.)-387(and)-387(Duf)18(f,)-422(I.,)-422(A)-387(Set)-387(of)-388(level)-387(3)]TJ 16.597 -11.955 Td [(Basic)-308(Linear)-307(Algebra)-308(Subpr)18(ograms,)-322(ACM)-308(T)90(rans.)-308(Math.)-308(Soft)1(w)91(.)-307(vol.)-308(16,)-322(1\226)]TJ 0 -11.955 Td [(17,)-250(1990.)]TJ
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
 0 g 0 G
- -16.597 -19.642 Td [([7])]TJ
 0 g 0 G
- [-500(J.)-349(J.)-350(Dongarra)-349(and)-350(R.)-350(C.)-349(Whaley)111(,)]TJ/F52 9.9626 Tf 166.061 0 Td [(A)-349(User)-37(')55(s)-350(Guide)-349(to)-350(the)-349(BLACS)-350(v)55(.)-349(1.1)]TJ/F54 9.9626 Tf 152.062 0 Td [(,)-374(La-)]TJ -301.526 -11.955 Td [(pack)-234(W)92(orking)-233(Note)-234(94,)-237(T)92(ech.)-233(Rep.)-234(UT)55(-CS-95-281,)-237(University)-234(of)-233(T)92(ennessee,)]TJ 0 -11.955 Td [(Mar)18(ch)-250(1995)-250(\050updated)-250(May)-250(1997\051.)]TJ
+ 0 -19.925 Td [(prec)]TJ
 0 g 0 G
- -16.597 -19.642 Td [([8])]TJ
+/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)-310(Scope:)]TJ/F51 9.9626 Tf 117.836 0 Td [(local)]TJ/F54 9.9626 Tf -117.278 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 337.631 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
+ET
+q
+1 0 0 1 362.319 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
 0 g 0 G
- [-500(I.)-259(Duf)18(f,)-262(M.)-260(Marr)18(one,)-261(G.)-260(Radicati)-259(and)-259(C.)-260(V)55(ittoli,)]TJ/F52 9.9626 Tf 223.407 0 Td [(Level)-259(3)-260(Basic)-259(Linear)-260(Algebra)]TJ -206.81 -11.955 Td [(Subpr)18(ograms)-328(f)1(or)-328(Sparse)-327(Matrices:)-465(a)-328(User)-327(Level)-328(Interface)]TJ/F54 9.9626 Tf 233.522 0 Td [(,)-347(ACM)-327(T)90(ransactions)]TJ -233.522 -11.955 Td [(on)-250(Mathematical)-250(Softwar)18(e,)-250(23\0503\051,)-250(pp.)-250(379\226401,)-250(1997.)]TJ
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
 0 g 0 G
- -16.597 -19.641 Td [([9])]TJ
+/F51 9.9626 Tf -286.483 -19.925 Td [(iout)]TJ
 0 g 0 G
- [-500(I.)-282(Duf)18(f,)-289(M.)-282(Her)18(oux)-281(and)-282(R.)-281(Pozo,)]TJ/F52 9.9626 Tf 160.607 0 Td [(An)-282(Overview)-281(of)-282(the)-281(Sparse)-282(Basic)-282(Linear)-281(Al-)]TJ -144.01 -11.956 Td [(gebra)-287(Subpr)18(ograms:)-383(the)-287(New)-287(Standard)-286(fr)18(om)-287(the)-287(BLAS)-287(T)111(echnical)-286(Forum)]TJ/F54 9.9626 Tf 292.455 0 Td [(,)-296(ACM)]TJ -292.455 -11.955 Td [(T)90(ransactions)-250(on)-250(Mathematical)-250(Softwar)18(e,)-250(28\0502\051,)-250(pp.)-250(239\226267,)-250(2002.)]TJ
+/F54 9.9626 Tf 23.243 0 Td [(output)-250(unit.)-310(Scope:)]TJ/F51 9.9626 Tf 87.391 0 Td [(local)]TJ/F54 9.9626 Tf -85.727 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(number)74(.)-310(Default:)-310(default)-250(output)-250(unit.)]TJ
 0 g 0 G
- -21.579 -19.641 Td [([10])]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(root)]TJ
 0 g 0 G
- [-500(S.)-298(Filippone)-298(and)-298(M.)-297(Colajanni,)]TJ/F52 9.9626 Tf 159.942 0 Td [(PSBLAS:)-298(A)-298(Library)-297(for)-298(Parallel)-298(Linear)-298(Alge-)]TJ -138.363 -11.955 Td [(bra)-340(Computation)-340(on)-340(Sparse)-340(Matrices)]TJ/F54 9.9626 Tf 151.715 0 Td [(,)-670(ACM)-340(T)90(ransactions)-340(on)-340(Mathematical)]TJ -151.715 -11.956 Td [(Softwar)18(e,)-250(26\0504\051,)-250(pp.)-250(527\226550,)-250(2000.)]TJ
+/F54 9.9626 Tf 23.253 0 Td [(Pr)18(ocess)-250(fr)18(om)-250(which)-250(to)-250(print)-250(Scope:)]TJ/F51 9.9626 Tf 155.834 0 Td [(local)]TJ/F54 9.9626 Tf -154.18 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.956 Td [(Speci\002ed)-387(as:)-585(an)-387(integer)-387(number)-388(between)-387(0)-387(and)]TJ/F52 9.9626 Tf 220.442 0 Td [(n)-80(p)]TJ/F83 10.3811 Tf 14.01 0 Td [(\000)]TJ/F54 9.9626 Tf 10.638 0 Td [(1,)-422(in)-387(which)-387(case)]TJ -245.09 -11.955 Td [(the)-314(speci\002e)1(d)-314(pr)18(ocess)-314(will)-313(print)-314(the)-313(description,)-330(or)]TJ/F83 10.3811 Tf 225.38 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1,)-329(in)-314(which)-314(case)-313(all)]TJ -233.574 -11.955 Td [(pr)18(ocesses)-250(will)-250(print.)-310(Default:)-310(0.)]TJ
 0 g 0 G
- -21.579 -19.641 Td [([11])]TJ
+/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
 0 g 0 G
- [-500(S.)-397(Filippone)-398(and)-397(A.)-397(Buttari,)]TJ/F52 9.9626 Tf 151.683 0 Td [(Object-Oriented)-397(T)111(echniques)-397(for)-398(Sparse)-397(Matrix)]TJ -130.104 -11.955 Td [(Computations)-353(in)-353(Fortran)-354(2003)]TJ/F54 9.9626 Tf 126.789 0 Td [(,)-716(ACM)-353(T)90(ransactions)-353(on)-354(Mathemati)1(cal)-354(Soft-)]TJ -126.789 -11.955 Td [(war)18(e,)-250(38\0504\051,)-250(2012.)]TJ
 0 g 0 G
- -21.579 -19.642 Td [([12])]TJ
+ 0 -19.925 Td [(info)]TJ
 0 g 0 G
- [-500(S.)-339(Filippone,)-360(P)129(.)-339(D'Ambra,)-360(M.)-339(Colajanni,)]TJ/F52 9.9626 Tf 202.675 0 Td [(Using)-339(a)-338(Parallel)-339(Library)-338(of)-339(Sparse)]TJ -181.096 -11.955 Td [(Linear)-350(Algebra)-350(in)-350(a)-349(Fluid)-350(Dynamics)-350(Applications)-350(Code)-350(on)-350(Linux)-349(Clusters)]TJ/F54 9.9626 Tf 307.21 0 Td [(,)-375(in)]TJ -307.21 -11.955 Td [(G.)-262(Joubert,)-264(A.)-262(Murli,)-264(F)92(.)-262(Peters,)-265(M.)-261(V)92(anneschi,)-265(editors,)-265(Parallel)-261(Computing)]TJ 0 -11.955 Td [(-)-250(Advances)-250(&)-250(Curr)18(ent)-250(Issues,)-250(pp.)-250(441\226448,)-250(Imperial)-250(College)-250(Pr)18(ess,)-250(2002.)]TJ
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
 0 g 0 G
- 142.805 -29.888 Td [(153)]TJ
+ 139.477 -263.975 Td [(155)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1781 0 obj
+1790 0 obj
 <<
 /Type /ObjStm
 /N 100
-/First 970
-/Length 10777     
+/First 967
+/Length 10102     
 >>
 stream
-1774 0 1778 144 529 202 1779 259 1780 316 1775 374 1784 468 1782 607 1786 752 533 811
-1787 869 1788 927 1783 986 1791 1080 1789 1219 1793 1363 537 1421 1794 1478 1795 1535 1790 1593
-1798 1687 1800 1805 541 1864 1797 1922 1804 2016 1801 2164 1802 2311 1806 2459 545 2517 1807 2574
-1803 2632 1813 2752 1808 2918 1809 3063 1810 3209 1811 3356 1815 3503 549 3562 1812 3620 1817 3714
-1819 3832 1816 3890 1825 3984 1820 4150 1821 4295 1822 4438 1823 4584 1827 4728 553 4787 1824 4845
-1830 4939 1828 5078 1832 5223 557 5281 1829 5338 1835 5458 1837 5576 561 5635 1834 5693 1841 5787
-1838 5935 1839 6080 1843 6227 565 6285 1840 6342 1845 6436 1847 6554 569 6613 1844 6671 1852 6765
-1848 6913 1849 7062 1854 7207 573 7265 1855 7322 1856 7380 1857 7438 1858 7496 1851 7554 1863 7701
-1850 7867 1859 8014 1860 8158 1861 8302 1865 8447 1862 8506 1868 8653 1866 8792 1870 8936 1867 8994
-1873 9101 1875 9219 1872 9278 1877 9346 1879 9464 1880 9522 783 9580 1881 9637 831 9695 830 9752
-% 1774 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [301.717 426.323 377.771 438.383]
-/A << /S /GoTo /D (vdata) >>
->>
-% 1778 0 obj
+1786 0 501 58 1787 115 1788 172 1783 230 1792 311 1794 429 505 488 1795 546 1796 605
+1791 664 1798 745 1800 863 509 921 1801 978 1802 1035 1797 1093 1804 1187 1806 1305 513 1364
+1803 1422 1809 1516 1807 1655 1811 1800 517 1858 1812 1915 1813 1973 1808 2031 1816 2125 1814 2264
+1818 2409 521 2468 1819 2526 1820 2585 1815 2644 1823 2738 1821 2877 1825 3022 525 3080 1826 3137
+1827 3194 1822 3252 1831 3346 1829 3485 1833 3628 529 3687 1834 3745 1835 3803 1830 3862 1838 3956
+1836 4095 1840 4240 533 4298 1841 4355 1842 4413 1837 4471 1845 4591 1843 4730 1847 4872 537 4931
+1848 4989 1849 5048 1844 5107 1851 5227 1853 5345 1850 5403 1855 5484 1857 5602 541 5661 1854 5719
+1861 5813 1858 5961 1859 6108 1863 6256 545 6314 1864 6371 1860 6429 1871 6549 1866 6715 1867 6860
+1868 7006 1869 7153 1873 7300 549 7359 1870 7417 1875 7511 1877 7629 1874 7687 1883 7781 1878 7947
+1879 8092 1880 8235 1881 8381 1885 8525 553 8584 1882 8642 1888 8736 1886 8875 1890 9020 557 9078
+% 1786 0 obj
 <<
-/D [1776 0 R /XYZ 98.895 753.953 null]
+/D [1784 0 R /XYZ 98.895 753.953 null]
 >>
-% 529 0 obj
+% 501 0 obj
 <<
-/D [1776 0 R /XYZ 99.895 716.092 null]
+/D [1784 0 R /XYZ 99.895 716.092 null]
 >>
-% 1779 0 obj
+% 1787 0 obj
 <<
-/D [1776 0 R /XYZ 99.895 678.98 null]
+/D [1784 0 R /XYZ 99.895 678.98 null]
 >>
-% 1780 0 obj
+% 1788 0 obj
 <<
-/D [1776 0 R /XYZ 99.895 679.195 null]
+/D [1784 0 R /XYZ 99.895 679.195 null]
 >>
-% 1775 0 obj
+% 1783 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1784 0 obj
+% 1792 0 obj
 <<
 /Type /Page
-/Contents 1785 0 R
-/Resources 1783 0 R
+/Contents 1793 0 R
+/Resources 1791 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1752 0 R
-/Annots [ 1782 0 R ]
->>
-% 1782 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 571.778 420.271 583.837]
-/A << /S /GoTo /D (spdata) >>
+/Parent 1789 0 R
 >>
-% 1786 0 obj
+% 1794 0 obj
 <<
-/D [1784 0 R /XYZ 149.705 753.953 null]
+/D [1792 0 R /XYZ 149.705 753.953 null]
 >>
-% 533 0 obj
+% 505 0 obj
 <<
-/D [1784 0 R /XYZ 150.705 716.092 null]
+/D [1792 0 R /XYZ 150.705 716.092 null]
 >>
-% 1787 0 obj
+% 1795 0 obj
 <<
-/D [1784 0 R /XYZ 150.705 678.98 null]
+/D [1792 0 R /XYZ 150.705 689.963 null]
 >>
-% 1788 0 obj
+% 1796 0 obj
 <<
-/D [1784 0 R /XYZ 150.705 679.195 null]
+/D [1792 0 R /XYZ 150.705 693.143 null]
 >>
-% 1783 0 obj
+% 1791 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1791 0 obj
+% 1798 0 obj
 <<
 /Type /Page
-/Contents 1792 0 R
-/Resources 1790 0 R
+/Contents 1799 0 R
+/Resources 1797 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
-/Annots [ 1789 0 R ]
->>
-% 1789 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [401.552 571.778 477.606 583.837]
-/A << /S /GoTo /D (vdata) >>
+/Parent 1789 0 R
 >>
-% 1793 0 obj
+% 1800 0 obj
 <<
-/D [1791 0 R /XYZ 98.895 753.953 null]
+/D [1798 0 R /XYZ 98.895 753.953 null]
 >>
-% 537 0 obj
+% 509 0 obj
 <<
-/D [1791 0 R /XYZ 99.895 716.092 null]
+/D [1798 0 R /XYZ 99.895 716.092 null]
 >>
-% 1794 0 obj
+% 1801 0 obj
 <<
-/D [1791 0 R /XYZ 99.895 678.98 null]
+/D [1798 0 R /XYZ 99.895 678.98 null]
 >>
-% 1795 0 obj
+% 1802 0 obj
 <<
-/D [1791 0 R /XYZ 99.895 679.195 null]
+/D [1798 0 R /XYZ 99.895 679.195 null]
 >>
-% 1790 0 obj
+% 1797 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1798 0 obj
+% 1804 0 obj
 <<
 /Type /Page
-/Contents 1799 0 R
-/Resources 1797 0 R
+/Contents 1805 0 R
+/Resources 1803 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
+/Parent 1789 0 R
 >>
-% 1800 0 obj
+% 1806 0 obj
 <<
-/D [1798 0 R /XYZ 149.705 753.953 null]
+/D [1804 0 R /XYZ 149.705 753.953 null]
 >>
-% 541 0 obj
+% 513 0 obj
 <<
-/D [1798 0 R /XYZ 150.705 716.092 null]
+/D [1804 0 R /XYZ 150.705 716.092 null]
 >>
-% 1797 0 obj
+% 1803 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1804 0 obj
+% 1809 0 obj
 <<
 /Type /Page
-/Contents 1805 0 R
-/Resources 1803 0 R
+/Contents 1810 0 R
+/Resources 1808 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
-/Annots [ 1801 0 R 1802 0 R ]
+/Parent 1789 0 R
+/Annots [ 1807 0 R ]
 >>
-% 1801 0 obj
+% 1807 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [320.317 442.264 387.374 454.323]
-/A << /S /GoTo /D (precdata) >>
+/Rect [291.943 438.278 369.462 450.338]
+/A << /S /GoTo /D (spdata) >>
 >>
-% 1802 0 obj
+% 1811 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [171.257 352.6 177.533 366.303]
-/A << /S /GoTo /D (Hfootnote.4) >>
+/D [1809 0 R /XYZ 98.895 753.953 null]
 >>
-% 1806 0 obj
+% 517 0 obj
 <<
-/D [1804 0 R /XYZ 98.895 753.953 null]
+/D [1809 0 R /XYZ 99.895 716.092 null]
 >>
-% 545 0 obj
+% 1812 0 obj
 <<
-/D [1804 0 R /XYZ 99.895 716.092 null]
+/D [1809 0 R /XYZ 99.895 676.015 null]
 >>
-% 1807 0 obj
+% 1813 0 obj
 <<
-/D [1804 0 R /XYZ 114.242 129.79 null]
+/D [1809 0 R /XYZ 99.895 679.195 null]
 >>
-% 1803 0 obj
+% 1808 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1813 0 obj
+% 1816 0 obj
 <<
 /Type /Page
-/Contents 1814 0 R
-/Resources 1812 0 R
+/Contents 1817 0 R
+/Resources 1815 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
-/Annots [ 1808 0 R 1809 0 R 1810 0 R 1811 0 R ]
+/Parent 1789 0 R
+/Annots [ 1814 0 R ]
 >>
-% 1808 0 obj
+% 1814 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [365.487 576.377 443.006 588.437]
+/Rect [342.753 571.778 420.271 583.837]
 /A << /S /GoTo /D (spdata) >>
 >>
-% 1809 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [451.902 505.741 518.96 517.801]
-/A << /S /GoTo /D (precdata) >>
->>
-% 1810 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [422.264 435.105 489.322 447.165]
-/A << /S /GoTo /D (descdata) >>
->>
-% 1811 0 obj
-<<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [368.227 128.475 435.285 140.535]
-/A << /S /GoTo /D (precdata) >>
->>
-% 1815 0 obj
-<<
-/D [1813 0 R /XYZ 149.705 753.953 null]
->>
-% 549 0 obj
+% 1818 0 obj
 <<
-/D [1813 0 R /XYZ 150.705 716.092 null]
+/D [1816 0 R /XYZ 149.705 753.953 null]
 >>
-% 1812 0 obj
+% 521 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1816 0 R /XYZ 150.705 716.092 null]
 >>
-% 1817 0 obj
+% 1819 0 obj
 <<
-/Type /Page
-/Contents 1818 0 R
-/Resources 1816 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
+/D [1816 0 R /XYZ 150.705 676.015 null]
 >>
-% 1819 0 obj
+% 1820 0 obj
 <<
-/D [1817 0 R /XYZ 98.895 753.953 null]
+/D [1816 0 R /XYZ 150.705 679.195 null]
 >>
-% 1816 0 obj
+% 1815 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1825 0 obj
+% 1823 0 obj
 <<
 /Type /Page
-/Contents 1826 0 R
-/Resources 1824 0 R
+/Contents 1824 0 R
+/Resources 1822 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1796 0 R
-/Annots [ 1820 0 R 1821 0 R 1822 0 R 1823 0 R ]
+/Parent 1828 0 R
+/Annots [ 1821 0 R ]
 >>
-% 1820 0 obj
+% 1821 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [371.126 573.77 438.184 585.83]
-/A << /S /GoTo /D (precdata) >>
+/Rect [291.943 438.278 369.462 450.338]
+/A << /S /GoTo /D (spdata) >>
 >>
-% 1821 0 obj
+% 1825 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [393.303 517.98 469.357 530.039]
-/A << /S /GoTo /D (vdata) >>
+/D [1823 0 R /XYZ 98.895 753.953 null]
 >>
-% 1822 0 obj
+% 525 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [374.822 462.189 441.88 474.248]
-/A << /S /GoTo /D (descdata) >>
+/D [1823 0 R /XYZ 99.895 716.092 null]
 >>
-% 1823 0 obj
+% 1826 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [393.303 272.899 469.357 284.958]
-/A << /S /GoTo /D (vdata) >>
+/D [1823 0 R /XYZ 99.895 678.98 null]
 >>
 % 1827 0 obj
 <<
-/D [1825 0 R /XYZ 149.705 753.953 null]
->>
-% 553 0 obj
-<<
-/D [1825 0 R /XYZ 150.705 716.092 null]
+/D [1823 0 R /XYZ 99.895 679.195 null]
 >>
-% 1824 0 obj
+% 1822 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1830 0 obj
+% 1831 0 obj
 <<
 /Type /Page
-/Contents 1831 0 R
-/Resources 1829 0 R
+/Contents 1832 0 R
+/Resources 1830 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
-/Annots [ 1828 0 R ]
+/Parent 1828 0 R
+/Annots [ 1829 0 R ]
 >>
-% 1828 0 obj
+% 1829 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [320.317 573.77 387.374 585.83]
-/A << /S /GoTo /D (precdata) >>
+/Rect [352.526 426.323 428.58 438.383]
+/A << /S /GoTo /D (vdata) >>
 >>
-% 1832 0 obj
+% 1833 0 obj
 <<
-/D [1830 0 R /XYZ 98.895 753.953 null]
+/D [1831 0 R /XYZ 149.705 753.953 null]
 >>
-% 557 0 obj
+% 529 0 obj
 <<
-/D [1830 0 R /XYZ 99.895 716.092 null]
+/D [1831 0 R /XYZ 150.705 716.092 null]
 >>
-% 1829 0 obj
+% 1834 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1831 0 R /XYZ 150.705 678.98 null]
 >>
 % 1835 0 obj
 <<
-/Type /Page
-/Contents 1836 0 R
-/Resources 1834 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
->>
-% 1837 0 obj
-<<
-/D [1835 0 R /XYZ 149.705 753.953 null]
->>
-% 561 0 obj
-<<
-/D [1835 0 R /XYZ 150.705 716.092 null]
+/D [1831 0 R /XYZ 150.705 679.195 null]
 >>
-% 1834 0 obj
+% 1830 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1841 0 obj
+% 1838 0 obj
 <<
 /Type /Page
-/Contents 1842 0 R
-/Resources 1840 0 R
+/Contents 1839 0 R
+/Resources 1837 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
-/Annots [ 1838 0 R 1839 0 R ]
+/Parent 1828 0 R
+/Annots [ 1836 0 R ]
 >>
-% 1838 0 obj
+% 1836 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [320.317 573.77 387.374 585.83]
-/A << /S /GoTo /D (precdata) >>
+/Rect [291.943 574.778 369.462 586.838]
+/A << /S /GoTo /D (spdata) >>
 >>
-% 1839 0 obj
+% 1840 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [320.317 498.054 387.374 510.114]
-/A << /S /GoTo /D (precdata) >>
+/D [1838 0 R /XYZ 98.895 753.953 null]
 >>
-% 1843 0 obj
+% 533 0 obj
 <<
-/D [1841 0 R /XYZ 98.895 753.953 null]
+/D [1838 0 R /XYZ 99.895 716.092 null]
 >>
-% 565 0 obj
+% 1841 0 obj
 <<
-/D [1841 0 R /XYZ 99.895 716.092 null]
+/D [1838 0 R /XYZ 99.895 679.441 null]
 >>
-% 1840 0 obj
+% 1842 0 obj
 <<
-/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/D [1838 0 R /XYZ 99.895 679.657 null]
+>>
+% 1837 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F94 915 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
 % 1845 0 obj
@@ -25243,90 +25513,91 @@ stream
 /Contents 1846 0 R
 /Resources 1844 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
+/Parent 1828 0 R
+/Annots [ 1843 0 R ]
+>>
+% 1843 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [452.361 574.59 528.415 586.65]
+/A << /S /GoTo /D (vdata) >>
 >>
 % 1847 0 obj
 <<
 /D [1845 0 R /XYZ 149.705 753.953 null]
 >>
-% 569 0 obj
+% 537 0 obj
 <<
 /D [1845 0 R /XYZ 150.705 716.092 null]
 >>
-% 1844 0 obj
+% 1848 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
-/ProcSet [ /PDF /Text ]
+/D [1845 0 R /XYZ 150.705 679.413 null]
 >>
-% 1852 0 obj
+% 1849 0 obj
 <<
-/Type /Page
-/Contents 1853 0 R
-/Resources 1851 0 R
-/MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
-/Annots [ 1848 0 R 1849 0 R ]
+/D [1845 0 R /XYZ 150.705 679.628 null]
 >>
-% 1848 0 obj
+% 1844 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [329.163 275.278 335.44 288.868]
-/A << /S /GoTo /D (Hfootnote.5) >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F94 915 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
-% 1849 0 obj
+% 1851 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [291.943 134.696 369.462 146.755]
-/A << /S /GoTo /D (spdata) >>
+/Type /Page
+/Contents 1852 0 R
+/Resources 1850 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1828 0 R
 >>
-% 1854 0 obj
+% 1853 0 obj
 <<
-/D [1852 0 R /XYZ 98.895 753.953 null]
+/D [1851 0 R /XYZ 98.895 753.953 null]
 >>
-% 573 0 obj
+% 1850 0 obj
 <<
-/D [1852 0 R /XYZ 99.895 716.092 null]
+/Font << /F94 915 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
 >>
 % 1855 0 obj
 <<
-/D [1852 0 R /XYZ 99.895 444.811 null]
->>
-% 1856 0 obj
-<<
-/D [1852 0 R /XYZ 99.895 444.971 null]
+/Type /Page
+/Contents 1856 0 R
+/Resources 1854 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1828 0 R
 >>
 % 1857 0 obj
 <<
-/D [1852 0 R /XYZ 99.895 433.015 null]
+/D [1855 0 R /XYZ 149.705 753.953 null]
 >>
-% 1858 0 obj
+% 541 0 obj
 <<
-/D [1852 0 R /XYZ 114.242 129.79 null]
+/D [1855 0 R /XYZ 150.705 716.092 null]
 >>
-% 1851 0 obj
+% 1854 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R /F59 812 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1863 0 obj
+% 1861 0 obj
 <<
 /Type /Page
-/Contents 1864 0 R
-/Resources 1862 0 R
+/Contents 1862 0 R
+/Resources 1860 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1833 0 R
-/Annots [ 1850 0 R 1859 0 R 1860 0 R 1861 0 R ]
+/Parent 1865 0 R
+/Annots [ 1858 0 R 1859 0 R ]
 >>
-% 1850 0 obj
+% 1858 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 654.503 409.811 666.562]
+/Rect [320.317 442.264 387.374 454.323]
 /A << /S /GoTo /D (precdata) >>
 >>
 % 1859 0 obj
@@ -25334,113 +25605,750 @@ stream
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [393.303 584.479 469.357 596.539]
-/A << /S /GoTo /D (vdata) >>
+/Rect [171.257 352.6 177.533 366.303]
+/A << /S /GoTo /D (Hfootnote.4) >>
 >>
-% 1860 0 obj
+% 1863 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [393.303 514.456 469.357 526.516]
-/A << /S /GoTo /D (vdata) >>
+/D [1861 0 R /XYZ 98.895 753.953 null]
 >>
-% 1861 0 obj
+% 545 0 obj
 <<
-/Type /Annot
-/Subtype /Link
-/Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.753 374.41 409.811 386.47]
-/A << /S /GoTo /D (descdata) >>
+/D [1861 0 R /XYZ 99.895 716.092 null]
 >>
-% 1865 0 obj
+% 1864 0 obj
 <<
-/D [1863 0 R /XYZ 149.705 753.953 null]
+/D [1861 0 R /XYZ 114.242 129.79 null]
 >>
-% 1862 0 obj
+% 1860 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R >>
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1868 0 obj
+% 1871 0 obj
 <<
 /Type /Page
-/Contents 1869 0 R
-/Resources 1867 0 R
+/Contents 1872 0 R
+/Resources 1870 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1871 0 R
-/Annots [ 1866 0 R ]
+/Parent 1865 0 R
+/Annots [ 1866 0 R 1867 0 R 1868 0 R 1869 0 R ]
 >>
 % 1866 0 obj
 <<
 /Type /Annot
 /Subtype /Link
 /Border[0 0 0]/H/I/C[1 0 0]
-/Rect [342.493 554.876 418.548 566.936]
-/A << /S /GoTo /D (vdata) >>
+/Rect [365.487 576.377 443.006 588.437]
+/A << /S /GoTo /D (spdata) >>
 >>
-% 1870 0 obj
+% 1867 0 obj
 <<
-/D [1868 0 R /XYZ 98.895 753.953 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [451.902 505.741 518.96 517.801]
+/A << /S /GoTo /D (precdata) >>
 >>
-% 1867 0 obj
+% 1868 0 obj
 <<
-/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
-/ProcSet [ /PDF /Text ]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [422.264 435.105 489.322 447.165]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1869 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [368.227 128.475 435.285 140.535]
+/A << /S /GoTo /D (precdata) >>
 >>
 % 1873 0 obj
 <<
+/D [1871 0 R /XYZ 149.705 753.953 null]
+>>
+% 549 0 obj
+<<
+/D [1871 0 R /XYZ 150.705 716.092 null]
+>>
+% 1870 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1875 0 obj
+<<
 /Type /Page
-/Contents 1874 0 R
-/Resources 1872 0 R
+/Contents 1876 0 R
+/Resources 1874 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1871 0 R
+/Parent 1865 0 R
 >>
-% 1875 0 obj
+% 1877 0 obj
 <<
-/D [1873 0 R /XYZ 149.705 753.953 null]
+/D [1875 0 R /XYZ 98.895 753.953 null]
 >>
-% 1872 0 obj
+% 1874 0 obj
 <<
-/Font << /F54 586 0 R >>
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1877 0 obj
+% 1883 0 obj
 <<
 /Type /Page
-/Contents 1878 0 R
-/Resources 1876 0 R
+/Contents 1884 0 R
+/Resources 1882 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1871 0 R
+/Parent 1865 0 R
+/Annots [ 1878 0 R 1879 0 R 1880 0 R 1881 0 R ]
+>>
+% 1878 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [371.126 573.77 438.184 585.83]
+/A << /S /GoTo /D (precdata) >>
 >>
 % 1879 0 obj
 <<
-/D [1877 0 R /XYZ 98.895 753.953 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [393.303 517.98 469.357 530.039]
+/A << /S /GoTo /D (vdata) >>
 >>
 % 1880 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 723.717 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [374.822 462.189 441.88 474.248]
+/A << /S /GoTo /D (descdata) >>
 >>
-% 783 0 obj
+% 1881 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 698.622 null]
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [393.303 272.899 469.357 284.958]
+/A << /S /GoTo /D (vdata) >>
 >>
-% 1881 0 obj
+% 1885 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 640.564 null]
+/D [1883 0 R /XYZ 149.705 753.953 null]
 >>
-% 831 0 obj
+% 553 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 585.057 null]
+/D [1883 0 R /XYZ 150.705 716.092 null]
 >>
-% 830 0 obj
+% 1882 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1888 0 obj
+<<
+/Type /Page
+/Contents 1889 0 R
+/Resources 1887 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1865 0 R
+/Annots [ 1886 0 R ]
+>>
+% 1886 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [320.317 573.77 387.374 585.83]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1890 0 obj
+<<
+/D [1888 0 R /XYZ 98.895 753.953 null]
+>>
+% 557 0 obj
+<<
+/D [1888 0 R /XYZ 99.895 716.092 null]
+>>
+
+endstream
+endobj
+1894 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 532.2 null]
+/Length 973       
 >>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 150.705 706.129 Td [(10.5)-1000(clone)-250(\227)-250(clone)-250(current)-250(preconditioner)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf 0 -18.964 Td [(call)-1050(prec%clone\050precout,info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -77.917 -33.873 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(precout)]TJ
+0 g 0 G
+/F54 9.9626 Tf 39.292 0 Td [(A)-250(copy)-250(of)-250(the)-250(input)-250(object.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -39.292 -19.925 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.8 0 Td [(Return)-250(code.)]TJ
+0 g 0 G
+ 140.583 -449.28 Td [(156)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1900 0 obj
+<<
+/Length 2703      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(10.6)-1000(free)-250(\227)-250(Free)-250(a)-250(preconditioner)]TJ
+0 g 0 G
+0 g 0 G
+/F59 9.9626 Tf 0 -18.964 Td [(call)-525(prec%free\050info\051)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -21.918 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Asynchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.925 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.925 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.349 0 Td [(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf 21.579 0 Td [(.)]TJ -53.011 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 337.631 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 340.77 577.576 Td [(prec)]TJ
+ET
+q
+1 0 0 1 362.319 577.775 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 365.457 577.576 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -286.483 -19.925 Td [(On)-250(Exit)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.349 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -30.874 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(pr)18(econditioner)-250(data)-250(str)8(uctur)18(e)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 196.511 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 337.631 502.059 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 340.77 501.86 Td [(prec)]TJ
+ET
+q
+1 0 0 1 362.319 502.059 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 365.457 501.86 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -286.483 -19.925 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -30.326 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Err)18(or)-250(code:)-310(if)-250(no)-250(err)18(or)74(,)-250(0)-250(is)-250(r)18(eturned.)]TJ/F51 11.9552 Tf -24.907 -21.918 Td [(Notes)]TJ/F54 9.9626 Tf 34.363 0 Td [(Releases)-250(all)-250(internal)-250(storage.)]TJ
+0 g 0 G
+ 130.021 -333.713 Td [(157)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1905 0 obj
+<<
+/Length 548       
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 14.3462 Tf 150.705 705.784 Td [(11)-1000(Iterative)-250(Methods)]TJ/F54 9.9626 Tf 0 -22.702 Td [(In)-402(this)-403(chapter)-402(we)-403(pr)18(ovide)-402(r)18(outines)-403(for)-402(pr)18(econditioners)-402(and)-403(iterative)-402(meth-)]TJ 0 -11.955 Td [(ods.)-472(The)-304(interfaces)-304(for)-304(Krylov)-304(subspace)-303(methods)-304(ar)18(e)-304(available)-304(in)-304(the)-304(module)]TJ/F59 9.9626 Tf 0 -11.955 Td [(psb_krylov_mod)]TJ/F54 9.9626 Tf 73.225 0 Td [(.)]TJ
+0 g 0 G
+ 91.158 -568.734 Td [(158)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1912 0 obj
+<<
+/Length 8246      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 11.9552 Tf 99.895 706.129 Td [(11.1)-1000(psb)]TJ
+ET
+q
+1 0 0 1 153.407 706.328 cm
+[]0 d 0 J 0.398 w 0 0 m 3.587 0 l S
+Q
+BT
+/F51 11.9552 Tf 156.993 706.129 Td [(krylov)-250(\227)-250(Krylov)-250(Methods)-250(Driver)-250(Routine)]TJ/F54 9.9626 Tf -57.098 -18.964 Td [(This)-266(subr)18(outine)-266(is)-267(a)-266(driver)-266(that)-267(p)1(r)18(ovides)-267(a)-266(general)-266(interface)-266(for)-267(all)-266(the)-266(Krylov-)]TJ 0 -11.955 Td [(Subspace)-250(family)-250(methods)-250(implemented)-250(in)-250(PSBLAS)-250(version)-250(2.)]TJ 14.944 -11.955 Td [(The)-250(stopping)-250(criterion)-250(can)-250(take)-250(the)-250(following)-250(values:)]TJ
+0 g 0 G
+/F51 9.9626 Tf -14.944 -18.774 Td [(1)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(normwise)-222(backwar)18(d)-221(err)18(or)-222(in)-221(the)-222(in\002nity)-222(norm;)-231(the)-221(iteration)-222(is)-222(stopped)-221(when)]TJ/F52 9.9626 Tf 109.036 -26.864 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 40.62 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+ET
+q
+1 0 0 1 246.191 620.108 cm
+[]0 d 0 J 0.398 w 0 0 m 74.372 0 l S
+Q
+BT
+/F85 10.3811 Tf 246.316 610.783 Td [(\050)]TJ/F83 10.3811 Tf 4.274 0 Td [(k)]TJ/F52 9.9626 Tf 5.938 0 Td [(A)]TJ/F83 10.3811 Tf 7.442 0 Td [(k)-24(k)]TJ/F52 9.9626 Tf 11.048 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.876 1.96 Td [(k)]TJ/F85 10.3811 Tf 7.376 0 Td [(+)]TJ/F83 10.3811 Tf 10.256 0 Td [(k)]TJ/F52 9.9626 Tf 5.44 0 Td [(b)]TJ/F83 10.3811 Tf 4.861 0 Td [(k)]TJ/F85 10.3811 Tf 5.44 0 Td [(\051)]TJ/F61 10.3811 Tf 8.236 6.834 Td [(<)]TJ/F52 9.9626 Tf 11.087 0 Td [(e)-80(p)-25(s)]TJ
+0 g 0 G
+/F51 9.9626 Tf -235.842 -29.908 Td [(2)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 136.209 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.141 0 Td [(=)]TJ/F83 10.3811 Tf 13.446 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+ET
+q
+1 0 0 1 273.365 563.335 cm
+[]0 d 0 J 0.398 w 0 0 m 20.025 0 l S
+Q
+BT
+/F83 10.3811 Tf 273.49 554.01 Td [(k)]TJ/F52 9.9626 Tf 5.439 0 Td [(b)]TJ/F83 10.3811 Tf 4.862 0 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ
+0 g 0 G
+/F51 9.9626 Tf -208.668 -29.848 Td [(3)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(Relative)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm;)-250(the)-250(iteration)-250(is)-250(stopped)-250(when)]TJ/F52 9.9626 Tf 134.486 -26.865 Td [(e)-15(r)-25(r)]TJ/F85 10.3811 Tf 15.14 0 Td [(=)]TJ/F83 10.3811 Tf 15.17 6.745 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F52 7.5716 Tf 4.041 -1.96 Td [(i)]TJ/F83 10.3811 Tf 2.875 1.96 Td [(k)]TJ
+ET
+q
+1 0 0 1 271.641 506.622 cm
+[]0 d 0 J 0.398 w 0 0 m 23.472 0 l S
+Q
+BT
+/F83 10.3811 Tf 271.766 497.297 Td [(k)]TJ/F52 9.9626 Tf 5.34 0 Td [(r)]TJ/F54 7.5716 Tf 4 -1.744 Td [(0)]TJ/F83 10.3811 Tf 4.408 1.744 Td [(k)]TJ/F54 7.5716 Tf 5.315 -1.744 Td [(2)]TJ/F61 10.3811 Tf 8.371 8.578 Td [(<)]TJ/F52 9.9626 Tf 11.086 0 Td [(e)-80(p)-25(s)]TJ/F54 9.9626 Tf -210.391 -29.848 Td [(The)-248(behaviour)-248(is)-248(contr)18(olled)-249(by)-248(the)-248(istop)-248(ar)18(gument)-248(\050see)-248(later\051.)-310(In)-248(the)-248(above)-248(for)18(-)]TJ 0 -11.956 Td [(mulae,)]TJ/F52 9.9626 Tf 32.81 0 Td [(x)]TJ/F52 7.5716 Tf 5.147 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(is)-256(the)-256(tentative)-257(soluti)1(on)-257(and)]TJ/F52 9.9626 Tf 125.144 0 Td [(r)]TJ/F52 7.5716 Tf 4.042 -1.96 Td [(i)]TJ/F85 10.3811 Tf 5.757 1.96 Td [(=)]TJ/F52 9.9626 Tf 11.2 0 Td [(b)]TJ/F83 10.3811 Tf 6.822 0 Td [(\000)]TJ/F52 9.9626 Tf 10.777 0 Td [(A)-42(x)]TJ/F52 7.5716 Tf 12.759 -1.96 Td [(i)]TJ/F54 9.9626 Tf 5.303 1.96 Td [(the)-256(corr)18(esponding)-256(r)18(esidual)]TJ -225.064 -11.955 Td [(at)-250(the)]TJ/F52 9.9626 Tf 27.083 0 Td [(i)]TJ/F54 9.9626 Tf 2.964 0 Td [(-th)-250(iteration.)]TJ -28.305 -17.357 Td [(c)-175(a)-175(l)-174(l)-880(p)-105(s)-105(b)]TJ
+ET
+q
+1 0 0 1 150.28 433.215 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 154.313 433.015 Td [(k)-105(r)-105(y)-104(l)-105(o)-105(v)-238(\050)-156(m)-21(e)-22(t)-21(h)-22(o)-22(d)-218(,)-208(a)-242(,)-255(p)-80(r)-81(e)-80(c)-335(,)-191(b)-206(,)-203(x)-231(,)-234(e)-60(p)-59(s)-293(,)-273(d)-98(e)-97(s)-98(c)]TJ
+ET
+q
+1 0 0 1 352.02 433.215 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F54 9.9626 Tf 355.983 433.015 Td [(a)-370(,)-283(i)-108(n)-108(f)-108(o)-274(,)-57(&)]TJ -227.086 -11.955 Td [(&)-580(i)-69(t)-69(m)-70(a)-69(x)-313(,)-327(i)-151(t)-152(e)-151(r)-478(,)-281(e)-107(r)-106(r)-387(,)-321(i)-145(t)-146(r)-146(a)-145(c)-146(e)-466(,)-336(i)-161(r)-160(s)-161(t)-496(,)-291(i)-116(s)-116(t)-116(o)-116(p)-407(,)-219(c)-43(o)-43(n)-44(d)-177(\051)]TJ
+0 g 0 G
+0 g 0 G
+0 g 0 G
+/F51 9.9626 Tf -29.002 -25.88 Td [(T)90(ype:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.828 0 Td [(Synchr)18(onous.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.828 -19.349 Td [(On)-250(Entry)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.349 Td [(method)]TJ
+0 g 0 G
+/F54 9.9626 Tf 39.851 0 Td [(a)-193(string)-194(that)-193(de\002nes)-194(the)-194(it)1(erative)-194(method)-193(to)-194(be)-194(use)1(d.)-292(Supported)-193(values)]TJ -14.944 -11.956 Td [(ar)18(e:)]TJ
+0 g 0 G
+/F51 9.9626 Tf 0 -19.349 Td [(CG:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 22.964 0 Td [(the)-250(Conjugate)-250(Gradient)-250(method;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -22.964 -15.364 Td [(CGS:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.051 0 Td [(the)-250(Conjugate)-250(Gradient)-250(Stabilized)-250(method;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -29.051 -15.365 Td [(GCR:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.157 0 Td [(the)-250(Generalized)-250(Conjugate)-250(Residual)-250(method;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -30.157 -15.364 Td [(FCG:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 28.503 0 Td [(the)-250(Flexible)-250(Conjugate)-250(Gradient)-250(method)]TJ
+0 0 1 rg 0 0 1 RG
+/F54 7.5716 Tf 176.854 3.616 Td [(5)]TJ
+0 g 0 G
+/F54 9.9626 Tf 4.284 -3.616 Td [(;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -209.641 -15.364 Td [(BICG:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 33.484 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(method;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -33.484 -15.365 Td [(BICGST)92(AB:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 59.696 0 Td [(the)-250(Bi-Conjugate)-250(Gradient)-250(Stabilized)-250(method;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -59.696 -15.364 Td [(BICGST)92(ABL:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 65.783 0 Td [(the)-218(Bi-Conjugate)-217(Gradient)-218(Stabilized)-218(method)-217(with)-218(r)18(estart-)]TJ -43.865 -11.955 Td [(ing;)]TJ
+0 g 0 G
+/F51 9.9626 Tf -21.918 -15.365 Td [(RGMRES:)]TJ
+0 g 0 G
+/F54 9.9626 Tf 52.294 0 Td [(the)-250(Generalized)-250(Minimal)-250(Residual)-250(method)-250(with)-250(r)18(estarting.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -77.201 -19.349 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(the)-250(local)-250(portion)-250(of)-250(global)-250(sparse)-250(matrix)]TJ/F52 9.9626 Tf 178.414 0 Td [(A)]TJ/F54 9.9626 Tf 7.317 0 Td [(.)]TJ -170.787 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 309.258 138.701 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 312.397 138.501 Td [(Tspmat)]TJ
+ET
+q
+1 0 0 1 344.406 138.701 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 347.544 138.501 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+ET
+q
+1 0 0 1 99.895 130.091 cm
+[]0 d 0 J 0.398 w 0 0 m 137.482 0 l S
+Q
+BT
+/F54 5.9776 Tf 110.755 123.219 Td [(5)]TJ/F54 7.9701 Tf 3.487 -2.893 Td [(Note:)-310(the)-250(implementation)-250(is)-250(for)]TJ/F52 7.9701 Tf 113.297 0 Td [(F)-31(C)-45(G)]TJ/F85 8.3049 Tf 16.387 0 Td [(\050)]TJ/F54 7.9701 Tf 3.319 0 Td [(1)]TJ/F85 8.3049 Tf 4.085 0 Td [(\051)]TJ/F54 7.9701 Tf 3.32 0 Td [(.)]TJ
+0 g 0 G
+0 g 0 G
+/F54 9.9626 Tf 9.629 -29.888 Td [(159)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1923 0 obj
+<<
+/Length 7054      
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F51 9.9626 Tf 150.705 706.129 Td [(prec)]TJ
+0 g 0 G
+/F54 9.9626 Tf 24.348 0 Td [(The)-250(data)-250(str)8(uctur)18(e)-250(containing)-250(the)-250(pr)18(econditioner)74(.)]TJ 0.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 658.507 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 658.308 Td [(prec)]TJ
+ET
+q
+1 0 0 1 384.755 658.507 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 387.893 658.308 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -22.202 Td [(b)]TJ
+0 g 0 G
+/F54 9.9626 Tf 11.068 0 Td [(The)-250(RHS)-250(vector)74(.)]TJ 13.838 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 410.618 588.484 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 413.756 588.285 Td [(T)]TJ
+ET
+q
+1 0 0 1 419.614 588.484 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 422.752 588.285 Td [(vect)]TJ
+ET
+q
+1 0 0 1 444.301 588.484 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 447.439 588.285 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.656 -22.202 Td [(x)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(The)-250(initial)-250(guess.)]TJ 14.944 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(local)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.348 0 Td [(.)]TJ -56.148 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 218.687 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 410.618 518.461 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 413.756 518.262 Td [(T)]TJ
+ET
+q
+1 0 0 1 419.614 518.461 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 422.752 518.262 Td [(vect)]TJ
+ET
+q
+1 0 0 1 444.301 518.461 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 447.439 518.262 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.656 -22.203 Td [(eps)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(stopping)-250(tolerance.)]TJ 4.433 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.906 -22.203 Td [(desc)]TJ
+ET
+q
+1 0 0 1 171.218 426.236 cm
+[]0 d 0 J 0.398 w 0 0 m 2.989 0 l S
+Q
+BT
+/F51 9.9626 Tf 174.207 426.036 Td [(a)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.962 0 Td [(contains)-250(data)-250(str)8(uctur)18(es)-250(for)-250(communications.)]TJ -8.558 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.089 0 Td [(required)]TJ/F54 9.9626 Tf -27.089 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.801 0 Td [(in)]TJ/F54 9.9626 Tf 9.404 0 Td [(.)]TJ -41.205 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(str)8(uctur)18(ed)-250(data)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 168.138 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 360.068 378.415 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 363.206 378.216 Td [(desc)]TJ
+ET
+q
+1 0 0 1 384.755 378.415 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 387.893 378.216 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.922 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -258.11 -22.203 Td [(itmax)]TJ
+0 g 0 G
+/F54 9.9626 Tf 30.436 0 Td [(The)-250(maximum)-250(number)-250(of)-250(iterations)-250(to)-250(perform.)]TJ -5.529 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.569 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F85 10.3811 Tf 27.744 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(1000.)]TJ -77.274 -11.956 Td [(Speci\002ed)-250(as:)-310(an)-250(integer)-250(variable)]TJ/F52 9.9626 Tf 142.349 0 Td [(i)-32(t)-25(m)-40(a)-42(x)]TJ/F83 10.3811 Tf 27.743 0 Td [(\025)]TJ/F54 9.9626 Tf 10.962 0 Td [(1.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -205.961 -22.202 Td [(itrace)]TJ
+0 g 0 G
+/F54 9.9626 Tf 29.878 0 Td [(If)]TJ/F61 10.3811 Tf 11.007 0 Td [(>)]TJ/F54 9.9626 Tf 14.142 0 Td [(0)-422(print)-423(out)-422(an)-422(informational)-423(message)-422(about)-422(conver)18(gence)-423(every)]TJ/F52 9.9626 Tf -30.066 -11.955 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F54 9.9626 Tf 26.396 0 Td [(iterations.)-310(If)]TJ/F85 10.3811 Tf 56.313 0 Td [(=)]TJ/F54 9.9626 Tf 10.961 0 Td [(0)-250(print)-250(a)-250(message)-250(in)-250(case)-250(of)-250(conver)18(gence)-250(failur)18(e.)]TJ -93.724 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.956 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(Default:)]TJ/F52 9.9626 Tf 38.57 0 Td [(i)-32(t)-15(r)-50(a)-25(c)-25(e)]TJ/F85 10.3811 Tf 26.796 0 Td [(=)]TJ/F83 10.3811 Tf 11.086 0 Td [(\000)]TJ/F54 9.9626 Tf 8.194 0 Td [(1.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -109.553 -34.158 Td [(irst)]TJ
+0 g 0 G
+/F54 9.9626 Tf 19.915 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(r)18(estart)-250(parameter)74(.)]TJ 4.992 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.431 0 Td [(global)]TJ/F54 9.9626 Tf -31.431 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.186 0 Td [(.)]TJ -65.274 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)]TJ/F52 9.9626 Tf 34.613 0 Td [(i)-22(r)-35(s)-25(t)]TJ/F61 10.3811 Tf 17.671 0 Td [(>)]TJ/F54 9.9626 Tf 10.961 0 Td [(0.)-298(This)-214(is)-213(employed)-214(for)-213(the)-214(BiCGST)74(ABL)-214(or)-213(RGMRES)-214(meth-)]TJ -63.245 -11.955 Td [(ods,)-250(otherwise)-250(it)-250(is)-250(ignor)18(ed.)]TJ
+0 g 0 G
+ 139.477 -29.888 Td [(160)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1928 0 obj
+<<
+/Length 4489      
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F51 9.9626 Tf 99.895 706.129 Td [(istop)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.666 0 Td [(An)-250(integer)-250(specifying)-250(the)-250(stopping)-250(criterion.)]TJ -2.759 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf 38.187 0 Td [(.)]TJ -65.275 -11.956 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(in)]TJ/F54 9.9626 Tf 9.405 0 Td [(.)]TJ -41.205 -11.955 Td [(V)92(alues:)-351(1:)-351(use)-271(the)-270(normwise)-271(backwar)18(d)-270(err)18(or)74(,)-276(2:)-351(use)-271(the)-270(scaled)-271(2-norm)-270(of)]TJ 0 -11.955 Td [(the)-250(r)18(esidual,)-250(3:)-310(use)-250(the)-250(r)18(esidual)-250(r)18(eduction)-250(in)-250(the)-250(2-norm.)-310(Default:)-310(2.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(On)-250(Return)]TJ
+0 g 0 G
+0 g 0 G
+ 0 -19.926 Td [(x)]TJ
+0 g 0 G
+/F54 9.9626 Tf 9.963 0 Td [(The)-250(computed)-250(solution.)]TJ 14.944 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(inout)]TJ/F54 9.9626 Tf 24.349 0 Td [(.)]TJ -56.149 -11.955 Td [(Speci\002ed)-250(as:)-310(a)-250(rank)-250(one)-250(array)-250(or)-250(an)-250(object)-250(of)-250(type)]TJ
+0 0 1 rg 0 0 1 RG
+/F59 9.9626 Tf 218.688 0 Td [(psb)]TJ
+ET
+q
+1 0 0 1 359.808 558.881 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 362.947 558.682 Td [(T)]TJ
+ET
+q
+1 0 0 1 368.804 558.881 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 371.943 558.682 Td [(vect)]TJ
+ET
+q
+1 0 0 1 393.492 558.881 cm
+[]0 d 0 J 0.398 w 0 0 m 3.138 0 l S
+Q
+BT
+/F59 9.9626 Tf 396.63 558.682 Td [(type)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.921 0 Td [(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -317.656 -19.925 Td [(iter)]TJ
+0 g 0 G
+/F54 9.9626 Tf 20.473 0 Td [(The)-250(number)-250(of)-250(iterations)-250(performed.)]TJ 4.434 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(an)-250(integer)-250(variable.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(err)]TJ
+0 g 0 G
+/F54 9.9626 Tf 17.714 0 Td [(The)-250(conver)18(gence)-250(estimate)-250(on)-250(exit.)]TJ 7.193 -11.956 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-250(as:)-310(a)-250(r)18(eal)-250(number)74(.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(cond)]TJ
+0 g 0 G
+/F54 9.9626 Tf 27.119 0 Td [(An)-210(esti)1(mate)-210(of)-210(the)-209(condition)-210(number)-209(of)-210(matrix)]TJ/F52 9.9626 Tf 204.999 0 Td [(A)]TJ/F54 9.9626 Tf 7.318 0 Td [(;)-223(only)-210(available)-209(with)-210(the)]TJ/F52 9.9626 Tf -214.444 -11.956 Td [(C)-45(G)]TJ/F54 9.9626 Tf 17.001 0 Td [(method)-250(on)-250(r)18(eal)-250(data.)]TJ -17.086 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(global)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(optional)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.955 Td [(Returned)-249(as:)-310(a)-249(r)18(eal)-249(number)74(.)-310(A)-249(corr)18(ect)-250(r)18(esult)-249(will)-249(be)-249(gr)18(eater)-250(than)-249(or)-249(equal)]TJ 0 -11.955 Td [(to)-403(one;)-480(if)-403(speci\002ed)-403(for)-403(non-r)18(eal)-403(data,)-441(or)-403(an)-403(err)18(or)-403(occurr)18(ed,)-441(zer)18(o)-403(is)-403(r)18(e-)]TJ 0 -11.956 Td [(turned.)]TJ
+0 g 0 G
+/F51 9.9626 Tf -24.907 -19.925 Td [(info)]TJ
+0 g 0 G
+/F54 9.9626 Tf 23.801 0 Td [(Err)18(or)-250(code.)]TJ 1.106 -11.955 Td [(Scope:)]TJ/F51 9.9626 Tf 31.432 0 Td [(local)]TJ/F54 9.9626 Tf -31.432 -11.955 Td [(T)90(ype:)]TJ/F51 9.9626 Tf 27.088 0 Td [(required)]TJ/F54 9.9626 Tf -27.088 -11.955 Td [(Intent:)]TJ/F51 9.9626 Tf 31.8 0 Td [(out)]TJ/F54 9.9626 Tf 14.944 0 Td [(.)]TJ -46.744 -11.956 Td [(An)-250(integer)-250(value;)-250(0)-250(means)-250(no)-250(err)18(or)-250(has)-250(been)-250(detected.)]TJ
+0 g 0 G
+ 139.477 -161.394 Td [(161)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1932 0 obj
+<<
+/Length 81        
+>>
+stream
+0 g 0 G
+0 g 0 G
+0 g 0 G
+BT
+/F54 9.9626 Tf 315.088 90.438 Td [(162)]TJ
+0 g 0 G
+ET
+
+endstream
+endobj
+1936 0 obj
+<<
+/Length 6590      
+>>
+stream
+0 g 0 G
+0 g 0 G
+BT
+/F51 14.3462 Tf 99.895 705.784 Td [(References)]TJ
+0 g 0 G
+/F54 9.9626 Tf 4.982 -22.702 Td [([1])]TJ
+0 g 0 G
+ [-500(D.)-314(Barbieri,)-330(V)129(.)-314(Car)18(dellini,)-330(S.)-314(Filippone)-314(and)-314(D.)-314(Rouson)]TJ/F52 9.9626 Tf 258.302 0 Td [(Design)-314(Patterns)-314(for)]TJ -241.705 -11.955 Td [(Scienti\002c)-224(Computations)-225(on)-224(Sparse)-224(Matrices)]TJ/F54 9.9626 Tf 175.255 0 Td [(,)-229(HPSS)-225(2011,)-229(Algorithms)-225(and)-224(Pr)18(o-)]TJ -175.255 -11.955 Td [(gramming)-396(T)92(ools)-395(for)-396(Next-Generation)-396(High-Performance)-396(Scie)1(nti\002c)-396(Soft-)]TJ 0 -11.955 Td [(war)18(e,)-250(Bor)18(deaux,)-250(Sep.)-250(2011)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([2])]TJ
+0 g 0 G
+ [-500(G.)-362(Bella,)-391(S.)-362(Filippone,)-390(A.)-363(De)-362(Maio)-362(and)-363(M.)-362(T)92(esta,)]TJ/F52 9.9626 Tf 239.345 0 Td [(A)-362(Simulation)-362(Model)-363(for)]TJ -222.748 -11.955 Td [(For)18(est)-346(Fir)18(es)]TJ/F54 9.9626 Tf 47.93 0 Td [(,)-370(in)-346(J.)-346(Dongarra,)-370(K.)-346(Madsen,)-370(J.)-346(W)92(asniewski,)-370(editors,)-370(Pr)18(oceed-)]TJ -47.93 -11.955 Td [(ings)-338(of)-337(P)92(ARA)-338(04)-338(W)92(orkshop)-337(on)-338(State)-338(of)-338(the)-337(Art)-338(in)-338(Scienti\002c)-337(Computing,)]TJ 0 -11.955 Td [(pp.)-250(546\226553,)-250(Lectur)18(e)-250(Notes)-250(in)-250(Computer)-250(Science,)-250(Springer)74(,)-250(2005.)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([3])]TJ
+0 g 0 G
+ [-500(A.)-216(Buttari,)-223(D.)-216(di)-217(Sera\002no,)-223(P)129(.)-216(D'Ambra,)-223(S.)-216(Filippone,)-71(2LEV)74(-D2P4:)-293(a)-216(package)]TJ 16.597 -11.955 Td [(of)-247(high-performance)-247(pr)18(econditioners,)-107(Applicable)-247(Algebra)-247(in)-247(Engineering,)]TJ 0 -11.955 Td [(Communications)-292(and)-293(Computing,)-303(V)111(olume)-292(18,)-303(Number)-292(3,)-303(May)111(,)-303(2007,)-303(pp.)]TJ 0 -11.955 Td [(223-239)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([4])]TJ
+0 g 0 G
+ [-500(P)129(.)-248(D'Ambra,)-248(S.)-248(Filippone,)-249(D.)-248(Di)-248(Sera\002no)-107(On)-248(the)-248(Development)-248(of)-248(PSBLAS-)]TJ 16.597 -11.955 Td [(based)-523(Parallel)-524(T)90(wo-level)-523(Schwarz)-523(Pr)18(econditioners)-1235(Applied)-523(Numeri-)]TJ 0 -11.955 Td [(cal)-376(Mathematics,)-408(Elsevier)-376(Science,)-408(V)111(olume)-376(57,)-408(Issues)-376(11-12,)-408(November)18(-)]TJ 0 -11.955 Td [(December)-250(2007,)-250(Pages)-250(1181-1196.)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([5])]TJ
+0 g 0 G
+ [-500(Dongarra,)-268(J.)-265(J.,)-269(DuCr)18(oz,)-268(J.,)-269(Hammarli)1(ng,)-269(S.)-265(and)-264(Hanson,)-269(R.,)-268(An)-265(Extended)]TJ 16.597 -11.955 Td [(Set)-463(of)-463(Fortran)-463(Basic)-464(Linear)-463(Algebra)-463(Subpr)18(ograms,)-516(ACM)-463(T)90(rans.)-463(Math.)]TJ 0 -11.955 Td [(Softw)92(.)-250(vol.)-250(14,)-250(1\22617,)-250(1988.)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([6])]TJ
+0 g 0 G
+ [-500(Dongarra,)-422(J.,)-421(DuCr)18(oz,)-422(J.,)-422(Hammarling,)-422(S.)-387(and)-387(Duf)18(f,)-422(I.,)-422(A)-387(Set)-387(of)-388(level)-387(3)]TJ 16.597 -11.955 Td [(Basic)-308(Linear)-307(Algebra)-308(Subpr)18(ograms,)-322(ACM)-308(T)90(rans.)-308(Math.)-308(Soft)1(w)91(.)-307(vol.)-308(16,)-322(1\226)]TJ 0 -11.955 Td [(17,)-250(1990.)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([7])]TJ
+0 g 0 G
+ [-500(J.)-349(J.)-350(Dongarra)-349(and)-350(R.)-350(C.)-349(Whaley)111(,)]TJ/F52 9.9626 Tf 166.061 0 Td [(A)-349(User)-37(')55(s)-350(Guide)-349(to)-350(the)-349(BLACS)-350(v)55(.)-349(1.1)]TJ/F54 9.9626 Tf 152.062 0 Td [(,)-374(La-)]TJ -301.526 -11.955 Td [(pack)-234(W)92(orking)-233(Note)-234(94,)-237(T)92(ech.)-233(Rep.)-234(UT)55(-CS-95-281,)-237(University)-234(of)-233(T)92(ennessee,)]TJ 0 -11.955 Td [(Mar)18(ch)-250(1995)-250(\050updated)-250(May)-250(1997\051.)]TJ
+0 g 0 G
+ -16.597 -19.642 Td [([8])]TJ
+0 g 0 G
+ [-500(I.)-259(Duf)18(f,)-262(M.)-260(Marr)18(one,)-261(G.)-260(Radicati)-259(and)-259(C.)-260(V)55(ittoli,)]TJ/F52 9.9626 Tf 223.407 0 Td [(Level)-259(3)-260(Basic)-259(Linear)-260(Algebra)]TJ -206.81 -11.955 Td [(Subpr)18(ograms)-328(f)1(or)-328(Sparse)-327(Matrices:)-465(a)-328(User)-327(Level)-328(Interface)]TJ/F54 9.9626 Tf 233.522 0 Td [(,)-347(ACM)-327(T)90(ransactions)]TJ -233.522 -11.955 Td [(on)-250(Mathematical)-250(Softwar)18(e,)-250(23\0503\051,)-250(pp.)-250(379\226401,)-250(1997.)]TJ
+0 g 0 G
+ -16.597 -19.641 Td [([9])]TJ
+0 g 0 G
+ [-500(I.)-282(Duf)18(f,)-289(M.)-282(Her)18(oux)-281(and)-282(R.)-281(Pozo,)]TJ/F52 9.9626 Tf 160.607 0 Td [(An)-282(Overview)-281(of)-282(the)-281(Sparse)-282(Basic)-282(Linear)-281(Al-)]TJ -144.01 -11.956 Td [(gebra)-287(Subpr)18(ograms:)-383(the)-287(New)-287(Standard)-286(fr)18(om)-287(the)-287(BLAS)-287(T)111(echnical)-286(Forum)]TJ/F54 9.9626 Tf 292.455 0 Td [(,)-296(ACM)]TJ -292.455 -11.955 Td [(T)90(ransactions)-250(on)-250(Mathematical)-250(Softwar)18(e,)-250(28\0502\051,)-250(pp.)-250(239\226267,)-250(2002.)]TJ
+0 g 0 G
+ -21.579 -19.641 Td [([10])]TJ
+0 g 0 G
+ [-500(S.)-298(Filippone)-298(and)-298(M.)-297(Colajanni,)]TJ/F52 9.9626 Tf 159.942 0 Td [(PSBLAS:)-298(A)-298(Library)-297(for)-298(Parallel)-298(Linear)-298(Alge-)]TJ -138.363 -11.955 Td [(bra)-340(Computation)-340(on)-340(Sparse)-340(Matrices)]TJ/F54 9.9626 Tf 151.715 0 Td [(,)-670(ACM)-340(T)90(ransactions)-340(on)-340(Mathematical)]TJ -151.715 -11.956 Td [(Softwar)18(e,)-250(26\0504\051,)-250(pp.)-250(527\226550,)-250(2000.)]TJ
+0 g 0 G
+ -21.579 -19.641 Td [([11])]TJ
+0 g 0 G
+ [-500(S.)-397(Filippone)-398(and)-397(A.)-397(Buttari,)]TJ/F52 9.9626 Tf 151.683 0 Td [(Object-Oriented)-397(T)111(echniques)-397(for)-398(Sparse)-397(Matrix)]TJ -130.104 -11.955 Td [(Computations)-353(in)-353(Fortran)-354(2003)]TJ/F54 9.9626 Tf 126.789 0 Td [(,)-716(ACM)-353(T)90(ransactions)-353(on)-354(Mathemati)1(cal)-354(Soft-)]TJ -126.789 -11.955 Td [(war)18(e,)-250(38\0504\051,)-250(2012.)]TJ
+0 g 0 G
+ -21.579 -19.642 Td [([12])]TJ
+0 g 0 G
+ [-500(S.)-339(Filippone,)-360(P)129(.)-339(D'Ambra,)-360(M.)-339(Colajanni,)]TJ/F52 9.9626 Tf 202.675 0 Td [(Using)-339(a)-338(Parallel)-339(Library)-338(of)-339(Sparse)]TJ -181.096 -11.955 Td [(Linear)-350(Algebra)-350(in)-350(a)-349(Fluid)-350(Dynamics)-350(Applications)-350(Code)-350(on)-350(Linux)-349(Clusters)]TJ/F54 9.9626 Tf 307.21 0 Td [(,)-375(in)]TJ -307.21 -11.955 Td [(G.)-262(Joubert,)-264(A.)-262(Murli,)-264(F)92(.)-262(Peters,)-265(M.)-261(V)92(anneschi,)-265(editors,)-265(Parallel)-261(Computing)]TJ 0 -11.955 Td [(-)-250(Advances)-250(&)-250(Curr)18(ent)-250(Issues,)-250(pp.)-250(441\226448,)-250(Imperial)-250(College)-250(Pr)18(ess,)-250(2002.)]TJ
+0 g 0 G
+ 142.805 -29.888 Td [(163)]TJ
+0 g 0 G
+ET
 
 endstream
 endobj
-1887 0 obj
+1945 0 obj
 <<
 /Length 3007      
 >>
@@ -25477,13 +26385,13 @@ BT
 0 g 0 G
  [-500(M.)-282(Snir)74(,)-290(S.)-282(Otto,)-289(S.)-282(Huss-Lederman,)-290(D.)-282(W)92(alker)-282(and)-282(J.)-281(Dongarra,)]TJ/F52 9.9626 Tf 304.659 0 Td [(MPI:)-282(The)]TJ -283.08 -11.955 Td [(Complete)-369(Refer)18(ence.)-369(V)74(olume)-369(1)-370(-)-369(The)-369(MPI)-369(Cor)18(e)]TJ/F54 9.9626 Tf 195.586 0 Td [(,)-399(second)-369(edition,)-399(MIT)-369(Pr)18(ess,)]TJ -195.586 -11.955 Td [(1998.)]TJ
 0 g 0 G
- 142.804 -352.677 Td [(154)]TJ
+ 142.804 -352.677 Td [(164)]TJ
 0 g 0 G
 ET
 
 endstream
 endobj
-1904 0 obj
+1962 0 obj
 <<
 /Length1 1383
 /Length2 5908
@@ -25554,12 +26462,12 @@ W 
 ò6S&ªå_!“½SÎ|esU›FÌR™y† ¢Y‹¥ýžï­§N
 endstream
 endobj
-1906 0 obj
+1964 0 obj
 <<
-/Length1 1405
-/Length2 1411
+/Length1 1537
+/Length2 2827
 /Length3 0
-/Length 2816      
+/Length 4364      
 >>
 stream
 %!PS-AdobeFont-1.0: CMITT10 003.002
@@ -25579,7 +26487,7 @@ FontDirectory/CMITT10 known{/CMITT10 findfont dup/UniqueID known{dup
 11 dict begin
 /FontType 1 def
 /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def
-/FontName /PCVPXC+CMITT10 def
+/FontName /MPVPBL+CMITT10 def
 /FontBBox {11 -233 669 696 }readonly def
 /PaintType 0 def
 /FontInfo 9 dict dup begin
@@ -25595,21 +26503,39 @@ FontDirectory/CMITT10 known{/CMITT10 findfont dup/UniqueID known{dup
 end readonly def
 /Encoding 256 array
 0 1 255 {1 index exch /.notdef put} for
+dup 68 /D put
+dup 97 /a put
+dup 99 /c put
+dup 100 /d put
+dup 101 /e put
 dup 33 /exclam put
+dup 110 /n put
+dup 111 /o put
 dup 46 /period put
+dup 115 /s put
+dup 116 /t put
 readonly def
 currentdict end
 currentfile eexec
 ÙÖoc;„j²„¼ø°Aw-åÎ3Ã6Uöÿu4
 lã.ÂNk©4¡õ8•DPËh>®[M†E7wk9B½.…H‰ì.³CÍS†oøZçèqO«£­	OèÖ)9ú‚îOHl~Q:ÔɾD0j‚‡—J¿¶Ñù'JZ¶ì÷­½`ÕÖÄB
5Ô†G
-t²ðbY©7:¾Í¿2úh½K@¾À,¥Š 'çó,¥É÷ÙL’~##	ê¥gˆyëMŽ¢iMæç?à
úi8ðZ¼‡ý+ÐÕ’~Ëó[\3©èMn‚Àû=r=_­VxÎgpÄÁ÷¢%vïbÒ¨ˆSr\ËÆ©ˆµÉ*ó£'"$¶Æ9iVˆ«ð¬2Ý;äxÕ¿£ü§`e'ËôóÄ«fz•+‹;¥æ€îZÑ)¢Ëÿ˜ýæÓ£ÿ°¸¡4š¸ÍêYŽ,Œ1i$ÂWšºVÁC™oì	_±S*`6
»Ij$¨I‹Ý/}„½!9'n0%3SV´ÝP}vÖÂqôsF}¶OTÓŒ+¼œO*½6ž½¸’I¤é*\-ÌRÚ3ª°ÚNÙœ:gd¿;p/V;aZþÀ6è©¡Ü:£“s–wQu+MÉô…àåF€Ãœ•Õ¡n>s ¯­›”Éå*ŸÁHPëix€†Î¡\x6²¥u±»j^tüâTg'Dà¦i&kò|í5Üé.Æ+ E¦0E,¼€ýâì»TÙ™~Ìçô#N™ƒa½¡X®Ï–Ý.-ÁŒüEæJ:êcx¶éΖçxh¯¤N
ýT#O½£¤#k]ºFÖ¼‚…XNŧ0*V>6]ÞÄÇ@I£‡rjtýt¸Lo­¥àÕФNH†ÀmÃW r/éaÝä¶ãä0ðbÔŽíSªM›7£k×<Û͞Ю…]jÈÅVe#O¢àu¹üÖC_Ƨ¹g/¢=Ÿ‡\vëøEñÄ.ž¬Ž^Q”—ír|]~4€¦a™`À¦¸¦
-Ù!¤mƒE>y§’|FŽª9GÝE?茢Y©­½ÐSÿá Ä“ßùýIrÚàp'd=ZD#Pjš*žÿñ SEs‹•|!ùöZ™'c’G.÷ƒŠCDh¿×àtwE¨Ü%çsà’[h8åß$ìû´’Ü
ÐÔK8šÞ¥¼ûmÉ9hºéÀxmĈ}ï¯^PÅÁDÝì|àô&R>«ä÷qCëÖǬâþ4 R.éçÆUá¯ø?󡇣Uç«|R¼¨®Ä)|BÕÿßœ[LQm“rd*¹¡’-13ôÌ2
Ó_m(Ì ‘]8-ÿIXX‡ô­[.éŠoËçÔêœ LoÜzðAš¥•S§\¯}¤Ç¿)^×XµÿTQ8"¥†“Ñ«\Á‹’«Nàɘ¡OðìX»‰é¢#¯+FÞD1[§j	œz2'wLÓMó^ä€xüÄFª
-=¿uúÝ
-´¤œO„3U;‚ðøÌ«îæâ%>€`ø¸ ·²– ¬DB³µ [™•4UÇ«B˜eUÏ“Gn
->ï‰ÁIÓ-ZT³íœ@}ºü{“]™~úRzù›
åɎ憻£¡ê/‰¢SWÊíß½YÙKC&ck¼ÂD‘”[ƱFïY°Žû‚ׯÀ$3fÞλðœZa¾–¾i
+t²ðbY©7:¾Í¿2úh½K@¾À,¥Š 'çó,¥É÷ÙL’~##	ê¥gˆyëMŽ¢iMæç?à
úi8ðZ¼‡ý+ÐÕ’~Ëó[\3©èMn‚Àû=r=_­VxÎgpÄÁ÷¢%vïbÒ¨ˆSr\ËÆ©ˆµÉ*ó£'"$¶Æ9iVˆ«ð¬2Ý;äxÕ¿£ü§`e'ËôóÄ«fz•+‹;¥æ€îZÑ)¢Ëÿ˜ýæÓ£ÿ°¸¡4š¸ÍêYŽ,Œ1i$ÂWšºVÁC™oì	_±S*`6
»Ij$¨I‹Ý/}„½!9'n0%3SV´ÝP}vÖÂqôsF}¶OTÓŒ+¼œO*½6ž½¸’I¤é*\-ÌRÚ3ª°ÚNÙœ:gd¿;p/V;aZþÀ6è©¡Ü:£“s–wQu+MÉô…àåF€Ãœ•Õ¡n>s ¯­›”Éå*ŸÁHPëix€†Î¡\x6²¥u±»j^tüâTg'Dà¦i&kò|í5Üé.Æ+ E¦0E,¼€ýâì»TÙ™~Ìçô#N™ƒa½¡X®Ï–Ý.-ÁŒüEæJ:êcx¶éΖçxh¯¤N
ýT#O½£¤#k]ºFÖ¼‚…XNÇw³iD—>?„Ö·Ç×—ßÁð”ÞÌÝ5vîY3ϳ7”@)‘r¬:J?ÅlM{OÞ{s…§ªø,¯ïܽóÿ^…$2œG
£›Žl’G¿E¶Û¼Šì±@½ÝD²ŒÎu°ŽÈ]÷í–ú >2ëw‘3àêYq÷ÕÖ­±³¶Ã’¯ØP[Ë0q;˜‰HzÎ
+¯'.«5¾"æmÙ«úN4Kª5ËàRcÄ8jÓLÛþY·Lö	Š¼ÛâÕoÔ
Œï­À32p!ûqb‰1Ù6#&9èŠV _ÌZ‡­wBsIéƒ$PDdÿc‰›³dîˆG°3Õ¡,­¼Ešð»~ÍëÛ×
+°Dt«J{\«©]Êô/yõ~UVV$-äIfygñEŸYŽ<ºáÝQ«J\Z¿"
+¦Hõàä1ÓRzìÛUS
+ÕªµÏQÛhÏM°hËYF²
+(ûGØÅÒ­û`÷D áç
+Ž%=ÀýÇ Œû¨t’¯¸Ì
ˆP›’JvŠÀï…	䑸,q­“™:ÿ7çÀ¹JUBRºgs¹PóÆ–b,-’>·½µeÁ¥|»ÉgEz´P5¤—õ2öá~
û'ÅÚñ®ØÖ#œ÷E’ä‰5kb†¼ÃNú&YÍJ†·ïG¾7ºV8#Â3ú²Ž0gVà|¶(抉˜âBHÞàÂ4ÊÚÒ>¶__W!ýr£©N—(ÈÌክ\,¨!Ì¥ÃaåÃÄE›Žbã÷ô$·@ÂSìè*sOˤÌPøWógæµ½4ouçnHŠÊšOq%ÍØxh6`t%b)K0ñV•Òm¬³kqèWØQºcÕM
+cPJ‰]¨6›œÿïµÇ¢`³óHÄG4ê¼ÅuO§d“áœ)u_è^Ö~µŸÅF]Î/ Ç€
½	ë4lØ{kNæõ˜åíÉðÑ»!t¸=m~æ®ìø®"v_Š±dBtúýÞ¸±ÛRSª‡É<¹øœ¸K-Pö\kìˆô®¸ ˜ÐÄo×ý¿DCîY¥JE!ûnÞ™ÿÉ
+Ch¹gˆwý‘¢}ùÅ¡fuhk~7‹\ñøhi¢ÜH˜gÝGv&›€
Û'kÜD®²šàWÚ©îÉÄ鯤Ä^3íÃé:o"éugŒ˜ìŠløæOÈ-È`á˜MjŠãj§ëb¦íÛ×?'Ѥ”п6žûŸ8ùÐ08Tâg$Þ(R5PP½;u¥4êôÓ© ˆD]o.ì—þÆý… Ôª²×³é<è›,oIÂÞ§ò	¤GÀvO¼7Iö	OƒA—TWyí¸›¬{&š¬Šž²R ”ÄXWAN8ijŸ³ùHUÖ`h"a@Qî=µC/>±è?I¾ÈãÊ©é",F°óyeŠ5èh<5¦‹¶'gç¬éŠ+Ïï7-Ç^fëí´8Í«±lUŸ?K°’0>Ú§cDœX,y±‚Éâa=Ä'ÿ·¾K)pw£ -ˆ‹NèšlU§¨·¾Š›”€dcÚ¸ZUµf Kê#v˜G¸ø@Hw¶²sPfC@µ¥™zS J[p—éÌ
+þG?Oÿ'6ÄMpxX¹†n÷o“ó¨E*ØÔ5^	ÇÇ|@~¬ßðdˆ@¼M8É€DgäÒLžKý:ñâO:ι®ÿìÞ¯¾€e§£EzEX,¸u¢8ŒáWÔ¸Õ»PŽb'¯±Ôés¸-'†3¢ÀioCÈy z,Lf¶±p@•LéñK{ï¸ÃDhþ—[,s§œîæ£Y•ŒèG:œ¾{Ò¨ØU¿™5Fd‘vJ1Ã&!Ùƒ»ÿÓØî _uºYÿ²þß´Á,©„u8´(š¹õ³íK,Í{Íf1;Ö¼Re!X¨†–Äv„jÃÁy¦pßÖ–„×¹ŽFðÙy û`'¡ÿB`XÈŽCóÝXzï`´Aã¢îÀ<Üìk5(PU m–IzGÂùJþ.Èê=¤[¯!5q°Oëˆi³·ò‘ÆCÑu,)Ÿ`–÷„q:ì×@h«]â±Ù¼º…mž’gž“!Ÿ„ßh¼Ô“#Æs–1ªÐÞºŒsÜÓî~äU5Œu]	ÍÐBO8V™D”EƒbØ/¤ž
+IªŸXå£Õ§„
+¢²Ç¸jfÒ&ËÌô¡NÖ^k¡?h·&ÈÒ
#РH}JgC ó3•ó¼>À•ƒÇ…ÚKЬűµ—&>-áéÄÛ#ƒ°kÜ¡T‚‡ó²Úã
+vÖð4-tœÃ’»u•{ÌÞ½ifMVZÂgG4ÄHb©éY¿Å\þe#	ÑåÒ«ÀDüͱU•œR“	Ú—JRw¥¾‚G*“ìõÊ"yh„”qCÄÊií:àË“(’RÚg³gü¼¢X_žøÑ/ÿÌ÷ wR}–,.}Ch›7´\å[Þ"Û“B¶+cË»~ï̓pהؓ–l†DZâN]‡Á„ð­³ü¥&סŽšZ˜+ªÅrçø’Øv)^º¥aÓªÛ»öyÏ¢6¹cøÀÓDøVÖF“ŠÌw$Šíyâ ¥(H:º€=.¬›1eëÜPä12)g¿¡<8üŽ Õ ³&×o]ï7»ªoµüϾ-/}tõN5ÒY#£˜,¨!Ó:oãIÙL}ªeÝëbŠq€z¶Ï‹Û5†€9ÒÆïC•
+{#¬°ÈÚ|
 endstream
 endobj
-1908 0 obj
+1966 0 obj
 <<
 /Length1 1416
 /Length2 6052
@@ -25687,7 +26613,7 @@ y
 LXÖyŠû­oÁà@–·âXƒ˜"âañ¼<+[é>1þ¿m‚­ ÛËžpØïMc(áÐÀ»yÁJqØü^ó]{¤+ÝSŠŠ1¶Ý¶Q< ÁŠM~Ñ |[77{>º5ÔŸ5I¥ò8ŒÄÔ”_ki®d¥‘€4ÀcÖ@NÏ!T‘m	+
 endstream
 endobj
-1910 0 obj
+1968 0 obj
 <<
 /Length1 1429
 /Length2 6269
@@ -25766,7 +26692,7 @@ KG7
 éo÷”†¤_¾ÅIt" $O¨Z¬9&œnJ |l’^?n²¢ââRFPWÄZVÇèÀm,÷[Lâè‘WœƒBeàl¢®ëÛðÊɨe”E¡õÀÞéá
 endstream
 endobj
-1912 0 obj
+1970 0 obj
 <<
 /Length1 1641
 /Length2 8102
@@ -25849,12 +26775,12 @@ $"
 ^(w-ÂèÏìÔ
 endstream
 endobj
-1914 0 obj
+1972 0 obj
 <<
 /Length1 2519
-/Length2 17687
+/Length2 17749
 /Length3 0
-/Length 20206     
+/Length 20268     
 >>
 stream
 %!PS-AdobeFont-1.0: CMTT10 003.002
@@ -25874,7 +26800,7 @@ FontDirectory/CMTT10 known{/CMTT10 findfont dup/UniqueID known{dup
 11 dict begin
 /FontType 1 def
 /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def
-/FontName /QCUYCW+CMTT10 def
+/FontName /UFPYIQ+CMTT10 def
 /FontBBox {-4 -233 537 696 }readonly def
 /PaintType 0 def
 /FontInfo 9 dict dup begin
@@ -25922,6 +26848,7 @@ dup 58 /colon put
 dup 44 /comma put
 dup 100 /d put
 dup 101 /e put
+dup 56 /eight put
 dup 61 /equal put
 dup 102 /f put
 dup 52 /four put
@@ -25947,7 +26874,6 @@ dup 113 /q put
 dup 13 /quotesingle put
 dup 114 /r put
 dup 115 /s put
-dup 55 /seven put
 dup 54 /six put
 dup 47 /slash put
 dup 116 /t put
@@ -25990,62 +26916,60 @@ Qx
 ŠÊ"„¸Óªï©á“a¦x;ÏYŽ`³m÷±ÎÆeòïï©"bsàiq>,ÄZnÊè›3æÂŒeÐÌ(¥±gÆØoû¦¼ =$ìRù·ÿŸµþܬú¯Ÿ'âJ:cjª3¦‚f2
 N’µ:3CC;OÊv"<ȳA?9=¿Ô‡a’ÓÈ{úúMË»Š¶ö&}Lænu¦¥4ÛŸV[Ìà+.¢_…bê¨$tö«1ê.¶}ÉÖÇÓÁcÑü¯{ä«<<›vì÷ܸßÌzÖô‡<úÍñ–ÈУÝ9ÌrÞµ"œb‚t¶™Ê˜$yéЪ֡Vì ]W–ÂÖÒÔ>£Ýã0žõP¤B’·W*ZCÉÆ›ŠOžêS€	ë0³é€Õaº‚ÎÖÀºåS„±5Ε÷-}7‰‚ÔÆÙ-Á›*¸IC®{1ȹ†AŠ˜ßZųä®rO‘(Gn˜6ã¼¢9iã5ßbDýN÷²'wLÂ

å,²j"•éWv³yMÎbfv›¹¤ù&,Õ†H®†ƒѶ¼G[‚f…íÄ&“©PÀx¸´&Iš™ÿë¤i=(Ë— èz:‚[} š$êú>ÖÑ]´¡çIlv®yPôÙüdŒÓ[‚tºzÑwä;Ñhc¥9–¯éXS8ì{‘ÕY¬J4ks¹ð'$r+›tšý‡æ7)„)ßm&‹LWÌQÔ
ãL7“)­³gö€·†×ó‘Í‘¶".ˆÀ¼ÿf ˆE›ý*â
 °MÊö‚:7¯õjm›˜ª!µ'¦¿3¹xÄ<[r îä«ënÝ^™sºÉ:Ÿ^—M{Ã9E“Å·ÑÌ8ÑÝBãt<ÚW#ë³WsÛ	3’}Âæ~]ÏNAýÑx!¦íf”ð%þÒ™ÄÇø°wÂÙ
€ìˆëÃ˳,Ø¿QÖ㌴W싪ËŸ«D®t2ïó̉BŽ›°¸JD_æ£
9b	ʃ>,Šw©v­¯Ëà0ÍüV\åaµÙ4ŸT2G+¨óÿFä]ôÍ,Ùšå]©z ~aŒ1›æ›CÑÈãÓJU­Ús/	'Ú«À±ÂìÅ“k‡¿[ÇM#I8ߦò’)¨´óq±U‹ë$ÔràCO>Å°½âŒtMÖý>úIóªŠV­Ì&¥õµ“€Mi`ªok¾Öà ÊPìÅ^\ âm"¹eð¬]V¯D‘¶ÄÛ7uë\£»»~ò&øbÉìÀýOŽÄñ4˜ÃtÞ¡–KÛLôÔ¢”¸‡N\™-ÎvúaK’í¾D¹­~2W^€"á‰Ã¶¨8Y´JBX2UË[Ø0½låÂq°‚߃ýãÑ‹ˆ>â›ÒKHäÑà>sxÀ[bÜÿ§Ü¸÷ÝœYS«ú8–‚¹ kÅ)àöÃ!~¢w·öÅeÒÚmGäà
"1™y¼­¬°Eïj^Á?5…ä‚m”H謥kØôC;Šíjc¹àº¢j%™(V«½qŒÕÙÌë½}óŸ‰<ü‹Ì9m·h>þæqóU’⌽"ýœHXù|yЄ’¬ãª><žòê%©	-Ÿ˜‰»_2†æ”0Ój]yçWñ
-ó>ÿ!ÙÔÄ‘rì,ÝQ?z⺑{@Ù$í…dâÀôÞ}*ÙÊE§J%GÙÛ×)>­]6—ù¹÷t_ÜoK§ÐXBè½i§ºÐþN·9Ž¶T¥HOh}/99ÄçeéÅt¤sF¶|IìPq^‡
â¤Ï¨þêÐÓ›‚ø-­ÇfWÀîzžlìsÇ‚}–Ë/Q­
-ñ*=?áá¥ñ(m¹¦XÄiJj~†¹E§=*tÇeÐƘ!Ö7sàN•~Ìu	´9”#Âs ÌmAǃ 7Rà±a®yIB­uÏRÄ6Ë«Š{‹.z/xÞ"/oÕkýEßUw˜Éà5,ꯡàª÷ã|‹ÌÑ>d¥‚,ãwky ˆŽîJ‚d-0ö·â<äÐ:Œ'^-ÜD®:;vn„Å›™ù.ñäp§
óê~AþÊì]±x1y=ÃXŠ—œ“;Bën›=D»þ¸#&J“TW òÓçߢTVET	:@Á•ÿÿá:•)ôÖÍ\Ê®vC¤@úÀŽjhXÔÉy~A·*óH}ìw™¯4lÛÜu‰Ê.’ß–øÊ™#2©rAO4óøS"Ø×ïéb—.ðnë›ÍµË,MiúÐU~ ~@TîØJ麜‡q"q„ìâÖ$ ¥î÷@jM¿ÛTºn[©‚	‚ÏÊÁŒd¼J±Á„&Øê
ò¥F¾mÑÕAEBôcò
-
-¨
ɹ)ßµ^ÅÊ>ÇS&Ž(Åq¹RÿÚ¨[ȹùmhÚ˜¹¿„²q_~_ÎÜ¥¨b±'cXC9íWÕ˜èz±!xmp¢i‘3jà0AH1˼D\K’Âòe¤»}ÿ&C¼kE:(1ÏrJ«fË…/3yñǺ¯›V:‰ª-Þª·“a®æÐõT˜ðRÀpï.©Úóev>IJárpô:½HÜÓCpwðr«ìIÈ»„×_!„Ç%>m(=A°“uhAðç9ôƒ)å~YWøö^f©±Ôκîä»—©a/ÁÐÞÞY6BNÀŸê.„©®f{áÂ{H	pDuf^ÿbÜi8û	Gÿw•ÎxüúÈ— ¾·¼é,¡Hi
©
-M2C“ÉÎL™)Åy.ù)qõð¢?ÏÀ.Ø=û­L©ìN¶ÿè"»ü¯Ã=&g«þÕŽ–ñêÝ»,ðÝ©×CÄTß¿•¢ÐEºîâfôJë—/ž„7¼Ü¾À·øafÆé[=ãíN>OâIR&ÖÒ5)v}Ððȸê{ýåÆ–â‚ÉOlïKµýDüBD}û²VeNpü¢”læÿTœžæe–I'àÚ=´T±N:Èý-ÏŒp<‘ªQ€ŽCÍm‘ŒŒg2e†rožÊ\›«úÉ2³^Èz[jx
 Žêu4³ì…Á¡¥Ç‘Àì¾ËÉýÏÞ·¯n^©¤yÒp\`V
-¬‹†è°"699¸ê¿-p;ã‚1QÄ|íº®>ÇPúàÅÑáZ½¯à±ˆ^rƒy®ßL}Í ƒ¯Vè_Ÿ¼¤d·7ò¹Îóh݃mâˈ=
G¦K&=ûïšÍRu|2}¦`ÐîE8¦ Ä‡NHn`7³ÛÏ•Z¡Yúší}ÖŽo/Ñ@uäa_­­8÷lzÌ棘ÃËOn{[k;a&Y(ßI¤ ¿‰ðͤ#Ó]+ÑrIÉSk£Ñ¢u)uçb<ÞðÏoÇ[J«Cm«_2Ñcc¥YEïe”æ2û.¼
ÝþeKšœ©±2íçZ†IO˜¨2Š-šò½/(Ñ=3ˆÝé®!¯å¿KŠÐ¡ãÒÞœT˜DLJ¶©S>cÎ%øyBjëã‹ž6Ï¡Ò\¦›YRKÃݽØLýpþvaÝõ¹Ó‘î,•…ÊÛùÞÝ	¥³žýãŠ}=2m¸­ÙeF£ÑÛxÁj=™/kKç–oÜ“ŒÊ0Ô(TCgg´ÐùTiƒT…œæRî+õÄc"¤P©O| ÖýNŸ;ðjÕ¬†¹Yb˜~nû=Ò¯m<É
- ^[Uà¹ÐBÞ MHÓi£q
-W	Dà©®3öwÁ+»TÂCÊ àH“•lÝÝâUæe…v|³gÅ¥l3ŽÕýVœêD½™=ZBlÊÛ¥ìüŒõ/Ú•I|Üèõ‚m´‘…ZàÅ=™ºûÞ0>ŽCÛúå”@!µd.7
Ÿ»oo‹û™1o5#8K¼Úó€
ƒãdÿº®‚)èfœ@ãj§AËÁhž<Ì~±ç=Èúé_WtbâoåÒzzß÷Ûâ­ˆÊÎÆ ¼Ü+àm0læ;ì¾é™|ÿûw“RºüXâÉu JÕŒýAê²µP{‰~§Ÿã±>öë@èßEoõaZ)C.0Jº¥1Ÿê$Wƒ’©Ý© E£QŸb•ôNZTÍÒì"
zþª&X߯¸¨ÿq:¨ÖŠ5PÚCÔåÙZr©ZñÝúPT6ýp:‡WiåSûÔ;Èb¹Ûù2ÁC
-ºk=Ç2‚—P¨8r´/ nÅ¿2~g„W;ÂÞ–él_ækDëÔï¾'rlG"ÊüÑ?üwE:0óÛþ<ˆuagZš‡­¤B’èÂã¿c¯’§–ó´/xF< kŽ3q´–Éb-~
–rxP:\Ò™%'•6@Dô}¶Pô}=ÅÃH;Œ}²Ê Ù…Bd¤¤ÇÏ€(þ±ÆÒIZ­Ò«f´ÝkꨒvlþY|@ᥨQòEKš¸þ:¶Q…’aÒFËCù¹$¹õ¶q]O³?(LG|ÃUd§'Ýe˶f~}j:‡p~d¾JJOC¥Né: z}×?¦&ßî‘Ë9MD#º(™œœ	Sv
·S¦äð‘á>òYþNŸ]Ú‰€EÄ^BÐbXr#$ZÞZ€˜‚Hk^®E@©ß"á¦{þå¡Tår¼#Ý‘Ì$«½ÒØÞ€ø«’3j×N%í5©H€܃°$îf÷T‰¡øw8>KüI°(i;â½æßÉOJ¿ˆúQOvRmµwµ÷5;õ®sSä¢ 	Š…› B3JÂâúÖ¯È=-žS×n†Ê#z&“TzžÖ;öómoÎo}f
•[ã/ËÁ°.¦kN…Nº¹ˆ\$ÎxáôLÔ03ëÁ“žæýß »W±"¢FðîÚwéŽzÁoOŸë-,™2õ­³%¸}¾J$Üf¸Øˆñ-Eзj¦ëèÒy
-Õ.ÌÝM#á½¶ÁÔ­Œ(jèòKˆªÊ‘„ÝK—¾ú­í§ßÔª´õp³ýô,šþü݆î'Ä[¾ô¨¯&ñã§È^9õÉ8óÝXc_ÿVÛ>b¼.ªKÇ…¦SB›ƒøn$Ç€/˜Úk}1ŠoBH÷¯“Ú$76xñ
-À¯|*©’2îHðùù[ £³®ž“¤½xåU3+ñl@›Ô¥ùŒìRÙ•ëf‡GÌÇ–\¿+mÇŠ¥Äº,mí»í”O×vk6‘méXðRftÍ9mŽ_aÕbVç°2¶äýÍ£”“·O÷w¤÷Œ`$QÓDCþpå¿—yj¾µÀÝF9<|lIïF	k}nYdÚkòÈÜÐ0‘•@ƒ"nàضKŒ‚CáÏÒ^Q§ÀÒg¬ª‹…íŽ]»ú©4Õ{y
-ÓÖ;¹‰QÅ› ¢Y¥Ze9Q5ã
W)îKdŽ$kÅ›ºc º!É̸ì…R|»º˜R“ &6×({ *·bbVæÃ
-‹ýþ¡›¯6yËû_9¼m
-ÉP2®%ð
-¡'½KžO^Åß7­ÐÓúãm‘|Ç“qTN«—0K¡ÅX`ËqpÓ…2ñŒ¾…Þ±HU·™8Ãÿã	é‰f7{åLDŠ²kÝb/êChq7Û„JP|¢}ø…Á&OkÛ— |“Òò¾TΠ+v*êDÙc"ÚåõD/“Û!i
V¶®1$A¶SÖV=ø&}_û(¸›FFuÜQE>yOeaÆÕØÛ`@SÞÔžÁ~˜Y3Àøšh飳OEO©DN²M’F̤Dƒ)h^ýv§yôÛ&g|´²o˯“ObF-¡òF˜·%,"¾ÉR²¸Á¿ìħMÍ&¹aõkPe.…IÕêÛeÔmÍûáAÛ"²ðâ—pôLÝ:ΉS±ÅÄ`µÍeÏjƒ´•i¡Ê°Ûĺ#›ÆV;>èæ»ÄìÆDíZh÷
-5ú™šôìN—âäûN>"JøκŒ¼™¶Ë{ðH
-ßA4jwÚp0k¡"ŠÌ¡œ›Ï‘•‡3ÖÝH¡Â
-x¤ðQoT¡WÞXÌ9îzÓ/©Ù€t‰ƒh>‡qeÚ®dŽÌ ª´SÆÈ” Æ°gŸÇm¸ܧi&žZ§Ûh;ÈËóƒÞŠM?xh%U‡amž&ƒ®ÙrÕfeñçÀ½»©Ö
$¿Ε¢J=w&y‹8ÝO`ëú 
-¥úŸpöçžV¢;X˜2GJ2¹ü¦>ÚÕÜ"(é°gnoÏ·.-ÚçŽÕ]4Amë-<€ŽíÜK¿“n\ºîåØ	)g9:U´²[Úä–Kã–Õ#6s«pÖŸn²¹B­4@µÕbM–bo»\½šÕ¢”6>ßר ÛDó‹kî»~O•NÅ‘-!~dªYq;’ö„¥¶cVÛA?È&?Е4 .lýe`¤WM¹wŸjdHy…š[YCöŒ6A‘€€Q\FÇ~;¨ŒÀˈú˜P\É@V¼È|Ú°r»ø@Ä„-ºäžR„ßN“]~™øAR
È=¯h/’¼Ö€\N²á¡ñJ7‹0Øâ]}Z·Göú´>#Š]Ü̲åKqÂÅ0ücò:mhŸ2±øéˆ6<”.’n8¡»/Žn=Ûr6ëx\EE]9ÀbR!B_$ˆI»Í:PÔ^õò`“Ë9¤'‚ËɌ쥩¬õ³ïßð¼Êq,ÈW1N#1œÇàÅÛ‹±âw¾ƒöƒÉ÷éôWj®“'Œ6ë<ß±®†œÓ°W«‡†ŽÏzo4ò¤è¢§%‹íq$¶8L´sˆnÑ}„`æ'R’ñ§h4«Äœd0ÃÚ['ïz˜@T¼o¦ù3Ò¢²Ì¢ˆ®Gøïýpé¬^•p¡Žï7ý<*ä˜1ÙÕ:x4ÎIOû¿HÇ­NÜæKPqæ(}™¥Gb5õ³é²Õ
-ð¤>–IyØ„È.OzìÆTlF›\¬¥¹•ƒÊEÃh¢‘ á‚q­aç7a
-STxU`¦zŽ³“ýÓO×}_åKhAœ%m‹“tâ߈‹ô:örìVí~PÐä
ó(tás†Y*ìÎÄãÜ"eê&F´D‘‹‡ñÌ/&ÓÎJY‡uÐÆ_&$0ËUXÉN°ZJeRa˜yrt´óÓ‡õdÙ1C‘&xߩע¦¸^BüOjLß5/ßÔr9Oï¦<ce3È"›<`чý”ÐSZùDq!ýwòi=º¿`…à#škxæ¬aRX\¡%Kô~Ø6çç‹»5ʳž,¶ŸæÍlñ×#ö»â‘pˆ‡™«±ÅÚsÁÛx¹ÌU“Ò
-产²›r¿Éd·À½|
2ËÎJƒ}'¥L®,	Í…©Ô×jÇ0&dãû6xáaséÀådZ …± j}]0í{‰|OPw'èSTw:Õ@®ëßš
ʨ
`nñÌ"°vC’ò¿E[&ß—’›Öç©6ƒ(ã4}çÉ.NàöðüNº| /µ£¡Rƒµ”ÎæDgÐá$¨ôÃvó”mtmÇ¡ò@È4äŒ:ÎR\|á%³G-m¿sŒp_fZ®Ôm©“5ƒvlZ“æ~_bSK”V¾y§Ç$!Ð.•¿à"RP%ÔåSÈœ
-`B›”•x‰ˆÕšòÔÄæîwíÜ‚ÇEú}@Ô-¹aðË›í©¼	áìˆ`}¥Q-6ÍÇ/
{åÄ"…͘âíÚçJ`šô¥`ãåI¡ƒÉe§§qR°’²™‡“""½6Ͼ²¦¾µì%§<"˜£ÒK0mpØ’5™-¸VKi<°cÌ×/ÙoJÕúC
-2äì{ûX´´K_~Eq– *MD+¯±ˆ¯×Æô=žê~7üi•ÔoŸ‹¡wHišC(jØnZoðÍ¢˜'SH^RÂPÊ®¡i¹sÄ3,Âœ3ò©,VÙ®”©ã[m/â5iOÄ’1¨ÅÎ;¢kyd£0W±
-T4à8׬­
pߘFù»…E)
q©MŸÔï4à’Á!ù1,ê,sHY§ITø–¾A30}È!x!xyþ’D7»ÈSA(H«â¸G¦t׎‡ôš‡À‹—aR—ƒ„Æ]H€ñV„“øÒò
vŒ
«¤;bdÅÒ¦+Œ`­‡!ñ~“/‡¹”w·9µ™«ÎS’¬©eYû!.L¬J¸¶T$–!¤£™4•Ì뢫“ôúP¿Íha²ö¦ˆ¿ë’üðÉ/pH´°Ë:ºYà¾óì«™ÀE9KŸCB3·Åò)§~æg@Kj„˜RH/|_ž8Üî'˜RidD·ygr8n·;MÚY3Öß«·;‚\™Á$%“¡w9™;&TP®j¿òsHþŽŒOÃ8;ññ~1móˆ'~ü¨à…•Ð¿
-*^ 8$,ÜCfÇiÃÉË×
¢Ñßnj•üd‰O4è„}ãj»cPÎ$ñ•Єam#eš÷Ùa8n7¡á yd¢ÕŽ^ãõºo£Â·§\JÁpý±ëP¿™’¯„MN,ŠÐ*<Ûçép Z'ÿ³×˯[y¬“æ–,êèÛìg•Np
-)FhR¸èf6ÕAaûfã¸
‚º>uJÙùŠC<_ŽWÙNÓG8JVÙ2®’Pt(³>m²&'òJØýöigU' s†•!üE×^¬ö"ј󞛥H	‹*³ö²·ô‚ί„6wª
-àÒ€²$«¼´‘&æŸôÅ݈BƒÇéØœóWö­•t¶7d^çbèÆ“™hO>ÊÓÜ‹7¿t ÉkÛùbÉT^%œŽÃÿ Òbb­c—Q¿*ȇ.qXM«ujÝͽ«þ/™V#ýµä¾î¶Õ$´4:ÔL3ù‡™I]»:«„¼³g!°ZÅ5Íÿª+~á†9÷CëgÞ†ZY±Ç©º^BÓ ¦rb¾BæÈ6F¿ž¡.ôÃ_T­¶‘Ç´SB™#2þÍæÈk¯@@ziøÕàWd¬•Á™èGÙ>äÀ£Ñ7ÌÈh}ñ,‰”˜…9©x5ÇRm½_TÆ	QjFwÑ¥°û{j!ð< _7æÙ`5ß5ÀË+Ù7¤•à¾jíW°}ì­Õ‹1D"^Ñ6µ>Mëðô3e´]Øi¥Ø9.Ëí“û¶½>‘¬Ÿ1Ù×ÚYIóÙZ‹ÙQG95â¦P<ÆHÚ7ʇ³ìâ*TUùo©º@~{´%$¼{¶ñÀC0b#m‹ü^áR}ffì­
f.|dçÁ¤‰ =[Tò‡íÐc¿à‘4ãOÏ…YÝñžÅÙ½(Õ‘‡€ßèáz3”B׬ÕÊ_5,l­ÛBX|šÓ—øà!
-bq Ž°šˆ®NaYÃV«±Ä{Y ˆË¤;a®ò|s*|³R"Üs9ð{j.i9TmÏ‚Æ*6/ý'ôöâ|ÉAÙ&¼(¶¼÷ñÎ{¹t”­ º  %–’q~;BÇY3)¶ž¦ÊåT^ùJË”/ÏÛÁÇí|ŒÜ~_04{‚Š È¥HP©¹ã1ŽII6êœíÍ&̤D@Û!ª§qžrX0DÎÒÕNîRû(ƒ¬3ExÛJi¤|Æ%Ú
³x«I	¡-h·/ìôù	’*anôëìDø,¬AÈ°óS¡Eñâ"G+6z„rÜ)3ÿeÐ9ùÁ š?kq̈ÕÖ?(w´`•ªsŠ "8‡¸»jàJ"Úø)­Ú5!ËkŸtZŽšsÒmdÿÄ®À®»1A¶òs„ÒÔñ¤ƒÕ_ßrnaø>¡W𒌟U{~*’Ö脧E[–#Ê&Ä7¶[þÄ-¯öêŠ1÷!’³vjv3÷sakêá1it*^f)
,:û|=~nP!eµî\Ò€h½œh&¯H?F?Š3tÆ(
»ÝðºD}4r+RùQÖ4)2£_)µú˜Þº5š×ÛÌ2c¤t^G&¹Ëch—xMPnKoý½…ÛR¶–;÷ˆ3ÂÙñßƱÓï±Ö!-äþž@spU×1![ î1Ã
N+4ÁnÀ4#é}Ü¢õÉé”ð]Ѷ–åcjúàb¢#%ç”'GÉŸ¼µÿ‚Ç~ æô'EŒÎ’;I -j´%‹ô
-!Tˆ~±wÖ¸i§F1á»(N‰V?ŸB0eWºÐð9uº±zOQnôd…oÖ6÷ˆñ^ÉÓkÏ¢œÐ¹€ÂÓ ‹Öý”°ŸˆNŽ‘“&[@þèŒïèØó>ìPßÆ!ÿœt‘Ÿ„{Ÿa?×Q«óö­0M+¢ß ‘éøÞ{zúê>‹¶a`OV,Üñ956 a:&„,˜2w,ék¦î&öÏ©ú*Ûœ¯)#X%üð±qÄæ}>t)KzÏaÅ$œóm-§UK°<|,~Ñ2ÅÀìQÆäÌ4	ü­8ÂG‰lÕŒÔÞnˆßмMk'¨‰ïp[=$ÞNžÐ§ÊÁÒ¾ÉÖ\NzÍŒç­ça•<àÕÐ`_ÂÅ_^¾›UÛM!=Sb@ö>JÅgÏ%’&7ñÓ©'š¹¹û1·`¡áÌô¢2åõ>XA
r¢Z\Ãï[Óýá¥~ƒÔÌ(jCM‰Èë„Çè	4¾ºñV H •Õ÷ñE#½XuÊuH×mÕ¶‰!;éÔ
-$H^-º5¾)B®ƒÉXIú‘ºô”MüD–#xnâ.å£ó2Uä²[#ú-ñ# ´vG¡R´»O9ýÊùôê3^6Ä–®IÆ+½¥¿Û¨ôé1q©Îf
¦ò^®óf€f§@?Õì—Zo˜Io„÷{È	àû2ÔðaZM‹¶…$Ûo|K9	X猱Qã6qäiÁ×ûg†F£±‘+$¬°WqñJ?	#Ü€^ËK¦eÔ>èêÈÒ\-tv9!‘–] 2>ÂÖ"©D¼süP1aÄ‚™«lþòQ¨½
¼OÂñ8Œ¥˜^Œú&`ʨÐÎýzá7 ¨ž$ïÀKÎÒƒñÞýì{WÖèX9küåøå}¶çsfZ~$ʘAd¯A”§–„B0§ÜªnG…òé
§KO‰»nFQ•‹Ú›?eFkEï´àLR-êIU}s@=yWÀVô*ÛmÑWåÍ•ŽÝ.ÞG¶ÏÞ
-R[Xk“£â8zDÊ)×8Eˆ3h:÷–íEƒcòÁ >lƒý¿‡2K°Â‚ØÅöë5ÉlS´CÎ\.’ô©Ç(ìæší)½“ˆ@»æ¥ïÜÛa÷ "BC¥Z­®ÕÞû{.Gø£]«ðiqŠ@[û:’f;Ÿ­KMDz8H·ê	¬4Y«—~Õ«yÆCÒ0x&„šŒ§C—ØóbjCÐAË0@ª=<¢–pŠãpø(¼-|
-ˆ°nÓÁÃ1°YYëÙ„äì¾gRÅŽ­OÊØÞqùHÔg‚€ëÔT^eÅ¥eË‚Âuç`YÔ>ƒhmMÛÔ«où -¼úbêÏœWEg&
4òÝ}^yÃrD‹Á³%¿íÁ×=[Tdzvx!x9žtqa››“êú”/Ø3)‘‰Õ…-GÁvØrÔî0ïïEâ&Ów{ŸàC ,EàXîì%AA&ÛF0mÈ,Í÷µiCj᳕‹WX×E%nó%%iHKê|+,är·`ò¿’:$¶ù©#gÊW‹üÚkòýIbù¬dnñxЙ¸k ÀâälŠY×Âì®,‡Õ†"õÉja°+|¢Ö‡¨?ŽÆÛ¢L|ž¤üÌkOŸÜþt4³=üª9_,"W&ÿŒÕ|ö–4QÁavæèýWo|ìr’ñ˜‹t û"É3¿34‚•“:¨JÁ/Ƶä`¦²&u]$ð±Œhi>ìXjBÂ­Ì ¯P)8à=ç7¹AÒ{vÄ$~>
-‰²ü:„âïá GuÑO±½
-ß)KŸoÇ*÷fJÕšÿCÅ4ŸÕžkeó¯²ú4‰ò7DŽ!bÿX­Õ>J‹vp[Ú8o0«ƒÉ×·7Ù/¦câƒæÌþïB‰\y^7™¼N2Ü‘ì@ÐZMÓæ†+¥Õ4¸›–7x^Æ„™//}´ÁØÍÃ|©Çsªšø¯É]¡ÅŽLgȺn±"RzEÜßQÈq I sÿp®Sìoã‘cwÕ1=.xøf´0JŒ†ýó<ç}aKqòѨê±/ÜAnrÕòײŽå'MÙzEÄ×ãúUff²äˆÏCµñˆ#ÖW(÷ŸÀ}«˜ú9póÓ¬ÆÊÔõ¾£‹mdŠÝïRt©c\™ŒÊÑÚÄ´Ó†u9©‚¡8ÏmHô®1	ÜëÕÁYIÖPß{'sŒ³º@‰ü¼ŸUº/Nцï„fÌ
eA°éð$uãwfýÚË †aù]¥ì^nSä¼-Ì!¡cg¡~Ö»¼£â,½¶Þî@”ÙsR,ݸh	Hœ3&EϨU:¹¿ùè¬D%îè”YR_7÷ˆo	ÊÇáô͘ÄÝ¢Ó‚ê«l¯¦áS,/ø†ûÄŠHôFz;L]íýšÞ°wýI'¹;‡Ë.È°„QËÝ0¡kÝ	
-à æBi×®.T²—©ÌÆ,p?ma°ô8U÷hï25’feËÀ@dŒ–äq9L¦ómŠN©5¿O,«
\¢î¡ˆÆj")‚ÂNÏÑO÷’âH†°fNe'#áÆqý£¹r|JëÑû£Ì¶“,r
-€h3‹Iʨ^ 3JȈù¯¥©·‰õƒwýÔ|iiÃ"0a"zÞY@Dm…³ì‡»:cÖÑÅ´—DN
-úª|°udo†WA•ÞÛqÚ©kÐòZ,ËR&uhgzi4¶)Ã6ÉÎ!ý[²‡bd%!‰‹é9ÔFèñ#•ü(§
-¯ºØÛ›HmðúOEE©ÙPÖŽEôdÁ%@mê¸ËßvŽ:_}Ò; ¼:üF!x<ÜåÉî†/±Ež)‡#´«Æ	üLaÊÅàèÅ­d* 8	Ž‡÷;%”5âëþI0~2Ü`™Ô›}xJõ•_¢ê‹œU',ôòÅoöDê7T8CRÚª	À²Äo×,axø
âmó^sþD¶Œ¦c°Ô5þQ–Ìe-Õ$šYñ+¶ÿi¸eݶ8!Ac–­Dê'ÐÙ‡CÄ·enôK'\$@@r5…çÂA,¹©ûà§ôX˜ïPwùþû[Á„ˆ†e4s¯Ub–Œî6Æmʱxb(çí3ÝMbß(\ˆýgmlì²Z3¸B
-ÉRU–ntÉ›w<÷	cá{ë;U(ó&­£¦”ëDp}ÜÍlNÝÅ[	Úô`ÉŽ8èþ£z'ëîE
-—‹ŒÜÙ¬ür˜
FäÃA?±
-%ñ·¥­ÓŒ¹|ÞŽ¢ê»wëkÆÜÑÿ^ÞšõB¡ÞÖ,ì®Å¿¬fzZœÍlßç*j®yiøœîbÑ­iµCÄð^Ê€ßóêvóò‰›\VY†ÊKl9AÚîBBÂåÐÃ(ŸØå6q})ɤú¡º`u„?Þ÷½à7ÿÿ"Ú_>sÕaø:"\{ȃ瞥ÈC3säðwøÐ;ÏÓ8üfþTQÜÃcrïtçgJgL–QZ¦«ct£©-ê\°›úåC(®ÁiÞ"KoEçkÄ}æÝ{ìÁXBP
-$,1Þ;„V܈‰KÄ-Àˆß!z½—æeAGätÏÒKÊ)ñçÏÕ‘ƒIÃ;k8Ôò‚][»mʳdDq’y\Î5¦[jÌéÙKº§ê°àè¶È£~\«é¡ˆ4’°8 Îòb#Ö¨]gQÆË
-Ì~	¼i4ÇeÀÅ®¶÷¥Ö?ƒE¬Âël-©C˜¬pH2¦P»#Ž*ÄWCêcK×
-8¿>É$`Bq9È;j=h!»hö¢íqÈÈéáLQŽ¶
-‡'õF}4ãWD]²0ð‚8öݘ‚èúKVƒÅFl¯„¿p¡Ðp[
- âÊVçá¿Ÿ^NBW5i¿,[Ì-Õy­4,*†;ŽÇWƒ™†qz¶XBqÉ®òFˆ.pëŸbßt
+Qš=>´óq±U‹ë$ÔràCO>Å°½âŒtMÖý>úIóªŠV­Ì&¥õµ“€Mi`ªok¾Öà ÊPìÅ^\ âm"¹eð¬]V¯D‘¶ÄÛ7uë\£»»~ò&øbÉìÀýOŽÄñ4˜ÃtÞ¡–KÛLôÔ¢”¸‡N\™-ÎvúaK’í¾D¹­~2W^€"á‰Ã¶¨8Y´JBX5Ó"ݵżo¬v›¹Föv$=MÁ
ù˜}(	ˆ7@L»&5ƒ|®L£.`Aù@‹{åšßhrÖõ£Y´i¸(ƒÀn$›we‡Bp{o‚ÙǔԽxM}TàÛ}Qž¿4ΑÈq’vÛBäfSDžét•Q…ë±¥t»y%שÊÙå&[ßÓ€£¾˜çIB¿|ÂBî8™ÞLMGÊU	"ç<ÿ¾B­tbv@¢1~8·„[&Þç>6¢F¦´#˜‰_•Õñƒ¹>,òomðq™À;¥Fo£ï½w圠¼ŠGÐÇ€G+WÐ¥á©øQ¿®„‹wÕ]é6ÆÀ®:l¹‡áÀD-K¿ ¨!”c‘z¾íÚsVriÔ)¢˜tå8lÆÑQ€ÒC·+>p—o"Ù•ÎaÛîwÁCN“n“>¾nÊ&ZÛ*ò~µá¬Bb”„0mòUsQ_#25}!ò¬PršS­Uj®ISDòÜ®ià•edð÷;#ëà…ñÅ>¬PîUþ^2w7©y…vÉÏŒ›±!nÚ{Éa•|¦˃{ºŠöÁ/9L0’€P+%[sÖÖ­#ƒÝSôÑ_!’—`%J/v8G˜¿X·v@ß;#b!O®­ßs~¿ªa45LÙ×9߈6ÎûuŸÿ»Ø&ÆîÒe˜h_GrèópÉdv´œçöÃÎ<‡™¯„ÿ¢J_?žëqÙ. z¾‡ý„™dyoŽ»¢(áw/EUÁ¼€ýäÊý‰**î-|Ç
ýXL$ž—†íÔƒµÀõÔ»ÉÌ`z
+†Å#ÃnåÔ
y•JüÄÿKÀt7Š7Ó«ŒÂ6bk^1bÝç
+Øy:šM_£Á­ìvÿ×BènÂÖÄð¸QVECÉ:‘÷u‚þ®ÙÕ®$PO.’%S¥î™Ô
Õè¨kéÜì€ÀE&Hõ=´Œ<Æ­ª¶4i Ú­07L'죉úp;™í;IàªXbÁ[¿-DÞ£CFi¤ÂµÑX°”lhÓli÷,¹ÂãŒæ¼¹öƒº®-†¯S¢£CeÒæ`¦˜EÁ‚ûï…I`ÊÝqv‰˜å¸ÿRMáSÌ@Ñô+¨Ë'Ìí÷>ÿQäe—ÆòYh…™@—w¡Çuæ¢J@Ù]ÐT¶ƒç„J¼	-WÊ€«N’qžáQiS}Q”§ÜrÖýµ¶2yÁ¨]X’aXÐNý™.ç‘8Õ¹ýÔË×Ãxäpw‹xñ鸵º…ÛÓ4‘ÛûªjO¶Y‡æ´÷žÅÔ«DùŸwFÔ>¥ß¬ì¾¥Xó„Ü'±4µÕ¯Ö›B‘‹2®’‡ _n€¿™ŽŽÕ#¦.ç¶ÝEœA{Sÿ›…ð*µsßcÜS¯
+ˆ\mãY.n²
±š\B2‚áúûE†¯ðOð<´_½˜ø”&Ó6Š ÇCöN&Y‘Ï2·1h
I¾’Ü-Ĭ±ÝDœõ§œ¸&q(ã7q{é?º:9jà„ÝA‡Ná+?>í~Âx­¾rÞlt(+—–ƒÅšÐ ”ˆ3ZÌ2ÖJ¶ÍÆïv8ÌHÔšx‚ÔQš>w$ô“<èZn:¤Cb¡•à„ËȨx]ªøg¢¢EϸÁ_ןž©Ím„Ä(célšø0/¸µÜü*•âMžÐ|‚PF–ñ¨bK—K•1O¬–Õ.åµbyÔmñ2&Ö.@	µ_S»¨0-hB#Ã+½ýÛ¡f2œ™°=žœ$É‹¢Þ–KŸ_Æb`,¸Y–[å„©´l„(hPú\|ë]
+ˆöÄÀ*øcN¤À3kéìÓžÇrzþ-¤µ¾\ÿWÜöh«Xa:-i~O#kyö®Gд•¨
+JØÖ@;hÉÅ-‚/ý‹F!?*Eô~öh2zû3
+µ…*Oô3£a½Dôu°Y[ò‘ns± ì]CÝ)uVŒJI6U5º0í[ц§îډϙñSÙ}›oÁxv¯²I‘lñG)Í«Ý¥WÆÓúz=UXÅíŠYÎk¹×_žÿ’6]ôäQò^bw8‰SŽægý!rõì¢ÅQRP?B¹}’}
+U#Œ*÷í@6,­=£´.7ÔØMß–ö_ƒ¸^bVVÅuÚÆãšC‡¡Š©B¥J9œä¸q'CvÌ•ô$‡ž>?üp¾>ów¿žÂû¯÷\Šs$röHêv,¡!1	±ŠŽ$oQðRT¹'µ'½Üñ`WN7ºÛ§˜×8I$ÔLyèÈÚ¶Ûú¨ëTêIbSYâÝÅUÔh»ãô4÷¿‡Kk‰ˆ	Ðiº³Æö®/]²"–gxMÑQïXÔpwâpXù4Å͉‡[
+üý|6Æ-’L›0Q?Èœ¦»Mn–<‡=xJKŸ«ŒÆpCð‹Öƒ§ï³=wdÒ‡SÆRU^ÒúG¶PtöÛofÕ48¥—IÓÊXL7ÍŽ™‹þfVãH
+;‡½ÎUÄ:G25ËY‘u¼ón”ÓÞG³¢}?æÚƦh=$z~]YIÑGy4!¦WJ Ó6éì™HþzWöƒ°%œl{Ë»79èvSäØ5[ìÆè¿pWˆ+INV§‹Ü¹€¤ƒ›Ú^”á¼0T*ìa±º”Ÿ³ìàKWÄ7_:þM²Ê&,~3x?O	UYnÓÚ-¶Öé^Ÿ¥Ê$m¹ß‚¿€ÎÓ}7`/ëA"ì„Ø wY¹9¶¤ÄÅ>‡ÀC‰QRëo¢}«ùÉį€ðeNÃ_#ñ	l_GAŠíµÛ¨š…úœD…¤Ñš+Q6ôù}²((&¦Ëö–U_]zýWÓûLˆ{úìªv4XW[H¢ÐÜA~m[Ï’«Ë?òkõШ™Èw¡÷õ·¾‹òÎj—µû;]‹Ve§òˆFÕ0ÿ5ˆáqº*kpú–tùCçìz½KÍ/È÷pè
ºíÏq’¶1þ#ºƒ2•kØhA$yå´4>Ò[hÏÿYã8'ÿ¼ã2Ï•®>×Ó·‹"Ü2(p³!æÊMºÈ˜ë@4ú9'M.2‰¯£˜t:+0I.û
+ï©Ú&5ßq¼|úWÓøF†©¥¼‰+¯º…}sFaØCžTü¢‡ù” ž’xÔÌþo\£›{´`¤—íq=[f0‘‹cb%@ê¾NV!nñô“à·Ç½:jN-{ hî!ÖÀ-E5a?fÆÈ’XåáwJþQZÙaésTþ£:ï9ûõûŠ‹žµ.5Ë`"dè˜p´òŸ3R‹ÇßƵp~HLÀ«ÀõRhëŸvÈ6bQÚ´ö§?v*^¸ù.¸¥«…ÆxþA²Â¾–q‡?øÁ,1ç‹QùùÂóe­Smla·Šëãq‘ÕÈ*Ø¡õD`–쉃cµú•p¡~|-	öÃ1}[ªÂ)þeÝë›ëµiI"•4^nÒٞݽ‡ÂŽå
ãúSü§}D‘+eÞ³í¶Ü'¨Í`ßòó©Ô8=Ä>‰uL¼é”AÔ ¡:ÙMC4~üüZ#×ÓjWi ”æHXê‹nDКnnÑcàÈ;q†aN0ÙÙ¿Û«H†¥MY&4!®
+ÕÊù§:’ÕÛïqg¬í4žE*u"jd›ní
{ïD?wCp8ÎØ"'(îSq¯%IÔò2œÑ7c½þÍøjY€rPaHÇ°±''+½¤¸?gò®Bo<
+FˆžúìÐäÔŽÉ—t~V¶aCqÝá˜ö*UOÑ;VLñtv€æHô±‘¾ˆÀ€¾ªŸ[nqðsÑÖi¿x¬8óê1@ûZ¡ÎËwS9.ÀÙ‰¡(á(Jo=Aƒ¢o㬦5 Àó£˜Äÿ´_câlã(©–‹Æh$÷¯ÅUqB'„"VL¡„ϱ‰+¢ZÀ ”ZCšáký¥“òœëô¸ÿÓè*£Ä	f2AÌ3°$¶÷––yk&	´4C¤ÓëfÞ×Ù©@2!à]JX»;!ÛM•÷²,§Ý–yêÞÌÁ¿Øâg¼UQw1ÕMÝÉÌw¶ŸŽš#Sþß)vŠ™Ì?=l½úyZŽ
+¨W¡!`™+Ô%!³@îUê>W¢©Ê1A7í¦8	–,ïü¬ð÷|âðƒ[œ§í%Û-íX7‘|*ç>åÛ³êØùåMræ°öÈÖÃ3ÅF?ÀZ>ÃïÚ-ì“xñí76àÜ(Áë=Úµ'N>ü/®
+3ÖqŠLT>ß6—Þ\]´ª³é1TÃØ
g‰ÂZ—P$æs^îVUkb?¤=ì€úš"ÀΦ™pü“”^b~ŽÉ¸ÛmwÖMu¸Ldͯâ§Îú:'	áƒ5­Þ•+T¡“È6Æoñ;fI­W¼šúu€b=âJ`H‘;á—z–ît€žhþ Ç‹„É,.ñ†èl†‘6¶nÜ$y¦W¥J?"øš&j^d9yÌD¥£TŸ$ß´k\˜fŒ
+nÝùGý¶¡&CO—V$ì
+ÿªžQÅ”2QF{77`¼W§/o(âàã ¿ÌcfUTLaœðûqÊx!1
.ÀÛ
SQ“Uô^È’³å‹d*ÊÝ(u} E&$ºíHŒRÈH[¦
+š̸ì+Û”Ô]Š–=Áï󈮾â¬ü«3d?äéá“„7×&Ÿp/jö¬Ýõ°ÜùÖÄ~–LQ4Å7C“Ïë!¾(^Ð-
8í<(âóSN7¼©Ð1që·`èÂ[ÿ à©Ïo,¸ÜþA
+9¿%ãb.RUÙŽÓ„¾MúkéÑÓŠ¾16•FPoÃc|0Kò:E°W†óòÈ`•”ÖA@Âlºõå‹/ê‡0;¸0B•ýB‚IçÀC©`v0\bÛr,öÁóIÁ›vÅð€”’h¥ð•Ýœ•äé‚žùê%U¾Yؘz󣟜3w[Ë驪Ï?%s}ôï”SËbÇù­Ø\W‡²,°OÚJ'cÍ'ýÞ©šƒú¼Aý
+§Y³‡5*Òì”Ô„t·v”fè†MQÅZ”Ë:Hï%Ý:ÐÁx)F
+^¸·1Fk5%´&ª›••Ü˜ÇDX“µÒR½x{ù9å‰çÅá&¿^X2»P¨÷·hí¯÷cm„l%r?cõYV9íêBÊ”áÊdû¸×yËÔr¦ËÎ̯ýû7¾
—Â××XB¥Io«g™Þpí}"µ— ®ÍÈD⎻ÀÄ„1^ä+ȼÂe*åw;	Æ¿§ƒ¡ÑsªüºçÀÁù›'Òæ#fúò‹@5>#Aû 9
+D+îÄÿžÞ|×ZñxjIo»ÞtÇå+ªMƒVBŒ7‡ý®‡N1j©P?ð”NV^èú»Dé³ã,ï~ú#¨ã<;:y~æÌ6¾â™-©aŽ¼ÞœÏ¢Bˆ¤œ¢;¨…}öèݶ?ä1î•Ö®$‰2äx')Üøm{»¶ƒ_ÍíûùDT&›%—óCÔž÷”neÇÐïöBÂÂOÆ7Ú3µ¦wðå^rg{©±³QÎç³Ðç=SD®Ùå0T=DQñBoÊæWí›"Í--ˆg¿ù·™í\êÂÅ	ƒ4 £È»¿Å‡@¦röT«—ÄÁø[4ÿs™7_-yÍYŒ+&eäe¡ýÆ3“ôuØÈ|TfІÈÒ+%‹#mCt<¦™m¨ªš)Œß‘SuôF?EmcCµ> jœ¡˜£ªuê1Eõj·£*)º¾Öɧ뗂::°Ë…oN¥ÅðÌL_±+bmõÈsÐ8iŸŒ¶yjOë»_þ¼_r(wæqË¥º”tÌh.#¾rPí2ù§^¹t5Ù­s”¶9{“¦ÿžŽ±¿ðA<1Ól~ë;̹À¸<`ë¼ýI:Âìb"èê³LKâiÑ_Úïy²–_@³²»œ¾Å–^$n Ç@m;š®k2ÏØGY/Üh|°gås{\u½m[*¢¦å=œÛ[´:â…é ¡cc©¨<G'´ úÛ5¢KèO±§m
kkí„sYdðsU±9ŠHØ“’’Ÿ‡?D÷Ño¥Ç“S:;10ÿø™ÖxÑ(n¸Uœ¨úÔUƒY«S¹É${¢]”ÎõÅxàWó?_Àò»mrl>%J¢D‰€IßÖ3ˆáÝÔŠÓ9@¦‚½±TŸ[U_4O
¼B»ÅWOÜæ,
³‹ÙCüé¹äÝ=\MÜÅðâï:"5±k­©ôö·'úšõãÁ"éñ/ÑÓW5sWxsvZ_fLQ Wbr¤“²(£ñ#¡¸‰Ñ%’õ
úåRÒ”
++û¶‰évß'ÒwHÀ$ƒQ)¼—4dHç¶ÊïöR4C_±|‘×έ1ðÁ®W¹à?“)ì3}iWô¹¡FÓY@:‚©k„“Ä{_ÏSƒéŽä{C–A«XzïÍ+Ö<ÿ„àÌ$ÀæLù1^émZûm¸	¸‰frÒ0¨o{Ã:>¾±¢Î`LáŽPøñZˆðH»z‰cˆ”$¤OƒÃ5Á¯ä¼BW“?˜o¥Dø‹3)è0¾"WVñ˜‡ƒÚ¥çå§oÝ«ý÷¿"Ùð®xnð4â•‹&Ðñêו/€d;Îꯆf3Õßó·­¥™A¹í¹ÚnI§H·¦O•¥‰‰K°ê	áP1šŠ…-Ë2J[p™]îO¯µõüwÉR¨HŒ,]§¹‡2“*€ú>”î*{”¶Š­‡w¦zBç2=QN
(;û"Á.·;Qð^?¹Q7…
+‘í&5k¾¶š:_NŽqëqr4›óðŽ;0D
7eŒÒÁÒÕ¨*gjLÏ»éÁ#€%šfó0Z$1¦;!N" ‘¢sL‚úpÉñ&¡¬›_ƒ{P¡¼FUÕ`=´¶ù$üØ	§Óñ±mé¾&Þ‰×ãåüVtmL÷ã©®¼VBÓåiÛOêÎ?†é¢[ZPFMv'ÿ›€ÚVZÎñœÑ•Ö¥™ÙÕÍaàIà,$i*øn|ÈE+N0VˆWük—„]âtwhp°Á´òç–íd[Žíš§hpSô–4¦ø_zW†ÏŽšaØÀZ{\·¯¢ž%tNVÊ€“Qüx¬W°I*i?ß­µÁýßÛÛL5W;“Ùò~6oVeÁ€Ù¡gdãcY†ùˆ¶—Úß`¥ý«)^]7ò·üžN$JCBÂu:³¥><ؾP(á-–«œqƒk2º àQ†Ñ‹ÎFzi…RòaN^¶#jŽ…äÄÔ9aÆ\ÿ,ÙªÍójåè#Zºÿ7Nø¥á„;¾7‘ó´Sm§G;œ©tËO¯Û¼ñ@§j.½R[³n4S6WXõ4æá„U7Û_€mW¹°žáм_óŒðÕtk¢Çt²Q0p‚‘+äöÔA·BÕhŽÑ÷ËL›âaÆÆïñ1ÌÏ4P}ÎnkÓ!ù³Ó´ZZåÊ‘sTÍ{Xž…¹Öâ…f†ê\òÆȺm4;½D=8ôî¸~¢K0çúfîv±Gù{”ˆQrC½ôbF¥ÁýZî4Ùìs&¨ú@L%Åp…ÒlÜSä`&;87ëz>6櫧›T÷)F/[ŒÑÊÐP°Tv£(ë§þ`¹¨¢49g@Åjö©òßñŠu>M&AØ«ùðqK1ŒÛ7¾f‰B 4#ïÓ4÷°ª€íÖ‚g±‘uÖgðs×=·#É'Â&WÛ^2,Ÿjªb$³¬ë›ùõ„v‹L¼ó”ÇÿêÐb’!¬-½]ù
+ÏÅt¯œÞ^ÊKöuBvp	ƒ`fácݪõô\9!¾{„þLëIƒ14A€ð
ÿ
+6q!ܾö5Ï\Ž,éŠkÿš­ÿ~mWùGk±}!Ó¡¥ƒn-}6	Ð.z""XCð<ŸÔ±¹‹HÉq¦Ô4ÍÛ‰ÚÍ¿’ÿœÇñùñ:æ&d°±‚øUýŸ;æ .‰wv•%a¿Ø Å­¯»Š"ýÆ©‘ù”¿Êoᕹ‰ÝûÝ­Ò’R0âƒ{\Qf)òF<Žt7@²p™j	c.UPXñuÏÓuMe/–¤žáÒÛ‡âlä²½üø½2cïòPÊcíb!&&˜¹?z;ËZt®°ëŒªíÅèØáMÜ„÷ø/UO$>‘«ªhÜãŠuλ<ïÊù‰óà}a¶”§š6Éø‚-‡Ž‚b£{O²TÄV¬à+í噿äDMõ_ܯ¡Ó݈àm’€	ëþÙö‰¨ÑLlýÁòÕª™ [0/l|µDà…Ìò(¹ìáœï¥AtZ’ÑVÓÔgÁJüM‡ˆjk·7ñõøÚ˜¹Ñ=¹ÚKÈÛ®çÙ˜øl‚žš²­Î‹E‹=;aÇ}+£jX;ûô*´…Š0aÐ¥ââÂÄÃß~¾YDŠ ›x³A…S¼¸ÑÝò‰‡»4áúkôï­Ø¬K$¨Ý„â
+4ðbú“»é].ÝÏ7ãÆc„H–Wòíbe=ÅíÁ ™1}û~£âgb÷œ·Ö5Bãcn"-£¨ymƒíðA“Ù¼¤j³óp@¯M¤Ü`ü/[ÃTÊIBŒæ’üøÇæ½Ì5x²áòr•‚:–;¥p
+¡ËÄVmž?ÝöÀÆ^å-wЖÁ_SŒ‰#IÛé.œ›Ý½Î‘ð‡
ˆ™¦øZνÒë°Š·JOÄ­Ê8,¦ž„ö~Æ‚Gò˨µjŠË×£þ¨Eç”dvà1ûœŒ!Oè20̨ޥIÂ+L¾NŸxê‡:ÈÍÝ Sübó‰8žk…Ä9g4&mXQíG
lÅF+÷ÜýdÅ“C¡CÎVL÷Iv
ƒ.rÝ÷¾ê/1d—Vv—¡‘£‚æaDp sòà®R_ ON1ãsb;¬
æýÛ7}N¹fÃÐ4J¦Dkg‚DÝGaaÆ1üù¦ˆµ$DY£ÍÖè–Re»ËׂL.½Mýìsê{´eHÅ^g>(+1~žþÈ÷½(¿»­Ñ¾P¯¦êP†Ùpœmäwã®ù¸(*ÏÅW9XÝmÅknr•æI9‰òõ0º”mš»¦ÏLtû€×:ý=PSÌß³tʆæ/CÜÃ#1ÓÓÄ:
+$äÕ›Ä(ŽÀ‹EW”¬Äƒ\^ó½|`__ú*™±h¹j¬	\©¬/f©;&$'™h—,5gÁ4 GïzçiVWS#ó9ñhP¿a	Y¬ «ìÍÈ.…¤ˆÆŽ–#eÂh¢öPqd('>öš±æ,}ä/h=NÔj°›æÿs­¶]Ÿ¸€DŽ¶Ð¶¨h–†p¹ðízk@hO°.䶃7-¹‘TAÐá&´:Å´fÌá¯¹5‘ŸTþJÜÍ.îÏ1ôFB”ÌgdD¤$‡Ðt,ƒSÊŒ'®>«``ó|¨ß˜ŠÞÄ(ì/Æ~=wpsç¿å“¶qd«EiNüíŒg@å)5_¬Û4Ú¥ÄN õ `ó*)†1ÐdÉvþ™}SÓ©TŒ·O!ßZ8¢ï€¸È¤OPý¼'~êSté~%>™¥§:Ó¥=wè}¼	S9l„VùñZÐâžå”¶HËQ,¼©Šˆš«·Aœ ©å^tú¡/ìÀÓn‰wsµN9ûaÞIŸÿ™‚¢ ®Œg¢~Ú£$9pµì¡›ö6QCñ—­J”Aá…ÓÉ¿
+ìÍëγÃE¾6=“?ÚÛÚ%È!U
ƒhø;‹)`“t¤q|â§(Ë=M)Y»®FŸi¥ºü´ñ»¹i{^™È[Å£N|.$@Ú9\P‹}¼š/¬¸DâEû°T隊7&y˜0x›éÌÕÕ×½p~D`[
+u€/3Ðå9:¡º”ü|z—€(i­ÅI"ÄQZ…—‚á•X"E¸bæÅlr¸†=qX¤HüP*¿UNäÇTA¯b¾YÃF[,
+yæ
¬€Ê?0-š7oßPÿ°ßÞLáÁ8º‘Ûh¥}ažÚ›ÏðÚUü¥£s¢"Ñ8FW_´â‰LÞ(®Mù1®ý4ãe6D¤:¡žÞþ]h¡tó,èò @`ˆ¶úœ'Î2³f‡‹¸Ç?²ùvn½º—¡Á6–½@P^˜Å@mÙßÂnê¦ôÖX$µ8I-ûKŽ·A6B–4ävg`“ØGlÇÚÛÚ½g;ÿcû€«¿<­k–'ÂQb#U, ŽÈI2ÆWg]
õùé$ýâ½’DKa°‘lX:úZ¸àþ8yÔ¯þ„˜«–È-îKÔ$s؈B˜Ðks¡ù¯ è[ß™xŽÙ4ðÝå%Ÿlyé LåLD
+@¦Ÿ¬&†/ú–@3†%׶9•£éÇì˜çûÙEÿ‚Œr’—ߨÆßKÍoÁU4kó¿JŇ’h-xh¯Õ?ZB1g&눬‰áÌ]‡óXÇØd0LÊÉ>v¿rËŽ¢¥É@b¾¦â¹].`xD$âYÇ_kµ,KÄaȶUŸó¯•¨Î[á£Áúb2¤¥©·ñjÁVUà£'b±Úûv~^zÃ|óqÆÓÿŸõeò½A)!Ü3=
ÎGe{!£}ÔB÷J@vA_<6]LÓÂHÚ ^¹¥ÝJŽ¼Bø‡S[û`ƒ§4I<˜ÍÜQ×Ã;-ã7àhk h>6F”·OClå±nÄ/‚Ï3‡„è–Ó{Û~ßš®9lûìû\*o„ÃÇ‘õ#Q¤©
+õ`÷}ßy$êˆñ7Ÿ±Ã7Êì1Ž™­Ë׉H‚*)§0„ü8;¨ºñyé€è
+HÓ/ƒþIÜ,%ÚY);Ÿøõ=ÇGñOOž#€p1);»‘
+Ø£®O_LJ»%²¥ûêg’åvKãý­t…Šfõ¬Ýj‡}殩Ã;TΠ½4§ÀËö~eP÷Æz«üÈ­} ;¥È“j¬R£Z£¡)÷'¾uZÑœÅ3a€ÝövÚ¼˜c8'éãâV·*£á=‚³o”Ðõ&l)*ÿ­b¶S_ó“ÔaxçR·Ò~Á€D‰ñ•8ÔmX¹GEnßöëÄüv¾
-—ÎT‡¸ê[9Š4m®X’;³é!xŒ¨»cŸ^«}›Š™°·.™
+*/'%¨9„s…kÓËogž‚û»€DA(.†/9%:Ø(P¼árÈP2‰(õå[Š5é°þ
Òl¯<r2 –yË'/«¹Š=ä<Ä81Õ{ïƒWA‰À­Ãµ)žTBÌãç}ÒÎŽLÝ_cN?¯ku‘pcG<Èúbvt¾£`¦ ¤Ÿez_Ê5½§³?Û§í;)áa·SÛjÎÆý¢G_,“åÅx([v€’P’¶iw|ÒiaIRRâݳR©Xu%iò¿cFHˆGT€?.=TyØ"+$Wög½ŽB\ÇH™YP~æ¶!UØO–¥qä<ÄÂãhiI$È!ø½~h_®
“ºÁs†Ó`r !ãÏQKÉ­cÿ4µºòáÐãvÙx?ο'0Øý4×t@£‡DXÎJÍ›‚ãüÊ‚uKyÞQZUTïêŸO‡Í¶Âf¾{k(ànL™2Íøàž‹ËŠµëqéÚô\ùc°T.ë TÂOP€ÓEfT×ò÷g>9•ÌÅí9÷%š;Y|ÔÉ>ÓQ¯\!ðc¨èæëSý®H1ë1ú4çÜ00ö!·=ê$R'ø¦U?®p~†™m¡§ñ±'´v‹¦‡Ñ(	?
]þÛÄѽHwp	Y¯¦ÁGƒÅüÜ謮ëâ²Óôü
 endstream
 endobj
-1916 0 obj
+1974 0 obj
 <<
 /Length1 1494
 /Length2 2555
@@ -26109,12 +27033,12 @@ currentfile eexec
 &Ì¡‰ç·Y5<1Bîdlaà;À«9^¿'l„Hn,³ÛúºW˜÷ƒ{ÐÊY³µ¬Ô[œvñ
 endstream
 endobj
-1918 0 obj
+1976 0 obj
 <<
-/Length1 1844
-/Length2 10375
+/Length1 2068
+/Length2 12106
 /Length3 0
-/Length 12219     
+/Length 14174     
 >>
 stream
 %!PS-AdobeFont-1.0: CMTT9 003.002
@@ -26134,7 +27058,7 @@ FontDirectory/CMTT9 known{/CMTT9 findfont dup/UniqueID known{dup
 11 dict begin
 /FontType 1 def
 /FontMatrix [0.001 0 0 0.001 0 0 ]readonly def
-/FontName /AGMCDE+CMTT9 def
+/FontName /BQXTWV+CMTT9 def
 /FontBBox {-6 -233 542 698 }readonly def
 /PaintType 0 def
 /FontInfo 9 dict dup begin
@@ -26159,29 +27083,42 @@ dup 80 /P put
 dup 84 /T put
 dup 89 /Y put
 dup 97 /a put
+dup 38 /ampersand put
 dup 98 /b put
 dup 99 /c put
 dup 58 /colon put
 dup 44 /comma put
 dup 100 /d put
 dup 101 /e put
+dup 61 /equal put
+dup 102 /f put
 dup 103 /g put
+dup 62 /greater put
 dup 104 /h put
 dup 105 /i put
+dup 107 /k put
 dup 108 /l put
+dup 60 /less put
 dup 109 /m put
 dup 110 /n put
 dup 111 /o put
 dup 112 /p put
 dup 40 /parenleft put
 dup 41 /parenright put
+dup 46 /period put
+dup 113 /q put
 dup 114 /r put
 dup 115 /s put
+dup 59 /semicolon put
 dup 116 /t put
+dup 50 /two put
+dup 117 /u put
 dup 95 /underscore put
 dup 118 /v put
+dup 119 /w put
 dup 120 /x put
 dup 121 /y put
+dup 122 /z put
 readonly def
 currentdict end
 currentfile eexec
@@ -26215,36 +27152,23 @@ T
 ÖÜ­“a’èŒîjfnÌUØÛ™ŒÃCž›¹a£t·/ŒÜçÄæ½òvÛÜ×ßÚPqE$NP^_Ù…‚dùèv±¸ö§"TŸC[ þ¿|¨½¦wÒ1|7ô—B%Óÿ¶èf‚£W­"dÀá6QIa½÷Ò†ÅE.á<¾SiœùÁ—Õ™)Õ+µžÌ%ÐÅY`;	—Š®5!‡KoLS»—NÕ’öhPhäDðÚ¶R‘™-¾„®¹Sòéæ‹„ç»?	ò¦åÕ¤S8ûŠ!ª—,ÊÏ„«vÏN²[¼ `É"Baæ’Â5ÖÂ#ŽdwºéW%Yl‰¾~:/´‚>®Z¨;eÔFÁ{N# {Òí}Ê?7yøg
 ˜hS·…¢à`tZ¦"*èQC&KsulÊÔJ·š|6×iÞ$rˆEÖFXggξß&vÊÈH_I«¦)³ÇÝLRá*Ž±·QÂgÉX¯ušV,Ð’"ª%_©L΄¤"4vܹ¥ÂÙ©v€Ã»ZÇõ!
 åÕÌîûßY@øLŠ‰{Ìvߺ‘+‹ÎN*Y“Ë+qi]øî/^L)㊴Š’myß1=óˆ‡K굎
™¯~{iµt{ÒnÚ?'†‡2²d,µä½›ÎÐrˆît‘ß³É÷”ö-¼FÜ…­¦Š¤ˆFlL	y‰fÆæF?Mè€_¢‚Ý*aÁ–Œ¹ØÄÁ5ÕºäÓ½•ÂŒ!»¬‰£d§
2‹ãΛiú¨w/"Ï;qfWò"Ž—^®ã0$go„ï¯aWó¡vêm.üÍ¢BÛÀ/c@ž{:¿d"€Aú·vÏø]P}Cð*&kxÊ;ô¡k€6܆ÒxɃ%ºÕ
^X2ÑLŒg]¡’øó…ÌVm¯·­¦Mhx÷äŸP&ï(Ð{Ÿæò‚gû¢Ð^Ö£Èý	ĤԒË|í±º(ìdkÈå¿ì/¡ÎܺH€Ô”qÏJ'w¬Bî£t®½§€—žgOÝ`O± ¥ßcÔô¹“®\œK*ó/˜Íû´®¸™¼g²9Zö<0väB‘·ôWK=—äQ‘]a9<ÏÀV<-­Meb^|Þ€£q£À"Ä^ÏÌ×&l |ésêgiÿÑQ=¶ÀéõrÓå m[Ò:rL(Ó¸ó…„aXÂœšÃIlµ«eŠøÓý€wƽÑ?Z®Nm‚CU†´úØ
ü‘Ö•;l€Àc;^=§ª÷¼/ÊE#ëà…q$SpÕ	TÀð /.qKAEÍæ6–ñ­¦ËêÃ`ÍQDAϪÐ'Ön¦6O¨ýGÒã$áDÍ’ô[Q»ç8sfíW;hÝ
gÆX_ÀµÎKþVxO¥9ò|-þ÷…!9{ÞG£7äD#xÎA¢Õ{
å“n';-N’±ß_PØÔü¥Gó‘ÌÊÄ}ukpyUÍYB§”UÜǯT˜–HE	A1‡}çAÄG£ŒÀ¼\à–ýq˜ž"úÙB56Ä?O—ä‹á¢`ÅË¿1;T}ÿcæÈ–ŸØú©®ÞcªmãV‰×´€>»¨T¸óOÇžÍI|<µp¨L^qhGŸŒd’ùðÛ?¤ÔEO†WÄNøJa¶<ùöèªLB‡ï±!iFCÒ¥H×ÂÑdˆ;¸Àº„&º£ÃîfÜR™U‘F„ýkU-WUPš±Œ[VJæ¶Å´†EhASÚþb–$“ìdlKòŠ¿=‘¸ô7V_ oTvá¸ÝêˆòʯFDë`>EsÒª‰¶àÉ‹ö4·n"}SÉý]ÄÙ˜ÕÃ&[lWt7º3!a5F"Ô7ŒAºŽï'ý¨"ƒ´PC_#;utr¸M%†ùë~
-n¾˜~fXn*Dã¢ó±¾@€:Å©Y‹q½?ƒØÕjµ‰¾“^cT
{Ao¤b2{q×&“|O8Å0jѼH2£c[‹sZONääËÍÑë(\íwŒ!/ƒV3ø›ìø@â…Á6Z:M  ëjs8¬ëž=0ÃNû~Th¥Ô6~7ºˆudÇÜàeÅ"
-,Vwk¢…£©Õín™qÝœÊE>c™ÏÁ屢8[m;¿{at/Õ⌺ø»ÉRï÷“¼Y_^ó:D-TrùGÄ£*Ë”]án'Áœ³o[{™5çJX¶<É{r”ïÓ<¬•z’÷³Ê÷™»øR£ñ‰­ô²Z‘\qUÖw'ÈÅ `Íš‘ëï’“ÑÈ™4Žq†è«_E—Ž²¿?Ûe –^ø ™R›ëŽ1°¹æ„Òí-=ýÍoWÀ˘ÈØîÁ¡1jãÆ‘~¨#”¶§Z}š„È„:ÛTÛç‘©<¨)]/ïH\KÊ€ër¬‰véÝÑH×Ñ™yîyŠZvõÊx3sÕuàl§äû¤oS41Ð>§f‰˜¶}Œê
-ÞsO¹I«†q®¦B¨ùõΙv¥µt£¹zFcòÓìÊð“eJ-¡qW™)g_ý¨?58RQÔTƒèÜd©lu©Qñ„Wrª9'Ê|Êࣧ­â_Ê8Zó“åi‡'P¨ZÛQÜ’sÀV«hVIu鶠&\‹¦ì{ÏþkNsâZž~ðˆ^IÝçI¿×4•L—-‘ùÇß®@×È/Ý…Ïè7k‘>|	"Š»>u³äœ¬YbLVƒT¢qºQÍpÑ@´˜ºC(nÖ/E¶øY§ÿÔt¼„/
-:4rÖˆd¢‘³©‘!ü;ø‡37öpr ½W©š…&üÙ9﬒p`œªkŸ}¶"ë—K•3—Z¤KÐÌRx¶™
Íe÷0†
©¸4ÿ
-_ã]ª•`eòùVà{)¨éëðÏÙÉ®ª¥d¿¹©Á¡•^Î

N‘—™¨µþÞòrÕöÈ?_O“¤#@ãô1C8¢*ÎÙäXE;N˜†)iØÅ„;-”V^šFè×ÀÚJs=ÞžýÙØ´¬þ‘W0ؤJy¥B*2ì5­®~>
- åïì“i¹-žC
-eÖ‹á Ó‘ùÌ)Æ'åá€*¤Ý •"®7	¤býÖäÁ˜5QñI<…X
!¼jª»|Õ™ŽÝþIÂß\ÔÛu$Ôݶ{èt¦Ô¾0ð2n¹ÝÁäºVa¯gKD¡ñ›Dá׉:¤m´=¥Hzšâ¹=
Z-r|˜¼$Ìì5¶åzYè`’¶4tk‹ñ³Ž“\‰¯
ÝК_Ó&ð‹ÖëgÈ0“³ùïU„”¬%v²¨IOìlŠDˆÿm§ìþ¡3㼸:Îع‘|4žH]P_ðByƒAéÞ£¶ZaÐD\„QT^g^ûÞbÀÓ; ’X->vÞÔÀb 	o£f½,tHX?`jÚ>Œâ0»%OA[#Á‚˜™ ð”¸®’‹P¬Í£"ø^ãtóüoÖ»IÛ¶®aoÚ|Í+_´gAñÃ,¸ôÚd„;–ð®;`ðÅI¿ù@ƒy¡î¯ÎZ6o]Ãr¼EKEïGÊoˆIBðr•]æ+GfäèñuÌ5ÿÍYW;©V„“N+!Z–†—Š»T:¼õªÚ6<(ÜØg}¸^SOÆf€„;ö‡îžt—hQ¥ùÏÆÀÌ‘›ˆÎ…ýQ=ÒÅ*žŸÒe9
	«C|­’€ÞÀŸ8"}ÁŽƒÕìb¤aÓáG­œÎï»;–¿^"³Œ"EÒ¡§K'b-<¢ïØ°f{ÑɃ–Hâ
	‹"Úð†ëõZNƒ” 
-»£/ˆ¼µçƒÈ—Ë‘dÒýßMð6ÌÐ]±%¦).Dki²(&·à/Î
-­
'pþùŸí fÚ;«Ê]E‚[NûNö™Œx˜ÔßGQw
-6jÈ`/ƒ¸¸ÑFߧØ6°Û7ùˆ¸Û¼ó¥	@¦ÀuØ\ÁšyƉï{mÞ¨,£ô±_ègÖå«—©
-fÜdO1Â,/Qê•–%öæ…6®<¢oúy·Î&Û ê­¶£¬5š±
-ð0Ý©x:~ªƒ…ïŽY+'‡bnZª%ù¢ëtûÕ;ÿw^+[,EÎ”4·´pÕÙª©7É”w¶`”ÓûKo¢"xñNž?5g ŸY¤;Á{ûBº
-*ÕHHóGÞ‹ÔÃÇïôξ7›Ý¢*PÞŠ™
-ÈSe±‘ë^ÜÃ{€/Äf˜Íé¤jôRR”¾CArƒ^éw?TI4›YØ
-ž µå;˜5‰X·At­—1)óáPhl@Ü%ÐTMXQ…·#]ö¡Fvgu¸8Š³X±ÜµÚÓ0ÇYm¸J‹Ê›ˆÀbH¦› H)›Í†ÿ0Þí³NúZ{-þ}f
-ÀbŸiØT}µS‚ñ•qV»)Å×q%à=”jóf2)”Ü6¥‡¯× C6þEüÃ^{Øš—0j Ö„	eú=!Z´Àʳ‘‡F
-àÒCpHQ6'V#QIHÏ>›£~4˾ɎîFFãÌŠèË͸™Ü"¿×nÖíÎüCÉ¡!#Ü4m&ç¬j¹|Ùв?ƒ©¢ÎµC? þÅÀz~×~£ú_	m°lÎ\(~Üc©°•üvÜÜ‹¤ÞÏüû^´åð¿zU›»üè‚ÏàZF+!PÒ
-íì‹ZOéïæCÕÈhïPo-ÖMÇÙ»QpM=î…Éì
-èýÇ[•F†Ó-ê'1H]Rè!Ð×㹦Aj´é¹7à.
Q³¦œ­„¡¿ï‹@QØîŠ$GF ¹ÖêL¼xÕéqq[Í™ešatn"\Ú`ñ²©õ°ÙXñÊÿH~÷ï¥Ûƒf¹fdºê`É^½G¥ô½«Ið¸èVL«£ïgÜKÀü‡m¼+õ¿í^úÉ›v[éú±ñ§ÝætÝ’'m‰ù?ôá>u}Ò"‘ÊØöëbìö™v~"äóS%º  L]Wòþ†%o´“9øF¯Œž"92ØôA†#Å¢=*Wa¶Î/@¬XZílãXŒ¹'ve
+ˆp8BäJ°ŒUõŽå«mš¤3œònA™Õ&é,oXØ4 ô°+×A£‚ÛÍéÏÒ¼4ßàÃÚ“n›µ«]âÃä·ýR½¡Ü½Yþz»ÂxH±9V{ÐR9’÷=3®zʵ(6Zå#:γ“žÆ,a»Ï†×¡ÃV!6"ÃDiu…™×‰Î•q•`$qöìvËN†#/˜„íy§R!Ò£w!ŒúŒäÑÿ£¹BÞbðNo¿ËaÛîõ¾l—ûuô£´¾Ö±ã¯$;z×/hm
Ä)Ò×gJbFòLaÌæDËlаÃl*,¨Tóò`ééúî]¯™xBfÖÌøÕ$F™¢Ç¡÷OŽÂO–Ëih$ÁGÓN×ÐEk³ë€9ˆöæùˆê	4A†<Ëc›ÅÖ]¹t©öÄAYÄ'4žgôS¨d9`š~tµL×}¦Š+ÖFÖ!:¿<Î(rµ¼vÈû»EÐØðÆÒh|˜ý*f®Ü/±£?ðð£üôÙ¢k1S,ncðà[Ìúûg̅ЕJEÂ	S=‡á$Mz#¨ÖƒÇ",·0FwŽ›ÚŠ·£¤ƒ‘—¥¯²sd+¬-S”OGäRˆÕ{⤣H¸›œ±*<8B“º±óñ{;%ÔG{Ýàì5ÝÍ3fˤòã7U€ÏRŠŠÐ„×faO0ØW7¤Jz:L8E÷ÌIÃ8}ÝKC™Ê½ucƒÜèèú¯Óú
{’)fq ÙéR§À¢\Lu¼¹¡ŠÅ6<"Ó}Z”%íZ_ò@J3h‹õ[šM$;|ÒIu´\ÌÀk”ÃÕš·àR)¸‚~drðÄ,ó¨Jg“V§ÙvXî•+ÌùÌÛ‰æöm¨ô!b&
º<#wÔv¹ë€m
+ƒÀÎ-±ï6û|û …»ax<8^ÎécNEnV¾‘`uûÄ‘@k×n;•5áÞq—Lä7Zæ¦#áò-ö¡fªæ=tú“@¦ªTXšŠÜ\½ÁCÕ»
+²)?†–ªtIßC´ƒº¤[Þk…9Ò$´Møöu«®Sñé8x”I´½7Y„#Ñ›º~nãfµœS2¿…¹j–°¤r̨“^Ê	vƒŸ¥ÒŒX͙ȱD1·-êÿBþlßQ­p•>X¼¸9ÓÏ'¬qQ@µÀ{ÄŸ§ðn™ù઴œÎ¶Þ×Z'v³4쓪ӕDºúîÙŽ»-GºîÑáªJÀ8šÊáðY+:âóâA<ÇôF&úÜÑ3'Ë]˶qȧ–·¸òÁ·¤äÕù 7׬ÆLà”ÿ O|òg¥dÑ–ÓÏè6hç0ÿ£Ú%ÎPL•ðƒSÂñañ8ž R>?ü6æq¯Â…$¤‘ø‹Qø8sZx5í¤TÒxo†$3ÂãØ^5êt·§áhœÚ¾Ä›èÒ~Uƒ¥f”vRÊq{oíY“—00¿4¶W2ºö‡n­D׀Ƹz¾ã§[›žlÔÜ´ûÑ;qÛ£ßóâf…}å²°¤$ñçÄ0¸}Œ¢PgR¸%Bîu0³Óí”Þ»i[(wí4À’(G§¥"O#õÅ-_ª‹jó5E]WÊÍhíˆÒd]ý#ñÓå‰_óúȋ˘†ƒÿ"ƒ€Œ·´äëõ,ªª	Üí…ÑbTlyu~‰ôCT…C¸þî•Qªyb9›6›jÍQÉÍ$1†Šq¿JƒzÕ®Š°e4¦ëÝvþ†ýõµÈ§ƒG%Õ[)”è¤}›º@ìh],l…u2‘—"t%åãE=3jI3Ï?èÌÕ·8‚›G[Ñsv›ä³hÊvì!RÔf1~ÂãYAQ
Œ77Œ½ú²5tÇc¸Ó.,ë{ºr]‹,ú’“õxôæ›wÈ€„¢X.ð}Ãuç=Q°-‰–U>s/Þ‘˜/;v†e)Q/ñÀ?§üê…ùÎuRT
+«ç>¾€dýkWÇþB¯øë¾&¢’ÃèÚR|S }Ob¹Öƒ˜mLjH'ØéhsO’gëw¡7ÂAeìÉ
Ì>M«¡©w§ú–_bó'(>+¶ú˜:ù¢hÀÅ*þÛYÛ&Ã쌢côômØXá݆ŠÇ@åˆ>ÓêÖŒoÕ*‰ˆQ
F¤µÒC†'L ¤Ò쪕Ën2¶s)|LêÊ"Ëóë–²ÀöTE®°=1IÄ(j臗œ/ªLƒè@„Ò„ÙVŒ §Ïù$½'‰IV¬­–Ž‰É_ø:ÐÚf;z8˜®cë½üÕ›Xè^§@±nÓp60×Ü8׊…iÒ1”4®Áæ±Á…ýÎçZä…×µö>8¤ÿKò]•ÐAÖ¸û?HOEW/²‹Q´æû5NÒPŸÄo;&[Â
+±)D*ÞŒž\ÚÕÖ¶d@aTÁ˜À`£Ùk"¶}EÏi4$¥žK‹ÖüÈx…‰»Ì8}g0Ϝǩië}ªüÔÃÅ^½':ÞÇ_óyZn*Š/!¦‹{0*öÒ™üA`èäEÃT:‹ñL|Ì̬Êÿp\cL7ω²¡ûÚêU/’â³ýè•yE¨¾jC9ŽÌHAòèw4ßÓìòÁ?	Ø—þß•¨“øtD,wgþD¼ÄÇ?æ1ÏÇM ÅVSÏá¤ûGáºx)°¨Í÷:­Q†É­o^ÕHžåÎÇVƒ*0Jó:ÝlŽ+h³FLÛ*+Pd‡™Uc‰ÕÎ(½öoü
A•[ÅÀÇùj0p$8æˆMFFi+’+ßy•Jq‡ÍÙÆIÎ[-¼þ¤—i­¾¶m@M9õZ€?û7•QE¼­•œü»
+VÕHÖ_3™ÍoZ¬NbüIGÿ´ÁëÊ'ûñ›ÁB©²g
ˆn{ ~‘]Æ/JÒL kY©/Ô½˜3‡¢DH´®×y¿+äS@ø4}¶'±ysv·žMÄT±m7@ÎJ†rŠ ux¾xŽEË/Ùª.©E3綴Í=öNCÙG¶QvÊ«‚Ôb8ª¼ÍvwC®GË™£ Ý$ví™ÈŒJ› Sª*ƒØÒ«CTenBüœ*þݯzƲÝS_I‡Ñp’%PÝfp²J_>^x~
Ã8¤RÑ‡EZáTåyª¯„>ê±°&E-ŒlÁ:wc€XDƒp¹
+/Û’¦ìô‡ÕÂN}ÛÖ°õ²qÑ:ÈUC-þ5‰È¡Rº®§J©¯û€ù•†èf2¨ÊÑ>~É;vM:!ýý*â5¬Vcjpp]Ÿ13‚¡SšþƒìŒ]fyÖþ:Òà KÆ@ï—¤‡˜’æµSèÕq›D¾’^Éõt*! îY¸˜ÀÅ/lÀðïù¹WÜ"IXxNy=Ï+ÛfîE´¨PzõD‚ÿiãô°®² è»>Ô…aĵàq[Àåõjåm‡R§Èke{kõxe]‘;Î_ÿ•Ž=J§èYiÄžÆw/*’íaq°â_ÇLÓáqߨç«õ52³ðŠW
U%r7õéq&ŽtE»ÃÕŒîHçyß
QMøcÝ(­jg¹u7ñSÕxã0p®ŽC‘~°ÒèüÍ	_ “|NêåµÛûæ2s"@hò æj¬S‚î1›eɉ#ÀIË4R'6ég¹,‰Ñ÷”X+Ê)¥•Ýãa[TÌâi„¸fdà+›8¨ÜTÝžõK¼TÅlTâê6Ëø•Ôncwà-‹°[¨’E䯱¥¤TìµGÈ?Itr¨ç
ÑCe1K³¦²/Ô0GØ'Wí„¢´*sÅ•S8Ê-H;×Ö`¼fméú#3ªt^þŸ”U<Ý;YãÙŸŠ£“?pɈM|*"ÑÍ÷ÔÐPµuÃ%v!&ŠSÚ	Õú»µG×7÷ó9œ·HÅÒ¥Ph›õLXGÓB“—Ë)xTIøÃcó]Z¼Ÿî¸p0k•˜®›ºÃþb|Ë
¿š£„¿h?%ÍžÀ…2͸t|¨î
+ÁíôÜ/S¿.FMË„B4Ã4at&š	øy{¬áswfnB–Rî%Èv—ðó2¹ƒ«ôI¨÷vÓ V‚±ýÿ9 ?…Fú!AN„ø,?˜uê6¼â¡uÿÜýUö 4…u±XÙf†Kæ»ZS"ç@?uîãÿhQ+sët²'ÁéMš;ÜÅ|¬ÌîíÚË¥NCÞ9£Héu
+À|Í=ízÑaǹ(b•œi¤¶¢„Ñ)¼­·Ò¾ä
aÇþÓ÷±¾xªù.,DŒž
f{­V)~?éûEÏ_Uñª•ƒ÷ÁƳ«GsÀ±Ú ÒëMbl«hc{sú´d¡‚ðrÌ=-š4°)L<áU\éHmRî¸7Ñ™=h̼¢¸K8Y¢Ï¨”KÞ§
æYâ’IÊ¿·Ø¿fÍ™=‹,ЙgF;)«îxë‘ÜŸ¿¤ŠIíOGÇî;6Ù±*$§5Gi‘BÀPîe©CGè÷‡£ ¤£íRÌ?Œ=Œ‚_ÒçÊ>„1ŽÁ¾U²¢ oÚ7wZ‰){åí£‰Žã.z‚×G£›`„cÒƒC&m8Ô¼w´6Þ¸©…´œYØ Ó2$bP:àðʼnØ\èG¦Y‚›Í`©™1¶TÅSN±ë»tvŠgÉ`ŒzÌâã{	Àfkû)¶ íüøÍ`!QGrUžj9°½iiw¹k¯±Vw5iÆ $Þ^òðÉè’_BíªÏqþçî~y;4TúÕ¼äÛ¦¯†ÓÔ	2†5Ã"ÓåÒ	Ë•ŽU±‡\ÊÌjXNßä¤ xÕ
+Íf‘­åÛRôùÉXJ5&¶*çuìfX¸m1N”é=ªV.•c¯·S¦£ÄpW ïìrËÆ¥
	9ýžþ>–„”Þºµåk¨|‚
+ƒ¡ˆ‹˜ÍtºgŸ9ú*ïv*Q'…wwEèÊalAòã±®¹@ÂrvÏ·:m{C{çÛ‘8aný}>¡·lNüI…xY.L
ô>*««¯0Q¨Ø¶àŸ#¾ÈZÓp((œNŸQý2E@ôC¯¢%Kn˜¹!ë|OØæS3½XǾŸ†¬öÝ3òï´A·©£¬ºãÞßÒBYƒ˜ª³Ùìd1î>ÜE‰„$5ÐE3ðúï»Ëó%?˜ æÚË>4Z‘Ã|mcX<ÆÖju—pe2Ó
˜¤¶àVzA•ûʲíMqœ¡]~Ž@ÕÝÝB¸Àö—ððöC×ÒNapP¨ÝMVf³Øå>÷¡®ò+´?+í¸^;¿+øÜu,¿ ¶J(De¯5È?}wTK\{ñÓSá˜ú«›dšÜ¡e(¶À¾zb«þù(a/÷OÌ­æ`Ý@èø¢4çÙB:ÈAœ9Ú,.dƒWÓ]ÀNÆ°N0aÍÌì}ÉÊûP*	i}¤iriûÀ­’ÐtePsªÞç.ˆ›bé~z×ÇÎHòáÒ äøO x5ßµ:Nºþ綢Sr%–¹ÿ\¦#­CÐ=úÅä›í(ÍØ_”eV­4Ç›§ºÙé0"½âÌhÑÚs7::`Á¢ä cü:(à;:O}JB´Orßµ
KõQ'·Bö±*
Ëy;8w¯ÑÏ©4ë½>@rÀÐñ8ìv#ÅW6:£̃d(èZ6ÔÚŠ#ƒ*³ÓoŸ»,0`ãdÕÆeÒ­n…¬½È‘˜-õ³„CÊ)„P6«å¡b*&Âaâ9·oV‚L“°ðH³hý…¦¬Ûfþo²™>¼t[Dš)i:ü|Ûóãói0Í"§g£JnwÏû«ën¨ÏàÒE5
+ÿ[Ð_s‘–]júç|#÷f>[6³µ…Ü@@¯Œ<×ÿQe
½ÚE
/@8	ÿ€RÊìdÁÉ´–ëÿÜê&y.¥MúŽ"C‰I”­ítŽËê“y—Žã&³ËÛ”Â2"ò§n}ÜÙ’ÙÌdß‹ÄiàÞ`càFƒœõ
¡JßC¹‹ EMãitÑÑLS~ðNÏŸ%Ò8)&>ë‡ÊVtâWë£Å=2êfý	P@ÚÂË)iå«>êÁ2Í!fQ²6ÂÃ!¤àNëkb
×N´iXWƒpu*˜½bá®c<2:Fþî’¢ÍHùŒˆ¨¢MH„2ïK|Õ§›ªµøX©^i?HÁûÏZÖ¿6±kÜþ^Öï°Ê ôšÈzîâdÔŸQÆrÍÁ°²Ä+±¶äjŠÓÙ®¯ê½× iƒWÍØU
’¥ýÿxj™Ô\²„åf1»×¯ÛÊ)Oðq[T7NÙÉUÑlŠï
 endstream
 endobj
-1920 0 obj
+1978 0 obj
 <<
 /Length1 1173
 /Length2 2916
@@ -26292,7 +27216,7 @@ s;
 ƒ$ü-UÒÛÊ3¤³#
 endstream
 endobj
-1922 0 obj
+1980 0 obj
 <<
 /Length1 1188
 /Length2 2740
@@ -26341,12 +27265,12 @@ AÖª^
 6»fžÑrº^‚7£ö1ë5aj³à¡Ašº£¨nWÉ©!µp©cílov®>ÕªI8©3!ÕÜ/ª˜	JÝÚ?|iî$dØ_ìñ(°/;Åb÷üÒ49Ãï•Û%X¾eÊal¥Øw픋v_Õ̹ûœ@dr®Ëp.álä§<çêÉJt~½ŸM«÷[£†yœä™û3¹î[Î{
 endstream
 endobj
-1924 0 obj
+1982 0 obj
 <<
 /Length1 1614
-/Length2 21952
+/Length2 21998
 /Length3 0
-/Length 23566     
+/Length 23612     
 >>
 stream
 %!PS-AdobeFont-1.0: URWPalladioL-Bold 1.05
@@ -26371,7 +27295,7 @@ stream
 /UnderlinePosition -100 def
 /UnderlineThickness 50 def
 end readonly def
-/FontName /YWROOM+URWPalladioL-Bold def
+/FontName /TVMKYN+URWPalladioL-Bold def
 /PaintType 0 def
 /WMode 0 def
 /FontBBox {-152 -301 1000 935} readonly def
@@ -26433,46 +27357,43 @@ zV=y]
 •Æº÷ÚÊßD2vɧ©{‹	u]=áqéLÖ¾Ö]Ê4¤¦$[Xò¤‹ÄÔ§Vùƒ$æIùü‡t\¯;<î¨MQæÓ×oëŠ×‘œ;IÃÉMÚRîI³¾œr$šÛ!e†‰­'æÇ/mÅy’9a®\!´ÔÿUgA¾·=Þ¶ŠM	”ÿV0co>„(h—(GÏT)¯¨×¶32±=-™Bú²-fõɈ\ª9l%É£Ú“Ö¾|Çþ}‡8tMˆôvzÝý¦¥ÿn:O¯È)N„»žHí
 ÈGÑcFÚP•±^×|b‘±!U4™–?ûà›/¬µT=i?˦[æUÉÀ0C¦ž³XcS.è?®48‚.ñÁ‡i÷è†S³ßÆ“‡—ôÊ´lHáð
 o‡ò'kDQ°sÿif½“ ×g3‡ãn¬$sAJ®×þ*Ç%$1o‹UD ì½|—“É£‹ß¼[v«§@|“ØáX Ë3©bt‘
'aO=®Ÿ’ÕÅUGc)ù­”Mò|ü¯ŽŒa7lüÇ,å+Ûý»ë{ÀZáP{H†ytÒsù’5üŠwõ'4c5^ŒFÜó¼Ë¨ŠŒ„Í@ƒ2ò5~#ÐfÚ3‚·Pš;Šd„ºq>ŒT“èþJdšä¿jáeŠUä+|œÄ™]k­HÔ_}ÔwçœÝ7ý°q1~¿…áL(7iRsƒ‘Wvœ‹ê}Éö˜AÀf‡µ½—?{ìù	B15Ý+Ž8Ã*A½j ²æ„íøìâ¹Lª”ùè \3x'ªEbˆD¥Btÿ.Z‹Äúµ#Óž­oþkÿ¼JéîJð@ÝæØá[)\
-hj:úå¥*ú^_8Võ;àkž*“¾cxÄ«y¯£ª1[€ 
-èéZ쉒}qiÏЗÉsƒ“e)XÔJiÙԢ̠k)‡l {‚d»
k´`O”ÛmáÓJÒ’5¼+ê#>ež" IÇë×Y˜,¤«ú?žøòÄce”-ÚXUeYÍ‹¿îБ—ûr2UgÒYô¡ü¤kb†¼ï‘jf»ðDÙ2ƒV#Ÿoâg:MÍ¢é~Ó-	ÒL¹}ªäS§¦Žñ£`Ÿ_|)QLvÄÐË2.ì»(‰¯k½L÷ï{â„žbÕÛì´˜ÖéXÕä|Á.&)†qc»°WÒÓ;(
MëŠü¸™tÏG—i€Ô±à0®Ç¬Wヴî²?
[|t˜Š¢dÙµƒ/ÓX ™Òù©üDÂ\çá)Ë6[Ñø’´l#5kîÐÕTÈ-ð/È=r´S`\Àª5W8ögPv€uD<}Ù°FØGó]‰‰ÒjcÑW©<œzPŒš-±Yr	µ¯ÔQîî¦ÃJæ³AúŸáU®ð—BWk/€
-nÔ6v˜N•ŽaFð+•or«½­âƒ}
-ÙEý³©zö²Ûqáð‚œ±ÅG¯°UUr§‡°Aã#ÆÖ»wÌíIš)¤IH³åÑö›QáuÚî5šÏ·d+™©,seX!e™(n×
-Ýøø‚qD|
ûHÕQÎûåT×Ò·pÍþ—5Íæyý²ÅCƒ®´‰‡&¢Jó¦¨oÎT £ÌÍé»ãŸò¸Plôíü’¶DrÍCl‰Œ‚GAw»Â[ð¼pøV“ò îtž&0ÃB Ðqƒa¶s3h3ù¼¨ìz:†_ -ëƒï˜@V"ê–bŽnu5rPѮ涼²€û¢þÝ–ÒêFK¢ÖÍ#œª>=Ù\zïç}7Ž7	ÁÅ©ÅsýT7
-EDª]¢¶º”£îí]03TÃHQ߶’à¢é¥vW¨°B­}ÂïY$´Ù˜HœbCN䘂´lÇù^n#]ã½Ã™“èÉ€xLqU¼ªµl¬Ì\
ÔO75úÙS‚ñqU6ªeˆô*ô8	dô<l™Óÿ^WKÚ©z2s¯	ÏCÕ 7u’Síµ*µåõ–\jñý]…#ö?ÑìF½á–'tUY¶ Çád¶~P %7ê¦*Å_ÁôÁÔܸ{âT7ƒÈDDrĀžJÖêÓ¦sJÂ<¨®OTœZÂãM`ÄýæÁÿ‡Y×ùÜõÖ|б©#.ýüGšùfr4ç¦70ÄãØéò1¡HmHu¸tŸÑA÷òŠÓ^K†òt«[ªRWÌûÓXl[̇‡ÿÀAǪ£—(F!
PhP²™ÉB ;â!“û6ÔÕg÷ÆÒmPZx­­:ãÒ©àŒF®²5Ž&àÖ`Üœ.F`ÏR’ŽLuƒŽÂ`1ÝU€ÙUähél¨úV…]©öïÀ–K(Åí‰ÇÒÏšLšÛõ§Uy{9ÀóT±V±@ºÝܾ¯›Ñ†ç6N¯ÍÖ‰·_g3Ò>eÍùßR?Ì1r’JŒÑÜœÛ~‡[u1ÍÁc@Ç{6¢O༉O–¼(†ëõW´îS2›+Èßv×;IQLfG·;A¢vhj£QBö˜ô´zÎíŒ&ÆsÀ<Žý­IZq9Þ·†Þ‹5
Vk–Å]¤ý’Ùb)­}9…JÍaœ:àHøSOæ´lú[]¹¬FÞ™™â¨=†Éø)n-õ!°˜í	¹Zd¢.tfq‹‰N•„ŒÇzó¤mÛ©Œþ©lϹÚÕ¬»tªPWã©ÿ{=¡-Te)Üw.Ÿ¯ä¢­Ÿzt/eßDá}	*iŸÈS$ÒpHKý¥’,º%öO)¨^pÅ8QÒ]ª±Ž¦¡WãuëÄÚMj²†®n?ô©ìIÀ%ª¢ÑlݶqÌY¾Ë¶v‡†œÿ ¯"
-áþ¨#Ù€2|Ö­
-EI¾jj—Dwè2ìžgFrhøéÕÚBz×ágÉT&ú”÷Þ[Œ’s8†§»p‡á=áëgÈxÄû©¤Ç	.€2.©Lð¥´
-Úh“Õ£ú²\oµ
J^©.aV󎨀À8!UÊß?{Á°sök˜/Y ¾®&—K]¼2øHˆ·ûïŽì©ãÁEÏ×fáöKÑ¢uݨŠáY\»qåÑPQU\|'Œ)Þ&ú¸³!D¬¾èÀ’õ<³å'”7i÷íGPéÙˆ)bc@Òò°?©{n™V0¡öêaK CÛ½ü¬´§[@¤CXÄ>˜”B¡´Ë¿ÈÛ-”M«5­¾s.-˜øƼ‡#·9€N‘v?ÃáÖúÀv£¤µt3MWõtHQcñV8¬Ž.~M€7Ó2Ç0ʘ…LÖŠ©#{üB4þcQÖ¿;÷?HÊÕ€ˆƒÖÿYØÒ¢€gÆ ¹Z^¹ÊS,«Ý"v_—¹`ãUU‘£hÑD%Ú1"‡•=Ê%对$2ÓÒLLØÙ´ !fªñ·µPRZ½°2‰Ñç¢&%ìŒØ$˻Vè¿Š@3ÈU>¨Ô6}š0ElÅÉSÚClêËUb–bd2uZ”}]IÍâœdSú•xFæ…feÖÞqÄô)¹ß2þJ~¥\!N ÞqÅ
”.DŽÔ+fæHå:¶Ü‘’Û""yì7 ¼'³ø59Ë£o±£q"gzßÈ	v[[úÞIq_ТæÏÛÀl¾DztLiëT#˜:ôõmöÄç·ç—/¾›ç ­iÅ¢Ôb‡‹ b¦wpj_ÚãÄ•.q@(ÄG4Êî ´¨ŠDÓë¨ÞôÊF–¹Ë!WÞáß@ýÄ4”c]|öÜúXn©íAZq­{X«|ËÁ29ET„@æP%õ’‘Ÿæ	ªV®Jqw+Âè¹d>§ˈi˜^Xµ#œu…û[Fä|0žÛû"Ï!K²¨pwfªÀ\¡è©™^FѲšKB>ÄÜ–o]T`Q–dÙ,®™,¯H²(´AL~à™AQBíÔ-#>¾¥ÊѲ䑄"—ÿùñu& U‰úôŠ¾ýD;Nb@„×öÐoM²%ACáfg§º™”*û)}À’¿¥òå·ÃYª”\û28>aQƒ|î±õ ÔÛB,UªÐMüÎÙzºÙ ]¡Ì¢*ùý´@ÒïìÃfGÆÃv^ÙŠ¥‡L
”̘9²`i`HðS=ØV@iTÏþð9ô=*£é¿_Œ¢(‡¡{š45ßA›g„‚`²ïõŽ|N¬µ-ZSâ#w?n–'¹w‹‹Ëð*íq=P6w6É)êŸT—|]y´É“ªÆWãèM#…5:.½!PV;áè@¹\ß‘’œ	â„
ãL²´³ž­ù¶ÖÍK
ä*—
4©4¯è¿·…ðlÞãŸFl—q™aº£¡Ö®Ã˜VÀòY',#]×Õ”øbå›ï‘¡"ž­ô"È¡ò¿íÛ¦ÛB˜ˆD‡òÚàƒÑž–½Y¦(”IžýÈÔ‰_J®µ¾¶ìI%KD|ÈFNæÜ
-IÛyOXíUb³,Ëûêé®W!ìQ*PÇ*_@‹GåÈ("î‘Ê_TÛ•Câ¹¹mvõ=íììæ1½¬1]”› çw˜Wj(¢Øß©ÙÔâ^%é*û“X\‰œr¿×öÃKËŽðó¼IbGø–Ìš×P°%ùOÝvc^EýÖ
ÆŠHü§¹­ÿJÌÂ'Ë6ª;%7¾Zˆ€Äø`[26<²F¸3“_ºåq/!*	s¿ÜÜ5’†Ž‚¡‘Ý9Mbá¼™Ýr‡»œP´?¬ð0Ê•½¦Úœ…Á‹²Ôê{3¹?¤_Ûpx›À²-6ðg q(|Xi‰FÞpwÍr(û5Ò˜È
Ÿ§ÖuV¸ò«LÐGÛþ§‚·<ëž!ÍsñòÕ™‚RæœÞ6Sÿ–áy¾±XLfÎH£”Ê dúHA§’–Ñ—éa“4"”%ÚË	å°̸aWo©»XƵ,¼ïR‹*‡Ûv´?µPØ7APWuÙ}‹ûÔÆQ¥øÍÔ-GöªE
‹OÿÝäEF°¥'áôd☱¿œ<ÎÒಚâæ‹þTBy1¾‘”à,Ï3ÌÚŽoO
-\ÊñVVnÍ⮉üž7U’ÖZŠ/±/–ód¶Ù×G-uÂS’ÂÅ,7h3ÌœE£ÛXOC	(ôµ—á¹2
-ÓÄÎç(ZÊlš&Q1®H	ÊÆÙOlXØékÍðž‰+kH…ä*TŠg	
¶”…}íÁy˺-âK÷0_|:
-i‘Ôtœn’âÃ-2y;‡×ò(§m&ÔÂ6‡š´jšÞ³1‹ÔöÚ«D‘ïPÈmÒÀàù§ðt‚Æ}O@FÎÀL?>±p΋ÆXsL¸Eb¤Œ%ãÓB+Ãâö|Íè¸Ø¯ÕPmws->1¼EDfÙOobC-jà’2>ÒI®Á2{Ö­tI¦á€}XEX±Íˆ|ÑOÿ3±ñpÏ8SؘÕhSƒqXH¿=£`£Øλ
-ÆX‚U¼É;h+o È^:3w3Pd¡'ò¤’ô¶Æ›ÙÙ×Kðoàë-§úzƒPªg›,7k’úÌ•Ž[¢þFö˜_:A»¾Lº+¦…c7IÄ×°Ù¼©ÌÊGd÷ÀÖEÒûÕqøÌ£!5Î` ö"(WMœshÈô¹Ó+2*ÂðCþ?9’|“ìRžù^ÑYq6—6]ñà»Úýf„“NâÜb[O mËti(ùdžBjOq"²‰‰¡±*å‘>”à1½7úÃÚWü¯CI<'cX¸ÒF³¾K
-Û*€
-É"&	F˜2
-6ñ™‚r¤<û¶äF޽ЛÄ%ý}~å•­²òêG²óOàš°-^em²°cv+Þ5“Û)‰PV¹ô×b:*Çhˆ&þò>‹uT+ÖÞ6'ÈÕ7³§ÜSiÅ5à«`y(ÑA
ÉØõzØ…¶8‘Rà/™œë	OAQž²9z¬bea&•–€&›ÜYçˆr:ˆ³Ü¢mµ¹|–ÎMkƒs‹ÈªI.‡˜ AO='Sì±8ýßK×fë9Fô¼Y›ð€§–ªFÎ=å>:&½ò4Ð)(Ø}IJ7JA2¨¨ª"e2–~±ÙßVF¶\Y¶*°‘66Wjö0C~ UÑ¥m¸ølrõµÊ1“oÁ—¯d_é;?kõ
 ¥Ç0„@_6ðí/¢ÝËÀ°šÜÿa8YκP‰t£?Ç’e&è5Ð}7\^FŸTVE¦Ãébÿ‚¨è¿íƒ` N7ãåt½}aA<£ÐøÇ é)GøBf¦G|
-egÚF»Vµ„Ç™cHqåó'h^ü‰‰$iØw¤Gš4:zÞÄY²±Ú~YùKJ+á	Ü®\üÒ¸r[õòbȶ€nÕ;›§l-ÂзE},ö*¶»>alšÚ|F6Ó¤—ð?¼“4"·üD^'yž“'ð	ÒI²1£mD89CwÝŸ_ûšÀ*ìÉ’¬Xk,ï2Ë4»»zµÙ^OùÁ¨`îÆWíIŸÔoÂ,˜"Å_ˆ$óƒY»qí— ˆ§(¥Üè·Z¡†Þœj„ONÅÎÛ(Qÿ.ý÷ÓúwŠ'V±Ay'hô­jÂm$ºñ”]ÌÕûZŠÔ6ÖÓäÀ@Tf¬u{öÄ
i &ûæûf6]ÂŽÞ;ŽY0Âíl7çO"„ºvj€þáìJ£”Y:‰C«Ž@tóº‘8Ó"eS„ξxV!cÕH©šèt÷‰óüèù^›jƒ÷vx¶Báè?žñد¿$¸3&ìyAõRŸÈ@6É0]ßgUP~ˆaò×r}Þ<ªœ¯<w§RuñënVœÑ5ȧ£¾¦Ù´»/#Šš$&næñŸÊ2 3ªÑ¾Us9Ÿ•öÅr¨•8$ª¡ÑðòX¤_ iY£µ|Ùp=MÙ,„³^`ÄZ>J-kø+§c‰¨›/Ÿ‹{F ^ò}êoà–±™l±AžMÔû–eiLqá‹ù!üq?ü½ÐíÇIHæoȶè{»†Ì!Gƒ8™búx!ÍxÛÜvd¸ÿ1æˆÛõ€˜„§çöOÌH÷Pu‘»ÖâÚYZŒàé=E¿Æ6‡bz¤QÄæ—W¿rrF×Üdïù``ËU£»>$Y¬!¿ÅIï—ÕwšgbÐZæÌ?2²¦LþŽá8Ëú0ÿ C¾ò¸±ã,$àmä3ÿá„…´šÀÊVô,
-{õ{!ú'VâÚ“0Ùcu(Z™¦^냧9;i¨“eN7íÕyÕ‰ANYCk8¨uÅ5ÖŠnü§ì£0¾h¦ÖÅ7²÷ÞPˆ!Ž“$&Qöt<ÝÕ_°™ƒoãÞÔ’€²ÿÝÐ.gŒC‰óÐ~Рø{-öŒ¥Uz·t†£€þG=Ò+hã
-]ëÀbD–D7j¥“ XŲ"ÑÌ£MÁ	úŠY®ˆ‡mÄf‹
-Ÿüà šzÞw°Ò
Ùë%±3$»elv²t °“¿ûÞ3n óƒºB–¶w~5™Ý}Ù'9{åÞ|Öÿ4™ñº3	Æ~èØëà02zÈMù<ÎùY'7p™vK@5É{ßµÉÀn+ Œä7e…V¡â>'È2DE¥¡ôΧ|0XvïÚ ·¶Ëä{l/è¸ÃGèP„`8›…M³l~‡À‘­+×2+qþWƒ5ƒÎwÖ£»Q‘ÁØD‹
-…iÓÆdZÿg˜˜ˆ&5$ê:@#Wâ5|⬥ƒþ´¡|Ym`<–ŸB="õ5Þ?ÜŽP:Ð"Š3›‰V{x´~	s„žã#¼­év$*åcjémÑ?Xªó³ýmK‰ˆVUŒjŸN¥t(5a4ÂÞ]ÛâÊøhÙX®@—=¦óî7ŸŠëL‡d΂HÀÕé‡m¶Ò<%dŸ°#Êe$¶²Xí±~ ¬ÿN^¥ìËûJ>x–-P—sÁ)6P9
-½c[)÷7ØâËY½…¾]¶Ç7/´ùŠ°dgÎj{ÄMÇûÇ¡ü@Ed^‡žËœ¬ÂËÛÕSW:¹Éþîœ÷€A1“¥xú&AÖ„$öc"Ì‘Ê~$©Ïƒg³Í1ÀçÆ:ä¦><B“”FRˆ?xr˜Ç¾vªþ·Lb,x¢d
-…“O½€(KsYÂöqÖ/VDÓbsÌi3tPpy®:lîÌf‹˜ˆ±aTû&;Œvë¤=¶0©\ÂK;;ýŽ0Ý
QáÃ56@¯l]¸ÏÆÔ8¹ß¾?§ÔulÛµx
-¦jµjuåþîöú3á*–yNY¹ÈÉõ름}¿$ˆï´,r,äP@¤izñË#A	
-ÔBU‡ìÌ{ŸdɾKòŸé67ú£E¶¤C‚®Q.„6ÓΗž›s˜E2&¿{@¬Ä‹€Êf5Hlp[Œ
+'}Ò#ôoÛöØs ù×ùŠ¯k#­_Õo÷+
Ÿ€UÒÅ}'ÂL혊#ÒˆÊ43_³#TÝJ¾‹7çR³ÇÅÏþòñøm5¤
šÏ…	Thû:ɽôS­Q¯ã}X¿«$îe£ñQ §^÷GŸéÄ›öÄ8c¢|7ÜÉÙ`6Û9T>û´íV‚¯¦G†¥…eHÞtÌvmùÎZ^~ic}læý²ÎÛfcË?njj¥-µ–W’Šºù$o|™Ü€ýè9
+Ðûÿš¦>,ë>J[Y´£9^C”(ÔÇFµs.»2’˜û~×iÑåsö¦Æô­FM¼Ãˆ 	ïöoݲq	£ÂÜEcµRâÅåÖjp­A~rA›ÈTŸ£Íý“Ìi‹Ô¥)êYmåõº$m¬¿
²™óŽùŽ÷ï¯:ׇ“¾‘ª£Ì_“nE.>/	Ⳙí7f†Sßv÷ÆÛœH
+übˆoª³,ƒxÈñ¶yÿŸ‚àÐìë^”ó­ßWĔѽà³	"ëaéíøxýÅ¡
ßúñp>: áêžVUqIUG¬ô‘qÂ+âsa•´ØŠÒ›tåʦ˜zëW…ârÎÖ $ªó¥$RTH5nXÁ4Ѐšo¯†¢I…WÖg€s3´¾4i•åìË™B©7s‘
¡ŽÂä»MåÅ~Ô{
ÜÁ1¥*Ž1‰ˆ˜’¥:x‘ËTýhï]ßd3¡*ù»â©­ŽAQtbQÊ ÁÚŠ/M&Òùž ÿÎdÈü+èψؠ«¶@r~	åv/÷Ñ2	Ê0ÓxCB¿Oð±¥<Ö3zÜOWÌ÷¥p-´ÿ žÄNˆ%3p–ê‹Û`]­éÚÄUÌG³ŠœgðÁ&ŽÃ3ªJ" ûŒ¶H:e+¥î\5]ðàÊ”“¹³=Z¨ê³B)BÑœÇó¿æ~I§èøþÄðº\zwóü®PŸ+Ö´âµkI:¡»®
’"˜¹û„¯’)?ÞTÝ8“í$Ýr‚0qíÇzTÉm\Q‰W€ZAäh
+Ì£œ‰7_ÀX.!¯_èdü}gSTÌùþëR#êî…¸e}Õ8㥂Z£Öx_ùbÁ}Žt Im¿.¾:'éC:FÓ0@µ*
ÔØoÜ$9DƒêEÜ^e2Ê–DÙôBü·ù4ÎñÁ¸¿…’‘U‹É[6üýüƒò—„›ÈñV`}@H¾¦Çõ‚…+À׬n¹'ÙœAŸw,xp³%ÑWõ®59é»ç!œ¾4
?„#V’!»$Ï~ñÈIØþóo(ÆMn>ϯ¾(“å"¥ÍÒh±ÚÁ¥pÿ‡m¾Î‡’cc\ˆúŒ
+[#´óÑŸ~h„ð~倃HÀˆòÇd!,€+{òöîŸs†{ls}¢òf°ïÇ««æÅyŸ7¬ŸÙ¢vß…,w”…bݼ+LQYùÕ+ÅŸ1oœ‚ýgnøœÃþš:º;ÛMŠðÄB´‚­}Ä[(EI:‘Ä|¶¥ê%C”~Qj¦µ=@™œ­Û^Œü&”A.MÆÔ™ê8àì·6dX	ò›ýñË!±Òþ-öúpÝP
+Ú^-³kÎ3Æù§óå®cš1ÑakÉxÅY8$\Ñb<É\¸çDÛÎQ(·½¯HÐn
+q·žK“+‡MyÑþPúþ%£=Mz„KAyÉãŽ.ÝwôwÿÖnñò(ê×¹ªöPyá:YNqó‚Iqй{ƒ€´Gf~§w–Åùðâö‹p„ŸCJOtTŸIâ2ûµyûLD»j}êyfp9x‰ÏQ{ò]Êø‚Óíù·(3¯Ün&N].Úáy\.J;²áBž0嵊Ò]¥3 ª¨¤#í=H#RUÝ[A?«5×gˇ”ê¬Ø‡kŸÙKã¬Zð²K€³&*œÎK§u±!L3æ—\åLoÔ116¹æ‰$¥aõΣRÕ:V™§íŸ€*wisçOø%^ðç-Î\ÝîÇã·6nïòñ	i¶égƒŸÄÅé§?4eB~ÈÓ$Ó44œîCõ-³ôÍ®%Ô!déÿýÞi|µþ/+™ô=ÍòÿGÎ&à=Ú!R0q’å=Mž5à‰+9ŽíÁ:+Z纓‹ñ¾ÈÔ™Q.“†\–^>EÄkf,9AòUÌ…êÔ4_Ä
R#þþû¯°&Ü‹Mò•pVü‚^øI›³(>üéún¿?„š6š¿“Ye¨Ä¬¯Ï‹ý(3dæÓÑUág#¿îµ¢Úœ†®Vvžˆ?B•	ÃoZ:Ú6®ÀuÓdÍ‘p>g«Ïº¼ì¼&v“k¸ˆ5O¸æ4¯ûfãˆüþàðHIÀ¹Œõ~†²ŒŠTW0=1hÆ‚y²¤†O:ÿJGŠ±Ê¢®«ãÌ´_Ð?B×\~2BÐt¢jwË}f»†EpÿÀ¾Wcªjüçä9Ç’PV],G92"~§!æÏKÒ§¶Ä!»èh;ðºmXÃzžª‡ ¿†Ýxõ]N·ŒGz=?„þT«ˆº“it Ó!^ù™¹SõÖ†ÞÛSµº@Ú*ñ´NªŠà?Þ«íñÉå]”Òï®^òS¶mõ3(AÙ»#δXúpmn÷¤´‚ˆ–Oõå?%ƒ™sù¦Ô¹Eÿçù$ü÷²>t›Òä"š¥à1;å	TŒ$ •~k®ÒçX|“*l%ª#ýÿBAX³…®ß
@G¢ú»z™˜ö³yè(WÆè÷8©ÄA$€!`ô²,Ö4ŒäÞ—xłɪ«‘"kZh- iOf¾Â¬ñg¦â‰Ñvî:RëWp
+—E]÷mk’A¿ÖÃ!«ƒúêÂŽW‚·ñ3MÊÛCÁmÔD“ÕiÍjb™šm^B‹ûz¤[=ÞÎ÷Ž0J;Å+>ˆéÖm7\§²Ñ—yAȆ†™˜Öc©Pdd)´à®%Jˆ˜ºêÛßCƒì¸D¶ÒU
+"Óü)OFF‹3_ÔeѾœóFƒo5ý9ÿ—2H{Ü*¬ZŠ‹<˃£Ps:»;
+Ô½Yðt
+Š&WxÖ™_ãqüñR²†Á—oòëqðÁ8p8¤Êiøö¤ŸòªÍ^ë3|î3ìï†ù¢Ÿñïû«cz½™71à^œ‚w{ÞA("S…kÙP2ø=9r¼·Òì@ëóÃöûç	ʳZÂÙu
+¦Hð@ûc¸ÛË"ˆÍ¿ï
ÈûO‹ÖÃQpzýKT¶5žœõøÕÂζ¤LÒÏxýj±Jj	R‹¦'‚ âçV–¿Oj:Ú¬+jNvV­Éu_h¨÷—8Û
ß½ïÇ>9`Sh¿¿ðï;x_1¬TéþuÇS~Ýb®øX¸çO¨E"Öœoë꒢Р)”L7Wù!VZv¦¤Ç±W®yð«ñ
ñÒ⥕dèfÌ^È!ÆÞnÒ’½ËQ¢õfy@uñ°ç?ÓÂTM£|tbñ xHå^’ìÙ¶#¦]Åuþ\ʆêßÜòÃQU9›§g--Ü›Î/zUÏ0/<;;§]2@dÉÖÂyýnií ö'¿­r­ï Â×ĈŸ“qøPÝâ­á>¬pUIǼ5kdõ® GåÆRàâ«î
+‚ÆùÜ!›hEñ}¤ttÏ°ê4¡¼C´äœ“'7çÊÅÊ~é—-¤©6Æ>|é¿¿”’nnö³è>í‘FJ㫱ŸJ4XbuìÓä»PDèð99ťȆ–2ZÅC’}?¸^—–ÝQ%‰‰5~ÏØ‹—;~¦¡Æ#“ݸ^'ÆdZî]€Ü ÂOêiöFéuoP´1ì	•s½s=Éh[ãÞ‰#ÒþHþ¬¨‡ãµigH—ÚH‹GãùCt¾Kâ}¼j]YŒñª06)8¸˜ošYjKû
Ií•Ú€«´`Ì"=€£ÁŽÄP=?Ëþ„¸xfȤž§»Âã™™OvŨ¡^ÖãTÏóCŽÓ#òÞ/‚,G/†Àv·‡ZŠêÿvyÈçH‘O)Rv)Üêð'©•\*¥M‘É09ÂM1uáóFÂÆ°yË_U[ŠØQ|Å4¹‰Ó	,÷×»îÿ51ÒL®'°é”¡Ù—ü,•»3_îÄd_à—¼¢Rª“¢ÿý÷¯Ý¹ç\UÙ71×™œdI°g Çà±iÊòººÒµw,Äç;J…¥Ë”þhõ'hÆÔ¿Xè®v0æxa/û°ôBæšQ,fßL—k¡‚J&£‰€(,qø(ÆÂ=K¬;lâNNö‡^>ò«9*>:¸ÜÙëÅ{ÿ·qEÉǨˆ·èv9àÍâT´¡šÊ¾Þö!QfÃE	É”Åh=ˆ ¬Z“MLØvZrò˜ø“E›2Ä—Ô|'’Îf@¡³çé6“‘DüÎz¸ñ’iúÄD‘1 Eȧì"“¶ã™ßyV	–u¼ºÑÒ"ŒJ!ç›±‰û½¤žÂWeMî÷¿’:*~ô³ßöR£ñÒî¯â݆§T1…L4;|({+Þt´nÊh%»Ú'àû?J]!bÜ'dÁ„ý&¢áúVi³T3pLËó{Û"§/§{7M˜â\ïµrgkË0ØDç]™Ü]ðh¿w{ŠÌgÄÕœVOêç]×îöM³ÒI\Š
+UÅ­|	t·“åfkÍ#²¿Yï%”«7òûÈEd ¤„¥fw¼Çwy}»¤”!|žè9=c©Á1ôåaW£ø©#×cQÀÃZ;€§ÉaR"/7@ðõmDCZÈØïªùr¢î‘R=s€ü5cØŠHë5l÷åИœ"h´; ‘þ¥Ôïsòm*µÒ;b`~ÌÅÈ–ÜTx=ÞŽ:ÓÓã¦+Ø-R¿å|püįbr´®ÄÛGLj$#‚°ô-Ó|>R‡Ï˜âá5ü*räPM[;aS,@ª83B$|_T¡»„|Pž¯Ç®q^kåf3‚ˆl·<Ç!ÀgmgÝæ½SzîÂ÷Ú™ñ!O~WSjeàWÏçGeyÀë4	ýêÜFây8£ÊHx!øÕÚ²AQƒ³è³†ØÍÕ8aVŸC8³D¨÷?D3h!־σٚþk	óýœ³ý/TM².t!¯Ô¸?r¤ 'Qyuë…öë0PwPF×K8[5ÚNQúÿz0ÑÖh¡2"J]5ž‘‰øÃ	y#žÙÂ<á˼nz²`AŸµx¾ÍE2á«©ù 3y‡U­Æ<Ö…*‹ù&ºã±‘ÈjB8½®A’䶲?Pê­ÿ8Mqà£F*AÑænÌy”vŒ:"‡B¾úpXRIµoئê7’+Ývã7ú—Œ“°ÂAÉ7ïGYB0	8!³êZ é‡^f¬’æ¼Î7ç™zS’*jÏp'âçÀ꺵xb¤/VH[ݤQ€¹zˆšÑ]†'MµÜG =µ·û©3ö*Í´0“åáÏ·rJ®kÔŽxÃÂÙsƒÐ©Ò©*²eÂ/kí>0„#§\}à&äÐ+X¤´r“!>d•“­àœvíýùY‘Œç5>…Óív¾Ä¶,ýgmÔ3wØi½yŸ™ØìÄ®În/¾¨qü6Üœn/”äL³CúJ£ÔÁæ†VDÇZGhXiåÕ™y—åÐq˜ŒÏO(óõ‡}I|)DÓTéédšé§cÍ4jÉULÎTh^Þ/þ×ôþ¹6ÙÏP7Èÿ	†¼ ür3Ç\5Š'3ž.Rá_ƒêɦGÀ6CVuÅʾ«/<è>Ya—áÕKˆò·ì¡»ÏæZ\ß{xúçíÄ<é&SéÁ­Ïúø:Ai’oÊ#}»Õ(ÚÓ¬E—-âé…Ì-¹tf_½ MK1ëXIÝ¡¡d*Á´óŠDÁ‰¿»ç€Hã”Ë÷,aÝ„?Âݯ#±:)€57[íf=%^–ÚxÌUþñîû‘ÏÅÔ	ÊÉKêáK¬{7J,C!lÜÛùuU¢Æô’A#ti:Z1!Y1Ç|X5¯…ÌËUÑžJÀ“‹Ý¤°IúÌ7ÿÞ›†ö»Gp×IՄȹ×L+„Ït|LG>?yC€¡í¿É ¥’JgSˆÈÇiZK]`#
A­ëÏI­0Øâý1Gœ™dƒ,ÆírzÖI¯Î£tYÝÁlQîHpü­Æ?ÉFÊõl(¸0NDï°ù>XVV8µ[þÆžd[îˆ!¬§.3C™f"ÇÍh5æ¥øɪçgL*GXü8ÖIÁf®¹·ôi<¢¸gu>X©Õ‘KÖ°o‹à:ü¨ˆ—ø‘:	"ûÅQRTSAàl¸ôƸ	hÝ£ÿÀÙé%ÍME©)…zJ4Õþ™ð¹«êúX&\6à9ÙÔ%A¯Õb·$ö?gFw/q_èõ$,Kj‹æ0·ö¬„¤~ôì´íR;ª
¯®ÈŸ²G·^GÓÂK‘¬ñŽÄËüwçád-`¾9Wláðå¹»y¶ûa׳æèŠ4’ZæAVŠ!!.Ñö¡³~ÓñÜ6׎5¬YÙýwéŒM£Ÿ«¶Úê2u0¿»Ãæù±¸Ø&!Gïa˜=Qy*;_²WÍÂÜU7¿_èªð$²¦õ.Êûwµ-ào·¦µ÷Å
[§å‰5¡ë{Á^k~'Ù½nîØé8ÅWÊÚ#2%õ5³1Ì'êAðn½Ð@Ï祫ê×cú9»'1výL-/÷(Èœø*)cí%
+=ùG{ùÄ)óêÿíñôIDJæ6ˆ7©ÐÑÊË y@{r‘&m»ŒÖ/EßHP8Mj'Ðj	Æži1•N1ý ”²TôYß…-ÆCÂ	N1J	~”ƒ]"ùÈãÉðŽÃÂÌu{¤iýu×5MíìØVY!:“
+M
+F_¾e@eO23Éß4FQ÷ïèÂFi9'Z’dïÊk7l݃)?ñ4Þ2i¡S"Ç({x]çù_*g	¯&¼ZÇeª—c$¨§µj$Hwÿmìx¬'à$³Î¬XrÊôÁpÒG·,g¿@*5YÆ®>u€#Û/¿]çè–ÆÕ¢Ã.zGefÙéð~N7^_‘©šV3{¨.¶vMüãy'½Æ8‰ËÂzüº³Ao%.fxÒß.tžx8VêG‹FE^ÎQíŒÑD27”OW…[(e6Yü³èàtK—o0'èé—]&{¿ÑÈ;OZärJYLWÍ s_(Š©97¿–ö“CUýÇ›\¦ðµ‰¼îÊ ”/mm¸~fSÑ¢Á_|­×d³ºû舘DÃnçF½1Ó(§úýë¢o}ùR—÷ƒŒÝ&865IVºŽ™hÌçªB™¬Î
 endstream
 endobj
-1928 0 obj
+1986 0 obj
+<<
+/Length1 1620
+/Length2 17956
+/Length3 0
+/Length 19576     
+>>
+stream
+%!PS-AdobeFont-1.0: URWPalladioL-Ital 1.05
+%%CreationDate: Wed Dec 22 1999
+% Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development
+% (URW)++,Copyright 1999 by (URW)++ Design & Development
+% See the file COPYING (GNU General Public License) for license conditions.
+% As a special exception, permission is granted to include this font
+% program in a Postscript or PDF file that consists of a document that
+% contains text to be displayed or printed using this font, regardless
+% of the conditions or license applying to the document itself.
+12 dict begin
+/FontInfo 10 dict dup begin
+/version (1.05) readonly def
+/Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def
+/Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def
+/FullName (URW Palladio L Italic) readonly def
+/FamilyName (URW Palladio L) readonly def
+/Weight (Regular) readonly def
+/ItalicAngle -9.5 def
+/isFixedPitch false def
+/UnderlinePosition -100 def
+/UnderlineThickness 50 def
+end readonly def
+/FontName /RUEFYH+URWPalladioL-Ital def
+/PaintType 0 def
+/WMode 0 def
+/FontBBox {-170 -305 1010 941} readonly def
+/FontType 1 def
+/FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def
+/Encoding StandardEncoding def
+currentdict end
+currentfile eexec
+ÙÖoc;„j˜›™t°ŸÆÌD[ÂÀ1Æ…p§³T¤¢€®o¿˜ˆà9«`ü¯….´Î:þ¹yÕêpýäJ*åÈÀl'¿–eî¡}#)Á¢Ý&»7+å‚/^§
™ëWŒ{ïÔLßZ60VåáÌQR^¦üλ3rï÷)€#v¢€$öp~c—²¼´°£êë&“è÷ö'ÄÉÇÆÅ¿ñÁä+ž	%;a~•ê!”ty`rô³cþúv7qÎú¾˜hˆü‹¬Kê[z‚ñSß=¸E+öÃGQðF¦–½Š¸ë’WVMüì¹cY*ÚK/i¬¡ãËi;™t—¬EÆW¼(Ð$Ýôôe€‰oLD™œ)åžàA¢“…t[Xä7‰¶þÈ_ƒUæ*D ¡Xõ½Q“
ôYrôvB>¾Œ:—#usò¦€
+Œ·«”(†HõÓ-àk£ÿx¤;uàÇmâCõwWUåÆ/Ûç3kñªè2o{–{ºˆðñ€]Qå”`†^@Ï0Zé¹>1í£°`	waÆÕÏ)&]þÛÄûÞu[x߯&‘?¤N~ &?VDäµ€P·(³».y-aîS¸lV„î˜6ˆÉÝ?!ˆ¯–ÒÛbŒ‚PÍGŽÝ°uµT†åN­×ž‰q*«ÏÛeü¼­ö<*VΤ‹niå`½Õ™ˆoAò0¬U
|¿)P]Å_"dÝÂN`,g¡ˆ´ù
+U@?­ÒÃéúà$¹÷r8ú~L*vV™ö)‹U'Ž²ov7tJÍ\Àá{ù›$}ë2ÓØäKáö(¸¨„”µ¤Üg>šç¯[/ˆéiÀÇ­2Q·Ý“	Ì$íBÇÌU¶×?–ëXJ·G(1‡ÈÏ|ÊÑïY²ë =Y¨'¢Î?»õ‡U‡âýâ¯éáZÒœeß¼çvôñàÆ·¸g¡ú¦ä
+ò q!K:ÔF¶Q¸ðÎ&>)¦RÙº¸@×!ø·÷åbëáÝZDæÁÛW%aÔŸ1IŽV¾<'Ú+DøÕ-8¢2óuDª¬¨Ú¨l:rigº¾yä"—”ƒÌ ¨iD“‚¾«nö.À/ü¡nQ¸ «þˆ©Ùrr3§Ñ»É:cw·*|°4è í×ÄsÝFÍ8ì¸$q=çÇW6"CD‡U%ìˆrâRqz p](0R{âï™?uá‡Wë ZìƒáÄ ¹XQo!oÓBÜÿ¨ŽÝjX!6«wå™—Nåí15ŽL ²ÞEý’	Ŷõ.;'ùâ(öaRt™º]•ïÓf#ù?uÖøXÇõºPq-@4e@Ô·YžÂ6i'u oÑúzJ;«-›“)T°vèWZËðˆª¯™m–jæ\ãÖÔ3X{ÒÑo&_×Uü¤È»nn\Û b"—O
tÍé7üRá'±7HÉûE€[adô'X½ÒÈÌ*Œ¡¦‘RèžÝ"Á
+<¡Ü+׺HÌÙxo’›úö[Ÿ	?f®˜Û¡ë\}$Å ¹
+fðÿÀDÑèRЃnmÅ ΟËŒÙÇÀ>ŠÓ\øVÜ»=X¼¿‡MH2&½ÓB¾fæ8̽ëÓ܇“w¡<]ËJÀˆB%aLážæ]e~ãU½RZw˜žy‡V[‡hûV³òÉŠï»È‘MH&Áì§mȽ¸U+ îJ0V‰7ÏAø»®7ï²gþÄsü15§Ö7B`¢ßX±ä9¹úcµ…!Dq–&/™cÅýÐ@2¦›-Õ¨QŠZjÆ"xÊ)Ó+J0c
0V!f$øæÿ.0ŒÂ|·Õô	¾:R†š(fÛºy¹¼E{èÖKaÉ'Oq†2ºÆ¼#¯~fðŸ»È°	ºÔà¨È_ؾ\I9Aò	Ì0¦¦,A²Šx„aYb$™òl–ÿªÂ5¼†6ˆ´>È£ûùLïèÕ5áíG¢g!ÝÖP²ÏYÔáò)ftà׈[jyÊÞü™sZL¿´ìª"Jày,þÉRo·aQû):=sØÝž»K:¦ï’éݹn4f"•8u?"îN#i™ÇÑ÷^Aëú¹f˜þñ¦—BÌæÄÃeÍ°˜†ÎŠ»FªG:ûgžÆ"Lr±rÝ[muÏ‚ê;äÇ´¾¨}CÆ\·ZË‹ñiÚ¿ÖžÜ(¾Y^Ï ,uýŸ‹oܧïö!-¦j9˜°¯$O¼Áo$úNÔ
ôïþX ð f£âoòuïÜg‘à Ì9B$Öús~Žýu‹]—ٵ͖C^:oê/oúüÆ«GÍŠa¥²†õâ¯`´Kgv&†:§Ë
+ÛpÆ‚éÏÕXØ~
·®GÒ°#zß•èˆVI±‡$r–rÆ}¨WÞßE2dߟ·÷¬ÜÄð\ØÛ£æ²ï~*‹›d#þaIAd¿TY¹í/J$×ÔŠ–1òó`¾^a¯Ã|x’.s¡YN5¼Zò1¹kw¿’k˜W‚*”íf``´Ã9žYͨ‚dêô!Ðtt.èú`”ûy­sÁ!wp•d×KÑ–Ñ«†<•b÷E<MQJœGØW-ã: §ä¤öJn\98%ò7~ÂUô»•uß?ðj-Æ«“$Ó,…b€¸Û´KõKk„‘ÞÙk4²€Ü~tÂt¼~>‡(Á0È·ïø`_èî>g²€Ú2÷”̨4HÑLV_˜‘¶Ké&åœõ«¬`Ò‹/2É‹é&ø˜w?fµÍ^këL(žb3Óâ÷Aôl9(7>yù6Wâˆô|a‚ƒVËD©Ô7úö»éW!'c
+œ•œ?Î(™³Hà‚ׇªËõ&ðZ€[æ!â	¶ƒ0 ´›š%‚#€'¹¸á/˜èDÕá#ý»ÔŸãj¨ùå‘È•Õ‘ÐÏœ¹mmV+Î2–•þŠƒùl•Mñ`{ËÉ%2“d4Vª`SF	6ŒõéY	_?¹‡ˆò’ß/Š>ÔÊ
hGyIâ<Ú+§›*	VoÂjN=v¥ÛTÑÇÙÆ„’è_VwË(FŠšÛ3Ú¨,Å.[¿¨ÊntTFiÉ«Ë@NËdÈ…¦3Ã9¼C€hrZ"‹ý„G¶›Íoq'ÔC=gÔé¥Í}rIÕ‚¨ãõÂc—ÜÚ‚½¬˜;OPläÁÙMû¸;„‘Óž Û	_õò%«€
+`!Ã=ˆYs“\‘Ë¿žA¢â*BáÇWÉŠ
+¸=0׋kDTOk¤ydÔtãÓÃÔPö{ýVta?lÆx«hÊ»âèp n¬.Â×2V«rœ%v%i§å)à†*–‘¬™ÂDà/çP800…g†œ[Ä'bSÊàJŸŸûäðæzÄ/›·Ò$½“é5r¹ì5¶Ó˜]¥”–0Þø:N™ñiB¼%…Ä¿H)¬ÎeIÄ”€ØhS!ÈOX£Í㤿ìÕO4 ¡¹+¹2­®==
`™ŸøÐôæëñ_4ýÙ»N’U–þMÚ“lÆ%ãŽÖõž¼å&°kaŽ÷;› ÉБöz–››¶›_vÂùKôt©f1F[Ñ“}á:ßF9>q0(Ñ"ŠÏØÆÅu3TQá`cìµMŨ”Ø’£<Òó²Ý–ü»°­ýõ¤É¦Ô!¼²pE<"+¼ÚÀnÉLg!:˼ßAb^ïàlO²0®ÿÔÒiS rþû~wÑâÒ˜¥_ú™g@¹“ÇŠŸ…¦‹‚å¼Á‘:nfâ–Í%õ$î77JNÏHIH“VweÊž·%¯.¹ŸÑŒêx ÕãPÓSÓ!·Þ¢49$úÞjúÊ«Ó)@çÖÍ <¥´Ê,­ÖG—KîÅ5‰ôKlÖfÄ–rÝÙ%LYÚï7“?™TÄ.¡6¥?~	F
4R¬£u’–4]
AÄ%”Jïë ;°âGù?è›òLb?çþãiôµØ¯(á4pÎh@©0…›1·ÞSUœ?>œÛœ–mÚÁ	lQÏaêlM¯6’YŠi^¨GY{G`Rse­JM®×2ÃŽÔâK^Œì~<™i¯§÷ά™¢Ê5s®É7‘ä~®û÷µ%,tÅ{w[+¥a£¥:èžó‰ªª˜Jlºž““Ú,¯ä[B>Ô=<½ï&N3ËQ&aÚWY†‹•Y|ˆÔÍÈï˜^ŒhfÑÌ£×Ù0ñùè:«0:ÊA!éIeñθ	û%ìü¯çÕ…övŠ¤ßÎÞüö¶zl u¯3km%Cñn庞xãotÐ0(sýU$o#j;ËtLïÀ@N™x¥o3lNùìžw¦ÄÞzšô–Tê3(RØ¡ÂàÓ°w‚ỄD&;¢¡ùþÆC¶[óÂáÕxòœe™(÷Ú®ŸCwÛ[ôšH€wï32€Â|xÏ¥“mk”Z.·ÚºÙ«ÈñMÁˆSš‘é$‚>½“	„iF²kÝ!´:¨Ÿo¨¡ðj8½U4afs74?i79	b‰}ƒ4{Qù•NÞÃUׄiÂN5š¹ƒ‚ºÎ ž.ã	Á^‹›ÿƒü¢|úžíõˆLæÇ¥À0³œµì‘kv
°z­Oxu3qñ5¡ƒ„fÀšV€!Q'z#Äaœ9$ÑÒ> ü-šeGÐHu„‹4‰Ñ¥U*—Ò"U†ÐøÍÒP"^É÷.EåðbÿÃ&uB%´ÒªÒŸ[æï˜×È®äfòJ)SC®È"âÏ‘UCö£rí{ÿ½{<9ʼn7	‹º[3SÚANSí
 §çÐOø€ã̓ÒaW††[9¦£Ú­07L”1m‚þ¸µ>)ñüÕ×öµ\в•n+tmþ; UÇ~ŠÉ•:5xÁq>à‰V£b¥dSA陼æB\jgf—CX6_:Æ` ’Í÷o3U6\<(L÷ÈÊT±oÉ´îóÍê7oDDÈ‚LD“˜ŽŒ™‡ÐÞŸ8D}T	¤‚öJЛjœÖ&™1vW
+`ËúçFE2F¿Ó8ÒEï>Å×Ãþw6«(ô¼Ó™ô}ƒ0ÆÉOöûM@×9àùôI»² qS¾¯ð Ik&\}R»jâmòB´ë=Ûk-óÀw-½7õ7l d–w¢p7BNúDÆ9h~QŠ)¥’•Ûuåå˜,í&¤O1+Ûk›‚ÛRJWþ\0	oArœ@Ê‹þ«›P`ˆÛ<ùœxa:ö T éªÝÎ6yd·±iªg>·‚âuí¿àÄ!º¢ûúÖ(©þEÙŸB:‰û¶î™­΂«OŽ}€mÆi”Zè†a§Nv‚d	¿Î²i²·D·qBüÊ5šõíÈŒ[$œXÎÕÆËÏc´ý"CäXL„š›ó‰´Íoõø6o6ûv®çÊªí¾˜ÆŸ‰ççtÏÇQ_søg*ë¦Vå´cdžŽJ…7ÓØSÙÔ•koÖ»° üÅÇg»XgôLÂ/­þ†oX6 
+;æçw$‚’¥n^ »3@|V­c@Ù¦ $þràîHÓ¯N­'õ|ÀøRÖ5O©´@ÆÝ WóQ×HXbÄ@w@_ðW‡ ‰‹wþƒëËMÚ‚ƅO÷ÍáºqŒÑ¡SÊg@Š–ÝÂ…ØßüQ ×
Ÿ}c’*Ͷã~µV‚m¡QB"]|5ÿ*|P58ùëd»)Ú$Üx¯Øy½vÒ:÷æ2	ÇP6<Í|»ïë™ÿAž;G'ß4oå_ÁÓy“¶ýË5 îÏ-D+ÀäpxpÿràZ8;IK\ênNy;•&v.IˆëŒÖq3fx^¨ lá-N¯j]q¼úïÒldÒ2`*AÕÂÔö½ç$™jm”z„§p´—X„5¦Úfªc¹I| ö²Ù‘Å\®=+\xѼ<÷’¯ýg—Ó
+BUù9º¥l˜>Ð;ñR;š`EƒžškÔœ'^—ȉïHC¼NJÝû¯ŒÊ¤9ëlV4ù”¼‡f¤þý3n”dt/µ	˜é>¹§cñº3†àQ»ÁÇû‹\¾=)Z2Ê%Ü·ÀzŸÔ—<©“l|ëÕ^µnBPø¿‘‰Žý$r±ë1ôåŒÇ`º÷>Þ– {ò®èfMjÒ)Ónw`’"ì‹:œFî¦sóŽ®\†/n½tµM¼Œx¸~]¶,†‘íbÐmšÐC¦­²£ýÞ¡Èbɽâ±R„+øþE#^?Í Ú­ÀÖߺúYËæãXÏù›\2xŇÄ<ÕŽAeo{5.$‰`ý ]òÀ€Ðµ¨sv_¬T*Ï;ɈidbMÍ“dБûn2,Q+|΃f%Ôz%žzâ¡"}Ü’=)ßâÚl)«ó˜ÉLÌl–èØ
Ý{DliTþ\CÁ-¤¢½‡éœwYãZj/úîTâŒ
qÏ©g+ßSVtf8ÍÙýhãÝ­ŸSí!
ºY¸‡Ÿ÷.£za§ßåNíÃõkÚ–:K
+ibh
+¥Î¹œ×_GÂOB·¦Y(u÷ùJtLgöÀ"©¦LS‰œ="ÅV–JÌ{<ÞÔÅs¡…s‘Ô>P]âýß©áZ¾UÈýÌÅЯ¿lÝØ}3R„!íkuòSÔ¦Ì0äÏ÷¢MìO†]ó"®uÑ¥úR‡kjÈ6Ã]€ÝîA½uƲÇÿ .mH§g8‰µ\àzÛ•ú•Ü8+li{Æsölt®—¬³i“~#“o~hêl¿Þoâ¢z„Då®èçð/Ù{ícvðöj¶oƒÈÐ(Ó³„3ÍÙj^éaH
+C§Ü¶L|/úe‹²¬pØã‚>5‡A‰¥4¨Øú¤þGä²&‚&›}9;‹GEVæàE…´ÚTê‰)ºÓ‚OÍjú
+Öɮ߫1Nµ½w-H­ä5&‡7¾’¶ëÑ­ä­›zÒÌÍ(–	éðC%ÇT`Ÿ\]ºSr*úÃ]…=‡³?Ý"-ƒY!•ƒšqRsá¡¡í4Í©lb_A.Ñ3é¼9÷OÈtE9o¯lh'ø )¨‰4Ž2èSfÅ–9rÉ@‹M°N	F{5µÉ<3™¼üÔî»ðrÀ[°R…7í¶ì™Ä™}L@¡/*”Ù5^ÌökÆÀGúª¢aÆE?.¨Á1 W<Â8Î#©Z×Ê›Œ^~P`}‹ÁPâ”Úùò‘"†Ód´±Á’̯ËÿàÉ…el3žƒj”wòš„¸ÒŽ–p®V_ù:v'©{–1eéÚ³YaHüŒ.áÖèTõצÛh2–hší
o*´™ó˜ø-a¯¹Òl 6Ó,ÇNÖ7𻙶‰Ùlç=Ôb Ñ<~sÒy’ã·­_ÛƒöíÆݲÐßg^ª¿B>ª'äMžjàšGt³mAŠ=÷ü¡VÔoÊܪ²£vLWÓc‚#ŸS%Ò­.–^xÙ5Ï“¨žŸ oÆ
`;nbBš‚ºê†Ö‹µ=ZõØŽ27ž,á7Ÿ6ÛRP˲ÌÌjQò‡bž»¢ºá6½0™þœ8¿Jo©§s¥%8aN>sàú¾$ÎI|T&Ó¤=s>¶
±MBÒæÍ"Ø¢ìä§ÑO¡æDi\g,ɦ-2û{W‹»ÌäßضæËÇÑÐöá”'û°Uȼ¦’økUxbùm„Æ¡»2PJIL"!)\ŠCXqEë’‹È¢b–üêî†xnñ¿pÀb¤VC‚NG…wB³sF8Ï^H5”è¦•)&‚ˆ¸$AÅk	>¢jÀLÃø›M¼0'³Ê™ð@:.è!îw!qÖ#q*èc?•©ê¡?I¦oÂñw–ýýy"9º7ˆžõ§ÐÝ%ø9’fy³ÆîÜÁ†yUôóØ3}Dý?¹„EkêÕ@ÌøÚB÷”.Ðá©
+åLY/#K]¿Ö¥"—¾‡zýH;z.EÕË° j’Xöžù.:Ⱦ#¾mÒ³bÊŽxi£ˆÀðk%®hM¾BîVèõѤ-@ÌûE¯ÛÙ¹õã°­瘲(u8Ø‹$tVŒ]ä1Vœ
+bhM¿$,ÐÇ‹´X:ù,2Cæóe³â±|¼»YJ3¬ ô\†¼åÄÖ.9ýŒðó`†™¢úÝ>.ÐÍ2qˆoò²%8¡8)BY&ózR¡z™¾…R¤òÇ©9×É»öÄFøZ¦ð÷SÅ•)Ì°ÄÉÔÎ/l?%BîýÌ)X£ÛôžòtÆëìËRYû
+oøï<ðÎ	vàï?ƒX8ñd|”¦G|ºíwÂm’¦ÍëÛ£”¹Ú(ê|´˜1ú‘uWJDó[¤0T!!¨8‰Æ¹¶)5ó¤-îáDÆÅò·ñˆ¡;~)ŠÀ1w"Ã9ö¯óí­Éº`s+8Òƒq­Ñ>&<%I$ð•/ÓaòE“)ã¤Ѹޭ)¬6béX].Žr8vŒƒ Ð•hˆÍ"ŸX
ûEÅIÄ8]û½p´­˜\ÿ‡¾Š")fD-aŸx¢¾äP	4‹ìMœ3G£øh
	‰»ë•$Ž³ôóá¸Üî1:øÓÍ(•2iNLÝBù6‡w„½€ôw¬
+J4¯a_¸—Ãxµ®•”_ßO”îTL–ØsJ8€h‰®¬ÅB7þPæLâ›ÈêØÏù¿kÝKv]ôê›VH=öëuKµÐèï´°O›2DþGí©ÜÉ¿*”šˆ“7-’o>g®Â¼ÄÞ°¦…”ÄbÙz,»?UÈûäp¸
PR‹^±¥Ëø–p_*„שjaº»Ò¨jº0`÷zBí*c3Æé³çeã¼Nzܦ±À½U¬6
,Ò&XUééÕÈÈpYßøÚ ,jHÉcº¤¤ýó’ûs¬3$xç@	‚ôb“˨?T!=]B* ‡Ì9+ÞÐyïªôsû½€Æ'ž>ˆö‹
ýÔÇ@³³*ÅZ »ÞXM•²®éÒ$‹
+¦I,ŘÙ†úmà5 áŽÐ;+`3&¼Ó„’ÀŒ0D!’éBœâQ˜²…#^(0¼Q„$÷lH’®&bqØóy_gC¯ÇÆ(°|»}‰‰_îK®TSHݦݣTxUßæPœ0ì¿E>Bçúb°(«÷*¬vš8<Û‡O}$’˜vHŠúŸ{~ÅhR^†àA¦ÞÙGùÇë„NR¨K	éa”«8"
+FWG†RÝRfAbú°Ÿ†écYî#ÇæxÏ«‹©‘½óE v¯}SŒê®ê{ôbçWZ„áS}œ¿ žD¹¤…˜g:ä__·­Û+®Ï“©Ÿ®ZƒEu²¼&¤>Íœ‰²FZ¿Õ34×	gþè+¯ÝKŽ; àc6Æ¢O·0|Fú"Ð$«¤èçfCÜûÃä
+‡´¬u¼Ë¯i†@Æ
úÕzY{=×Ú—Y
-$´–‚G…gº%ÃfÜäÜ~j¤ø$ÝW,;|}ìàôŽ3Y;ýs‰‘Áö`ŨƆôä£ò—#‚D3«ŸCB¿0 5ö½åe†W½ytý1…Ò,òì)5œ×T›­bMšb?*½†²šXɸñX_-©¢@g{ƒ®ØGŽšÏ‘3ü§¢lGÏ>ƒ!üÁü³"^0¡4Dv¦¸%~Ô‹·Íðú§ÈÌïÿ†Ö0cV¦E.c˜Ì €ËÎššU2†T²ë;¡n™YC÷Kð>¨¿ê-WÀrÎàÒá{æù®ÛJ
«´s' 
+\ªyS|Cþ29‡%y˜ò­ÛÞYH9dM)Á¹Ÿrñ
—™ãøX“âÑÆ­DKý¶Jœ¶îA/TÞu³ì‰®²–ÙñV®9=™h³ˆØdÆ•´;vÈÖT†8JIfJÓ­·Wph…$à´Ó^QÖ@ÇAÅõM6 ÎYRA¼¹µJ¥pŽOx5‘ÊYS£6{£Â¶:æedÀ5JA‡^:ÜPôFW“AQ0:3¹ôZeÚeü_›D-ä¦>b³é±™IéàC)0ÏÃNôÿ¨çÈõ\£iÝøH/ø%¶Ò90ÍjÔZ0oï¶lÞ‘±×îX„jÀžëY|6>1\ÕiªD€ÛO+¸¹œºÞgÊ7P‡C¯
°/)4E›Ñœ¿q3.=®JÑfL¤ˆÄîíh£KìŒîȃ¥5F¿µ·ÈyÑ$`J¥Ÿ—*	*D¹H‚fu –»e½õ¹
+Ø•¦ù´ê ×þ
G­ŽxIÅ@Lèf¤Â·mé¾Ðýø>ßÉp‹A’x$Ô÷L£k¯óuVSmF,^™@nR9áT€ÿ¥zžYøðA¯@®'1¤×Hr›Ãä¢p‚2gܯpXé¸ìMMî0ŠÂœ®Ã¾3iÆ4žm	›¡«'qŠr¹ª™±&…‡öý*i…mãy©p€©ÌA’h` ‰LœeVV}£Zžõ+ñRÙ¡ÃÌÔ[ÓmÍ®tî?ÇŒœ‹µ5Y¿óAb{ªïû™×Žò9ž†* û%Ä.VSäÂ}B4ÎAcƒZÚPþ¡:}Çú¶—¦ðz©_BíFH9­²—½]5Ùáf'Ý®¿ôôé T¹ÒC»€â™žGâÿq¿ÉÕàAhªÏú]‰õ=îá¥sòÕ+ãÖ³¡»Ùê’ãÝÊXzdPÑÍ“‘B¸m! §Ândí ëôš9½K"_z	æ…Á 
‚'j»åòØWQ¥¹WZÌOöÀÌî6ü{õe~–ÜCŸ1Þîz¶¾'<ïô¥“S ùrF,ëkiׯv…-Q7ó;8:nÅÍö¦ ‰újíÍš
ˆHã6(PŸÃú9Q™úì=…:›Ýßzóòb´3%j˜‚†€CAêeÔA7È'›pÂN¶÷*=εŒÞ¨Ž…g/Y‡‰Ñî™ñ‘2icEí“Y*læ	5L-Q¢2T¯"R…‹1‹&†êñ0‚_:þv`†•Ïéz³Æ¯Èõ»‚ï+:ÐÜÜÑÜç€U€z:Ž‚(P‡Øgé5´?î)¦ºøùWbý?õ­ÁŠ¤Å¼JÏY<¨>X–´”wv×O²ì^eâ¥@C+—Íi÷g¦zóºà,“§i’ë&æ±ëëztvØ1ÒÀ8?9=‹ù?ü‰5~6qòÑñכĊw‹¸¤|‹M3Ÿ8u ¿J®Ã‘CØ\Ó,”Ÿ=–éÙ]o7Ò½éáŒJIî{¼‚Øë¦k¥88áìÌ‘bÖŠÀ1œ’5}ú]Úç®KO1ƒ9ƒÚw¯
l1…‘ÀìªcÃÓ¢g@fÛ­œ<þð…£Û$¹Ý–¡5Þ$´ë–ûk8nÆÈ$à¤Ê¶.§l¼ØÛÚÃJÃgh)™e|TÝÄç6Ì¢*Å46¯ôâ™7?­kýöj=Ê<	*i’¿¬	 ¦k†:jé^X[þš‘ù>íÒ¥€§¤4ʴПg+ÍMö×YÓ	·-
+Hì$(¨BÀMPä.Td¥'÷"²¯&¸Ó%Ÿ–Û;¨2±\ßl©Ú xÁ|©©µ\ûH”TŠZFEŸ×V0ã«Ú³±æéb>‡ß«=ʯ	^8^äòãõþs·Ñããì8õ<¬“ÜýCûVˆÓk¹„"¹JeÇÚœ„bå¡
,éGÙW¾¯+ýÁ“OoEŒ}µ«ïJØnŸºå>*ÿÝ/÷Á¥Rµø,PÿÎ@¯Ñcss•6K&Á‰#Wqì……èê5©À¬ŽÃ=!º©à¼8ÆÅ>§–eªÁÉËT{3ê³ÎRÿ€LI"gl„d(Ûu¨E‰¾y¦nl)¬åiqÃ"k<½F‡-§ät‹¼‘7žã0¨…ý_Ë©ú[Ü ¢Z&ãßO¿ŸgÈz{a¯ô˜}>v¼Qoþ»~™“[Øxë£l¾Óû1Íu®ÌË{þîß6N¡ª“Þ‹9·|0”¦tá6l-“ÝtðæܦŒKgÑQfŒørÿŸW¯ÆÙC%{¸Êÿ*±9×uã®$Œ7p©ÅÐòÏyCõþ)ØÆ>í·dQp¦¦GŠæ-´½	fÊ_g¹¸;q0s`Ãý_Óç°‰˜q¸êIŠQäpâbªt‡/H쮺۷ïG®¾Ay¸¤›äøþº°:LSCÅû@êÆ?õYÁKR˜.ézr[}fK³RZÿ']à‘l‚ýn‘iX±B6ªó¥ÉSþ\,Z'·–'Åq¶^‹ ÒiV25
"‚?âD˜]Ã(Ìçâ™È—&?…¦AW#7šâ&C€ñ5ÿ¼Ëÿ‘›!º£x˜Ÿ¢+˜zdÐÌ1éWW6øŸHáÙßô8ïŽ^Ó¿:aH÷úpìöºRK%ŒËü‡‘¡›ÜOïºwLys¦ëC¿¹#sœ©?à@¢lt<”^ˆf"™oò…øëMPÿ²Ó¯ÒðGíwÚSlú÷Ž`ŠôÖ†!zËiC(fÔÁB’ú){™ŒV¾¼ê
¸„Æ“JYÝøϯJ{8kþ£‹éš¤‹Å7ú¹”õÒhÉ+g©ºDó„‹2TŒwqœøy0?¶÷ú£|q毨¤ÙßJ›Îôc#½­Ž[QT3âÓ—„øÎÀ¶“ äÑŽŒÀšOU¼'QÃåõGâ¾Ií{EX¿_ú7áþ‹Š{%=̨Te‚8¿«Y¶_í„£€$k‘ÚŒ–7Œ«ûïÙSW›Ú~öåe€ÓTÞä•Ñ‰ŸôÔQrQL5n
Õî-«ÖÿQ){ôØ©ó·O€‚Ý’‚»ÎhuÚíûutIƒÏ\ƒûûQ»ïENé‡ÞÝs€ØPIA;M^45n …’CõŽ¶Ê³­Xà˜™¼^³ûçšé|Û¥6í¸»ø:LíÀ¿Ïqgœà+ˆðt(Ð;gg;L‰žB»¶=Ö{’w;I/£0ëÔYL}$Ðz6ÂP=ÏÆk`i¶œ}yüø$,rãîþhÅâÖmé̺¯oPzýN\¼ú‰ªÄŒ`C²Ã†íX3¥ƒÜ­îÑY±eTÈÁ1ú¤&3ïx¥W·Ã2û*Ò,Dep˜À\½ÊŠh"\,t›6ÞÑýYØ}ñ9cÚëqFS½'#•ÙÎ-¸)‰)]æ;7)–IUs
+øb˜w‚ÏÛÃmöPñoê?ñª¦æ×ÉÌŸ‹òVÛO!¦­_îÏ·­BêµëöѤó›ÕOL b'ê]Ý4öHÈD³±6ÿ)Ò<ärÂaÛìÝAEAF)¦€†êœið®@Š#‘c¢s‚ZöË];^%#ýøhÜiêv’Ú¥±5ý Pu^ÂrÞ™¬t,­tg®ìÀI{û¡¸ü‹h¹®?h‘ÀðCðXá_U!¦ïê2åhg¶›®ò ¨K†ékïöõn7
+åq±søBÂõð—\ºÇߘàçPM²"öDXœ%žÝ…¹C½ÏÜÕ z]œ4˜–³à(ÂöK
+©Þ1K!0ÐíoZ¯{ö–bÂ0¯q:ÛË&^/†@ck5
4×Jj%—L^m£ÎÎj—W{?ÎÆuš†õ‚W꣖ùh£¸·M$3[¿åCdìse¸wJ]$$´&ºÛ€{pyü5-žïUwU_Þ_¬:¯×«ÜèŠâã£ò¨¬š$¦Áööó4–¬ëNs™0S7Í™e×Dnf#›Kgð°±eÝ*ç:xÖÃ[ãÓ^Ø2ÖWw¸/Õ’
+¼×LògÅÎÓ_ˆl•$6û/ŹkM½ãy^#ÆÝÞ1G!|&0ä "—­–”0Ž!m!uPRMwÔ7TÁ˜îåoC9ð¯GÙ*ŒÄ
ôBè“ë㉿š[‚KmI“îA^˜˜…V‘žµöt78:éÕ¢ë•Ö³cÖÍŠ_ƒ·µ`ÜSNAGmõ\ÿ6xËYaøìûeÎç’½Gœ¼aH•f'T%™]äd–ߟœñ1¬¹íAœwY¾N³lzHÊY7ÏÛËsT×ø˜Œ„›à×c).†.-Fo¿£÷"‘(Û-ìȧ¾à2zÒ)ÚÙVºô¿á®…YsR—;]9©R}ü¥O¥A¸Ž6Ù®uÉ—èñÂÞ•ÅBˆ'•ëñ¾áwS±xÞô;¹û3¹ƒ”¬üAñ£iïc½åll|­|îCêšj`ä=N‘Ë…¼ã°Õ{_TqÓÂJ]¦òò>¿ä#eѵxö½­U×Χq¿'’U.—Œè”N˜óT®~Fò¤áüIðu±¯Räæ
+qÒ2פíå'f±+y3ô¯ÿŒâL¯e°Ð9ùÞuÌJ¦³îUßÊà\öŸ†	€Rkv‹;…KßÄIíÚ´4¿9°5=>ÄKІpCS>F›ÉTC9B÷¾a0æóüñ×
aà0wÒ¡¾Z¦áÔ]ô$¾mÙ=„Ž5IÅY@3¾Ö,º¸l¢té³ü$^hˆMÜ瘑dü?¹‚‹ß«•S´É±tºÐ§Ïê©dÔ4QP\.:ìå(zõ8Οèý“Ð	¯Ô‡½eF22L1fuˆ:×#Ê|Cr;ÿ»×_:«Â5òµ–2Œ¿1Q‹Nì-+™‡³ŠÒˆzZ?o‘†±r…̳Ò ã €ËDc_à-~ìk?Š3,­â¡Ð}ã¬3J5%›w™a˜!¬÷>˜ÃdR÷-öÞ¥StÜù	 íÅáJ§4ߌG[éÆ¥O‰_MÆiG¢C̾õO9€]‰Îç4™†‹TUOëÃcoÈŽ®±wˆCªwqAÇX(V»=]Ívjào<SHWiôŠq,üuxº ò#7´èOg°¬hn—»þfI.DÒ9½f²éÌÈ.o6£üSß¾Û;àÈÞP²®—BÑØMÁÛ†mÚíC'€0 çp¿
Ã>pÀ7©{kôögg¸þyQ±žÐlôAuØvõÅ%Ó‰–»àwjpA`I诬j7[£éÓ¯ô'¯‡~1Ó³ù‹ˆˆ[gп~ñ*cS½õm0¦d3ËB
+mº2òX!lN×7ªîeå†wú\ÁÛ¢“S\2²D?0éÓÔAk òpåí·I“ˆpI§uqˆÖÊÿ:)¾)ü	}.ÐŽæx—ü€tæòúLºKöi‘(þ²l|žI¦Ò¤”0€'U"j±—Q1ÓúpÌ …ÄàH`¡’bšÞrJ!Õ€+´Àr»t·ægßêÚÂ	ß{6öJHƒp“d”¸t
žì—þ:ñö°ä^Kãâ|JìÝm
ÆCCþBíxäÓ¨ýN$«þ$P–z1äþÎòv=|/â{?
+æ#yUm¢|SÅÒW²Í¹ÂÕ]^&ºØb{|¦H¬Ó* &x³¥/Ê¥v*KÅ
unšHÉz)ß&âkYC,6Šp	Ê`QŽdõmÉDögd]ÉËvî0|"³±ÓÄd$Ž‹ÿôT]…ºÊl
1ØGLe–ÖóåL§|ÿ]+r=ãŠ)ötëÑ¢˜ªßŠqàËw­z)ÜÚ9ºÑölDÏa>[æ6ˆÐ´ãµp9ûˆ»ôÍu÷n~ ;“ÓjêZöú­wáÛ^Âêþ ˆÔN§£Ç¸i÷0±¢'Õp™°#=cdÄÙ[—äsñ+Üà‹Y8T5´@hÑi§žâ§ÈIò€Ç¿F|¢*òóÍÌÜ D#`Á䇰sTAH5_€ŠÛàEBÛØŒ®2!ü'¼I5¶''³Â¥`Cgzõ£×«øÀ1jËi°0úÔŒ»êA<=LÖAä«f
+Ñ<ÝlxËVóE"“³°”mG;á50xX÷»&£5#gfâ‚T0Ù¼cK¯½.ûäL²kô»A~ÑU=/õ%ÒNÕ^-”¥@¢›Œü\¡Øbläv²’þ§&“7ÌC‹f Ivš‡o~öš$oSΖ¤h4x˜ê«GÅ".b'þC‘4hüÇùˆ®î.U÷å/Ø8æbÊݺ2%duR#‡NWK–,nç¹2<ÕuÌI×щb£µ‘ëBbÃjÝ=ÐÁµ‰‘}¶°Š­¯>\~&ÙhûxQüž­tË_AHF¼ñv	èêÁÄ6®7rÈ*Àí€ê²•d¥ÚiöÁaÅJösPµ;lL¾ž¼vÏ9
¦ï•Å‡d4@Ûáf·¯8éu¾<Â`ôùüpÃÕÄ„¾Ü£%AŠ>bѨ…c>ö7ùXÎwÂnëìÈ‚Y@cJÍä`z	‰|Ë˳…Xšò –<=þ?Öj©uw鎎’»ì2¥éBõg0$×+žâEËíámòlÓ¢MÒrŸd7R…¬h>팿O˜%PD¦Âö6‡‚‰~e;WÐâ—Iÿíâ#
`õuª¨²sí.aCÃq¸W­‡+¿¢„ñ€á3xþ¹ài¡­¶@Ìe¼ %L-)a…½Ï²nêùó’dÙ¸1YPéðÝЪ«¨¶¾ÉKÞ¤Ô–zT¼ì¶} ©œ^ÚS²–+Ù+ƒ:‚Ô–8V¿oʯã­#œ0›Lïõ¦"¢—xGµgmØŸØò¸ÿE&Ò4ÜÚ™Yu>Æ»v²ôm)bg¶ò/¨ŽÂJºŠ1ÃØHÒŠ‘ù²âè~™²f4!µzbVÌŒ·øXgZ:Ö澧:óc…TPœBrq5-¢º|Ôàru¤`vZ|„.’‘<&5„—R^LÊ(^¶(½ú/ÇÜÜû5ŽÇÖîNU¿)7—y0€ü¼¶äR…îf’qOw‘4WŒ£‚Ò†ŸÏ¯ŸÆÙ|–Ÿþ„·±»”Gk/V“»càïtt+vΗ$F÷ ÷>DîÃiÆ¢’VžêŠlÀU(æ/ùý4̶Ýg4!t¹Ùæ[MfðWW2&<Ä-á
Í; £A·OÉRqÛ8`0ìÅ_0(¼§mîŽp³ß^’tŒLÖ?èZõó&ÓÎÃóšî!ô… ˜bã{Îö†š5½A
y›«©¾bšDÚwÚ¶ZwõÎQ2y4¼¶ Óˆ+µO‚æ|€šªBh³1Íhy‘´ÂôØ©9²ö伫üòW;Æ£âuêáªmïqÆÏ1‚5i¦þ¹{ë\½‚ÎÁÉ{XšËØ¿zIÎz€²¤¾¶öÛÿ‚
ñÙ3P…Aõ5úË_£ÚxêÀ÷Ò׸µÊ¥š‡¡Q…ùÿ³”‹)¢÷épY7æj™Î¬BÈ»¼ÇQTÿìÓvyžì+à_mk—ÁJâ›ÿ¡Ã®wRš€#Rî¹·§£U	ŒWäů­
%û
+0¥ÓÙŽ÷Å÷N&Ç¡¹4#päF¢è]Ö@/P¦
+}79B8cîÆŠ
+V	>Ÿ&²V±~HàeÔJò³šc9ú"â“‹­¸ïHZVK¼Ä-!0,+\a§¤†´"ç·pÙövšpáW8j|X3$œÄ×D‡_<Â7è‰lÇMxÅ]æ£D/6b5Cvf	«Ê£¬|îMÉÒd°ìÐÒ½ÄyóîÖ[ç9d!uRnbÙ죊*›^O:¼³xE¹•{sŠDcÑlÅ«ÈÅú&×Yæ3Û²Ÿ.Œ¡Gösuß!1÷³ùIïrcìüÁ8ïf
DÁE]P¹ÒØš©ljüœg¿SCºàcé¨2çÛ‹ä;%âÆ/ìõÛ8 ÁÔEçáHk’¬°ló§ÙýíŽôˆ^§,ÙJó©°X»ÎlÈæ&bnÕóŠW‡‡z¬‡,ÇhX«
èÜG-iXwÔ‰­t†Ú°FyãúÎ6ŒŸã—õ-˜³èG)qêâ,C `µöœ:ä1*?¸Ûšh‹MM2ò÷ÀdöY"¿¬éJ˜cˆkÛÑ[*¬mÅá‚dGÎó7ã¹Q˜†É2B®UP†e}P[ºŠG|q¦XÃŽ{ż潴ñíó¹ÃÖU°\uïÉ$Ô§tvÃë¨ïÆéqËv\z°ÒØè ‡c­sõŽH¬e~M)àu~¬RÍç
¸]ÕÍi°Ólø)âÈûî½oxÁ#§+MõƒÍÀ±	kLO€Ãè^ô]±eÜqy7wo Å‰ë¿Ñ¶h5Ó1¨âiD塤îõÅF4ÍÌ«Ç!dòÖÙ
#ÆâXI¦
+qçyUûN¼e
M*%€Ø9LSÎKö¡KŸ1Þ×ñM{á¦qÎØè‚Ÿµ Y€¾@ùª>Šµ?êÿq[mR^|ŸöŸè½)äŠïy»rƒÎxàä’ðh1‚V§õ÷A-šUÁÒÂù…~ëª	ôê}f~Oš¿y(糺pÚülHYvp-WÄB4ËÊzŠ1ÉÎ÷øpßP.¿…¨® رo…vLü¬{‚ƒ‡ÌµXv~dh…Ð*DzÚY£jö< ìúkñ~Ñ´öR\ƒ%§µê¹µªD‘P57xH·?Æ‘žr2í°Ìræ®g<0µðWiXEBz͸h-´8û| ×aÔ8+‰ŸV÷Ô‡+*‰Þ完•½°¢cA_v?É+-#ª|Ú‡ï×pÁ¼Ö~ÖêóB¾FÐ\Úšã麘d)$“¯…ŽÚª»G«4QV‚`†Š’5ž¼/"¬[z›°Î‘—XÁ¨Süaïõ#ëØÇÎj˜ñmR=aò.‡ ì`!ªxE»ÃVl‹{ÑôdР借\¯˜„3e¿I
öß÷„uå"mŒ£©h²e3jn[E˜ÜÇ–N50ÅE¢Þ»n¬¯’jÎJ×-ÈPﶸc{™‹â)n?oj¥‚5o<Ê(G›sŠààô¼™âDÔõW“®‰Ü+P’J¡†³ìÄq¾Ð²<RV={t¨Ú‡(¡ÿº.Æ}·n7ĉ Î ö‡KÑ`*	š7²k‰/²È™­¾<ŬÌÞœ20²–u
+:öcžž£p¿4©Ü°ûßSò’¬Øj;;)º~„?Á7$SÈÎ2õ`.õÕ5>Þü)ÕîðàÉP›â×ÎßVQ³cÂõŸï·
+JEô/Ùâxµf?“ÇÇîÚ8Öª9Ÿb*t9憴Sóƒ±Ą́2‘NîP@=i•Ò¼2$@sƒÉM0xÀÑg‹˜^[2PÔi:Ëø‘…®8EÏzF¬Ç,~T‡Øí±;
+}Œ)•¸Ï
+Y”ŸÁýUczƒšZ uô#ñÜl‚˜Ohï
+†0:ƒäålø=ºB2‘¦&«ÙùéjÙØÙ¼÷ZŽSÓ\iÖ$åÖE£Ñt>¸æP4äO†
hP±Wç-Í1Ä]­¼·µÀ{†ÊpÌ檭㽲á0íT
+²´Ö—ör±Ó„7ÊP“KNfÞÔõÓcñ:-Þù•#ŒÊí`F øÔ{I‡˜ï-ó+ŒIÜ›“hðlkêåÇþ.þ‘Ħx±ÓÞÖX_WpYþ!
—M'űÖCÇÙ3âw:ÿ@9!7¥Ë%0®=mÓ%7âJÍåÔÅ1Û_h(;TYòÏApËw´ß#˱ì?\Hâ9ÙḼu2
+!ÚªXöïl­°ª®s?2>¢~Ȩ¼è•ˆ¬IŸ'÷⤢ϱ‚Äðüeò
+]X»%ë&Øûcg›8ò³¯À}¸Ü$ë…‘ÉYÕÆ
+endstream
+endobj
+1891 0 obj
+<<
+/Type /ObjStm
+/N 100
+/First 984
+/Length 16452     
+>>
+stream
+1887 0 1893 120 1895 238 561 297 1892 355 1899 449 1896 597 1897 742 1901 889 565 947
+1898 1004 1904 1098 1906 1216 569 1275 1903 1333 1911 1427 1907 1575 1908 1724 1913 1869 573 1927
+1914 1984 1915 2042 1916 2100 1917 2158 1910 2216 1922 2363 1909 2529 1918 2676 1919 2820 1920 2964
+1924 3109 1921 3168 1927 3315 1925 3454 1929 3598 1926 3656 1931 3763 1933 3881 1930 3940 1935 4008
+1937 4126 1938 4184 783 4242 1939 4299 831 4357 830 4414 789 4469 790 4526 805 4583 786 4640
+787 4697 1940 4754 782 4812 1941 4869 1934 4927 1944 5021 1946 5139 946 5198 817 5256 788 5314
+785 5372 781 5430 784 5488 1947 5546 1943 5605 1948 5699 1949 5719 1950 6070 1951 6101 1952 6260
+1953 6283 1954 6638 1955 6767 1956 6890 1957 7536 1959 8007 1960 8638 1961 9109 1963 9684 1965 9909
+1967 10157 1969 10387 1971 10633 1973 10957 1975 11459 1977 11691 1979 12063 1981 12289 1983 12520 1985 12988
+1987 13540 1958 13931 1750 14341 1682 14484 1360 14627 814 14768 813 14907 812 15047 870 15188 915 15328
+% 1887 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R /F52 585 0 R /F83 813 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1893 0 obj
+<<
+/Type /Page
+/Contents 1894 0 R
+/Resources 1892 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1865 0 R
+>>
+% 1895 0 obj
+<<
+/D [1893 0 R /XYZ 149.705 753.953 null]
+>>
+% 561 0 obj
+<<
+/D [1893 0 R /XYZ 150.705 716.092 null]
+>>
+% 1892 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1899 0 obj
+<<
+/Type /Page
+/Contents 1900 0 R
+/Resources 1898 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1896 0 R 1897 0 R ]
+>>
+% 1896 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [320.317 573.77 387.374 585.83]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1897 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [320.317 498.054 387.374 510.114]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1901 0 obj
+<<
+/D [1899 0 R /XYZ 98.895 753.953 null]
+>>
+% 565 0 obj
+<<
+/D [1899 0 R /XYZ 99.895 716.092 null]
+>>
+% 1898 0 obj
+<<
+/Font << /F51 584 0 R /F59 812 0 R /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1904 0 obj
+<<
+/Type /Page
+/Contents 1905 0 R
+/Resources 1903 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+>>
+% 1906 0 obj
+<<
+/D [1904 0 R /XYZ 149.705 753.953 null]
+>>
+% 569 0 obj
+<<
+/D [1904 0 R /XYZ 150.705 716.092 null]
+>>
+% 1903 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1911 0 obj
+<<
+/Type /Page
+/Contents 1912 0 R
+/Resources 1910 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1907 0 R 1908 0 R ]
+>>
+% 1907 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [329.163 275.278 335.44 288.868]
+/A << /S /GoTo /D (Hfootnote.5) >>
+>>
+% 1908 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [291.943 134.696 369.462 146.755]
+/A << /S /GoTo /D (spdata) >>
+>>
+% 1913 0 obj
+<<
+/D [1911 0 R /XYZ 98.895 753.953 null]
+>>
+% 573 0 obj
+<<
+/D [1911 0 R /XYZ 99.895 716.092 null]
+>>
+% 1914 0 obj
+<<
+/D [1911 0 R /XYZ 99.895 444.811 null]
+>>
+% 1915 0 obj
+<<
+/D [1911 0 R /XYZ 99.895 444.971 null]
+>>
+% 1916 0 obj
+<<
+/D [1911 0 R /XYZ 99.895 433.015 null]
+>>
+% 1917 0 obj
 <<
-/Length1 1620
-/Length2 17956
-/Length3 0
-/Length 19576     
+/D [1911 0 R /XYZ 114.242 129.79 null]
 >>
-stream
-%!PS-AdobeFont-1.0: URWPalladioL-Ital 1.05
-%%CreationDate: Wed Dec 22 1999
-% Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development
-% (URW)++,Copyright 1999 by (URW)++ Design & Development
-% See the file COPYING (GNU General Public License) for license conditions.
-% As a special exception, permission is granted to include this font
-% program in a Postscript or PDF file that consists of a document that
-% contains text to be displayed or printed using this font, regardless
-% of the conditions or license applying to the document itself.
-12 dict begin
-/FontInfo 10 dict dup begin
-/version (1.05) readonly def
-/Notice ((URW)++,Copyright 1999 by (URW)++ Design & Development. See the file COPYING (GNU General Public License) for license conditions. As a special exception, permission is granted to include this font program in a Postscript or PDF file that consists of a document that contains text to be displayed or printed using this font, regardless of the conditions or license applying to the document itself.) readonly def
-/Copyright (Copyright (URW)++,Copyright 1999 by (URW)++ Design & Development) readonly def
-/FullName (URW Palladio L Italic) readonly def
-/FamilyName (URW Palladio L) readonly def
-/Weight (Regular) readonly def
-/ItalicAngle -9.5 def
-/isFixedPitch false def
-/UnderlinePosition -100 def
-/UnderlineThickness 50 def
-end readonly def
-/FontName /RUEFYH+URWPalladioL-Ital def
-/PaintType 0 def
-/WMode 0 def
-/FontBBox {-170 -305 1010 941} readonly def
-/FontType 1 def
-/FontMatrix [0.001 0.0 0.0 0.001 0.0 0.0] readonly def
-/Encoding StandardEncoding def
-currentdict end
-currentfile eexec
-ÙÖoc;„j˜›™t°ŸÆÌD[ÂÀ1Æ…p§³T¤¢€®o¿˜ˆà9«`ü¯….´Î:þ¹yÕêpýäJ*åÈÀl'¿–eî¡}#)Á¢Ý&»7+å‚/^§
™ëWŒ{ïÔLßZ60VåáÌQR^¦üλ3rï÷)€#v¢€$öp~c—²¼´°£êë&“è÷ö'ÄÉÇÆÅ¿ñÁä+ž	%;a~•ê!”ty`rô³cþúv7qÎú¾˜hˆü‹¬Kê[z‚ñSß=¸E+öÃGQðF¦–½Š¸ë’WVMüì¹cY*ÚK/i¬¡ãËi;™t—¬EÆW¼(Ð$Ýôôe€‰oLD™œ)åžàA¢“…t[Xä7‰¶þÈ_ƒUæ*D ¡Xõ½Q“
ôYrôvB>¾Œ:—#usò¦€
-Œ·«”(†HõÓ-àk£ÿx¤;uàÇmâCõwWUåÆ/Ûç3kñªè2o{–{ºˆðñ€]Qå”`†^@Ï0Zé¹>1í£°`	waÆÕÏ)&]þÛÄûÞu[x߯&‘?¤N~ &?VDäµ€P·(³».y-aîS¸lV„î˜6ˆÉÝ?!ˆ¯–ÒÛbŒ‚PÍGŽÝ°uµT†åN­×ž‰q*«ÏÛeü¼­ö<*VΤ‹niå`½Õ™ˆoAò0¬U
|¿)P]Å_"dÝÂN`,g¡ˆ´ù
-U@?­ÒÃéúà$¹÷r8ú~L*vV™ö)‹U'Ž²ov7tJÍ\Àá{ù›$}ë2ÓØäKáö(¸¨„”µ¤Üg>šç¯[/ˆéiÀÇ­2Q·Ý“	Ì$íBÇÌU¶×?–ëXJ·G(1‡ÈÏ|ÊÑïY²ë =Y¨'¢Î?»õ‡U‡âýâ¯éáZÒœeß¼çvôñàÆ·¸g¡ú¦ä
-ò q!K:ÔF¶Q¸ðÎ&>)¦RÙº¸@×!ø·÷åbëáÝZDæÁÛW%aÔŸ1IŽV¾<'Ú+DøÕ-8¢2óuDª¬¨Ú¨l:rigº¾yä"—”ƒÌ ¨iD“‚¾«nö.À/ü¡nQ¸ «þˆ©Ùrr3§Ñ»É:cw·*|°4è í×ÄsÝFÍ8ì¸$q=çÇW6"CD‡U%ìˆrâRqz p](0R{âï™?uá‡Wë ZìƒáÄ ¹XQo!oÓBÜÿ¨ŽÝjX!6«wå™—Nåí15ŽL ²ÞEý’	Ŷõ.;'ùâ(öaRt™º]•ïÓf#ù?uÖøXÇõºPq-@4e@Ô·YžÂ6i'u oÑúzJ;«-›“)T°vèWZËðˆª¯™m–jæ\ãÖÔ3X{ÒÑo&_×Uü¤È»nn\Û b"—O
tÍé7üRá'±7HÉûE€[adô'X½ÒÈÌ*Œ¡¦‘RèžÝ"Á
-<¡Ü+׺HÌÙxo’›úö[Ÿ	?f®˜Û¡ë\}$Å ¹
-fðÿÀDÑèRЃnmÅ ΟËŒÙÇÀ>ŠÓ\øVÜ»=X¼¿‡MH2&½ÓB¾fæ8̽ëÓ܇“w¡<]ËJÀˆB%aLážæ]e~ãU½RZw˜žy‡V[‡hûV³òÉŠï»È‘MH&Áì§mȽ¸U+ îJ0V‰7ÏAø»®7ï²gþÄsü15§Ö7B`¢ßX±ä9¹úcµ…!Dq–&/™cÅýÐ@2¦›-Õ¨QŠZjÆ"xÊ)Ó+J0c
0V!f$øæÿ.0ŒÂ|·Õô	¾:R†š(fÛºy¹¼E{èÖKaÉ'Oq†2ºÆ¼#¯~fðŸ»È°	ºÔà¨È_ؾ\I9Aò	Ì0¦¦,A²Šx„aYb$™òl–ÿªÂ5¼†6ˆ´>È£ûùLïèÕ5áíG¢g!ÝÖP²ÏYÔáò)ftà׈[jyÊÞü™sZL¿´ìª"Jày,þÉRo·aQû):=sØÝž»K:¦ï’éݹn4f"•8u?"îN#i™ÇÑ÷^Aëú¹f˜þñ¦—BÌæÄÃeÍ°˜†ÎŠ»FªG:ûgžÆ"Lr±rÝ[muÏ‚ê;äÇ´¾¨}CÆ\·ZË‹ñiÚ¿ÖžÜ(¾Y^Ï ,uýŸ‹oܧïö!-¦j9˜°¯$O¼Áo$úNÔ
ôïþX ð f£âoòuïÜg‘à Ì9B$Öús~Žýu‹]—ٵ͖C^:oê/oúüÆ«GÍŠa¥²†õâ¯`´Kgv&†:§Ë
-ÛpÆ‚éÏÕXØ~
·®GÒ°#zß•èˆVI±‡$r–rÆ}¨WÞßE2dߟ·÷¬ÜÄð\ØÛ£æ²ï~*‹›d#þaIAd¿TY¹í/J$×ÔŠ–1òó`¾^a¯Ã|x’.s¡YN5¼Zò1¹kw¿’k˜W‚*”íf``´Ã9žYͨ‚dêô!Ðtt.èú`”ûy­sÁ!wp•d×KÑ–Ñ«†<•b÷E<MQJœGØW-ã: §ä¤öJn\98%ò7~ÂUô»•uß?ðj-Æ«“$Ó,…b€¸Û´KõKk„‘ÞÙk4²€Ü~tÂt¼~>‡(Á0È·ïø`_èî>g²€Ú2÷”̨4HÑLV_˜‘¶Ké&åœõ«¬`Ò‹/2É‹é&ø˜w?fµÍ^këL(žb3Óâ÷Aôl9(7>yù6Wâˆô|a‚ƒVËD©Ô7úö»éW!'c
-œ•œ?Î(™³Hà‚ׇªËõ&ðZ€[æ!â	¶ƒ0 ´›š%‚#€'¹¸á/˜èDÕá#ý»ÔŸãj¨ùå‘È•Õ‘ÐÏœ¹mmV+Î2–•þŠƒùl•Mñ`{ËÉ%2“d4Vª`SF	6ŒõéY	_?¹‡ˆò’ß/Š>ÔÊ
hGyIâ<Ú+§›*	VoÂjN=v¥ÛTÑÇÙÆ„’è_VwË(FŠšÛ3Ú¨,Å.[¿¨ÊntTFiÉ«Ë@NËdÈ…¦3Ã9¼C€hrZ"‹ý„G¶›Íoq'ÔC=gÔé¥Í}rIÕ‚¨ãõÂc—ÜÚ‚½¬˜;OPläÁÙMû¸;„‘Óž Û	_õò%«€
-`!Ã=ˆYs“\‘Ë¿žA¢â*BáÇWÉŠ
-¸=0׋kDTOk¤ydÔtãÓÃÔPö{ýVta?lÆx«hÊ»âèp n¬.Â×2V«rœ%v%i§å)à†*–‘¬™ÂDà/çP800…g†œ[Ä'bSÊàJŸŸûäðæzÄ/›·Ò$½“é5r¹ì5¶Ó˜]¥”–0Þø:N™ñiB¼%…Ä¿H)¬ÎeIÄ”€ØhS!ÈOX£Í㤿ìÕO4 ¡¹+¹2­®==
`™ŸøÐôæëñ_4ýÙ»N’U–þMÚ“lÆ%ãŽÖõž¼å&°kaŽ÷;› ÉБöz–››¶›_vÂùKôt©f1F[Ñ“}á:ßF9>q0(Ñ"ŠÏØÆÅu3TQá`cìµMŨ”Ø’£<Òó²Ý–ü»°­ýõ¤É¦Ô!¼²pE<"+¼ÚÀnÉLg!:˼ßAb^ïàlO²0®ÿÔÒiS rþû~wÑâÒ˜¥_ú™g@¹“ÇŠŸ…¦‹‚å¼Á‘:nfâ–Í%õ$î77JNÏHIH“VweÊž·%¯.¹ŸÑŒêx ÕãPÓSÓ!·Þ¢49$úÞjúÊ«Ó)@çÖÍ <¥´Ê,­ÖG—KîÅ5‰ôKlÖfÄ–rÝÙ%LYÚï7“?™TÄ.¡6¥?~	F
4R¬£u’–4]
AÄ%”Jïë ;°âGù?è›òLb?çþãiôµØ¯(á4pÎh@©0…›1·ÞSUœ?>œÛœ–mÚÁ	lQÏaêlM¯6’YŠi^¨GY{G`Rse­JM®×2ÃŽÔâK^Œì~<™i¯§÷ά™¢Ê5s®É7‘ä~®û÷µ%,tÅ{w[+¥a£¥:èžó‰ªª˜Jlºž““Ú,¯ä[B>Ô=<½ï&N3ËQ&aÚWY†‹•Y|ˆÔÍÈï˜^ŒhfÑÌ£×Ù0ñùè:«0:ÊA!éIeñθ	û%ìü¯çÕ…övŠ¤ßÎÞüö¶zl u¯3km%Cñn庞xãotÐ0(sýU$o#j;ËtLïÀ@N™x¥o3lNùìžw¦ÄÞzšô–Tê3(RØ¡ÂàÓ°w‚ỄD&;¢¡ùþÆC¶[óÂáÕxòœe™(÷Ú®ŸCwÛ[ôšH€wï32€Â|xÏ¥“mk”Z.·ÚºÙ«ÈñMÁˆSš‘é$‚>½“	„iF²kÝ!´:¨Ÿo¨¡ðj8½U4afs74?i79	b‰}ƒ4{Qù•NÞÃUׄiÂN5š¹ƒ‚ºÎ ž.ã	Á^‹›ÿƒü¢|úžíõˆLæÇ¥À0³œµì‘kv
°z­Oxu3qñ5¡ƒ„fÀšV€!Q'z#Äaœ9$ÑÒ> ü-šeGÐHu„‹4‰Ñ¥U*—Ò"U†ÐøÍÒP"^É÷.EåðbÿÃ&uB%´ÒªÒŸ[æï˜×È®äfòJ)SC®È"âÏ‘UCö£rí{ÿ½{<9ʼn7	‹º[3SÚANSí
 §çÐOø€ã̓ÒaW††[9¦£Ú­07L”1m‚þ¸µ>)ñüÕ×öµ\в•n+tmþ; UÇ~ŠÉ•:5xÁq>à‰V£b¥dSA陼æB\jgf—CX6_:Æ` ’Í÷o3U6\<(L÷ÈÊT±oÉ´îóÍê7oDDÈ‚LD“˜ŽŒ™‡ÐÞŸ8D}T	¤‚öJЛjœÖ&™1vW
-`ËúçFE2F¿Ó8ÒEï>Å×Ãþw6«(ô¼Ó™ô}ƒ0ÆÉOöûM@×9àùôI»² qS¾¯ð Ik&\}R»jâmòB´ë=Ûk-óÀw-½7õ7l d–w¢p7BNúDÆ9h~QŠ)¥’•Ûuåå˜,í&¤O1+Ûk›‚ÛRJWþ\0	oArœ@Ê‹þ«›P`ˆÛ<ùœxa:ö T éªÝÎ6yd·±iªg>·‚âuí¿àÄ!º¢ûúÖ(©þEÙŸB:‰û¶î™­΂«OŽ}€mÆi”Zè†a§Nv‚d	¿Î²i²·D·qBüÊ5šõíÈŒ[$œXÎÕÆËÏc´ý"CäXL„š›ó‰´Íoõø6o6ûv®çÊªí¾˜ÆŸ‰ççtÏÇQ_søg*ë¦Vå´cdžŽJ…7ÓØSÙÔ•koÖ»° üÅÇg»XgôLÂ/­þ†oX6 
-;æçw$‚’¥n^ »3@|V­c@Ù¦ $þràîHÓ¯N­'õ|ÀøRÖ5O©´@ÆÝ WóQ×HXbÄ@w@_ðW‡ ‰‹wþƒëËMÚ‚ƅO÷ÍáºqŒÑ¡SÊg@Š–ÝÂ…ØßüQ ×
Ÿ}c’*Ͷã~µV‚m¡QB"]|5ÿ*|P58ùëd»)Ú$Üx¯Øy½vÒ:÷æ2	ÇP6<Í|»ïë™ÿAž;G'ß4oå_ÁÓy“¶ýË5 îÏ-D+ÀäpxpÿràZ8;IK\ênNy;•&v.IˆëŒÖq3fx^¨ lá-N¯j]q¼úïÒldÒ2`*AÕÂÔö½ç$™jm”z„§p´—X„5¦Úfªc¹I| ö²Ù‘Å\®=+\xѼ<÷’¯ýg—Ó
-BUù9º¥l˜>Ð;ñR;š`EƒžškÔœ'^—ȉïHC¼NJÝû¯ŒÊ¤9ëlV4ù”¼‡f¤þý3n”dt/µ	˜é>¹§cñº3†àQ»ÁÇû‹\¾=)Z2Ê%Ü·ÀzŸÔ—<©“l|ëÕ^µnBPø¿‘‰Žý$r±ë1ôåŒÇ`º÷>Þ– {ò®èfMjÒ)Ónw`’"ì‹:œFî¦sóŽ®\†/n½tµM¼Œx¸~]¶,†‘íbÐmšÐC¦­²£ýÞ¡Èbɽâ±R„+øþE#^?Í Ú­ÀÖߺúYËæãXÏù›\2xŇÄ<ÕŽAeo{5.$‰`ý ]òÀ€Ðµ¨sv_¬T*Ï;ɈidbMÍ“dБûn2,Q+|΃f%Ôz%žzâ¡"}Ü’=)ßâÚl)«ó˜ÉLÌl–èØ
Ý{DliTþ\CÁ-¤¢½‡éœwYãZj/úîTâŒ
qÏ©g+ßSVtf8ÍÙýhãÝ­ŸSí!
ºY¸‡Ÿ÷.£za§ßåNíÃõkÚ–:K
-ibh
-¥Î¹œ×_GÂOB·¦Y(u÷ùJtLgöÀ"©¦LS‰œ="ÅV–JÌ{<ÞÔÅs¡…s‘Ô>P]âýß©áZ¾UÈýÌÅЯ¿lÝØ}3R„!íkuòSÔ¦Ì0äÏ÷¢MìO†]ó"®uÑ¥úR‡kjÈ6Ã]€ÝîA½uƲÇÿ .mH§g8‰µ\àzÛ•ú•Ü8+li{Æsölt®—¬³i“~#“o~hêl¿Þoâ¢z„Då®èçð/Ù{ícvðöj¶oƒÈÐ(Ó³„3ÍÙj^éaH
-C§Ü¶L|/úe‹²¬pØã‚>5‡A‰¥4¨Øú¤þGä²&‚&›}9;‹GEVæàE…´ÚTê‰)ºÓ‚OÍjú
-Öɮ߫1Nµ½w-H­ä5&‡7¾’¶ëÑ­ä­›zÒÌÍ(–	éðC%ÇT`Ÿ\]ºSr*úÃ]…=‡³?Ý"-ƒY!•ƒšqRsá¡¡í4Í©lb_A.Ñ3é¼9÷OÈtE9o¯lh'ø )¨‰4Ž2èSfÅ–9rÉ@‹M°N	F{5µÉ<3™¼üÔî»ðrÀ[°R…7í¶ì™Ä™}L@¡/*”Ù5^ÌökÆÀGúª¢aÆE?.¨Á1 W<Â8Î#©Z×Ê›Œ^~P`}‹ÁPâ”Úùò‘"†Ód´±Á’̯ËÿàÉ…el3žƒj”wòš„¸ÒŽ–p®V_ù:v'©{–1eéÚ³YaHüŒ.áÖèTõצÛh2–hší
o*´™ó˜ø-a¯¹Òl 6Ó,ÇNÖ7𻙶‰Ùlç=Ôb Ñ<~sÒy’ã·­_ÛƒöíÆݲÐßg^ª¿B>ª'äMžjàšGt³mAŠ=÷ü¡VÔoÊܪ²£vLWÓc‚#ŸS%Ò­.–^xÙ5Ï“¨žŸ oÆ
`;nbBš‚ºê†Ö‹µ=ZõØŽ27ž,á7Ÿ6ÛRP˲ÌÌjQò‡bž»¢ºá6½0™þœ8¿Jo©§s¥%8aN>sàú¾$ÎI|T&Ó¤=s>¶
±MBÒæÍ"Ø¢ìä§ÑO¡æDi\g,ɦ-2û{W‹»ÌäßضæËÇÑÐöá”'û°Uȼ¦’økUxbùm„Æ¡»2PJIL"!)\ŠCXqEë’‹È¢b–üêî†xnñ¿pÀb¤VC‚NG…wB³sF8Ï^H5”è¦•)&‚ˆ¸$AÅk	>¢jÀLÃø›M¼0'³Ê™ð@:.è!îw!qÖ#q*èc?•©ê¡?I¦oÂñw–ýýy"9º7ˆžõ§ÐÝ%ø9’fy³ÆîÜÁ†yUôóØ3}Dý?¹„EkêÕ@ÌøÚB÷”.Ðá©
-åLY/#K]¿Ö¥"—¾‡zýH;z.EÕË° j’Xöžù.:Ⱦ#¾mÒ³bÊŽxi£ˆÀðk%®hM¾BîVèõѤ-@ÌûE¯ÛÙ¹õã°­瘲(u8Ø‹$tVŒ]ä1Vœ
-bhM¿$,ÐÇ‹´X:ù,2Cæóe³â±|¼»YJ3¬ ô\†¼åÄÖ.9ýŒðó`†™¢úÝ>.ÐÍ2qˆoò²%8¡8)BY&ózR¡z™¾…R¤òÇ©9×É»öÄFøZ¦ð÷SÅ•)Ì°ÄÉÔÎ/l?%BîýÌ)X£ÛôžòtÆëìËRYû
-oøï<ðÎ	vàï?ƒX8ñd|”¦G|ºíwÂm’¦ÍëÛ£”¹Ú(ê|´˜1ú‘uWJDó[¤0T!!¨8‰Æ¹¶)5ó¤-îáDÆÅò·ñˆ¡;~)ŠÀ1w"Ã9ö¯óí­Éº`s+8Òƒq­Ñ>&<%I$ð•/ÓaòE“)ã¤Ѹޭ)¬6béX].Žr8vŒƒ Ð•hˆÍ"ŸX
ûEÅIÄ8]û½p´­˜\ÿ‡¾Š")fD-aŸx¢¾äP	4‹ìMœ3G£øh
	‰»ë•$Ž³ôóá¸Üî1:øÓÍ(•2iNLÝBù6‡w„½€ôw¬
-J4¯a_¸—Ãxµ®•”_ßO”îTL–ØsJ8€h‰®¬ÅB7þPæLâ›ÈêØÏù¿kÝKv]ôê›VH=öëuKµÐèï´°O›2DþGí©ÜÉ¿*”šˆ“7-’o>g®Â¼ÄÞ°¦…”ÄbÙz,»?UÈûäp¸
PR‹^±¥Ëø–p_*„שjaº»Ò¨jº0`÷zBí*c3Æé³çeã¼Nzܦ±À½U¬6
,Ò&XUééÕÈÈpYßøÚ ,jHÉcº¤¤ýó’ûs¬3$xç@	‚ôb“˨?T!=]B* ‡Ì9+ÞÐyïªôsû½€Æ'ž>ˆö‹
ýÔÇ@³³*ÅZ »ÞXM•²®éÒ$‹
-¦I,ŘÙ†úmà5 áŽÐ;+`3&¼Ó„’ÀŒ0D!’éBœâQ˜²…#^(0¼Q„$÷lH’®&bqØóy_gC¯ÇÆ(°|»}‰‰_îK®TSHݦݣTxUßæPœ0ì¿E>Bçúb°(«÷*¬vš8<Û‡O}$’˜vHŠúŸ{~ÅhR^†àA¦ÞÙGùÇë„NR¨K	éa”«8"
-FWG†RÝRfAbú°Ÿ†écYî#ÇæxÏ«‹©‘½óE v¯}SŒê®ê{ôbçWZ„áS}œ¿ žD¹¤…˜g:ä__·­Û+®Ï“©Ÿ®ZƒEu²¼&¤>Íœ‰²FZ¿Õ34×	gþè+¯ÝKŽ; àc6Æ¢O·0|Fú"Ð$«¤èçfCÜûÃä
-‡´¬u¼Ë¯i†@Æ
úÕzY{=×Ú—Y
-$´–‚G…gº%ÃfÜäÜ~j¤ø$ÝW,;|}ìàôŽ3Y;ýs‰‘Áö`ŨƆôä£ò—#‚D3«ŸCB¿0 5ö½åe†W½ytý1…Ò,òì)5œ×T›­bMšb?*½†²šXɸñX_-©¢@g{ƒ®ØGŽšÏ‘3ü§¢lGÏ>ƒ!üÁü³"^0¡4Dv¦¸%~Ô‹·Íðú§ÈÌïÿ†Ö0cV¦E.c˜Ì €ËÎššU2†T²ë;¡n™YC÷Kð>¨¿ê-WÀrÎàÒá{æù®ÛJ
«´s' 
-\ªyS|Cþ29‡%y˜ò­ÛÞYH9dM)Á¹Ÿrñ
—™ãøX“âÑÆ­DKý¶Jœ¶îA/TÞu³ì‰®²–ÙñV®9=™h³ˆØdÆ•´;vÈÖT†8JIfJÓ­·Wph…$à´Ó^QÖ@ÇAÅõM6 ÎYRA¼¹µJ¥pŽOx5‘ÊYS£6{£Â¶:æedÀ5JA‡^:ÜPôFW“AQ0:3¹ôZeÚeü_›D-ä¦>b³é±™IéàC)0ÏÃNôÿ¨çÈõ\£iÝøH/ø%¶Ò90ÍjÔZ0oï¶lÞ‘±×îX„jÀžëY|6>1\ÕiªD€ÛO+¸¹œºÞgÊ7P‡C¯
°/)4E›Ñœ¿q3.=®JÑfL¤ˆÄîíh£KìŒîȃ¥5F¿µ·ÈyÑ$`J¥Ÿ—*	*D¹H‚fu –»e½õ¹
-Ø•¦ù´ê ×þ
G­ŽxIÅ@Lèf¤Â·mé¾Ðýø>ßÉp‹A’x$Ô÷L£k¯óuVSmF,^™@nR9áT€ÿ¥zžYøðA¯@®'1¤×Hr›Ãä¢p‚2gܯpXé¸ìMMî0ŠÂœ®Ã¾3iÆ4žm	›¡«'qŠr¹ª™±&…‡öý*i…mãy©p€©ÌA’h` ‰LœeVV}£Zžõ+ñRÙ¡ÃÌÔ[ÓmÍ®tî?ÇŒœ‹µ5Y¿óAb{ªïû™×Žò9ž†* û%Ä.VSäÂ}B4ÎAcƒZÚPþ¡:}Çú¶—¦ðz©_BíFH9­²—½]5Ùáf'Ý®¿ôôé T¹ÒC»€â™žGâÿq¿ÉÕàAhªÏú]‰õ=îá¥sòÕ+ãÖ³¡»Ùê’ãÝÊXzdPÑÍ“‘B¸m! §Ândí ëôš9½K"_z	æ…Á 
‚'j»åòØWQ¥¹WZÌOöÀÌî6ü{õe~–ÜCŸ1Þîz¶¾'<ïô¥“S ùrF,ëkiׯv…-Q7ó;8:nÅÍö¦ ‰újíÍš
ˆHã6(PŸÃú9Q™úì=…:›Ýßzóòb´3%j˜‚†€CAêeÔA7È'›pÂN¶÷*=εŒÞ¨Ž…g/Y‡‰Ñî™ñ‘2icEí“Y*læ	5L-Q¢2T¯"R…‹1‹&†êñ0‚_:þv`†•Ïéz³Æ¯Èõ»‚ï+:ÐÜÜÑÜç€U€z:Ž‚(P‡Øgé5´?î)¦ºøùWbý?õ­ÁŠ¤Å¼JÏY<¨>X–´”wv×O²ì^eâ¥@C+—Íi÷g¦zóºà,“§i’ë&æ±ëëztvØ1ÒÀ8?9=‹ù?ü‰5~6qòÑñכĊw‹¸¤|‹M3Ÿ8u ¿J®Ã‘CØ\Ó,”Ÿ=–éÙ]o7Ò½éáŒJIî{¼‚Øë¦k¥88áìÌ‘bÖŠÀ1œ’5}ú]Úç®KO1ƒ9ƒÚw¯
l1…‘ÀìªcÃÓ¢g@fÛ­œ<þð…£Û$¹Ý–¡5Þ$´ë–ûk8nÆÈ$à¤Ê¶.§l¼ØÛÚÃJÃgh)™e|TÝÄç6Ì¢*Å46¯ôâ™7?­kýöj=Ê<	*i’¿¬	 ¦k†:jé^X[þš‘ù>íÒ¥€§¤4ʴПg+ÍMö×YÓ	·-
-Hì$(¨BÀMPä.Td¥'÷"²¯&¸Ó%Ÿ–Û;¨2±\ßl©Ú xÁ|©©µ\ûH”TŠZFEŸ×V0ã«Ú³±æéb>‡ß«=ʯ	^8^äòãõþs·Ñããì8õ<¬“ÜýCûVˆÓk¹„"¹JeÇÚœ„bå¡
,éGÙW¾¯+ýÁ“OoEŒ}µ«ïJØnŸºå>*ÿÝ/÷Á¥Rµø,PÿÎ@¯Ñcss•6K&Á‰#Wqì……èê5©À¬ŽÃ=!º©à¼8ÆÅ>§–eªÁÉËT{3ê³ÎRÿ€LI"gl„d(Ûu¨E‰¾y¦nl)¬åiqÃ"k<½F‡-§ät‹¼‘7žã0¨…ý_Ë©ú[Ü ¢Z&ãßO¿ŸgÈz{a¯ô˜}>v¼Qoþ»~™“[Øxë£l¾Óû1Íu®ÌË{þîß6N¡ª“Þ‹9·|0”¦tá6l-“ÝtðæܦŒKgÑQfŒørÿŸW¯ÆÙC%{¸Êÿ*±9×uã®$Œ7p©ÅÐòÏyCõþ)ØÆ>í·dQp¦¦GŠæ-´½	fÊ_g¹¸;q0s`Ãý_Óç°‰˜q¸êIŠQäpâbªt‡/H쮺۷ïG®¾Ay¸¤›äøþº°:LSCÅû@êÆ?õYÁKR˜.ézr[}fK³RZÿ']à‘l‚ýn‘iX±B6ªó¥ÉSþ\,Z'·–'Åq¶^‹ ÒiV25
"‚?âD˜]Ã(Ìçâ™È—&?…¦AW#7šâ&C€ñ5ÿ¼Ëÿ‘›!º£x˜Ÿ¢+˜zdÐÌ1éWW6øŸHáÙßô8ïŽ^Ó¿:aH÷úpìöºRK%ŒËü‡‘¡›ÜOïºwLys¦ëC¿¹#sœ©?à@¢lt<”^ˆf"™oò…øëMPÿ²Ó¯ÒðGíwÚSlú÷Ž`ŠôÖ†!zËiC(fÔÁB’ú){™ŒV¾¼ê
¸„Æ“JYÝøϯJ{8kþ£‹éš¤‹Å7ú¹”õÒhÉ+g©ºDó„‹2TŒwqœøy0?¶÷ú£|q毨¤ÙßJ›Îôc#½­Ž[QT3âÓ—„øÎÀ¶“ äÑŽŒÀšOU¼'QÃåõGâ¾Ií{EX¿_ú7áþ‹Š{%=̨Te‚8¿«Y¶_í„£€$k‘ÚŒ–7Œ«ûïÙSW›Ú~öåe€ÓTÞä•Ñ‰ŸôÔQrQL5n
Õî-«ÖÿQ){ôØ©ó·O€‚Ý’‚»ÎhuÚíûutIƒÏ\ƒûûQ»ïENé‡ÞÝs€ØPIA;M^45n …’CõŽ¶Ê³­Xà˜™¼^³ûçšé|Û¥6í¸»ø:LíÀ¿Ïqgœà+ˆðt(Ð;gg;L‰žB»¶=Ö{’w;I/£0ëÔYL}$Ðz6ÂP=ÏÆk`i¶œ}yüø$,rãîþhÅâÖmé̺¯oPzýN\¼ú‰ªÄŒ`C²Ã†íX3¥ƒÜ­îÑY±eTÈÁ1ú¤&3ïx¥W·Ã2û*Ò,Dep˜À\½ÊŠh"\,t›6ÞÑýYØ}ñ9cÚëqFS½'#•ÙÎ-¸)‰)]æ;7)–IUs
-øb˜w‚ÏÛÃmöPñoê?ñª¦æ×ÉÌŸ‹òVÛO!¦­_îÏ·­BêµëöѤó›ÕOL b'ê]Ý4öHÈD³±6ÿ)Ò<ärÂaÛìÝAEAF)¦€†êœið®@Š#‘c¢s‚ZöË];^%#ýøhÜiêv’Ú¥±5ý Pu^ÂrÞ™¬t,­tg®ìÀI{û¡¸ü‹h¹®?h‘ÀðCðXá_U!¦ïê2åhg¶›®ò ¨K†ékïöõn7
-åq±søBÂõð—\ºÇߘàçPM²"öDXœ%žÝ…¹C½ÏÜÕ z]œ4˜–³à(ÂöK
-©Þ1K!0ÐíoZ¯{ö–bÂ0¯q:ÛË&^/†@ck5
4×Jj%—L^m£ÎÎj—W{?ÎÆuš†õ‚W꣖ùh£¸·M$3[¿åCdìse¸wJ]$$´&ºÛ€{pyü5-žïUwU_Þ_¬:¯×«ÜèŠâã£ò¨¬š$¦Áööó4–¬ëNs™0S7Í™e×Dnf#›Kgð°±eÝ*ç:xÖÃ[ãÓ^Ø2ÖWw¸/Õ’
-¼×LògÅÎÓ_ˆl•$6û/ŹkM½ãy^#ÆÝÞ1G!|&0ä "—­–”0Ž!m!uPRMwÔ7TÁ˜îåoC9ð¯GÙ*ŒÄ
ôBè“ë㉿š[‚KmI“îA^˜˜…V‘žµöt78:éÕ¢ë•Ö³cÖÍŠ_ƒ·µ`ÜSNAGmõ\ÿ6xËYaøìûeÎç’½Gœ¼aH•f'T%™]äd–ߟœñ1¬¹íAœwY¾N³lzHÊY7ÏÛËsT×ø˜Œ„›à×c).†.-Fo¿£÷"‘(Û-ìȧ¾à2zÒ)ÚÙVºô¿á®…YsR—;]9©R}ü¥O¥A¸Ž6Ù®uÉ—èñÂÞ•ÅBˆ'•ëñ¾áwS±xÞô;¹û3¹ƒ”¬üAñ£iïc½åll|­|îCêšj`ä=N‘Ë…¼ã°Õ{_TqÓÂJ]¦òò>¿ä#eѵxö½­U×Χq¿'’U.—Œè”N˜óT®~Fò¤áüIðu±¯Räæ
-qÒ2פíå'f±+y3ô¯ÿŒâL¯e°Ð9ùÞuÌJ¦³îUßÊà\öŸ†	€Rkv‹;…KßÄIíÚ´4¿9°5=>ÄKІpCS>F›ÉTC9B÷¾a0æóüñ×
aà0wÒ¡¾Z¦áÔ]ô$¾mÙ=„Ž5IÅY@3¾Ö,º¸l¢té³ü$^hˆMÜ瘑dü?¹‚‹ß«•S´É±tºÐ§Ïê©dÔ4QP\.:ìå(zõ8Οèý“Ð	¯Ô‡½eF22L1fuˆ:×#Ê|Cr;ÿ»×_:«Â5òµ–2Œ¿1Q‹Nì-+™‡³ŠÒˆzZ?o‘†±r…̳Ò ã €ËDc_à-~ìk?Š3,­â¡Ð}ã¬3J5%›w™a˜!¬÷>˜ÃdR÷-öÞ¥StÜù	 íÅáJ§4ߌG[éÆ¥O‰_MÆiG¢C̾õO9€]‰Îç4™†‹TUOëÃcoÈŽ®±wˆCªwqAÇX(V»=]Ívjào<SHWiôŠq,üuxº ò#7´èOg°¬hn—»þfI.DÒ9½f²éÌÈ.o6£üSß¾Û;àÈÞP²®—BÑØMÁÛ†mÚíC'€0 çp¿
Ã>pÀ7©{kôögg¸þyQ±žÐlôAuØvõÅ%Ó‰–»àwjpA`I诬j7[£éÓ¯ô'¯‡~1Ó³ù‹ˆˆ[gп~ñ*cS½õm0¦d3ËB
-mº2òX!lN×7ªîeå†wú\ÁÛ¢“S\2²D?0éÓÔAk òpåí·I“ˆpI§uqˆÖÊÿ:)¾)ü	}.ÐŽæx—ü€tæòúLºKöi‘(þ²l|žI¦Ò¤”0€'U"j±—Q1ÓúpÌ …ÄàH`¡’bšÞrJ!Õ€+´Àr»t·ægßêÚÂ	ß{6öJHƒp“d”¸t
žì—þ:ñö°ä^Kãâ|JìÝm
ÆCCþBíxäÓ¨ýN$«þ$P–z1äþÎòv=|/â{?
-æ#yUm¢|SÅÒW²Í¹ÂÕ]^&ºØb{|¦H¬Ó* &x³¥/Ê¥v*KÅ
unšHÉz)ß&âkYC,6Šp	Ê`QŽdõmÉDögd]ÉËvî0|"³±ÓÄd$Ž‹ÿôT]…ºÊl
1ØGLe–ÖóåL§|ÿ]+r=ãŠ)ötëÑ¢˜ªßŠqàËw­z)ÜÚ9ºÑölDÏa>[æ6ˆÐ´ãµp9ûˆ»ôÍu÷n~ ;“ÓjêZöú­wáÛ^Âêþ ˆÔN§£Ç¸i÷0±¢'Õp™°#=cdÄÙ[—äsñ+Üà‹Y8T5´@hÑi§žâ§ÈIò€Ç¿F|¢*òóÍÌÜ D#`Á䇰sTAH5_€ŠÛàEBÛØŒ®2!ü'¼I5¶''³Â¥`Cgzõ£×«øÀ1jËi°0úÔŒ»êA<=LÖAä«f
-Ñ<ÝlxËVóE"“³°”mG;á50xX÷»&£5#gfâ‚T0Ù¼cK¯½.ûäL²kô»A~ÑU=/õ%ÒNÕ^-”¥@¢›Œü\¡Øbläv²’þ§&“7ÌC‹f Ivš‡o~öš$oSΖ¤h4x˜ê«GÅ".b'þC‘4hüÇùˆ®î.U÷å/Ø8æbÊݺ2%duR#‡NWK–,nç¹2<ÕuÌI×щb£µ‘ëBbÃjÝ=ÐÁµ‰‘}¶°Š­¯>\~&ÙhûxQüž­tË_AHF¼ñv	èêÁÄ6®7rÈ*Àí€ê²•d¥ÚiöÁaÅJösPµ;lL¾ž¼vÏ9
¦ï•Å‡d4@Ûáf·¯8éu¾<Â`ôùüpÃÕÄ„¾Ü£%AŠ>bѨ…c>ö7ùXÎwÂnëìÈ‚Y@cJÍä`z	‰|Ë˳…Xšò –<=þ?Öj©uw鎎’»ì2¥éBõg0$×+žâEËíámòlÓ¢MÒrŸd7R…¬h>팿O˜%PD¦Âö6‡‚‰~e;WÐâ—Iÿíâ#
`õuª¨²sí.aCÃq¸W­‡+¿¢„ñ€á3xþ¹ài¡­¶@Ìe¼ %L-)a…½Ï²nêùó’dÙ¸1YPéðÝЪ«¨¶¾ÉKÞ¤Ô–zT¼ì¶} ©œ^ÚS²–+Ù+ƒ:‚Ô–8V¿oʯã­#œ0›Lïõ¦"¢—xGµgmØŸØò¸ÿE&Ò4ÜÚ™Yu>Æ»v²ôm)bg¶ò/¨ŽÂJºŠ1ÃØHÒŠ‘ù²âè~™²f4!µzbVÌŒ·øXgZ:Ö澧:óc…TPœBrq5-¢º|Ôàru¤`vZ|„.’‘<&5„—R^LÊ(^¶(½ú/ÇÜÜû5ŽÇÖîNU¿)7—y0€ü¼¶äR…îf’qOw‘4WŒ£‚Ò†ŸÏ¯ŸÆÙ|–Ÿþ„·±»”Gk/V“»càïtt+vΗ$F÷ ÷>DîÃiÆ¢’VžêŠlÀU(æ/ùý4̶Ýg4!t¹Ùæ[MfðWW2&<Ä-á
Í; £A·OÉRqÛ8`0ìÅ_0(¼§mîŽp³ß^’tŒLÖ?èZõó&ÓÎÃóšî!ô… ˜bã{Îö†š5½A
y›«©¾bšDÚwÚ¶ZwõÎQ2y4¼¶ Óˆ+µO‚æ|€šªBh³1Íhy‘´ÂôØ©9²ö伫üòW;Æ£âuêáªmïqÆÏ1‚5i¦þ¹{ë\½‚ÎÁÉ{XšËØ¿zIÎz€²¤¾¶öÛÿ‚
ñÙ3P…Aõ5úË_£ÚxêÀ÷Ò׸µÊ¥š‡¡Q…ùÿ³”‹)¢÷épY7æj™Î¬BÈ»¼ÇQTÿìÓvyžì+à_mk—ÁJâ›ÿ¡Ã®wRš€#Rî¹·§£U	ŒWäů­
%û
-0¥ÓÙŽ÷Å÷N&Ç¡¹4#päF¢è]Ö@/P¦
-}79B8cîÆŠ
-V	>Ÿ&²V±~HàeÔJò³šc9ú"â“‹­¸ïHZVK¼Ä-!0,+\a§¤†´"ç·pÙövšpáW8j|X3$œÄ×D‡_<Â7è‰lÇMxÅ]æ£D/6b5Cvf	«Ê£¬|îMÉÒd°ìÐÒ½ÄyóîÖ[ç9d!uRnbÙ죊*›^O:¼³xE¹•{sŠDcÑlÅ«ÈÅú&×Yæ3Û²Ÿ.Œ¡Gösuß!1÷³ùIïrcìüÁ8ïf
DÁE]P¹ÒØš©ljüœg¿SCºàcé¨2çÛ‹ä;%âÆ/ìõÛ8 ÁÔEçáHk’¬°ló§ÙýíŽôˆ^§,ÙJó©°X»ÎlÈæ&bnÕóŠW‡‡z¬‡,ÇhX«
èÜG-iXwÔ‰­t†Ú°FyãúÎ6ŒŸã—õ-˜³èG)qêâ,C `µöœ:ä1*?¸Ûšh‹MM2ò÷ÀdöY"¿¬éJ˜cˆkÛÑ[*¬mÅá‚dGÎó7ã¹Q˜†É2B®UP†e}P[ºŠG|q¦XÃŽ{ż潴ñíó¹ÃÖU°\uïÉ$Ô§tvÃë¨ïÆéqËv\z°ÒØè ‡c­sõŽH¬e~M)àu~¬RÍç
¸]ÕÍi°Ólø)âÈûî½oxÁ#§+MõƒÍÀ±	kLO€Ãè^ô]±eÜqy7wo Å‰ë¿Ñ¶h5Ó1¨âiD塤îõÅF4ÍÌ«Ç!dòÖÙ
#ÆâXI¦
-qçyUûN¼e
M*%€Ø9LSÎKö¡KŸ1Þ×ñM{á¦qÎØè‚Ÿµ Y€¾@ùª>Šµ?êÿq[mR^|ŸöŸè½)äŠïy»rƒÎxàä’ðh1‚V§õ÷A-šUÁÒÂù…~ëª	ôê}f~Oš¿y(糺pÚülHYvp-WÄB4ËÊzŠ1ÉÎ÷øpßP.¿…¨® رo…vLü¬{‚ƒ‡ÌµXv~dh…Ð*DzÚY£jö< ìúkñ~Ñ´öR\ƒ%§µê¹µªD‘P57xH·?Æ‘žr2í°Ìræ®g<0µðWiXEBz͸h-´8û| ×aÔ8+‰ŸV÷Ô‡+*‰Þ完•½°¢cA_v?É+-#ª|Ú‡ï×pÁ¼Ö~ÖêóB¾FÐ\Úšã麘d)$“¯…ŽÚª»G«4QV‚`†Š’5ž¼/"¬[z›°Î‘—XÁ¨Süaïõ#ëØÇÎj˜ñmR=aò.‡ ì`!ªxE»ÃVl‹{ÑôdР借\¯˜„3e¿I
öß÷„uå"mŒ£©h²e3jn[E˜ÜÇ–N50ÅE¢Þ»n¬¯’jÎJ×-ÈPﶸc{™‹â)n?oj¥‚5o<Ê(G›sŠààô¼™âDÔõW“®‰Ü+P’J¡†³ìÄq¾Ð²<RV={t¨Ú‡(¡ÿº.Æ}·n7ĉ Î ö‡KÑ`*	š7²k‰/²È™­¾<ŬÌÞœ20²–u
-:öcžž£p¿4©Ü°ûßSò’¬Øj;;)º~„?Á7$SÈÎ2õ`.õÕ5>Þü)ÕîðàÉP›â×ÎßVQ³cÂõŸï·
-JEô/Ùâxµf?“ÇÇîÚ8Öª9Ÿb*t9憴Sóƒ±Ą́2‘NîP@=i•Ò¼2$@sƒÉM0xÀÑg‹˜^[2PÔi:Ëø‘…®8EÏzF¬Ç,~T‡Øí±;
-}Œ)•¸Ï
-Y”ŸÁýUczƒšZ uô#ñÜl‚˜Ohï
-†0:ƒäålø=ºB2‘¦&«ÙùéjÙØÙ¼÷ZŽSÓ\iÖ$åÖE£Ñt>¸æP4äO†
hP±Wç-Í1Ä]­¼·µÀ{†ÊpÌ檭㽲á0íT
-²´Ö—ör±Ó„7ÊP“KNfÞÔõÓcñ:-Þù•#ŒÊí`F øÔ{I‡˜ï-ó+ŒIÜ›“hðlkêåÇþ.þ‘Ħx±ÓÞÖX_WpYþ!
—M'űÖCÇÙ3âw:ÿ@9!7¥Ë%0®=mÓ%7âJÍåÔÅ1Û_h(;TYòÏApËw´ß#˱ì?\Hâ9ÙḼu2
-!ÚªXöïl­°ª®s?2>¢~Ȩ¼è•ˆ¬IŸ'÷⤢ϱ‚Äðüeò
-]X»%ë&Øûcg›8ò³¯À}¸Ü$ë…‘ÉYÕÆ
-endstream
-endobj
-1884 0 obj
+% 1910 0 obj
 <<
-/Type /ObjStm
-/N 100
-/First 998
-/Length 16941     
+/Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R /F59 812 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1922 0 obj
+<<
+/Type /Page
+/Contents 1923 0 R
+/Resources 1921 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1909 0 R 1918 0 R 1919 0 R 1920 0 R ]
+>>
+% 1909 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 654.503 409.811 666.562]
+/A << /S /GoTo /D (precdata) >>
+>>
+% 1918 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [393.303 584.479 469.357 596.539]
+/A << /S /GoTo /D (vdata) >>
+>>
+% 1919 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [393.303 514.456 469.357 526.516]
+/A << /S /GoTo /D (vdata) >>
+>>
+% 1920 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.753 374.41 409.811 386.47]
+/A << /S /GoTo /D (descdata) >>
+>>
+% 1924 0 obj
+<<
+/D [1922 0 R /XYZ 149.705 753.953 null]
+>>
+% 1921 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R /F85 814 0 R /F83 813 0 R /F61 1360 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1927 0 obj
+<<
+/Type /Page
+/Contents 1928 0 R
+/Resources 1926 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+/Annots [ 1925 0 R ]
+>>
+% 1925 0 obj
+<<
+/Type /Annot
+/Subtype /Link
+/Border[0 0 0]/H/I/C[1 0 0]
+/Rect [342.493 554.876 418.548 566.936]
+/A << /S /GoTo /D (vdata) >>
+>>
+% 1929 0 obj
+<<
+/D [1927 0 R /XYZ 98.895 753.953 null]
+>>
+% 1926 0 obj
+<<
+/Font << /F51 584 0 R /F54 586 0 R /F59 812 0 R /F52 585 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1931 0 obj
+<<
+/Type /Page
+/Contents 1932 0 R
+/Resources 1930 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1902 0 R
+>>
+% 1933 0 obj
+<<
+/D [1931 0 R /XYZ 149.705 753.953 null]
+>>
+% 1930 0 obj
+<<
+/Font << /F54 586 0 R >>
+/ProcSet [ /PDF /Text ]
+>>
+% 1935 0 obj
+<<
+/Type /Page
+/Contents 1936 0 R
+/Resources 1934 0 R
+/MediaBox [0 0 595.276 841.89]
+/Parent 1942 0 R
+>>
+% 1937 0 obj
+<<
+/D [1935 0 R /XYZ 98.895 753.953 null]
+>>
+% 1938 0 obj
+<<
+/D [1935 0 R /XYZ 99.895 723.717 null]
+>>
+% 783 0 obj
+<<
+/D [1935 0 R /XYZ 99.895 698.622 null]
+>>
+% 1939 0 obj
+<<
+/D [1935 0 R /XYZ 99.895 640.564 null]
+>>
+% 831 0 obj
+<<
+/D [1935 0 R /XYZ 99.895 585.057 null]
+>>
+% 830 0 obj
+<<
+/D [1935 0 R /XYZ 99.895 532.2 null]
 >>
-stream
-789 0 790 57 805 114 786 171 787 228 1882 285 782 343 1883 400 1876 458 1886 552
-1888 670 946 729 817 787 788 845 785 903 781 961 784 1019 1889 1077 1885 1136 1890 1230
-1891 1301 1892 1321 1893 1352 1894 1511 1895 1534 1896 1877 1897 2006 1898 2129 1899 2775 1901 3246
-1902 3877 1903 4348 1905 4923 1907 5148 1909 5378 1911 5608 1913 5854 1915 6178 1917 6680 1919 6912
-1921 7222 1923 7448 1925 7679 1927 8141 1929 8693 1900 9084 1698 9494 1723 9637 1360 9779 814 9920
-813 10059 812 10199 870 10340 915 10480 1154 10620 1027 10765 584 10915 586 11085 585 11255 587 11425
-780 11538 871 11651 927 11764 962 11877 991 11990 1034 12107 1079 12227 1121 12347 1180 12467 1232 12587
-1281 12707 1330 12827 1371 12947 1409 13067 1457 13187 1500 13307 1534 13427 1574 13547 1615 13667 1647 13787
-1679 13907 1716 14027 1752 14147 1796 14267 1833 14387 1871 14507 1930 14609 1931 14724 1932 14845 1933 14966
-1934 15087 1935 15181 1936 15277 574 15346 570 15406 566 15517 562 15591 558 15679 554 15767 550 15855
 % 789 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 474.043 null]
+/D [1935 0 R /XYZ 99.895 474.043 null]
 >>
 % 790 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 431.766 null]
+/D [1935 0 R /XYZ 99.895 431.766 null]
 >>
 % 805 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 388.215 null]
+/D [1935 0 R /XYZ 99.895 388.215 null]
 >>
 % 786 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 343.387 null]
+/D [1935 0 R /XYZ 99.895 343.387 null]
 >>
 % 787 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 299.836 null]
+/D [1935 0 R /XYZ 99.895 299.836 null]
 >>
-% 1882 0 obj
+% 1940 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 256.284 null]
+/D [1935 0 R /XYZ 99.895 256.284 null]
 >>
 % 782 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 212.732 null]
+/D [1935 0 R /XYZ 99.895 212.732 null]
 >>
-% 1883 0 obj
+% 1941 0 obj
 <<
-/D [1877 0 R /XYZ 99.895 169.848 null]
+/D [1935 0 R /XYZ 99.895 169.848 null]
 >>
-% 1876 0 obj
+% 1934 0 obj
 <<
 /Font << /F51 584 0 R /F54 586 0 R /F52 585 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1886 0 obj
+% 1944 0 obj
 <<
 /Type /Page
-/Contents 1887 0 R
-/Resources 1885 0 R
+/Contents 1945 0 R
+/Resources 1943 0 R
 /MediaBox [0 0 595.276 841.89]
-/Parent 1871 0 R
+/Parent 1942 0 R
 >>
-% 1888 0 obj
+% 1946 0 obj
 <<
-/D [1886 0 R /XYZ 149.705 753.953 null]
+/D [1944 0 R /XYZ 149.705 753.953 null]
 >>
 % 946 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 716.092 null]
+/D [1944 0 R /XYZ 150.705 716.092 null]
 >>
 % 817 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 687.379 null]
+/D [1944 0 R /XYZ 150.705 687.379 null]
 >>
 % 788 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 632.184 null]
+/D [1944 0 R /XYZ 150.705 632.184 null]
 >>
 % 785 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 590.403 null]
+/D [1944 0 R /XYZ 150.705 590.403 null]
 >>
 % 781 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 545.192 null]
+/D [1944 0 R /XYZ 150.705 545.192 null]
 >>
 % 784 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 512.037 null]
+/D [1944 0 R /XYZ 150.705 512.037 null]
 >>
-% 1889 0 obj
+% 1947 0 obj
 <<
-/D [1886 0 R /XYZ 150.705 480.156 null]
+/D [1944 0 R /XYZ 150.705 480.156 null]
 >>
-% 1885 0 obj
+% 1943 0 obj
 <<
 /Font << /F54 586 0 R /F52 585 0 R /F59 812 0 R >>
 /ProcSet [ /PDF /Text ]
 >>
-% 1890 0 obj
-[525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1891 0 obj
+% 1948 0 obj
 [1000]
-% 1892 0 obj
+% 1949 0 obj
+[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
+% 1950 0 obj
 [777.8 500 777.8]
-% 1893 0 obj
+% 1951 0 obj
 [853 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 666 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 747 0 0 0 0 0 0 0 0 0 0 0 0 0 0 881 0 0 0 0 0 0 0 0 0 0 0 0 234 0 881 767]
-% 1894 0 obj
+% 1952 0 obj
 [528 542]
-% 1895 0 obj
-[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1896 0 obj
+% 1953 0 obj
+[525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
+% 1954 0 obj
 [531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3 531.3]
-% 1897 0 obj
+% 1955 0 obj
 [388.9 388.9 500 777.8 277.8 333.3 277.8 500 500 500 500 500 500 500 500 500 500 500 277.8 277.8 277.8 777.8]
-% 1898 0 obj
+% 1956 0 obj
 [777.8 277.8 777.8 500 777.8 500 777.8 777.8 777.8 777.8 777.8 777.8 777.8 1000 500 500 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 777.8 1000 1000 777.8 777.8 1000 1000 500 500 1000 1000 1000 777.8 1000 1000 611.1 611.1 1000 1000 1000 777.8 275 1000 666.7 666.7 888.9 888.9 0 0 555.6 555.6 666.7 500 722.2 722.2 777.8 777.8 611.1 798.5 656.8 526.5 771.4 527.8 718.7 594.9 844.5 544.5 677.8 761.9 689.7 1200.9 820.5 796.1 695.6 816.7 847.5 605.6 544.6 625.8 612.8 987.8 713.3 668.3 724.7 666.7 666.7 666.7 666.7 666.7 611.1 611.1 444.4 444.4 444.4 444.4 500 500 388.9 388.9 277.8 500 500 611.1 500 277.8 833.3]
-% 1899 0 obj
+% 1957 0 obj
 [525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525 525]
-% 1901 0 obj
+% 1959 0 obj
 [605 608 167 380 611 291 313 333 0 333 606 0 667 500 333 287 0 0 0 0 0 0 0 0 0 0 0 0 333 208 250 278 371 500 500 840 778 278 333 333 389 606 250 333 250 606 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 611 709 774 611 556 763 832 337 333 726 611 946 831 786 604 786 668 525 613 778 722 1000 667 667 667 333 606 333 606 500 278 500 553 444 611 479 333 556 582 291 234 556 291 883 582 546 601 560 395 424 326 603 565 834 516 556 500 333 606 333 606 0 0 0 278 500 500 1000 500 500 333 1144 525 331 998 0 0 0 0 0 0 500 500 606 500 1000 333 979 424 331 827 0 0 667 0 278 500 500 500 500 606 500]
-% 1902 0 obj
+% 1960 0 obj
 [528 545 167 333 556 278 333 333 0 333 606 0 667 444 333 278 0 0 0 0 0 0 0 0 0 0 0 0 333 333 250 333 500 500 500 889 778 278 333 333 389 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 500 747 722 611 667 778 611 556 722 778 333 333 667 556 944 778 778 611 778 667 556 611 778 722 944 722 667 667 333 606 333 606 500 278 444 463 407 500 389 278 500 500 278 278 444 278 778 556 444 500 463 389 389 333 556 500 722 500 500 444]
-% 1903 0 obj
+% 1961 0 obj
 [611 611 167 333 611 333 333 333 0 333 606 0 667 500 333 333 0 0 0 0 0 0 0 0 0 0 0 0 333 227 250 278 402 500 500 889 833 278 333 333 444 606 250 333 250 296 500 500 500 500 500 500 500 500 500 500 250 250 606 606 606 444 747 778 667 722 833 611 556 833 833 389 389 778 611 1000 833 833 611 833 722 611 667 778 778 1000 667 667 667 333 606 333 606 500 278 500 611 444 611 500 389 556 611 333 333 611 333 889 611 556 611 611 389 444 333 611 556 833 500 556 500 310 606 310 606 0 0 0 333 500 500 1000 500 500 333 1000 611 389 1000 0 0 0 0 0 0 500 500 606 500 1000]
-% 1905 0 obj
+% 1963 0 obj
 <<
 /Type /FontDescriptor
 /FontName /MNPEHI+CMEX10
@@ -26840,12 +28025,12 @@ stream
 /StemV 47
 /XHeight 431
 /CharSet (/radicalbigg)
-/FontFile 1904 0 R
+/FontFile 1962 0 R
 >>
-% 1907 0 obj
+% 1965 0 obj
 <<
 /Type /FontDescriptor
-/FontName /PCVPXC+CMITT10
+/FontName /MPVPBL+CMITT10
 /Flags 4
 /FontBBox [11 -233 669 696]
 /Ascent 611
@@ -26854,10 +28039,10 @@ stream
 /ItalicAngle -14
 /StemV 69
 /XHeight 431
-/CharSet (/exclam/period)
-/FontFile 1906 0 R
+/CharSet (/D/a/c/d/e/exclam/n/o/period/s/t)
+/FontFile 1964 0 R
 >>
-% 1909 0 obj
+% 1967 0 obj
 <<
 /Type /FontDescriptor
 /FontName /SYFPBV+CMMI10
@@ -26870,9 +28055,9 @@ stream
 /StemV 72
 /XHeight 431
 /CharSet (/greater/less)
-/FontFile 1908 0 R
+/FontFile 1966 0 R
 >>
-% 1911 0 obj
+% 1969 0 obj
 <<
 /Type /FontDescriptor
 /FontName /GIGFZE+CMR10
@@ -26885,9 +28070,9 @@ stream
 /StemV 69
 /XHeight 431
 /CharSet (/equal/parenleft/parenright/plus)
-/FontFile 1910 0 R
+/FontFile 1968 0 R
 >>
-% 1913 0 obj
+% 1971 0 obj
 <<
 /Type /FontDescriptor
 /FontName /DMJGRR+CMSY10
@@ -26900,12 +28085,12 @@ stream
 /StemV 40
 /XHeight 431
 /CharSet (/B/H/I/arrowleft/bar/bardbl/braceleft/braceright/element/greaterequal/lessequal/minus/negationslash/radical)
-/FontFile 1912 0 R
+/FontFile 1970 0 R
 >>
-% 1915 0 obj
+% 1973 0 obj
 <<
 /Type /FontDescriptor
-/FontName /QCUYCW+CMTT10
+/FontName /UFPYIQ+CMTT10
 /Flags 4
 /FontBBox [-4 -233 537 696]
 /Ascent 611
@@ -26914,10 +28099,10 @@ stream
 /ItalicAngle 0
 /StemV 69
 /XHeight 431
-/CharSet (/A/B/C/D/E/F/I/K/L/M/N/O/P/R/S/T/U/W/Y/a/ampersand/asciitilde/asterisk/b/backslash/bracketleft/bracketright/c/colon/comma/d/e/equal/f/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/percent/period/plus/q/quotesingle/r/s/seven/six/slash/t/three/two/u/underscore/v/w/x/y/z/zero)
-/FontFile 1914 0 R
+/CharSet (/A/B/C/D/E/F/I/K/L/M/N/O/P/R/S/T/U/W/Y/a/ampersand/asciitilde/asterisk/b/backslash/bracketleft/bracketright/c/colon/comma/d/e/eight/equal/f/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/percent/period/plus/q/quotesingle/r/s/six/slash/t/three/two/u/underscore/v/w/x/y/z/zero)
+/FontFile 1972 0 R
 >>
-% 1917 0 obj
+% 1975 0 obj
 <<
 /Type /FontDescriptor
 /FontName /HZGQIC+CMTT8
@@ -26930,12 +28115,12 @@ stream
 /StemV 76
 /XHeight 431
 /CharSet (/b/c/e/i/l/n/p/r/s/t)
-/FontFile 1916 0 R
+/FontFile 1974 0 R
 >>
-% 1919 0 obj
+% 1977 0 obj
 <<
 /Type /FontDescriptor
-/FontName /AGMCDE+CMTT9
+/FontName /BQXTWV+CMTT9
 /Flags 4
 /FontBBox [-6 -233 542 698]
 /Ascent 611
@@ -26944,10 +28129,10 @@ stream
 /ItalicAngle 0
 /StemV 74
 /XHeight 431
-/CharSet (/D/E/I/K/N/P/T/Y/a/b/c/colon/comma/d/e/g/h/i/l/m/n/o/p/parenleft/parenright/r/s/t/underscore/v/x/y)
-/FontFile 1918 0 R
+/CharSet (/D/E/I/K/N/P/T/Y/a/ampersand/b/c/colon/comma/d/e/equal/f/g/greater/h/i/k/l/less/m/n/o/p/parenleft/parenright/period/q/r/s/semicolon/t/two/u/underscore/v/w/x/y/z)
+/FontFile 1976 0 R
 >>
-% 1921 0 obj
+% 1979 0 obj
 <<
 /Type /FontDescriptor
 /FontName /IKXQUG+PazoMath
@@ -26960,9 +28145,9 @@ stream
 /StemV 95
 /XHeight 0
 /CharSet (/infinity/summation)
-/FontFile 1920 0 R
+/FontFile 1978 0 R
 >>
-% 1923 0 obj
+% 1981 0 obj
 <<
 /Type /FontDescriptor
 /FontName /DUJUUF+PazoMath-Italic
@@ -26975,12 +28160,12 @@ stream
 /StemV 65
 /XHeight 0
 /CharSet (/alpha/beta)
-/FontFile 1922 0 R
+/FontFile 1980 0 R
 >>
-% 1925 0 obj
+% 1983 0 obj
 <<
 /Type /FontDescriptor
-/FontName /YWROOM+URWPalladioL-Bold
+/FontName /TVMKYN+URWPalladioL-Bold
 /Flags 4
 /FontBBox [-152 -301 1000 935]
 /Ascent 708
@@ -26989,10 +28174,10 @@ stream
 /ItalicAngle 0
 /StemV 123
 /XHeight 471
-/CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quoteright/r/s/seven/six/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1924 0 R
+/CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/Z/a/b/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quoteright/r/s/seven/six/slash/t/three/two/u/v/w/x/y/z/zero)
+/FontFile 1982 0 R
 >>
-% 1927 0 obj
+% 1985 0 obj
 <<
 /Type /FontDescriptor
 /FontName /TCRNJT+URWPalladioL-Roma
@@ -27005,9 +28190,9 @@ stream
 /StemV 84
 /XHeight 469
 /CharSet (/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/R/S/T/U/V/W/X/a/ampersand/b/bracketleft/bracketright/bullet/c/colon/comma/d/e/eight/emdash/endash/equal/f/fi/five/fl/four/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/parenleft/parenright/period/q/quotedblleft/quotedblright/quoteright/r/s/section/semicolon/seven/six/slash/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1926 0 R
+/FontFile 1984 0 R
 >>
-% 1929 0 obj
+% 1987 0 obj
 <<
 /Type /FontDescriptor
 /FontName /RUEFYH+URWPalladioL-Ital
@@ -27020,377 +28205,412 @@ stream
 /StemV 78
 /XHeight 482
 /CharSet (/A/B/C/D/E/F/G/H/I/L/M/N/O/P/Q/R/S/T/U/V/X/a/b/c/colon/d/e/f/fi/five/g/h/hyphen/i/j/k/l/m/n/nine/o/one/p/period/q/quoteright/r/s/slash/t/three/two/u/v/w/x/y/z/zero)
-/FontFile 1928 0 R
+/FontFile 1986 0 R
 >>
-% 1900 0 obj
+% 1958 0 obj
 <<
 /Type /Encoding
 /Differences [2/fi/fl 38/ampersand/quoteright/parenleft/parenright 44/comma/hyphen/period/slash/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon 61/equal 65/A/B/C/D/E/F/G/H/I/J/K/L/M/N/O/P/Q/R/S/T/U/V/W/X 90/Z/bracketleft 93/bracketright 97/a/b/c/d/e/f/g/h/i/j/k/l/m/n/o/p/q/r/s/t/u/v/w/x/y/z 147/quotedblleft/quotedblright/bullet/endash/emdash 167/section]
 >>
-% 1698 0 obj
+% 1750 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /MNPEHI+CMEX10
-/FontDescriptor 1905 0 R
+/FontDescriptor 1963 0 R
 /FirstChar 114
 /LastChar 114
-/Widths 1891 0 R
+/Widths 1948 0 R
 >>
-% 1723 0 obj
+% 1682 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /PCVPXC+CMITT10
-/FontDescriptor 1907 0 R
+/BaseFont /MPVPBL+CMITT10
+/FontDescriptor 1965 0 R
 /FirstChar 33
-/LastChar 46
-/Widths 1890 0 R
+/LastChar 116
+/Widths 1949 0 R
 >>
 % 1360 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /SYFPBV+CMMI10
-/FontDescriptor 1909 0 R
+/FontDescriptor 1967 0 R
 /FirstChar 60
 /LastChar 62
-/Widths 1892 0 R
+/Widths 1950 0 R
 >>
 % 814 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /GIGFZE+CMR10
-/FontDescriptor 1911 0 R
+/FontDescriptor 1969 0 R
 /FirstChar 40
 /LastChar 61
-/Widths 1897 0 R
+/Widths 1955 0 R
 >>
 % 813 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /DMJGRR+CMSY10
-/FontDescriptor 1913 0 R
+/FontDescriptor 1971 0 R
 /FirstChar 0
 /LastChar 112
-/Widths 1898 0 R
+/Widths 1956 0 R
 >>
 % 812 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /QCUYCW+CMTT10
-/FontDescriptor 1915 0 R
+/BaseFont /UFPYIQ+CMTT10
+/FontDescriptor 1973 0 R
 /FirstChar 13
 /LastChar 126
-/Widths 1899 0 R
+/Widths 1957 0 R
 >>
 % 870 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /HZGQIC+CMTT8
-/FontDescriptor 1917 0 R
+/FontDescriptor 1975 0 R
 /FirstChar 98
 /LastChar 116
-/Widths 1896 0 R
+/Widths 1954 0 R
 >>
 % 915 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /AGMCDE+CMTT9
-/FontDescriptor 1919 0 R
-/FirstChar 40
-/LastChar 121
-/Widths 1895 0 R
+/BaseFont /BQXTWV+CMTT9
+/FontDescriptor 1977 0 R
+/FirstChar 38
+/LastChar 122
+/Widths 1953 0 R
+>>
+
+endstream
+endobj
+1988 0 obj
+<<
+/Type /ObjStm
+/N 100
+/First 925
+/Length 11101     
 >>
+stream
+1154 0 1027 145 584 295 586 465 585 635 587 805 780 918 871 1031 927 1144 962 1257
+991 1370 1034 1487 1079 1607 1121 1727 1180 1847 1232 1967 1281 2087 1330 2207 1371 2327 1409 2447
+1456 2567 1500 2687 1537 2807 1574 2927 1612 3047 1653 3167 1683 3287 1717 3407 1754 3527 1789 3647
+1828 3767 1865 3887 1902 4007 1942 4127 1989 4211 1990 4326 1991 4447 1992 4568 1993 4689 1994 4801
+1995 4897 574 4966 570 5026 566 5137 562 5211 558 5299 554 5387 550 5475 546 5563 542 5637
+538 5762 534 5836 530 5924 526 6012 522 6100 518 6188 514 6262 510 6387 506 6461 502 6549
+498 6637 494 6711 490 6836 486 6910 482 6998 478 7086 474 7174 470 7262 466 7350 462 7438
+458 7526 454 7614 450 7702 446 7790 442 7878 438 7966 434 8054 430 8142 426 8230 422 8304
+418 8430 414 8504 410 8592 406 8680 401 8768 397 8856 393 8944 389 9032 385 9120 381 9208
+377 9296 373 9384 369 9472 365 9560 361 9648 357 9736 353 9824 349 9912 345 10000 341 10088
 % 1154 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /IKXQUG+PazoMath
-/FontDescriptor 1921 0 R
+/FontDescriptor 1979 0 R
 /FirstChar 165
 /LastChar 229
-/Widths 1893 0 R
+/Widths 1951 0 R
 >>
 % 1027 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /DUJUUF+PazoMath-Italic
-/FontDescriptor 1923 0 R
+/FontDescriptor 1981 0 R
 /FirstChar 97
 /LastChar 98
-/Widths 1894 0 R
+/Widths 1952 0 R
 >>
 % 584 0 obj
 <<
 /Type /Font
 /Subtype /Type1
-/BaseFont /YWROOM+URWPalladioL-Bold
-/FontDescriptor 1925 0 R
+/BaseFont /TVMKYN+URWPalladioL-Bold
+/FontDescriptor 1983 0 R
 /FirstChar 2
 /LastChar 151
-/Widths 1903 0 R
-/Encoding 1900 0 R
+/Widths 1961 0 R
+/Encoding 1958 0 R
 >>
 % 586 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /TCRNJT+URWPalladioL-Roma
-/FontDescriptor 1927 0 R
+/FontDescriptor 1985 0 R
 /FirstChar 2
 /LastChar 167
-/Widths 1901 0 R
-/Encoding 1900 0 R
+/Widths 1959 0 R
+/Encoding 1958 0 R
 >>
 % 585 0 obj
 <<
 /Type /Font
 /Subtype /Type1
 /BaseFont /RUEFYH+URWPalladioL-Ital
-/FontDescriptor 1929 0 R
+/FontDescriptor 1987 0 R
 /FirstChar 2
 /LastChar 122
-/Widths 1902 0 R
-/Encoding 1900 0 R
+/Widths 1960 0 R
+/Encoding 1958 0 R
 >>
 % 587 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [577 0 R 590 0 R 636 0 R 694 0 R 740 0 R 761 0 R]
 >>
 % 780 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [778 0 R 797 0 R 809 0 R 822 0 R 835 0 R 840 0 R]
 >>
 % 871 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [853 0 R 874 0 R 885 0 R 893 0 R 904 0 R 920 0 R]
 >>
 % 927 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [924 0 R 930 0 R 935 0 R 942 0 R 949 0 R 954 0 R]
 >>
 % 962 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [959 0 R 964 0 R 968 0 R 972 0 R 976 0 R 982 0 R]
 >>
 % 991 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1930 0 R
+/Parent 1989 0 R
 /Kids [988 0 R 995 0 R 1002 0 R 1008 0 R 1013 0 R 1024 0 R]
 >>
 % 1034 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1031 0 R 1041 0 R 1047 0 R 1058 0 R 1063 0 R 1070 0 R]
 >>
 % 1079 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1075 0 R 1084 0 R 1092 0 R 1097 0 R 1105 0 R 1110 0 R]
 >>
 % 1121 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1117 0 R 1124 0 R 1137 0 R 1144 0 R 1151 0 R 1162 0 R]
 >>
 % 1180 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1177 0 R 1184 0 R 1195 0 R 1201 0 R 1212 0 R 1217 0 R]
 >>
 % 1232 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1228 0 R 1235 0 R 1244 0 R 1250 0 R 1258 0 R 1265 0 R]
 >>
 % 1281 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1931 0 R
+/Parent 1990 0 R
 /Kids [1278 0 R 1286 0 R 1295 0 R 1303 0 R 1307 0 R 1322 0 R]
 >>
 % 1330 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
+/Parent 1991 0 R
 /Kids [1327 0 R 1334 0 R 1341 0 R 1345 0 R 1351 0 R 1357 0 R]
 >>
 % 1371 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
+/Parent 1991 0 R
 /Kids [1363 0 R 1374 0 R 1379 0 R 1388 0 R 1395 0 R 1400 0 R]
 >>
 % 1409 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
-/Kids [1406 0 R 1411 0 R 1419 0 R 1427 0 R 1433 0 R 1442 0 R]
+/Parent 1991 0 R
+/Kids [1406 0 R 1411 0 R 1419 0 R 1424 0 R 1432 0 R 1438 0 R]
 >>
-% 1457 0 obj
+% 1456 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
-/Kids [1454 0 R 1460 0 R 1472 0 R 1478 0 R 1485 0 R 1491 0 R]
+/Parent 1991 0 R
+/Kids [1447 0 R 1461 0 R 1466 0 R 1479 0 R 1485 0 R 1492 0 R]
 >>
 % 1500 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
-/Kids [1495 0 R 1505 0 R 1511 0 R 1515 0 R 1520 0 R 1524 0 R]
+/Parent 1991 0 R
+/Kids [1496 0 R 1504 0 R 1508 0 R 1517 0 R 1525 0 R 1529 0 R]
 >>
-% 1534 0 obj
+% 1537 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1932 0 R
-/Kids [1531 0 R 1537 0 R 1543 0 R 1549 0 R 1555 0 R 1561 0 R]
+/Parent 1991 0 R
+/Kids [1534 0 R 1539 0 R 1546 0 R 1551 0 R 1557 0 R 1563 0 R]
 >>
 % 1574 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1569 0 R 1577 0 R 1581 0 R 1591 0 R 1595 0 R 1599 0 R]
+/Parent 1992 0 R
+/Kids [1570 0 R 1577 0 R 1584 0 R 1591 0 R 1595 0 R 1605 0 R]
 >>
-% 1615 0 obj
+% 1612 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1612 0 R 1617 0 R 1623 0 R 1629 0 R 1636 0 R 1640 0 R]
+/Parent 1992 0 R
+/Kids [1609 0 R 1614 0 R 1627 0 R 1631 0 R 1637 0 R 1643 0 R]
 >>
-% 1647 0 obj
+% 1653 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1644 0 R 1649 0 R 1653 0 R 1657 0 R 1661 0 R 1667 0 R]
+/Parent 1992 0 R
+/Kids [1650 0 R 1655 0 R 1659 0 R 1663 0 R 1667 0 R 1671 0 R]
 >>
-% 1679 0 obj
+% 1683 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1674 0 R 1681 0 R 1687 0 R 1693 0 R 1701 0 R 1706 0 R]
+/Parent 1992 0 R
+/Kids [1676 0 R 1685 0 R 1689 0 R 1696 0 R 1700 0 R 1707 0 R]
 >>
-% 1716 0 obj
+% 1717 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1713 0 R 1720 0 R 1725 0 R 1731 0 R 1737 0 R 1743 0 R]
+/Parent 1992 0 R
+/Kids [1711 0 R 1719 0 R 1723 0 R 1730 0 R 1734 0 R 1741 0 R]
 >>
-% 1752 0 obj
+% 1754 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1933 0 R
-/Kids [1749 0 R 1755 0 R 1762 0 R 1769 0 R 1776 0 R 1784 0 R]
+/Parent 1992 0 R
+/Kids [1745 0 R 1756 0 R 1761 0 R 1768 0 R 1774 0 R 1778 0 R]
 >>
-% 1796 0 obj
+% 1789 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1934 0 R
-/Kids [1791 0 R 1798 0 R 1804 0 R 1813 0 R 1817 0 R 1825 0 R]
+/Parent 1993 0 R
+/Kids [1784 0 R 1792 0 R 1798 0 R 1804 0 R 1809 0 R 1816 0 R]
 >>
-% 1833 0 obj
+% 1828 0 obj
 <<
 /Type /Pages
 /Count 6
-/Parent 1934 0 R
-/Kids [1830 0 R 1835 0 R 1841 0 R 1845 0 R 1852 0 R 1863 0 R]
+/Parent 1993 0 R
+/Kids [1823 0 R 1831 0 R 1838 0 R 1845 0 R 1851 0 R 1855 0 R]
 >>
-% 1871 0 obj
+% 1865 0 obj
 <<
 /Type /Pages
-/Count 4
-/Parent 1934 0 R
-/Kids [1868 0 R 1873 0 R 1877 0 R 1886 0 R]
+/Count 6
+/Parent 1993 0 R
+/Kids [1861 0 R 1871 0 R 1875 0 R 1883 0 R 1888 0 R 1893 0 R]
 >>
-% 1930 0 obj
+% 1902 0 obj
+<<
+/Type /Pages
+/Count 6
+/Parent 1993 0 R
+/Kids [1899 0 R 1904 0 R 1911 0 R 1922 0 R 1927 0 R 1931 0 R]
+>>
+% 1942 0 obj
+<<
+/Type /Pages
+/Count 2
+/Parent 1993 0 R
+/Kids [1935 0 R 1944 0 R]
+>>
+% 1989 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1935 0 R
+/Parent 1994 0 R
 /Kids [587 0 R 780 0 R 871 0 R 927 0 R 962 0 R 991 0 R]
 >>
-% 1931 0 obj
+% 1990 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1935 0 R
+/Parent 1994 0 R
 /Kids [1034 0 R 1079 0 R 1121 0 R 1180 0 R 1232 0 R 1281 0 R]
 >>
-% 1932 0 obj
+% 1991 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1935 0 R
-/Kids [1330 0 R 1371 0 R 1409 0 R 1457 0 R 1500 0 R 1534 0 R]
+/Parent 1994 0 R
+/Kids [1330 0 R 1371 0 R 1409 0 R 1456 0 R 1500 0 R 1537 0 R]
 >>
-% 1933 0 obj
+% 1992 0 obj
 <<
 /Type /Pages
 /Count 36
-/Parent 1935 0 R
-/Kids [1574 0 R 1615 0 R 1647 0 R 1679 0 R 1716 0 R 1752 0 R]
+/Parent 1994 0 R
+/Kids [1574 0 R 1612 0 R 1653 0 R 1683 0 R 1717 0 R 1754 0 R]
 >>
-% 1934 0 obj
+% 1993 0 obj
 <<
 /Type /Pages
-/Count 16
-/Parent 1935 0 R
-/Kids [1796 0 R 1833 0 R 1871 0 R]
+/Count 26
+/Parent 1994 0 R
+/Kids [1789 0 R 1828 0 R 1865 0 R 1902 0 R 1942 0 R]
 >>
-% 1935 0 obj
+% 1994 0 obj
 <<
 /Type /Pages
-/Count 160
-/Kids [1930 0 R 1931 0 R 1932 0 R 1933 0 R 1934 0 R]
+/Count 170
+/Kids [1989 0 R 1990 0 R 1991 0 R 1992 0 R 1993 0 R]
 >>
-% 1936 0 obj
+% 1995 0 obj
 <<
 /Type /Outlines
 /First 4 0 R
@@ -27452,27 +28672,6 @@ stream
 /Prev 546 0 R
 /Next 554 0 R
 >>
-
-endstream
-endobj
-1937 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 885
-/Length 9744      
->>
-stream
-546 0 542 74 538 199 534 273 530 361 526 449 522 537 518 625 514 699 510 824
-506 898 502 986 498 1074 494 1148 490 1273 486 1347 482 1435 478 1523 474 1611 470 1699
-466 1787 462 1875 458 1963 454 2051 450 2139 446 2227 442 2315 438 2403 434 2491 430 2579
-426 2667 422 2741 418 2867 414 2941 410 3029 406 3117 401 3205 397 3293 393 3381 389 3469
-385 3557 381 3645 377 3733 373 3821 369 3909 365 3997 361 4085 357 4173 353 4261 349 4349
-345 4437 341 4525 337 4613 333 4701 329 4789 325 4877 321 4965 317 5053 313 5141 309 5215
-305 5341 301 5415 297 5503 293 5591 289 5665 285 5790 281 5864 277 5952 273 6040 269 6128
-265 6216 261 6304 257 6392 253 6480 249 6568 245 6656 241 6744 237 6832 233 6920 229 7008
-225 7096 221 7170 217 7295 213 7368 209 7455 205 7529 200 7617 196 7705 192 7793 188 7881
-184 7955 180 8081 176 8155 172 8243 168 8331 164 8419 160 8507 156 8595 152 8683 148 8771
 % 546 0 obj
 <<
 /Title 547 0 R
@@ -27893,6 +29092,27 @@ stream
 /Prev 337 0 R
 /Next 345 0 R
 >>
+
+endstream
+endobj
+1996 0 obj
+<<
+/Type /ObjStm
+/N 100
+/First 875
+/Length 11008     
+>>
+stream
+337 0 333 88 329 176 325 264 321 352 317 440 313 528 309 602 305 728 301 802
+297 890 293 978 289 1052 285 1177 281 1251 277 1339 273 1427 269 1515 265 1603 261 1691
+257 1779 253 1867 249 1955 245 2043 241 2131 237 2219 233 2307 229 2395 225 2483 221 2557
+217 2682 213 2755 209 2842 205 2916 200 3004 196 3092 192 3180 188 3268 184 3342 180 3468
+176 3542 172 3630 168 3718 164 3806 160 3894 156 3982 152 4070 148 4158 144 4246 140 4334
+136 4422 132 4510 128 4598 124 4686 120 4774 116 4862 112 4950 108 5038 104 5112 100 5238
+96 5309 92 5392 88 5474 84 5556 80 5638 76 5720 72 5802 68 5884 64 5966 60 6048
+56 6130 52 6212 48 6294 44 6376 40 6445 36 6554 32 6674 28 6743 24 6799 20 6918
+16 7000 12 7069 8 7186 4 7251 1997 7344 1998 7540 1999 7713 2000 7893 2001 8070 2002 8247
+2003 8427 2004 8605 2005 8785 2006 8963 2007 9134 2008 9299 2009 9465 2010 9629 2011 9793 2012 9963
 % 337 0 obj
 <<
 /Title 338 0 R
@@ -28280,27 +29500,6 @@ stream
 /Prev 144 0 R
 /Next 152 0 R
 >>
-
-endstream
-endobj
-1938 0 obj
-<<
-/Type /ObjStm
-/N 100
-/First 949
-/Length 15659     
->>
-stream
-144 0 140 88 136 176 132 264 128 352 124 440 120 528 116 616 112 704 108 792
-104 866 100 992 96 1063 92 1146 88 1228 84 1310 80 1392 76 1474 72 1556 68 1638
-64 1720 60 1802 56 1884 52 1966 48 2048 44 2130 40 2199 36 2308 32 2428 28 2497
-24 2553 20 2672 16 2754 12 2823 8 2940 4 3005 1939 3098 1940 3294 1941 3467 1942 3647
-1943 3824 1944 4001 1945 4181 1946 4354 1947 4519 1948 4685 1949 4850 1950 5016 1951 5182 1952 5354
-1953 5524 1954 5696 1955 5865 1956 6034 1957 6206 1958 6376 1959 6548 1960 6718 1961 6890 1962 7073
-1963 7283 1964 7497 1965 7701 1966 7888 1967 8082 1968 8306 1969 8528 1970 8760 1971 8990 1972 9189
-1973 9369 1974 9547 1975 9727 1976 9905 1977 10085 1978 10263 1979 10443 1980 10620 1981 10797 1982 10974
-1983 11139 1984 11306 1985 11476 1986 11648 1987 11818 1988 11990 1989 12159 1990 12328 1991 12500 1992 12670
-1993 12842 1994 13012 1995 13184 1996 13354 1997 13526 1998 13696 1999 13881 2000 14062 2001 14266 2002 14491
 % 144 0 obj
 <<
 /Title 145 0 R
@@ -28591,622 +29790,652 @@ stream
 <<
 /Title 5 0 R
 /A 1 0 R
-/Parent 1936 0 R
+/Parent 1995 0 R
 /First 8 0 R
 /Last 570 0 R
 /Count -11
 >>
-% 1939 0 obj
+% 1997 0 obj
 <<
-/Names [(Doc-Start) 583 0 R (Hfootnote.1) 815 0 R (Hfootnote.2) 816 0 R (Hfootnote.3) 869 0 R (Hfootnote.4) 1807 0 R (Hfootnote.5) 1858 0 R]
+/Names [(Doc-Start) 583 0 R (Hfootnote.1) 815 0 R (Hfootnote.2) 816 0 R (Hfootnote.3) 869 0 R (Hfootnote.4) 1864 0 R (Hfootnote.5) 1917 0 R]
 /Limits [(Doc-Start) (Hfootnote.5)]
 >>
-% 1940 0 obj
+% 1998 0 obj
 <<
-/Names [(Item.1) 843 0 R (Item.10) 857 0 R (Item.100) 1604 0 R (Item.101) 1605 0 R (Item.102) 1606 0 R (Item.103) 1607 0 R]
+/Names [(Item.1) 843 0 R (Item.10) 857 0 R (Item.100) 1598 0 R (Item.101) 1599 0 R (Item.102) 1600 0 R (Item.103) 1617 0 R]
 /Limits [(Item.1) (Item.103)]
 >>
-% 1941 0 obj
+% 1999 0 obj
 <<
-/Names [(Item.104) 1608 0 R (Item.105) 1609 0 R (Item.106) 1610 0 R (Item.107) 1620 0 R (Item.108) 1621 0 R (Item.109) 1626 0 R]
+/Names [(Item.104) 1618 0 R (Item.105) 1619 0 R (Item.106) 1620 0 R (Item.107) 1621 0 R (Item.108) 1622 0 R (Item.109) 1623 0 R]
 /Limits [(Item.104) (Item.109)]
 >>
-% 1942 0 obj
+% 2000 0 obj
 <<
-/Names [(Item.11) 858 0 R (Item.110) 1627 0 R (Item.111) 1632 0 R (Item.112) 1633 0 R (Item.113) 1634 0 R (Item.114) 1664 0 R]
+/Names [(Item.11) 858 0 R (Item.110) 1624 0 R (Item.111) 1625 0 R (Item.112) 1634 0 R (Item.113) 1635 0 R (Item.114) 1640 0 R]
 /Limits [(Item.11) (Item.114)]
 >>
-% 1943 0 obj
+% 2001 0 obj
 <<
-/Names [(Item.115) 1665 0 R (Item.116) 1670 0 R (Item.117) 1671 0 R (Item.118) 1677 0 R (Item.119) 1678 0 R (Item.12) 859 0 R]
+/Names [(Item.115) 1641 0 R (Item.116) 1646 0 R (Item.117) 1647 0 R (Item.118) 1648 0 R (Item.119) 1679 0 R (Item.12) 859 0 R]
 /Limits [(Item.115) (Item.12)]
 >>
-% 1944 0 obj
+% 2002 0 obj
 <<
-/Names [(Item.120) 1684 0 R (Item.121) 1685 0 R (Item.122) 1690 0 R (Item.123) 1691 0 R (Item.124) 1696 0 R (Item.125) 1697 0 R]
+/Names [(Item.120) 1680 0 R (Item.121) 1681 0 R (Item.122) 1692 0 R (Item.123) 1693 0 R (Item.124) 1694 0 R (Item.125) 1703 0 R]
 /Limits [(Item.120) (Item.125)]
 >>
-% 1945 0 obj
+% 2003 0 obj
 <<
-/Names [(Item.126) 1699 0 R (Item.127) 1704 0 R (Item.128) 1709 0 R (Item.13) 860 0 R (Item.14) 861 0 R (Item.15) 862 0 R]
-/Limits [(Item.126) (Item.15)]
+/Names [(Item.126) 1704 0 R (Item.127) 1705 0 R (Item.128) 1714 0 R (Item.129) 1715 0 R (Item.13) 860 0 R (Item.130) 1716 0 R]
+/Limits [(Item.126) (Item.130)]
 >>
-% 1946 0 obj
+% 2004 0 obj
 <<
-/Names [(Item.16) 863 0 R (Item.17) 864 0 R (Item.18) 865 0 R (Item.19) 866 0 R (Item.2) 844 0 R (Item.20) 867 0 R]
-/Limits [(Item.16) (Item.20)]
+/Names [(Item.131) 1726 0 R (Item.132) 1727 0 R (Item.133) 1728 0 R (Item.134) 1737 0 R (Item.135) 1738 0 R (Item.136) 1739 0 R]
+/Limits [(Item.131) (Item.136)]
 >>
-% 1947 0 obj
+% 2005 0 obj
 <<
-/Names [(Item.21) 868 0 R (Item.22) 877 0 R (Item.23) 878 0 R (Item.24) 879 0 R (Item.25) 880 0 R (Item.26) 881 0 R]
-/Limits [(Item.21) (Item.26)]
+/Names [(Item.137) 1748 0 R (Item.138) 1749 0 R (Item.139) 1751 0 R (Item.14) 861 0 R (Item.140) 1752 0 R (Item.141) 1753 0 R]
+/Limits [(Item.137) (Item.141)]
 >>
-% 1948 0 obj
+% 2006 0 obj
 <<
-/Names [(Item.27) 882 0 R (Item.28) 896 0 R (Item.29) 897 0 R (Item.3) 845 0 R (Item.30) 898 0 R (Item.31) 899 0 R]
-/Limits [(Item.27) (Item.31)]
+/Names [(Item.142) 1759 0 R (Item.143) 1764 0 R (Item.15) 862 0 R (Item.16) 863 0 R (Item.17) 864 0 R (Item.18) 865 0 R]
+/Limits [(Item.142) (Item.18)]
 >>
-% 1949 0 obj
+% 2007 0 obj
 <<
-/Names [(Item.32) 900 0 R (Item.33) 907 0 R (Item.34) 908 0 R (Item.35) 909 0 R (Item.36) 910 0 R (Item.37) 911 0 R]
-/Limits [(Item.32) (Item.37)]
+/Names [(Item.19) 866 0 R (Item.2) 844 0 R (Item.20) 867 0 R (Item.21) 868 0 R (Item.22) 877 0 R (Item.23) 878 0 R]
+/Limits [(Item.19) (Item.23)]
 >>
-% 1950 0 obj
+% 2008 0 obj
 <<
-/Names [(Item.38) 912 0 R (Item.39) 913 0 R (Item.4) 846 0 R (Item.40) 914 0 R (Item.41) 957 0 R (Item.42) 1050 0 R]
-/Limits [(Item.38) (Item.42)]
+/Names [(Item.24) 879 0 R (Item.25) 880 0 R (Item.26) 881 0 R (Item.27) 882 0 R (Item.28) 896 0 R (Item.29) 897 0 R]
+/Limits [(Item.24) (Item.29)]
 >>
-% 1951 0 obj
+% 2009 0 obj
 <<
-/Names [(Item.43) 1078 0 R (Item.44) 1100 0 R (Item.45) 1127 0 R (Item.46) 1298 0 R (Item.47) 1299 0 R (Item.48) 1300 0 R]
-/Limits [(Item.43) (Item.48)]
+/Names [(Item.3) 845 0 R (Item.30) 898 0 R (Item.31) 899 0 R (Item.32) 900 0 R (Item.33) 907 0 R (Item.34) 908 0 R]
+/Limits [(Item.3) (Item.34)]
 >>
-% 1952 0 obj
+% 2010 0 obj
 <<
-/Names [(Item.49) 1354 0 R (Item.5) 847 0 R (Item.50) 1361 0 R (Item.51) 1366 0 R (Item.52) 1367 0 R (Item.53) 1368 0 R]
-/Limits [(Item.49) (Item.53)]
+/Names [(Item.35) 909 0 R (Item.36) 910 0 R (Item.37) 911 0 R (Item.38) 912 0 R (Item.39) 913 0 R (Item.4) 846 0 R]
+/Limits [(Item.35) (Item.4)]
 >>
-% 1953 0 obj
+% 2011 0 obj
 <<
-/Names [(Item.54) 1369 0 R (Item.55) 1370 0 R (Item.56) 1382 0 R (Item.57) 1383 0 R (Item.58) 1384 0 R (Item.59) 1391 0 R]
-/Limits [(Item.54) (Item.59)]
+/Names [(Item.40) 914 0 R (Item.41) 957 0 R (Item.42) 1050 0 R (Item.43) 1078 0 R (Item.44) 1100 0 R (Item.45) 1127 0 R]
+/Limits [(Item.40) (Item.45)]
 >>
-% 1954 0 obj
+% 2012 0 obj
 <<
-/Names [(Item.6) 848 0 R (Item.60) 1414 0 R (Item.61) 1415 0 R (Item.62) 1422 0 R (Item.63) 1423 0 R (Item.64) 1424 0 R]
-/Limits [(Item.6) (Item.64)]
+/Names [(Item.46) 1298 0 R (Item.47) 1299 0 R (Item.48) 1300 0 R (Item.49) 1354 0 R (Item.5) 847 0 R (Item.50) 1361 0 R]
+/Limits [(Item.46) (Item.50)]
 >>
-% 1955 0 obj
+
+endstream
+endobj
+2112 0 obj
 <<
-/Names [(Item.65) 1436 0 R (Item.66) 1437 0 R (Item.67) 1438 0 R (Item.68) 1439 0 R (Item.69) 1440 0 R (Item.7) 849 0 R]
-/Limits [(Item.65) (Item.7)]
+ /Title (Parallel Sparse BLAS V. 3.8.0) /Subject (Parallel Sparse Basic Linear Algebra Subroutines) /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners) /Creator (pdfLaTeX) /Producer ($Id$) /Author()/Title()/Subject()/Creator(LaTeX with hyperref)/Keywords()
+/CreationDate (D:20220616091307+02'00')
+/ModDate (D:20220616091307+02'00')
+/Trapped /False
+/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.21 (TeX Live 2020) kpathsea version 6.3.2)
 >>
-% 1956 0 obj
+endobj
+2014 0 obj
 <<
-/Names [(Item.70) 1445 0 R (Item.71) 1446 0 R (Item.72) 1447 0 R (Item.73) 1448 0 R (Item.74) 1449 0 R (Item.75) 1450 0 R]
-/Limits [(Item.70) (Item.75)]
+/Type /ObjStm
+/N 98
+/First 1015
+/Length 18404     
 >>
-% 1957 0 obj
+stream
+2013 0 2015 172 2016 342 2017 514 2018 684 2019 856 2020 1026 2021 1198 2022 1367 2023 1544
+2024 1742 2025 1968 2026 2184 2027 2373 2028 2555 2029 2767 2030 2987 2031 3212 2032 3445 2033 3673
+2034 3846 2035 4026 2036 4203 2037 4380 2038 4560 2039 4738 2040 4918 2041 5096 2042 5276 2043 5454
+2044 5634 2045 5812 2046 5980 2047 6146 2048 6316 2049 6488 2050 6658 2051 6830 2052 7000 2053 7172
+2054 7341 2055 7510 2056 7682 2057 7852 2058 8024 2059 8194 2060 8366 2061 8534 2062 8719 2063 8899
+2064 9097 2065 9324 2066 9542 2067 9768 2068 9995 2069 10217 2070 10441 2071 10671 2072 10900 2073 11130
+2074 11352 2075 11579 2076 11806 2077 12028 2078 12250 2079 12485 2080 12749 2081 13005 2082 13269 2083 13539
+2084 13803 2085 14065 2086 14284 2087 14464 2088 14640 2089 14809 2090 14903 2091 15017 2092 15129 2093 15239
+2094 15350 2095 15463 2096 15577 2097 15690 2098 15802 2099 15913 2100 16024 2101 16143 2102 16270 2103 16396
+2104 16527 2105 16651 2106 16724 2107 16838 2108 16958 2109 17057 2110 17141 2111 17176
+% 2013 0 obj
 <<
-/Names [(Item.76) 1463 0 R (Item.77) 1464 0 R (Item.78) 1465 0 R (Item.79) 1466 0 R (Item.8) 850 0 R (Item.80) 1467 0 R]
-/Limits [(Item.76) (Item.80)]
+/Names [(Item.51) 1366 0 R (Item.52) 1367 0 R (Item.53) 1368 0 R (Item.54) 1369 0 R (Item.55) 1370 0 R (Item.56) 1382 0 R]
+/Limits [(Item.51) (Item.56)]
 >>
-% 1958 0 obj
+% 2015 0 obj
 <<
-/Names [(Item.81) 1468 0 R (Item.82) 1481 0 R (Item.83) 1498 0 R (Item.84) 1499 0 R (Item.85) 1527 0 R (Item.86) 1528 0 R]
-/Limits [(Item.81) (Item.86)]
+/Names [(Item.57) 1383 0 R (Item.58) 1384 0 R (Item.59) 1391 0 R (Item.6) 848 0 R (Item.60) 1414 0 R (Item.61) 1415 0 R]
+/Limits [(Item.57) (Item.61)]
 >>
-% 1959 0 obj
+% 2016 0 obj
 <<
-/Names [(Item.87) 1540 0 R (Item.88) 1546 0 R (Item.89) 1552 0 R (Item.9) 856 0 R (Item.90) 1558 0 R (Item.91) 1564 0 R]
-/Limits [(Item.87) (Item.91)]
+/Names [(Item.62) 1422 0 R (Item.63) 1427 0 R (Item.64) 1428 0 R (Item.65) 1429 0 R (Item.66) 1441 0 R (Item.67) 1442 0 R]
+/Limits [(Item.62) (Item.67)]
 >>
-% 1960 0 obj
+% 2017 0 obj
 <<
-/Names [(Item.92) 1565 0 R (Item.93) 1572 0 R (Item.94) 1573 0 R (Item.95) 1584 0 R (Item.96) 1585 0 R (Item.97) 1586 0 R]
-/Limits [(Item.92) (Item.97)]
+/Names [(Item.68) 1443 0 R (Item.69) 1444 0 R (Item.7) 849 0 R (Item.70) 1445 0 R (Item.71) 1450 0 R (Item.72) 1451 0 R]
+/Limits [(Item.68) (Item.72)]
 >>
-% 1961 0 obj
+% 2018 0 obj
 <<
-/Names [(Item.98) 1602 0 R (Item.99) 1603 0 R (cite.2007c) 830 0 R (cite.2007d) 831 0 R (cite.BLACS) 805 0 R (cite.BLAS1) 788 0 R]
-/Limits [(Item.98) (cite.BLAS1)]
+/Names [(Item.73) 1452 0 R (Item.74) 1453 0 R (Item.75) 1454 0 R (Item.76) 1455 0 R (Item.77) 1469 0 R (Item.78) 1470 0 R]
+/Limits [(Item.73) (Item.78)]
 >>
-% 1962 0 obj
+% 2019 0 obj
 <<
-/Names [(cite.BLAS2) 789 0 R (cite.BLAS3) 790 0 R (cite.DesPat:11) 783 0 R (cite.DesignPatterns) 946 0 R (cite.KIVA3PSBLAS) 1883 0 R (cite.METIS) 817 0 R]
-/Limits [(cite.BLAS2) (cite.METIS)]
+/Names [(Item.79) 1471 0 R (Item.8) 850 0 R (Item.80) 1472 0 R (Item.81) 1473 0 R (Item.82) 1474 0 R (Item.83) 1475 0 R]
+/Limits [(Item.79) (Item.83)]
 >>
-% 1963 0 obj
+% 2020 0 obj
 <<
-/Names [(cite.MPI1) 1889 0 R (cite.PARA04FOREST) 1881 0 R (cite.PSBLAS) 1882 0 R (cite.RouXiaXu:11) 784 0 R (cite.Sparse03) 782 0 R (cite.machiels) 785 0 R]
-/Limits [(cite.MPI1) (cite.machiels)]
+/Names [(Item.84) 1488 0 R (Item.85) 1499 0 R (Item.86) 1511 0 R (Item.87) 1512 0 R (Item.88) 1520 0 R (Item.89) 1521 0 R]
+/Limits [(Item.84) (Item.89)]
 >>
-% 1964 0 obj
+% 2021 0 obj
 <<
-/Names [(cite.metcalf) 781 0 R (cite.sblas02) 787 0 R (cite.sblas97) 786 0 R (descdata) 888 0 R (equation.4.1) 1165 0 R (equation.4.2) 1166 0 R]
-/Limits [(cite.metcalf) (equation.4.2)]
+/Names [(Item.9) 856 0 R (Item.90) 1542 0 R (Item.91) 1543 0 R (Item.92) 1554 0 R (Item.93) 1560 0 R (Item.94) 1566 0 R]
+/Limits [(Item.9) (Item.94)]
 >>
-% 1965 0 obj
+% 2022 0 obj
 <<
-/Names [(equation.4.3) 1167 0 R (figure.1) 799 0 R (figure.2) 825 0 R (figure.3) 1268 0 R (figure.4) 1301 0 R (listing.1) 916 0 R]
-/Limits [(equation.4.3) (listing.1)]
+/Names [(Item.95) 1573 0 R (Item.96) 1580 0 R (Item.97) 1581 0 R (Item.98) 1587 0 R (Item.99) 1588 0 R (cite.2007c) 830 0 R]
+/Limits [(Item.95) (cite.2007c)]
 >>
-% 1966 0 obj
+% 2023 0 obj
 <<
-/Names [(listing.2) 947 0 R (listing.3) 986 0 R (listing.4) 1006 0 R (listing.5) 1717 0 R (listing.6) 1718 0 R (lstlisting.-1) 1128 0 R]
-/Limits [(listing.2) (lstlisting.-1)]
+/Names [(cite.2007d) 831 0 R (cite.BLACS) 805 0 R (cite.BLAS1) 788 0 R (cite.BLAS2) 789 0 R (cite.BLAS3) 790 0 R (cite.DesPat:11) 783 0 R]
+/Limits [(cite.2007d) (cite.DesPat:11)]
 >>
-% 1967 0 obj
+% 2024 0 obj
 <<
-/Names [(lstlisting.-10) 1787 0 R (lstlisting.-11) 1794 0 R (lstlisting.-12) 1855 0 R (lstlisting.-2) 1728 0 R (lstlisting.-3) 1734 0 R (lstlisting.-4) 1740 0 R]
-/Limits [(lstlisting.-10) (lstlisting.-4)]
+/Names [(cite.DesignPatterns) 946 0 R (cite.KIVA3PSBLAS) 1941 0 R (cite.METIS) 817 0 R (cite.MPI1) 1947 0 R (cite.PARA04FOREST) 1939 0 R (cite.PSBLAS) 1940 0 R]
+/Limits [(cite.DesignPatterns) (cite.PSBLAS)]
 >>
-% 1968 0 obj
+% 2025 0 obj
 <<
-/Names [(lstlisting.-5) 1746 0 R (lstlisting.-6) 1758 0 R (lstlisting.-7) 1765 0 R (lstlisting.-8) 1772 0 R (lstlisting.-9) 1779 0 R (lstnumber.-1.1) 1129 0 R]
-/Limits [(lstlisting.-5) (lstnumber.-1.1)]
+/Names [(cite.RouXiaXu:11) 784 0 R (cite.Sparse03) 782 0 R (cite.machiels) 785 0 R (cite.metcalf) 781 0 R (cite.sblas02) 787 0 R (cite.sblas97) 786 0 R]
+/Limits [(cite.RouXiaXu:11) (cite.sblas97)]
 >>
-% 1969 0 obj
+% 2026 0 obj
 <<
-/Names [(lstnumber.-1.2) 1130 0 R (lstnumber.-1.3) 1131 0 R (lstnumber.-1.4) 1132 0 R (lstnumber.-10.1) 1788 0 R (lstnumber.-11.1) 1795 0 R (lstnumber.-12.1) 1856 0 R]
-/Limits [(lstnumber.-1.2) (lstnumber.-12.1)]
+/Names [(descdata) 888 0 R (equation.4.1) 1165 0 R (equation.4.2) 1166 0 R (equation.4.3) 1167 0 R (figure.1) 799 0 R (figure.2) 825 0 R]
+/Limits [(descdata) (figure.2)]
 >>
-% 1970 0 obj
+% 2027 0 obj
 <<
-/Names [(lstnumber.-12.2) 1857 0 R (lstnumber.-2.1) 1729 0 R (lstnumber.-3.1) 1735 0 R (lstnumber.-4.1) 1741 0 R (lstnumber.-5.1) 1747 0 R (lstnumber.-6.1) 1759 0 R]
-/Limits [(lstnumber.-12.2) (lstnumber.-6.1)]
+/Names [(figure.3) 1268 0 R (figure.4) 1301 0 R (listing.1) 916 0 R (listing.2) 947 0 R (listing.3) 986 0 R (listing.4) 1006 0 R]
+/Limits [(figure.3) (listing.4)]
 >>
-% 1971 0 obj
+% 2028 0 obj
 <<
-/Names [(lstnumber.-7.1) 1766 0 R (lstnumber.-8.1) 1773 0 R (lstnumber.-9.1) 1780 0 R (page.1) 582 0 R (page.10) 895 0 R (page.100) 1551 0 R]
-/Limits [(lstnumber.-7.1) (page.100)]
+/Names [(listing.5) 1771 0 R (listing.6) 1772 0 R (lstlisting.-1) 1128 0 R (lstlisting.-10) 1841 0 R (lstlisting.-11) 1848 0 R (lstlisting.-12) 1914 0 R]
+/Limits [(listing.5) (lstlisting.-12)]
 >>
-% 1972 0 obj
+% 2029 0 obj
 <<
-/Names [(page.101) 1557 0 R (page.102) 1563 0 R (page.103) 1571 0 R (page.104) 1579 0 R (page.105) 1583 0 R (page.106) 1593 0 R]
-/Limits [(page.101) (page.106)]
+/Names [(lstlisting.-2) 1781 0 R (lstlisting.-3) 1787 0 R (lstlisting.-4) 1795 0 R (lstlisting.-5) 1801 0 R (lstlisting.-6) 1812 0 R (lstlisting.-7) 1819 0 R]
+/Limits [(lstlisting.-2) (lstlisting.-7)]
 >>
-% 1973 0 obj
+% 2030 0 obj
 <<
-/Names [(page.107) 1597 0 R (page.108) 1601 0 R (page.109) 1614 0 R (page.11) 906 0 R (page.110) 1619 0 R (page.111) 1625 0 R]
-/Limits [(page.107) (page.111)]
+/Names [(lstlisting.-8) 1826 0 R (lstlisting.-9) 1834 0 R (lstnumber.-1.1) 1129 0 R (lstnumber.-1.2) 1130 0 R (lstnumber.-1.3) 1131 0 R (lstnumber.-1.4) 1132 0 R]
+/Limits [(lstlisting.-8) (lstnumber.-1.4)]
 >>
-% 1974 0 obj
+% 2031 0 obj
 <<
-/Names [(page.112) 1631 0 R (page.113) 1638 0 R (page.114) 1642 0 R (page.115) 1646 0 R (page.116) 1651 0 R (page.117) 1655 0 R]
-/Limits [(page.112) (page.117)]
+/Names [(lstnumber.-10.1) 1842 0 R (lstnumber.-11.1) 1849 0 R (lstnumber.-12.1) 1915 0 R (lstnumber.-12.2) 1916 0 R (lstnumber.-2.1) 1782 0 R (lstnumber.-3.1) 1788 0 R]
+/Limits [(lstnumber.-10.1) (lstnumber.-3.1)]
 >>
-% 1975 0 obj
+% 2032 0 obj
 <<
-/Names [(page.118) 1659 0 R (page.119) 1663 0 R (page.12) 922 0 R (page.120) 1669 0 R (page.121) 1676 0 R (page.122) 1683 0 R]
-/Limits [(page.118) (page.122)]
+/Names [(lstnumber.-4.1) 1796 0 R (lstnumber.-5.1) 1802 0 R (lstnumber.-6.1) 1813 0 R (lstnumber.-7.1) 1820 0 R (lstnumber.-8.1) 1827 0 R (lstnumber.-9.1) 1835 0 R]
+/Limits [(lstnumber.-4.1) (lstnumber.-9.1)]
 >>
-% 1976 0 obj
+% 2033 0 obj
 <<
-/Names [(page.123) 1689 0 R (page.124) 1695 0 R (page.125) 1703 0 R (page.126) 1708 0 R (page.127) 1715 0 R (page.128) 1722 0 R]
-/Limits [(page.123) (page.128)]
+/Names [(page.1) 582 0 R (page.10) 895 0 R (page.100) 1553 0 R (page.101) 1559 0 R (page.102) 1565 0 R (page.103) 1572 0 R]
+/Limits [(page.1) (page.103)]
 >>
-% 1977 0 obj
+% 2034 0 obj
 <<
-/Names [(page.129) 1727 0 R (page.13) 926 0 R (page.130) 1733 0 R (page.131) 1739 0 R (page.132) 1745 0 R (page.133) 1751 0 R]
-/Limits [(page.129) (page.133)]
+/Names [(page.104) 1579 0 R (page.105) 1586 0 R (page.106) 1593 0 R (page.107) 1597 0 R (page.108) 1607 0 R (page.109) 1611 0 R]
+/Limits [(page.104) (page.109)]
 >>
-% 1978 0 obj
+% 2035 0 obj
 <<
-/Names [(page.134) 1757 0 R (page.135) 1764 0 R (page.136) 1771 0 R (page.137) 1778 0 R (page.138) 1786 0 R (page.139) 1793 0 R]
-/Limits [(page.134) (page.139)]
+/Names [(page.11) 906 0 R (page.110) 1616 0 R (page.111) 1629 0 R (page.112) 1633 0 R (page.113) 1639 0 R (page.114) 1645 0 R]
+/Limits [(page.11) (page.114)]
 >>
-% 1979 0 obj
+% 2036 0 obj
 <<
-/Names [(page.14) 932 0 R (page.140) 1800 0 R (page.141) 1806 0 R (page.142) 1815 0 R (page.143) 1819 0 R (page.144) 1827 0 R]
-/Limits [(page.14) (page.144)]
+/Names [(page.115) 1652 0 R (page.116) 1657 0 R (page.117) 1661 0 R (page.118) 1665 0 R (page.119) 1669 0 R (page.12) 922 0 R]
+/Limits [(page.115) (page.12)]
 >>
-% 1980 0 obj
+% 2037 0 obj
 <<
-/Names [(page.145) 1832 0 R (page.146) 1837 0 R (page.147) 1843 0 R (page.148) 1847 0 R (page.149) 1854 0 R (page.15) 937 0 R]
-/Limits [(page.145) (page.15)]
+/Names [(page.120) 1673 0 R (page.121) 1678 0 R (page.122) 1687 0 R (page.123) 1691 0 R (page.124) 1698 0 R (page.125) 1702 0 R]
+/Limits [(page.120) (page.125)]
 >>
-% 1981 0 obj
+% 2038 0 obj
 <<
-/Names [(page.150) 1865 0 R (page.151) 1870 0 R (page.152) 1875 0 R (page.153) 1879 0 R (page.154) 1888 0 R (page.16) 944 0 R]
-/Limits [(page.150) (page.16)]
+/Names [(page.126) 1709 0 R (page.127) 1713 0 R (page.128) 1721 0 R (page.129) 1725 0 R (page.13) 926 0 R (page.130) 1732 0 R]
+/Limits [(page.126) (page.130)]
 >>
-% 1982 0 obj
+% 2039 0 obj
 <<
-/Names [(page.17) 951 0 R (page.18) 956 0 R (page.19) 961 0 R (page.2) 592 0 R (page.20) 966 0 R (page.21) 970 0 R]
-/Limits [(page.17) (page.21)]
+/Names [(page.131) 1736 0 R (page.132) 1743 0 R (page.133) 1747 0 R (page.134) 1758 0 R (page.135) 1763 0 R (page.136) 1770 0 R]
+/Limits [(page.131) (page.136)]
 >>
-% 1983 0 obj
+% 2040 0 obj
 <<
-/Names [(page.22) 974 0 R (page.23) 978 0 R (page.24) 984 0 R (page.25) 990 0 R (page.26) 997 0 R (page.27) 1004 0 R]
-/Limits [(page.22) (page.27)]
+/Names [(page.137) 1776 0 R (page.138) 1780 0 R (page.139) 1786 0 R (page.14) 932 0 R (page.140) 1794 0 R (page.141) 1800 0 R]
+/Limits [(page.137) (page.141)]
 >>
-% 1984 0 obj
+% 2041 0 obj
 <<
-/Names [(page.28) 1010 0 R (page.29) 1015 0 R (page.3) 811 0 R (page.30) 1026 0 R (page.31) 1033 0 R (page.32) 1043 0 R]
-/Limits [(page.28) (page.32)]
+/Names [(page.142) 1806 0 R (page.143) 1811 0 R (page.144) 1818 0 R (page.145) 1825 0 R (page.146) 1833 0 R (page.147) 1840 0 R]
+/Limits [(page.142) (page.147)]
 >>
-% 1985 0 obj
+% 2042 0 obj
 <<
-/Names [(page.33) 1049 0 R (page.34) 1060 0 R (page.35) 1065 0 R (page.36) 1072 0 R (page.37) 1077 0 R (page.38) 1086 0 R]
-/Limits [(page.33) (page.38)]
+/Names [(page.148) 1847 0 R (page.149) 1853 0 R (page.15) 937 0 R (page.150) 1857 0 R (page.151) 1863 0 R (page.152) 1873 0 R]
+/Limits [(page.148) (page.152)]
 >>
-% 1986 0 obj
+% 2043 0 obj
 <<
-/Names [(page.39) 1094 0 R (page.4) 824 0 R (page.40) 1099 0 R (page.41) 1107 0 R (page.42) 1112 0 R (page.43) 1119 0 R]
-/Limits [(page.39) (page.43)]
+/Names [(page.153) 1877 0 R (page.154) 1885 0 R (page.155) 1890 0 R (page.156) 1895 0 R (page.157) 1901 0 R (page.158) 1906 0 R]
+/Limits [(page.153) (page.158)]
 >>
-% 1987 0 obj
+% 2044 0 obj
 <<
-/Names [(page.44) 1126 0 R (page.45) 1139 0 R (page.46) 1146 0 R (page.47) 1153 0 R (page.48) 1164 0 R (page.49) 1179 0 R]
-/Limits [(page.44) (page.49)]
+/Names [(page.159) 1913 0 R (page.16) 944 0 R (page.160) 1924 0 R (page.161) 1929 0 R (page.162) 1933 0 R (page.163) 1937 0 R]
+/Limits [(page.159) (page.163)]
 >>
-% 1988 0 obj
+% 2045 0 obj
 <<
-/Names [(page.5) 837 0 R (page.50) 1186 0 R (page.51) 1197 0 R (page.52) 1203 0 R (page.53) 1214 0 R (page.54) 1219 0 R]
-/Limits [(page.5) (page.54)]
+/Names [(page.164) 1946 0 R (page.17) 951 0 R (page.18) 956 0 R (page.19) 961 0 R (page.2) 592 0 R (page.20) 966 0 R]
+/Limits [(page.164) (page.20)]
 >>
-% 1989 0 obj
+% 2046 0 obj
 <<
-/Names [(page.55) 1230 0 R (page.56) 1237 0 R (page.57) 1246 0 R (page.58) 1252 0 R (page.59) 1260 0 R (page.6) 842 0 R]
-/Limits [(page.55) (page.6)]
+/Names [(page.21) 970 0 R (page.22) 974 0 R (page.23) 978 0 R (page.24) 984 0 R (page.25) 990 0 R (page.26) 997 0 R]
+/Limits [(page.21) (page.26)]
 >>
-% 1990 0 obj
+% 2047 0 obj
 <<
-/Names [(page.60) 1267 0 R (page.61) 1280 0 R (page.62) 1288 0 R (page.63) 1297 0 R (page.64) 1305 0 R (page.65) 1309 0 R]
-/Limits [(page.60) (page.65)]
+/Names [(page.27) 1004 0 R (page.28) 1010 0 R (page.29) 1015 0 R (page.3) 811 0 R (page.30) 1026 0 R (page.31) 1033 0 R]
+/Limits [(page.27) (page.31)]
 >>
-% 1991 0 obj
+% 2048 0 obj
 <<
-/Names [(page.66) 1324 0 R (page.67) 1329 0 R (page.68) 1336 0 R (page.69) 1343 0 R (page.7) 855 0 R (page.70) 1347 0 R]
-/Limits [(page.66) (page.70)]
+/Names [(page.32) 1043 0 R (page.33) 1049 0 R (page.34) 1060 0 R (page.35) 1065 0 R (page.36) 1072 0 R (page.37) 1077 0 R]
+/Limits [(page.32) (page.37)]
 >>
-% 1992 0 obj
+% 2049 0 obj
 <<
-/Names [(page.71) 1353 0 R (page.72) 1359 0 R (page.73) 1365 0 R (page.74) 1376 0 R (page.75) 1381 0 R (page.76) 1390 0 R]
-/Limits [(page.71) (page.76)]
+/Names [(page.38) 1086 0 R (page.39) 1094 0 R (page.4) 824 0 R (page.40) 1099 0 R (page.41) 1107 0 R (page.42) 1112 0 R]
+/Limits [(page.38) (page.42)]
 >>
-% 1993 0 obj
+% 2050 0 obj
 <<
-/Names [(page.77) 1397 0 R (page.78) 1402 0 R (page.79) 1408 0 R (page.8) 876 0 R (page.80) 1413 0 R (page.81) 1421 0 R]
-/Limits [(page.77) (page.81)]
+/Names [(page.43) 1119 0 R (page.44) 1126 0 R (page.45) 1139 0 R (page.46) 1146 0 R (page.47) 1153 0 R (page.48) 1164 0 R]
+/Limits [(page.43) (page.48)]
 >>
-% 1994 0 obj
+% 2051 0 obj
 <<
-/Names [(page.82) 1429 0 R (page.83) 1435 0 R (page.84) 1444 0 R (page.85) 1456 0 R (page.86) 1462 0 R (page.87) 1474 0 R]
-/Limits [(page.82) (page.87)]
+/Names [(page.49) 1179 0 R (page.5) 837 0 R (page.50) 1186 0 R (page.51) 1197 0 R (page.52) 1203 0 R (page.53) 1214 0 R]
+/Limits [(page.49) (page.53)]
 >>
-% 1995 0 obj
+% 2052 0 obj
 <<
-/Names [(page.88) 1480 0 R (page.89) 1487 0 R (page.9) 887 0 R (page.90) 1493 0 R (page.91) 1497 0 R (page.92) 1507 0 R]
-/Limits [(page.88) (page.92)]
+/Names [(page.54) 1219 0 R (page.55) 1230 0 R (page.56) 1237 0 R (page.57) 1246 0 R (page.58) 1252 0 R (page.59) 1260 0 R]
+/Limits [(page.54) (page.59)]
 >>
-% 1996 0 obj
+% 2053 0 obj
 <<
-/Names [(page.93) 1513 0 R (page.94) 1517 0 R (page.95) 1522 0 R (page.96) 1526 0 R (page.97) 1533 0 R (page.98) 1539 0 R]
-/Limits [(page.93) (page.98)]
+/Names [(page.6) 842 0 R (page.60) 1267 0 R (page.61) 1280 0 R (page.62) 1288 0 R (page.63) 1297 0 R (page.64) 1305 0 R]
+/Limits [(page.6) (page.64)]
 >>
-% 1997 0 obj
+% 2054 0 obj
 <<
-/Names [(page.99) 1545 0 R (page.i) 638 0 R (page.ii) 696 0 R (page.iii) 742 0 R (page.iv) 763 0 R (precdata) 1005 0 R]
-/Limits [(page.99) (precdata)]
+/Names [(page.65) 1309 0 R (page.66) 1324 0 R (page.67) 1329 0 R (page.68) 1336 0 R (page.69) 1343 0 R (page.7) 855 0 R]
+/Limits [(page.65) (page.7)]
 >>
-% 1998 0 obj
+% 2055 0 obj
 <<
-/Names [(section*.1) 639 0 R (section*.2) 1880 0 R (section.1) 7 0 R (section.10) 541 0 R (section.11) 569 0 R (section.2) 11 0 R]
-/Limits [(section*.1) (section.2)]
+/Names [(page.70) 1347 0 R (page.71) 1353 0 R (page.72) 1359 0 R (page.73) 1365 0 R (page.74) 1376 0 R (page.75) 1381 0 R]
+/Limits [(page.70) (page.75)]
 >>
-% 1999 0 obj
+% 2056 0 obj
 <<
-/Names [(section.3) 35 0 R (section.4) 220 0 R (section.5) 288 0 R (section.6) 308 0 R (section.7) 421 0 R (section.8) 493 0 R]
-/Limits [(section.3) (section.8)]
+/Names [(page.76) 1390 0 R (page.77) 1397 0 R (page.78) 1402 0 R (page.79) 1408 0 R (page.8) 876 0 R (page.80) 1413 0 R]
+/Limits [(page.76) (page.80)]
 >>
-% 2000 0 obj
+% 2057 0 obj
 <<
-/Names [(section.9) 513 0 R (spbasedata) 952 0 R (spdata) 945 0 R (subsection.10.1) 545 0 R (subsection.10.2) 549 0 R (subsection.10.3) 553 0 R]
-/Limits [(section.9) (subsection.10.3)]
+/Names [(page.81) 1421 0 R (page.82) 1426 0 R (page.83) 1434 0 R (page.84) 1440 0 R (page.85) 1449 0 R (page.86) 1463 0 R]
+/Limits [(page.81) (page.86)]
 >>
-% 2001 0 obj
+% 2058 0 obj
 <<
-/Names [(subsection.10.4) 557 0 R (subsection.10.5) 561 0 R (subsection.10.6) 565 0 R (subsection.11.1) 573 0 R (subsection.2.1) 15 0 R (subsection.2.2) 19 0 R]
-/Limits [(subsection.10.4) (subsection.2.2)]
+/Names [(page.87) 1468 0 R (page.88) 1481 0 R (page.89) 1487 0 R (page.9) 887 0 R (page.90) 1494 0 R (page.91) 1498 0 R]
+/Limits [(page.87) (page.91)]
 >>
-% 2002 0 obj
+% 2059 0 obj
 <<
-/Names [(subsection.2.3) 23 0 R (subsection.2.4) 31 0 R (subsection.3.1) 39 0 R (subsection.3.2) 103 0 R (subsection.3.3) 183 0 R (subsection.3.4) 212 0 R]
-/Limits [(subsection.2.3) (subsection.3.4)]
+/Names [(page.92) 1506 0 R (page.93) 1510 0 R (page.94) 1519 0 R (page.95) 1527 0 R (page.96) 1531 0 R (page.97) 1536 0 R]
+/Limits [(page.92) (page.97)]
 >>
-
-endstream
-endobj
-2049 0 obj
+% 2060 0 obj
 <<
- /Title (Parallel Sparse BLAS V. 3.7.0) /Subject (Parallel Sparse Basic Linear Algebra Subroutines) /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners) /Creator (pdfLaTeX) /Producer ($Id$) /Author()/Title()/Subject()/Creator(LaTeX with hyperref)/Keywords()
-/CreationDate (D:20210511093822+02'00')
-/ModDate (D:20210511093822+02'00')
-/Trapped /False
-/PTEX.Fullbanner (This is pdfTeX, Version 3.14159265-2.6-1.40.21 (TeX Live 2020) kpathsea version 6.3.2)
+/Names [(page.98) 1541 0 R (page.99) 1548 0 R (page.i) 638 0 R (page.ii) 696 0 R (page.iii) 742 0 R (page.iv) 763 0 R]
+/Limits [(page.98) (page.iv)]
 >>
-endobj
-2004 0 obj
+% 2061 0 obj
 <<
-/Type /ObjStm
-/N 45
-/First 443
-/Length 8158      
+/Names [(precdata) 1005 0 R (section*.1) 639 0 R (section*.2) 1938 0 R (section.1) 7 0 R (section.10) 541 0 R (section.11) 569 0 R]
+/Limits [(precdata) (section.11)]
 >>
-stream
-2003 0 2005 227 2006 453 2007 675 2008 900 2009 1130 2010 1359 2011 1587 2012 1809 2013 2037
-2014 2263 2015 2485 2016 2707 2017 2948 2018 3210 2019 3466 2020 3732 2021 4002 2022 4264 2023 4526
-2024 4735 2025 4915 2026 5090 2027 5262 2028 5332 2029 5446 2030 5558 2031 5669 2032 5783 2033 5903
-2034 6022 2035 6134 2036 6246 2037 6357 2038 6470 2039 6590 2040 6715 2041 6845 2042 6969 2043 7061
-2044 7175 2045 7294 2046 7383 2047 7467 2048 7502
-% 2003 0 obj
+% 2062 0 obj
 <<
-/Names [(subsection.3.5) 216 0 R (subsection.4.1) 224 0 R (subsection.4.10) 260 0 R (subsection.4.11) 264 0 R (subsection.4.12) 268 0 R (subsection.4.13) 272 0 R]
-/Limits [(subsection.3.5) (subsection.4.13)]
+/Names [(section.2) 11 0 R (section.3) 35 0 R (section.4) 220 0 R (section.5) 288 0 R (section.6) 308 0 R (section.7) 421 0 R]
+/Limits [(section.2) (section.7)]
 >>
-% 2005 0 obj
+% 2063 0 obj
 <<
-/Names [(subsection.4.14) 276 0 R (subsection.4.15) 280 0 R (subsection.4.16) 284 0 R (subsection.4.2) 228 0 R (subsection.4.3) 232 0 R (subsection.4.4) 236 0 R]
-/Limits [(subsection.4.14) (subsection.4.4)]
+/Names [(section.8) 493 0 R (section.9) 513 0 R (spbasedata) 952 0 R (spdata) 945 0 R (subsection.10.1) 545 0 R (subsection.10.2) 549 0 R]
+/Limits [(section.8) (subsection.10.2)]
 >>
-% 2006 0 obj
+% 2064 0 obj
 <<
-/Names [(subsection.4.5) 240 0 R (subsection.4.6) 244 0 R (subsection.4.7) 248 0 R (subsection.4.8) 252 0 R (subsection.4.9) 256 0 R (subsection.5.1) 292 0 R]
-/Limits [(subsection.4.5) (subsection.5.1)]
+/Names [(subsection.10.3) 553 0 R (subsection.10.4) 557 0 R (subsection.10.5) 561 0 R (subsection.10.6) 565 0 R (subsection.11.1) 573 0 R (subsection.2.1) 15 0 R]
+/Limits [(subsection.10.3) (subsection.2.1)]
 >>
-% 2007 0 obj
+% 2065 0 obj
 <<
-/Names [(subsection.5.2) 296 0 R (subsection.5.3) 300 0 R (subsection.5.4) 304 0 R (subsection.6.1) 312 0 R (subsection.6.10) 348 0 R (subsection.6.11) 352 0 R]
-/Limits [(subsection.5.2) (subsection.6.11)]
+/Names [(subsection.2.2) 19 0 R (subsection.2.3) 23 0 R (subsection.2.4) 31 0 R (subsection.3.1) 39 0 R (subsection.3.2) 103 0 R (subsection.3.3) 183 0 R]
+/Limits [(subsection.2.2) (subsection.3.3)]
 >>
-% 2008 0 obj
+% 2066 0 obj
 <<
-/Names [(subsection.6.12) 356 0 R (subsection.6.13) 360 0 R (subsection.6.14) 364 0 R (subsection.6.15) 368 0 R (subsection.6.16) 372 0 R (subsection.6.17) 376 0 R]
-/Limits [(subsection.6.12) (subsection.6.17)]
+/Names [(subsection.3.4) 212 0 R (subsection.3.5) 216 0 R (subsection.4.1) 224 0 R (subsection.4.10) 260 0 R (subsection.4.11) 264 0 R (subsection.4.12) 268 0 R]
+/Limits [(subsection.3.4) (subsection.4.12)]
 >>
-% 2009 0 obj
+% 2067 0 obj
 <<
-/Names [(subsection.6.18) 380 0 R (subsection.6.19) 384 0 R (subsection.6.2) 316 0 R (subsection.6.20) 388 0 R (subsection.6.21) 392 0 R (subsection.6.22) 396 0 R]
-/Limits [(subsection.6.18) (subsection.6.22)]
+/Names [(subsection.4.13) 272 0 R (subsection.4.14) 276 0 R (subsection.4.15) 280 0 R (subsection.4.16) 284 0 R (subsection.4.2) 228 0 R (subsection.4.3) 232 0 R]
+/Limits [(subsection.4.13) (subsection.4.3)]
 >>
-% 2010 0 obj
+% 2068 0 obj
 <<
-/Names [(subsection.6.23) 400 0 R (subsection.6.24) 405 0 R (subsection.6.25) 409 0 R (subsection.6.26) 413 0 R (subsection.6.27) 417 0 R (subsection.6.3) 320 0 R]
-/Limits [(subsection.6.23) (subsection.6.3)]
+/Names [(subsection.4.4) 236 0 R (subsection.4.5) 240 0 R (subsection.4.6) 244 0 R (subsection.4.7) 248 0 R (subsection.4.8) 252 0 R (subsection.4.9) 256 0 R]
+/Limits [(subsection.4.4) (subsection.4.9)]
 >>
-% 2011 0 obj
+% 2069 0 obj
 <<
-/Names [(subsection.6.4) 324 0 R (subsection.6.5) 328 0 R (subsection.6.6) 332 0 R (subsection.6.7) 336 0 R (subsection.6.8) 340 0 R (subsection.6.9) 344 0 R]
-/Limits [(subsection.6.4) (subsection.6.9)]
+/Names [(subsection.5.1) 292 0 R (subsection.5.2) 296 0 R (subsection.5.3) 300 0 R (subsection.5.4) 304 0 R (subsection.6.1) 312 0 R (subsection.6.10) 348 0 R]
+/Limits [(subsection.5.1) (subsection.6.10)]
 >>
-% 2012 0 obj
+% 2070 0 obj
 <<
-/Names [(subsection.7.1) 425 0 R (subsection.7.10) 461 0 R (subsection.7.11) 465 0 R (subsection.7.12) 469 0 R (subsection.7.13) 473 0 R (subsection.7.14) 477 0 R]
-/Limits [(subsection.7.1) (subsection.7.14)]
+/Names [(subsection.6.11) 352 0 R (subsection.6.12) 356 0 R (subsection.6.13) 360 0 R (subsection.6.14) 364 0 R (subsection.6.15) 368 0 R (subsection.6.16) 372 0 R]
+/Limits [(subsection.6.11) (subsection.6.16)]
 >>
-% 2013 0 obj
+% 2071 0 obj
 <<
-/Names [(subsection.7.15) 481 0 R (subsection.7.16) 485 0 R (subsection.7.17) 489 0 R (subsection.7.2) 429 0 R (subsection.7.3) 433 0 R (subsection.7.4) 437 0 R]
-/Limits [(subsection.7.15) (subsection.7.4)]
+/Names [(subsection.6.17) 376 0 R (subsection.6.18) 380 0 R (subsection.6.19) 384 0 R (subsection.6.2) 316 0 R (subsection.6.20) 388 0 R (subsection.6.21) 392 0 R]
+/Limits [(subsection.6.17) (subsection.6.21)]
 >>
-% 2014 0 obj
+% 2072 0 obj
 <<
-/Names [(subsection.7.5) 441 0 R (subsection.7.6) 445 0 R (subsection.7.7) 449 0 R (subsection.7.8) 453 0 R (subsection.7.9) 457 0 R (subsection.8.1) 497 0 R]
-/Limits [(subsection.7.5) (subsection.8.1)]
+/Names [(subsection.6.22) 396 0 R (subsection.6.23) 400 0 R (subsection.6.24) 405 0 R (subsection.6.25) 409 0 R (subsection.6.26) 413 0 R (subsection.6.27) 417 0 R]
+/Limits [(subsection.6.22) (subsection.6.27)]
 >>
-% 2015 0 obj
+% 2073 0 obj
 <<
-/Names [(subsection.8.2) 501 0 R (subsection.8.3) 505 0 R (subsection.8.4) 509 0 R (subsection.9.1) 517 0 R (subsection.9.2) 521 0 R (subsection.9.3) 525 0 R]
-/Limits [(subsection.8.2) (subsection.9.3)]
+/Names [(subsection.6.3) 320 0 R (subsection.6.4) 324 0 R (subsection.6.5) 328 0 R (subsection.6.6) 332 0 R (subsection.6.7) 336 0 R (subsection.6.8) 340 0 R]
+/Limits [(subsection.6.3) (subsection.6.8)]
 >>
-% 2016 0 obj
+% 2074 0 obj
 <<
-/Names [(subsection.9.4) 529 0 R (subsection.9.5) 533 0 R (subsection.9.6) 537 0 R (subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R (subsubsection.3.1.10) 79 0 R]
-/Limits [(subsection.9.4) (subsubsection.3.1.10)]
+/Names [(subsection.6.9) 344 0 R (subsection.7.1) 425 0 R (subsection.7.10) 461 0 R (subsection.7.11) 465 0 R (subsection.7.12) 469 0 R (subsection.7.13) 473 0 R]
+/Limits [(subsection.6.9) (subsection.7.13)]
 >>
-% 2017 0 obj
+% 2075 0 obj
 <<
-/Names [(subsubsection.3.1.11) 83 0 R (subsubsection.3.1.12) 87 0 R (subsubsection.3.1.13) 91 0 R (subsubsection.3.1.14) 95 0 R (subsubsection.3.1.15) 99 0 R (subsubsection.3.1.2) 47 0 R]
-/Limits [(subsubsection.3.1.11) (subsubsection.3.1.2)]
+/Names [(subsection.7.14) 477 0 R (subsection.7.15) 481 0 R (subsection.7.16) 485 0 R (subsection.7.17) 489 0 R (subsection.7.2) 429 0 R (subsection.7.3) 433 0 R]
+/Limits [(subsection.7.14) (subsection.7.3)]
 >>
-% 2018 0 obj
+% 2076 0 obj
 <<
-/Names [(subsubsection.3.1.3) 51 0 R (subsubsection.3.1.4) 55 0 R (subsubsection.3.1.5) 59 0 R (subsubsection.3.1.6) 63 0 R (subsubsection.3.1.7) 67 0 R (subsubsection.3.1.8) 71 0 R]
-/Limits [(subsubsection.3.1.3) (subsubsection.3.1.8)]
+/Names [(subsection.7.4) 437 0 R (subsection.7.5) 441 0 R (subsection.7.6) 445 0 R (subsection.7.7) 449 0 R (subsection.7.8) 453 0 R (subsection.7.9) 457 0 R]
+/Limits [(subsection.7.4) (subsection.7.9)]
 >>
-% 2019 0 obj
+% 2077 0 obj
 <<
-/Names [(subsubsection.3.1.9) 75 0 R (subsubsection.3.2.1) 107 0 R (subsubsection.3.2.10) 143 0 R (subsubsection.3.2.11) 147 0 R (subsubsection.3.2.12) 151 0 R (subsubsection.3.2.13) 155 0 R]
-/Limits [(subsubsection.3.1.9) (subsubsection.3.2.13)]
+/Names [(subsection.8.1) 497 0 R (subsection.8.2) 501 0 R (subsection.8.3) 505 0 R (subsection.8.4) 509 0 R (subsection.9.1) 517 0 R (subsection.9.2) 521 0 R]
+/Limits [(subsection.8.1) (subsection.9.2)]
 >>
-% 2020 0 obj
+% 2078 0 obj
 <<
-/Names [(subsubsection.3.2.14) 159 0 R (subsubsection.3.2.15) 163 0 R (subsubsection.3.2.16) 167 0 R (subsubsection.3.2.17) 171 0 R (subsubsection.3.2.18) 175 0 R (subsubsection.3.2.19) 179 0 R]
-/Limits [(subsubsection.3.2.14) (subsubsection.3.2.19)]
+/Names [(subsection.9.3) 525 0 R (subsection.9.4) 529 0 R (subsection.9.5) 533 0 R (subsection.9.6) 537 0 R (subsubsection.2.3.1) 27 0 R (subsubsection.3.1.1) 43 0 R]
+/Limits [(subsection.9.3) (subsubsection.3.1.1)]
 >>
-% 2021 0 obj
+% 2079 0 obj
 <<
-/Names [(subsubsection.3.2.2) 111 0 R (subsubsection.3.2.3) 115 0 R (subsubsection.3.2.4) 119 0 R (subsubsection.3.2.5) 123 0 R (subsubsection.3.2.6) 127 0 R (subsubsection.3.2.7) 131 0 R]
-/Limits [(subsubsection.3.2.2) (subsubsection.3.2.7)]
+/Names [(subsubsection.3.1.10) 79 0 R (subsubsection.3.1.11) 83 0 R (subsubsection.3.1.12) 87 0 R (subsubsection.3.1.13) 91 0 R (subsubsection.3.1.14) 95 0 R (subsubsection.3.1.15) 99 0 R]
+/Limits [(subsubsection.3.1.10) (subsubsection.3.1.15)]
 >>
-% 2022 0 obj
+% 2080 0 obj
 <<
-/Names [(subsubsection.3.2.8) 135 0 R (subsubsection.3.2.9) 139 0 R (subsubsection.3.3.1) 187 0 R (subsubsection.3.3.2) 191 0 R (subsubsection.3.3.3) 195 0 R (subsubsection.3.3.4) 199 0 R]
-/Limits [(subsubsection.3.2.8) (subsubsection.3.3.4)]
+/Names [(subsubsection.3.1.2) 47 0 R (subsubsection.3.1.3) 51 0 R (subsubsection.3.1.4) 55 0 R (subsubsection.3.1.5) 59 0 R (subsubsection.3.1.6) 63 0 R (subsubsection.3.1.7) 67 0 R]
+/Limits [(subsubsection.3.1.2) (subsubsection.3.1.7)]
 >>
-% 2023 0 obj
+% 2081 0 obj
 <<
-/Names [(subsubsection.3.3.5) 204 0 R (subsubsection.3.3.6) 208 0 R (table.1) 998 0 R (table.10) 1147 0 R (table.11) 1155 0 R (table.12) 1168 0 R]
-/Limits [(subsubsection.3.3.5) (table.12)]
+/Names [(subsubsection.3.1.8) 71 0 R (subsubsection.3.1.9) 75 0 R (subsubsection.3.2.1) 107 0 R (subsubsection.3.2.10) 143 0 R (subsubsection.3.2.11) 147 0 R (subsubsection.3.2.12) 151 0 R]
+/Limits [(subsubsection.3.1.8) (subsubsection.3.2.12)]
 >>
-% 2024 0 obj
+% 2082 0 obj
 <<
-/Names [(table.13) 1187 0 R (table.14) 1215 0 R (table.15) 1231 0 R (table.16) 1247 0 R (table.17) 1261 0 R (table.18) 1289 0 R]
-/Limits [(table.13) (table.18)]
+/Names [(subsubsection.3.2.13) 155 0 R (subsubsection.3.2.14) 159 0 R (subsubsection.3.2.15) 163 0 R (subsubsection.3.2.16) 167 0 R (subsubsection.3.2.17) 171 0 R (subsubsection.3.2.18) 175 0 R]
+/Limits [(subsubsection.3.2.13) (subsubsection.3.2.18)]
 >>
-% 2025 0 obj
+% 2083 0 obj
 <<
-/Names [(table.19) 1325 0 R (table.2) 1044 0 R (table.20) 1337 0 R (table.3) 1061 0 R (table.4) 1073 0 R (table.5) 1087 0 R]
-/Limits [(table.19) (table.5)]
+/Names [(subsubsection.3.2.19) 179 0 R (subsubsection.3.2.2) 111 0 R (subsubsection.3.2.3) 115 0 R (subsubsection.3.2.4) 119 0 R (subsubsection.3.2.5) 123 0 R (subsubsection.3.2.6) 127 0 R]
+/Limits [(subsubsection.3.2.19) (subsubsection.3.2.6)]
 >>
-% 2026 0 obj
+% 2084 0 obj
 <<
-/Names [(table.6) 1095 0 R (table.7) 1108 0 R (table.8) 1120 0 R (table.9) 1140 0 R (title.0) 3 0 R (vbasedata) 933 0 R]
-/Limits [(table.6) (vbasedata)]
+/Names [(subsubsection.3.2.7) 131 0 R (subsubsection.3.2.8) 135 0 R (subsubsection.3.2.9) 139 0 R (subsubsection.3.3.1) 187 0 R (subsubsection.3.3.2) 191 0 R (subsubsection.3.3.3) 195 0 R]
+/Limits [(subsubsection.3.2.7) (subsubsection.3.3.3)]
 >>
-% 2027 0 obj
+% 2085 0 obj
 <<
-/Names [(vdata) 985 0 R]
-/Limits [(vdata) (vdata)]
+/Names [(subsubsection.3.3.4) 199 0 R (subsubsection.3.3.5) 204 0 R (subsubsection.3.3.6) 208 0 R (table.1) 998 0 R (table.10) 1147 0 R (table.11) 1155 0 R]
+/Limits [(subsubsection.3.3.4) (table.11)]
 >>
-% 2028 0 obj
+% 2086 0 obj
+<<
+/Names [(table.12) 1168 0 R (table.13) 1187 0 R (table.14) 1215 0 R (table.15) 1231 0 R (table.16) 1247 0 R (table.17) 1261 0 R]
+/Limits [(table.12) (table.17)]
+>>
+% 2087 0 obj
 <<
-/Kids [1939 0 R 1940 0 R 1941 0 R 1942 0 R 1943 0 R 1944 0 R]
+/Names [(table.18) 1289 0 R (table.19) 1325 0 R (table.2) 1044 0 R (table.20) 1337 0 R (table.3) 1061 0 R (table.4) 1073 0 R]
+/Limits [(table.18) (table.4)]
+>>
+% 2088 0 obj
+<<
+/Names [(table.5) 1087 0 R (table.6) 1095 0 R (table.7) 1108 0 R (table.8) 1120 0 R (table.9) 1140 0 R (title.0) 3 0 R]
+/Limits [(table.5) (title.0)]
+>>
+% 2089 0 obj
+<<
+/Names [(vbasedata) 933 0 R (vdata) 985 0 R]
+/Limits [(vbasedata) (vdata)]
+>>
+% 2090 0 obj
+<<
+/Kids [1997 0 R 1998 0 R 1999 0 R 2000 0 R 2001 0 R 2002 0 R]
 /Limits [(Doc-Start) (Item.125)]
 >>
-% 2029 0 obj
+% 2091 0 obj
 <<
-/Kids [1945 0 R 1946 0 R 1947 0 R 1948 0 R 1949 0 R 1950 0 R]
-/Limits [(Item.126) (Item.42)]
+/Kids [2003 0 R 2004 0 R 2005 0 R 2006 0 R 2007 0 R 2008 0 R]
+/Limits [(Item.126) (Item.29)]
 >>
-% 2030 0 obj
+% 2092 0 obj
 <<
-/Kids [1951 0 R 1952 0 R 1953 0 R 1954 0 R 1955 0 R 1956 0 R]
-/Limits [(Item.43) (Item.75)]
+/Kids [2009 0 R 2010 0 R 2011 0 R 2012 0 R 2013 0 R 2015 0 R]
+/Limits [(Item.3) (Item.61)]
 >>
-% 2031 0 obj
+% 2093 0 obj
 <<
-/Kids [1957 0 R 1958 0 R 1959 0 R 1960 0 R 1961 0 R 1962 0 R]
-/Limits [(Item.76) (cite.METIS)]
+/Kids [2016 0 R 2017 0 R 2018 0 R 2019 0 R 2020 0 R 2021 0 R]
+/Limits [(Item.62) (Item.94)]
 >>
-% 2032 0 obj
+% 2094 0 obj
 <<
-/Kids [1963 0 R 1964 0 R 1965 0 R 1966 0 R 1967 0 R 1968 0 R]
-/Limits [(cite.MPI1) (lstnumber.-1.1)]
+/Kids [2022 0 R 2023 0 R 2024 0 R 2025 0 R 2026 0 R 2027 0 R]
+/Limits [(Item.95) (listing.4)]
 >>
-% 2033 0 obj
+% 2095 0 obj
 <<
-/Kids [1969 0 R 1970 0 R 1971 0 R 1972 0 R 1973 0 R 1974 0 R]
-/Limits [(lstnumber.-1.2) (page.117)]
+/Kids [2028 0 R 2029 0 R 2030 0 R 2031 0 R 2032 0 R 2033 0 R]
+/Limits [(listing.5) (page.103)]
 >>
-% 2034 0 obj
+% 2096 0 obj
 <<
-/Kids [1975 0 R 1976 0 R 1977 0 R 1978 0 R 1979 0 R 1980 0 R]
-/Limits [(page.118) (page.15)]
+/Kids [2034 0 R 2035 0 R 2036 0 R 2037 0 R 2038 0 R 2039 0 R]
+/Limits [(page.104) (page.136)]
 >>
-% 2035 0 obj
+% 2097 0 obj
 <<
-/Kids [1981 0 R 1982 0 R 1983 0 R 1984 0 R 1985 0 R 1986 0 R]
-/Limits [(page.150) (page.43)]
+/Kids [2040 0 R 2041 0 R 2042 0 R 2043 0 R 2044 0 R 2045 0 R]
+/Limits [(page.137) (page.20)]
 >>
-% 2036 0 obj
+% 2098 0 obj
 <<
-/Kids [1987 0 R 1988 0 R 1989 0 R 1990 0 R 1991 0 R 1992 0 R]
-/Limits [(page.44) (page.76)]
+/Kids [2046 0 R 2047 0 R 2048 0 R 2049 0 R 2050 0 R 2051 0 R]
+/Limits [(page.21) (page.53)]
 >>
-% 2037 0 obj
+% 2099 0 obj
 <<
-/Kids [1993 0 R 1994 0 R 1995 0 R 1996 0 R 1997 0 R 1998 0 R]
-/Limits [(page.77) (section.2)]
+/Kids [2052 0 R 2053 0 R 2054 0 R 2055 0 R 2056 0 R 2057 0 R]
+/Limits [(page.54) (page.86)]
 >>
-% 2038 0 obj
+% 2100 0 obj
 <<
-/Kids [1999 0 R 2000 0 R 2001 0 R 2002 0 R 2003 0 R 2005 0 R]
-/Limits [(section.3) (subsection.4.4)]
+/Kids [2058 0 R 2059 0 R 2060 0 R 2061 0 R 2062 0 R 2063 0 R]
+/Limits [(page.87) (subsection.10.2)]
 >>
-% 2039 0 obj
+% 2101 0 obj
 <<
-/Kids [2006 0 R 2007 0 R 2008 0 R 2009 0 R 2010 0 R 2011 0 R]
-/Limits [(subsection.4.5) (subsection.6.9)]
+/Kids [2064 0 R 2065 0 R 2066 0 R 2067 0 R 2068 0 R 2069 0 R]
+/Limits [(subsection.10.3) (subsection.6.10)]
 >>
-% 2040 0 obj
+% 2102 0 obj
 <<
-/Kids [2012 0 R 2013 0 R 2014 0 R 2015 0 R 2016 0 R 2017 0 R]
-/Limits [(subsection.7.1) (subsubsection.3.1.2)]
+/Kids [2070 0 R 2071 0 R 2072 0 R 2073 0 R 2074 0 R 2075 0 R]
+/Limits [(subsection.6.11) (subsection.7.3)]
 >>
-% 2041 0 obj
+% 2103 0 obj
 <<
-/Kids [2018 0 R 2019 0 R 2020 0 R 2021 0 R 2022 0 R 2023 0 R]
-/Limits [(subsubsection.3.1.3) (table.12)]
+/Kids [2076 0 R 2077 0 R 2078 0 R 2079 0 R 2080 0 R 2081 0 R]
+/Limits [(subsection.7.4) (subsubsection.3.2.12)]
 >>
-% 2042 0 obj
+% 2104 0 obj
 <<
-/Kids [2024 0 R 2025 0 R 2026 0 R 2027 0 R]
-/Limits [(table.13) (vdata)]
+/Kids [2082 0 R 2083 0 R 2084 0 R 2085 0 R 2086 0 R 2087 0 R]
+/Limits [(subsubsection.3.2.13) (table.4)]
 >>
-% 2043 0 obj
+% 2105 0 obj
 <<
-/Kids [2028 0 R 2029 0 R 2030 0 R 2031 0 R 2032 0 R 2033 0 R]
-/Limits [(Doc-Start) (page.117)]
+/Kids [2088 0 R 2089 0 R]
+/Limits [(table.5) (vdata)]
 >>
-% 2044 0 obj
+% 2106 0 obj
 <<
-/Kids [2034 0 R 2035 0 R 2036 0 R 2037 0 R 2038 0 R 2039 0 R]
-/Limits [(page.118) (subsection.6.9)]
+/Kids [2090 0 R 2091 0 R 2092 0 R 2093 0 R 2094 0 R 2095 0 R]
+/Limits [(Doc-Start) (page.103)]
 >>
-% 2045 0 obj
+% 2107 0 obj
 <<
-/Kids [2040 0 R 2041 0 R 2042 0 R]
-/Limits [(subsection.7.1) (vdata)]
+/Kids [2096 0 R 2097 0 R 2098 0 R 2099 0 R 2100 0 R 2101 0 R]
+/Limits [(page.104) (subsection.6.10)]
 >>
-% 2046 0 obj
+% 2108 0 obj
 <<
-/Kids [2043 0 R 2044 0 R 2045 0 R]
+/Kids [2102 0 R 2103 0 R 2104 0 R 2105 0 R]
+/Limits [(subsection.6.11) (vdata)]
+>>
+% 2109 0 obj
+<<
+/Kids [2106 0 R 2107 0 R 2108 0 R]
 /Limits [(Doc-Start) (vdata)]
 >>
-% 2047 0 obj
+% 2110 0 obj
 <<
-/Dests 2046 0 R
+/Dests 2109 0 R
 >>
-% 2048 0 obj
+% 2111 0 obj
 <<
 /Type /Catalog
-/Pages 1935 0 R
-/Outlines 1936 0 R
-/Names 2047 0 R
+/Pages 1994 0 R
+/Outlines 1995 0 R
+/Names 2110 0 R
  /URI (http://ce.uniroma2.it/psblas) /PageMode/UseOutlines/PageLabels<>2<>6<>]>>
 /OpenAction 576 0 R
 >>
 
 endstream
 endobj
-2050 0 obj
+2113 0 obj
 <<
 /Type /XRef
-/Index [0 2051]
-/Size 2051
+/Index [0 2114]
+/Size 2114
 /W [1 3 1]
-/Root 2048 0 R
-/Info 2049 0 R
-/ID [<140BA43A6AC214D8552380E7B1B05922> <140BA43A6AC214D8552380E7B1B05922>]
-/Length 10255     
+/Root 2111 0 R
+/Info 2112 0 R
+/ID [<3E2BE59A045B6F63645E5D8EE5B06F10> <3E2BE59A045B6F63645E5D8EE5B06F10>]
+/Length 10570     
 >>
 stream
-ÿ”[’#ìK’"ìU’!ì]’ =’	
-=’=.’
=5’=:’=;’=[’=\’=]’=^’=b’=c’  ’!" ’#$ ’%& ’'( ’)* ’+, 
’
-. ’/0 ’12 ’
-34 ’	56 ’78 "’9: #’;< %’=> )’?@ *’AB +’CD /’EF 0’GH 4‘cIJ 5‘bKL 9‘aMN :‘`OP ;‘_QR ?‘^ST E‘]UV F‘\WX G‘[YZ H‘Z[\ N‘Y]^ O‘X_` P‘Wab V‘VcËR [‘UËË \‘TËË ]‘SËËó‘RËËó‘QË	Ë
-ó‘PËËó‘OË
Ëó.‘NËËó9‘MËËóE‘LËËóM‘KËËóY‘JËËb‘IËËb‘HËËb‘GËËb‘FËË b(‘EË!Ë"b<‘DË#Ë$bW‘CË%Ë&Ñ‘BË'Ë(Ñ‘AË)Ë*Ñ‘@Ë+Ë,Ñ‘?Ë-Ë.Ñ3‘>Ë/Ë0ÑQ‘=Ë1Ë2ÑZ‘<Ë3Ë4D‘;Ë5Ë6D‘:Ë7Ë8D‘9Ë9Ë:D&‘8Ë;Ë<D-‘7Ë=Ë>D2‘6Ë?Ë@D8‘5ËAËBDC‘4ËCËDDJ‘3ËEËF²‘2ËGËH²‘1ËIËJ²‘0ËKËL²‘/ËMËN²"‘.ËOËP².‘-ËQËR²4‘,ËSËT²8‘+ËUËV²=‘*ËWËX²G‘)ËYËZ²L‘(Ë[Ë\²R‘'Ë]Ë^²X‘&Ë_Ë`²^‘%ËaËb‘$Ëc”3”‘#””‘"””‘!””‘ ””/‘”	”
-3‘””9‘”
”?‘””F‘””J‘””N‘””R‘””V‘””Z‘””^‘””ˆ‘”” ˆ‘”!”"ˆ‘”#”$ˆ‘”%”&ˆ‘”'”(ˆ‘”)”*ˆ$‘”+”,ˆ+‘
”-”.ˆ4‘”/”0ˆ:‘”1”2ˆ@‘
-”3”4ˆF‘	”5”6ˆL‘”7”8ˆQ‘”9”:ˆX‘”;”<ˆ_‘”=”>õ‘”?”@õ	‘”A”Bõ‘”C”Dõ‘”E”Fõ‘”G”Hõ%\c”I”Jõ0\b”K”Lõ5\a”M”Nõ9\`”O”Põ?\_”Q”RõC\^”S”TõI\]”U”V”W5•”X”\2}”Y”Z\8\:\9\;FA”_”]öß”^”a”b”c…………………………	…
-………
………………………………………!…"…#…$…%…&…'…(…)…*…/…-”`÷i…+…,…………… ×…0…1…2…3…4…5…6…7…8…9…:…;…<…=…>…?…@…A…B…C…D…E…F…G…H…I…J…K…L…M…N…O…P…Q…R…S…T…U…V…W…X…Y…Z…[…\…]…a…_….Q\…^…b…cìììììììììì	ì
-ììì
ìììììììììììììììììì ì!ì"ì#ì%ì&ì(ì*ì/ì-…`°ì,ìì$ì'ì)ì+¨âì1ì3ì5ì6ì7ì8ì9ì:ì;ì<ì=ì?ì.Cì>ì0ì2ì4ìAìBìCìDìEìFìGìHìIìJìLì@)Ô\<\\õ`\\\\\
\\ìRìSìT^MìYìWìMI|ìVìNìOìPìQc\ìZì[ì`ìXn¦ì\\3\2\1ì^ì_\==¢8=ìa==ìbìc=ÇÈõcõb==	==äñ=
-===øl=
=========+=)=b======= =!="=#=$=%=&='=(\4\==,=6=*6Ú=-=/=0=1=2=3=4=8===7S=9=<=?=@=A=H=>sR=B=C=D=E=F=G=J=K=V=I‹D=L=M=N=O=P=Q=R=S=T\5=U=X=Y=_=W¢ä=Z =`¶}=a\> 	 ë¢    
-þp      ´  \   2ì   &  N  ! $ , ']ð (\? 1 -nQ . 6 2‚¤ 3 < 7”] 8 @ =¦! > B C J A¾† D I M Q KÜ… L\@ S T W RíÈ Uó Y a _ Xü› Z ^ có `H bVôóóAMóóóó	ó
-óóóóóB(ó
\7óóóó^hó\Aóóóóóó óh	óóó"ó%ó!…]ó#ó$ó'ó(ó)ó*ó+ó,ó0ó&”ó-ó/ó3ó1µó2ó5ó6ó7ó;ó4· ó8ó:ó?ó<Õó=ó>\BóAóBóCóGó@ßwóDóFóIóJóKóOóHøóLóNóSóPóQóRóUóVóWó[óTwóXóZó^ó\;@ó]ó`óaóbbó_=Äócb\C–ºbb†Šbbbbbb	b
-b
bbbb—©bbbbbb¯ˆbbbbb!bÄÎb\6b b#b$b%b&b/b-b"Ú&b'b)b*b+b,b0b1b2b3b4b5b6b8b.ö¥b7\Db:b@b>b9fb;b=bAbBbCbDbEbFbHb?,•bGbJbKbMbIIQbLbObPbQbRbSbTbUbYbN[KbVbXb\bZxpb[b^b_b`babbÑÑÑb]yçbcÑ\E©·ÑÑǤÑÑ	Ñ
-ÑÑÑ
ÑÑÌéÑÑÑÑÑéhÑÑÑÑÑ&ÑÑìÑÑ1Ñ'Ñ*ÑÑ(Ñ)Ñ Ñ!Ñ"Ñ#Ñ$Ñ%ŒRûÑ-Ñ+€“Ñ,\FÑ/Ñ0Ñ1Ñ5Ñ.Œ¸Ñ2Ñ4Ñ7ÏrÑ8Ñ9Ñ>Ñ6ªTÑ:Ñ;Ñ<Ñ=ÑJÑAÑ?¿ØÑ@ÑKÑBÍôÑIÑCÑDÑEÑFÑGÑHÞÑMÑNÑOÑSÑL?ÑPÑRÑVÑT^ñÑU\GÑXÑ^Ñ\ÑWd·ÑYÑ[Ñ_Ñ`ÑbÑ]€þÑaDÑcËDzDDDÛ•DDD
-D
D	ô“D\0DDDÑDDDDDD\HDDD&	DDD!DA¤DDDD D#D$D(D"M D%D'D*D+D.D)e.D,D0D3D/qËD1D5D6D9D4zD7\ID>D:‘
-D;D<D=D@DADGD?—DBDDDEDFDMDKDH©„DIDNDODVDL¾ÔDPDQDRDSDTDUD_DWÛ`DXDYDZD[D\D]D^DaDb²D`ëYDc\J.w²
-²-F²²²²²²²	²²
²²5ã²²²²²AÁ²²²²²²Q²²² ²#²dH²!²(²$~²%²&²'\K²*²+²,²/²)‚s²-²1²2²5²0–F²3²9²6£²7²;²>²:¯ê²<²C²?È…²@²A²B²E²H²DËb²F\L²J²N²Iàñ²K²M²P²T²O펲Q²S²V²Z²U…²W²Y²\²`²[

²]²_²b²aû²cd‹
-X8	\Me÷
{œ‰¢ ™z,!¯±"#$%&'()*+0-Ìr.\N61ÍZ245<7ã8:;C=ôÃ>@ABGDTEKH=IOLƒM\OSP!CQWT&ìU[X,,Ya\=\]_`ˆbQcˆˆ ¡?ˆ	ˆ‰„ˆˆˆ\Pˆˆ
-ˆˆ
ˆˆˆ°ýˆˆˆˆˆÄꈈˆ\.ˆˆ!ˆÜ´ˆˆ ˆ&ˆ"ñÖˆ#ˆ%ˆ(ˆ)ˆ,ˆ' ˆ*\Qˆ/ˆ0ˆ1ˆ- “ˆ.\/ˆ7ˆ2 9ˆ3ˆ5ˆ6ˆ=ˆ8 G.ˆ9ˆ;ˆ<ˆCˆ> Lˆ?ˆAˆBˆIˆD RψEˆGˆHˆMˆJ ZïˆK\RˆOˆTˆN ]%ˆPˆRˆSˆVˆ[ˆU o1ˆWˆYˆZˆ]ˆbˆ\ ‚¾ˆ^ˆ`ˆaõõˆc Þõõõ!¿õõõ Æõõ
-õõõõ
 Õûõõõ\Sõõ æïõõõõõ ëõõõ õ!õ"õ#õ&õ ÿVõ$õ)õ'!'õ(õ+õ,õ-õ.õ1õ*!!aõ/õ3õ6õ2!7Çõ4\Tõ:õ7!E?õ8õ<õ=õ@õ;!IIõ>õDõA!TõBõFõGõPõNõE!VvõHõJõKõLõMõQõRõSõUõO!véõTõWõYõV!’´õX\Uõ\õZ!¤zõ[\õ]!¥õ^õ_õa\\$<4\\	!éy\
-\\\\\\\\\\\\-\\\!õu\ "T\!"¸\"";H\#"Y¾\$"€1\%"Ï„\&"ß¹\'#Ù\(# 6\)#/ò\*#Œe\+#ïW\,\V\W\X\Y\Z\[\\$~¾$¥+’$’%’&’'’(’)’*’+’,’-’.’/’0’1’2’3’4’5’6’7’8’9’:’;’<’=’>’?’@’A’B’C’D’E’F’G’H’I’J’K’L’M’N’O’P’Q’R’S’T’U’V’W’X’Y’Z’[’\’]’^’_’`’a’b’cÔ$äÓÔÔÔÔÔÔÔÔÔ	Ô
-ÔÔÔ
ÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔÔ Ô!Ô"Ô#Ô$Ô%Ô&Ô'Ô(Ô)Ô*Ô+Ô,$â³%

+ÿ”[ÌSìKÌRìUÌQì]ÌP=ÌO	
+=ÌN=.ÌM
=5ÌL=:ÌK=;ÌJ=[ÌI=\ÌH=]ÌG=^ÌF=bÌE=cÌD  ÌC!" ÌB#$ ÌA%& Ì@'( Ì?)* Ì>+, 
Ì=-. Ì</0 Ì;12 Ì:34 Ì956 Ì878 "Ì79: #Ì6;< %Ì5=> )Ì4?@ *Ì3AB +Ì2CD /Ì1EF 0Ì0GH 4Ì/IJ 5Ì.KL 9Ì-MN :Ì,OP ;Ì+QR ?Ì*ST EÌ)UV FÌ(WX GÌ'YZ HÌ&[\ NÌ%]^ OÌ$_` PÌ#ab VÌ"cËR [Ì!ËË \Ì ËË ]ÌËËóÌËËóÌË	Ë
+óÌËËóÌË
Ëó.ÌËËó9ÌËËóEÌËËóMÌËËóYÌËËbÌËËbÌËËbÌËËbÌËË b(ÌË!Ë"b<ÌË#Ë$bWÌË%Ë&ÑÌË'Ë(ÑÌ
Ë)Ë*ÑÌË+Ë,ÑÌË-Ë.Ñ3Ì
+Ë/Ë0ÑQÌ	Ë1Ë2ÑZÌË3Ë4DÌË5Ë6DÌË7Ë8DÌË9Ë:D&ÌË;Ë<D-ÌË=Ë>D2ÌË?Ë@D8ÌËAËBDCÌËCËDDNÄcËEËF¸ÄbËGËH¸ÄaËIËJ¸Ä`ËKËL¸"Ä_ËMËN¸,Ä^ËOËP¸8Ä]ËQËR¸@Ä\ËSËT¸DÄ[ËUËV¸IÄZËWËX¸SÄYËYËZ¸XÄXË[Ë\¸^ÄWË]Ë^ÄVË_Ë`ÄUËaËbÄTËc”3ÄS””ÄR””'ÄQ””+ÄP””;ÄO”	”
+?ÄN””EÄM”
”KÄL””RÄK””VÄJ””ZÄI””^ÄH””bÄG””ŠÄF””ŠÄE””ŠÄD”” Š ÄC”!”"Š*ÄB”#”$Š4ÄA”%”&Š>Ä@”'”(ŠJÄ?”)”*ŠOÄ>”+”,ŠVÄ=”-”.Š_Ä<”/”0þÄ;”1”2þÄ:”3”4þ
Ä9”5”6þÄ8”7”8þÄ7”9”:þÄ6”;”<þ&Ä5”=”>þ-Ä4”?”@þ4Ä3”A”Bþ;Ä2”C”DþDÄ1”E”FþJÄ0”G”HþSÄ/”I”Jþ^Ä.”K”LþcÄ-”M”NcÄ,”O”Pc	Ä+”Q”Rc
Ä*”S”TcÄ)”U”V”W5‘”X”\2}”Y”ZÄÄÄÄF=”_”]öÛ”^”a”b”c…………………………	…
+………
………………………………………!…"…#…$…%…&…'…(…)…*…/…-”`÷e…+…,…………… ×…0…1…2…3…4…5…6…7…8…9…:…;…<…=…>…?…@…A…B…C…D…E…F…G…H…I…J…K…L…M…N…O…P…Q…R…S…T…U…V…W…X…Y…Z…[…\…]…a…_….QX…^…b…cìììììììììì	ì
+ììì
ìììììììììììììììììì ì!ì"ì#ì%ì&ì(ì*ì/ì-…`¬ì,ìì$ì'ì)ì+¨àì1ì3ì5ì6ì7ì8ì9ì:ì;ì<ì=ì?ì.Aì>ì0ì2ì4ìAìBìCìDìEìFìGìHìIìJìLì@)ÒÄc=c4c*c>c<c1c2c;c.c/ìRìSìT^KìYìWìMIzìVìNìOìPìQcc0ìZì[ì`ìXn¤ì\cac`c_ì^ì_c:==¢6=ìa==ìbìc=ÇÆc-c,==	==äï=
+===øj=
=========+=)=`======= =!="=#=$=%=&='=(cbÄ=,=6=*6Ø=-=/=0=1=2=3=4=8===7S=9=<=?=@=A=H=>sP=B=C=D=E=F=G=J=K=V=I‹B=L=M=N=O=P=Q=R=S=Tcc=U=X=Y=_=W¢â=Z =`¶{=aÄ 	 ë     
+þn      ²  c9   2ê   &  Nž ! $ , ']î (Ä	 1 -nO . 6 2‚¢ 3 < 7”[ 8 @ =¦ > B C J A¾„ D I M Q K܃ LÄ
+ S T W RíÆ Uó Y a _ Xü™ Z ^ có `F bVòóóAKóóóó	ó
+óóóóóB&ó
Äóóóó^fóÄóóóóóó óhóóó"ó%ó!…[ó#ó$ó'ó(ó)ó*ó+ó,ó0ó&”‹ó-ó/ó3ó1µó2ó5ó6ó7ó;ó4·žó8ó:ó?ó<Õó=ó>ÄóAóBóCóGó@ßuóDóFóIóJóKóOóHøóLóNóSóP
óQóRóUóVóWó[óTuóXóZó^ó\;>ó]ó`óaóbbó_=ÂócbÄ
–¸bb†ˆbbbbbb	b
+b
bbbb—§bbbbbb¯†bbbbb!bÄÌbÄb b#b$b%b&b/b-b"Ú$b'b)b*b+b,b0b1b2b3b4b5b6b8b.ö£b7Äb:b@b>b9db;b=bAbBbCbDbEbFbHb?,“bGbJbKbMbIIObLbObPbQbRbSbTbUbYbN[IbVbXb\bZxnb[b^b_b`babbÑÑÑb]yåbcÑÄ©µÑÑÇ¢ÑÑ	Ñ
+ÑÑÑ
ÑÑÌçÑÑÑÑÑéfÑÑÑÑÑ&ÑÑìÑÑ/Ñ'Ñ*ÑÑ(Ñ)Ñ Ñ!Ñ"Ñ#Ñ$Ñ%ŠRùÑ-Ñ+€‘Ñ,ÄÑ/Ñ0Ñ1Ñ5Ñ.Œ¶Ñ2Ñ4Ñ7ÏpÑ8Ñ9Ñ>Ñ6ªRÑ:Ñ;Ñ<Ñ=ÑJÑAÑ?¿ÖÑ@ÑKÑBÍòÑIÑCÑDÑEÑFÑGÑHÞ}ÑMÑNÑOÑSÑL?ÑPÑRÑVÑT^ïÑUÄÑXÑ^Ñ\ÑWdµÑYÑ[Ñ_Ñ`ÑbÑ]€üÑaDÑcÉDô}DDDÛ“DDD
+D
D	ô‘Dc^DDDÏDDDDDDÄDDD&DDD!DA¢DDDD D#D$D(D"MžD%D'D*D+D.D)e,D,D0D3D/qÉD1D5D6D9D4z}D7ÄD>D:‘D;D<D=D@DADED?—DBDDDKDF­‘DGDHDIDJDQDODL²CDMDRDSDZDPÇDTDUDVDWDXDYDcD[â‰D\D]D^D_D`DaDbĸ¸¸¸¸š¸%Š¸¸7\¸¸	¸
+¸¸¸
¸¸¸¸¸¸C㸸¸¸¸O˸¸¸¸ ¸#¸_¸!¸'¸$wm¸%¸&ĸ)¸*¸-¸({G¸+¸2¸.”D¸/¸0¸1¸4¸5¸6¸;¸3–œ¸7¸9¸:¸=¸>¸A¸<®Á¸?¸E¸B»–¸C¸G¸J¸FÈe¸HĸO¸Ká¸L¸M¸N¸Q¸T¸PãݸR¸V¸Z¸Uùl¸W¸Y¸\¸`¸[
+¸]¸_¸b¸a¸cDÑOsÄ
+	ba
pÝ~œ!”A #$%("¢G&,)²*Ä8-ÈV./01234567<9å:B=åÿ>@AHCûÂDFGOI
hJLMNSPùQÄWT'âU[X5(Y_\9è]c`?‘aŠŠjŠ ýŠ	ŠìŠŠŠŠc]ÄŠ
Š
+’ýŠŠŠ©ÿŠŠŠŠŠŠ»£ŠŠŠÑŒŠŠŠŠŠ!Šä7ŠŠ'Š"û)Š#Š$Š%Š&ÄŠ+Š( »Š)Š1Š, "èŠ-Š.Š/Š0Š5Š2 5½Š3Š;Š6 KíŠ7Š8Š9Š:Š?Š< ^»Š=ŠGŠ@ uˆŠAŠBŠCc\ŠDŠEŠFÄŠLŠH Œ\ŠIŠKŠQŠM ¡ŠNŠPŠSŠTŠWŠR ¶ªŠUŠZŠ[Š\ŠX ÏHŠYŠbŠ] éwŠ^Š`ŠaþŠc ÷¦þþþÄ"#þ
+þ!#7þþþ	þþ!)jþþþþþ!1‡þþþþ!3¿þþþþþ"þ!EÅþþ þ!þ$þ)þ#!YVþ%þ'þ(Äþ+þ0þ*!giþ,þ.þ/þ2þ7þ1!wáþ3þ5þ6þ9þ>þ8!’½þ:þ<þ=þAþ?!­:þ@þEþB!¯ÓþCþGþHþLþF!´eþIþKÄþNþOþPþQþTþM!È:þRþWþU!æþVþYþZþ[þ\þ_þX!êEþ]þacþ`"«þb%cc"5öcccc
+c":cÄ cc"DÌcccccc"G-cccccccccc"g cc!c#c "ƒkc"c&c$"•1c%c6c'"•¿c(c)c+c3c5Ä!c@c7"¯ºc8c?cAcBcCcDcEcFcGcHcIcJc[cKcLcM"»¶cN"Ø•cO"êcP#•cQ#&cR#L~cS#œcT#¬DcU#äcV#ôdcW$ cX$`ÁcY$ócZ%Q1Ä"Ä#Ä$Ä%Ä&Ä'Ä(%|ëÌTÌUÌVÌWÌXÌYÌZÌ[Ì\Ì]Ì^Ì_Ì`ÌaÌbÌcÞ%ªhÞÞÞÞÞÞÞÞÞ	Þ
+ÞÞÞ
ÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞÞ Þ!Þ"Þ#Þ$Þ%Þ&Þ'Þ(Þ)Þ*Þ+Þ,Þ-Þ.Þ/Þ0Þ1Þ2Þ3Þ4Þ5Þ6Þ7Þ8Þ9Þ:Þ;Þ<Þ=Þ>Þ?Þ@ÞAÞBÞCÞDÞEÞFÞGÞHÞIÞJÞKÞLÞMÞNÞOÞPÞQÞRÞSÞTÞUÞVÞWÞXÞYÞZÞ[Þ\Þ]Þ^Þ_Þ`Þa%¨H%ò©
 endstream
 endobj
 startxref
-2426125
+2486953
 %%EOF
diff --git a/docs/src/Makefile b/docs/src/Makefile
index 198d2321..e6ee0c5e 100644
--- a/docs/src/Makefile
+++ b/docs/src/Makefile
@@ -139,7 +139,7 @@ PDF      = $(join $(BASEFILE),.pdf)
 PS       = $(join $(BASEFILE),.ps)
 GXS      = $(join $(BASEFILE),.gxs)
 GLX      = $(join $(BASEFILE),.glx)
-TARGETPDF= ../psblas-3.7.pdf
+TARGETPDF= ../psblas-3.8.pdf
 BASEHTML = $(patsubst %.tex,%,$(HTMLFILE))
 HTML     = $(join $(BASEHTML),.html)
 HTMLDIR  = ../html
diff --git a/docs/src/intro.tex b/docs/src/intro.tex
index 92ce6040..ca0b47ad 100644
--- a/docs/src/intro.tex
+++ b/docs/src/intro.tex
@@ -293,7 +293,7 @@ are classified as:
 To finish our general description, we define a version string with the
 constant 
 \[ \verb|psb_version_string_|\]
-whose current value is \verb|3.7.0|
+whose current value is \verb|3.8.0|
 
 \subsection{Application structure}
 \label{sec:appstruct}
diff --git a/docs/src/penv.tex b/docs/src/penv.tex
index 9b019187..10dbeb0f 100644
--- a/docs/src/penv.tex
+++ b/docs/src/penv.tex
@@ -280,7 +280,7 @@ Specified as: an integer variable.
 \clearpage\subsection{psb\_bcast --- Broadcast data}
 
 \begin{verbatim}
-call psb_bcast(ctxt, dat, root)
+call psb_bcast(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a broadcast operation based on the
@@ -307,25 +307,95 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $0<= root <= np-1$, default 0 \
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
 \begin{description}
 \item[\bf On Return]
-\item[dat] On processes other than  root, the data to be broadcast.\\
+\item[dat] On all processes other than  root, the broadcasted data.\\
 Scope: {\bf global}.\\
 Type: {\bf required}.\\
 Intent: {\bf inout}.\\
 Specified as: an integer, real or complex variable, which may be a
 scalar, or a rank 1 or 2 array, or a character or logical scalar. \
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
+{\par\noindent\large\bfseries Notes}
+\begin{enumerate}
+\item The \verb|dat| argument is both input and output, and its
+  value may be changed even on processes different from the final
+  result destination.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_bcast(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_bcast(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_bcast(ctxt,dat,mode=psb_collective_start_,&
+       & request=bcast_request)
+  ....... ! Do not access dat 
+  call psb_bcast(ctxt,dat,mode=psb_collective_end_,&
+       & request=bcast_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_bcast(ctxt,dat,mode=psb_collective_start_,request=bcast_request)
+  ....... ! Do not access dat 
+  call psb_bcast(ctxt,dat,mode=psb_collective_end_, request=bcast_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+\end{enumerate}
+
+
+
 
 \clearpage\subsection{psb\_sum --- Global sum}
 
 \begin{verbatim}
-call psb_sum(ctxt, dat, root)
+call psb_sum(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a sum reduction  operation based on the
@@ -352,9 +422,23 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
-
 \begin{description}
 \item[\bf On Return]
 \item[dat] On destination process(es), the result of the sum operation.\\
@@ -364,6 +448,12 @@ Intent: {\bf inout}.\\
 Specified as: an integer, real or complex variable, which may be a
 scalar, or a rank 1 or 2 array. \\
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 {\par\noindent\large\bfseries Notes}
@@ -371,7 +461,46 @@ Type, kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
-\item The \verb|dat| argument may also be a long integer scalar.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_sum(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_sum(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_sum(ctxt,dat,mode=psb_collective_start_,&
+       & request=sum_request)
+  ....... ! Do not access dat 
+  call psb_sum(ctxt,dat,mode=psb_collective_end_,&
+       & request=sum_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_sum(ctxt,dat,mode=psb_collective_start_,request=sum_request)
+  ....... ! Do not access dat 
+  call psb_sum(ctxt,dat,mode=psb_collective_end_,request=sum_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 
@@ -379,7 +508,7 @@ Type, kind, rank and size must agree on all processes.
 \clearpage\subsection{psb\_max --- Global maximum}
 
 \begin{verbatim}
-call psb_max(ctxt, dat, root)
+call psb_max(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a maximum valuereduction
@@ -406,6 +535,21 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \\
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -418,6 +562,12 @@ Intent: {\bf in}.\\
 Specified as: an integer or  real variable, which may be a
 scalar, or a rank 1 or 2 array. \
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -426,13 +576,52 @@ Type, kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
-\item The \verb|dat| argument may also be a long integer scalar.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_max(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_max(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_max(ctxt,dat,mode=psb_collective_start_,&
+       & request=max_request)
+  ....... ! Do not access dat 
+  call psb_max(ctxt,dat,mode=psb_collective_end_,&
+       & request=max_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_max(ctxt,dat,mode=psb_collective_start_,request=max_request)
+  ....... ! Do not access dat 
+  call psb_max(ctxt,dat,mode=psb_collective_end_,request=max_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 \clearpage\subsection{psb\_min --- Global minimum}
 
 \begin{verbatim}
-call psb_min(ctxt, dat, root)
+call psb_min(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a minimum value reduction
@@ -459,6 +648,21 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \\
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -471,6 +675,12 @@ Intent: {\bf inout}.\\
 Specified as: an integer  or  real variable, which may be a
 scalar, or a rank 1 or 2 array. \\
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -479,13 +689,52 @@ Type, kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
-\item The \verb|dat| argument may also be a long integer scalar.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_min(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_min(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_min(ctxt,dat,mode=psb_collective_start_,&
+       & request=min_request)
+  ....... ! Do not access dat 
+  call psb_min(ctxt,dat,mode=psb_collective_end_,&
+       & request=min_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_min(ctxt,dat,mode=psb_collective_start_,request=min_request)
+  ....... ! Do not access dat 
+  call psb_min(ctxt,dat,mode=psb_collective_end_,request=min_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 \clearpage\subsection{psb\_amx --- Global maximum absolute value}
 
 \begin{verbatim}
-call psb_amx(ctxt, dat, root)
+call psb_amx(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a maximum absolute value reduction
@@ -512,6 +761,21 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \\
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -524,6 +788,12 @@ Intent: {\bf inout}.\\
 Specified as: an integer, real or complex variable, which may be a
 scalar, or a rank 1 or 2 array. \
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -532,13 +802,52 @@ Type, kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
-\item The \verb|dat| argument may also be a long integer scalar.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_amx(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_amx(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+call psb_amx(ctxt,dat,mode=psb_collective_start_,&
+     & request=amx_request)
+  ....... ! Do not access dat 
+  call psb_amx(ctxt,dat,mode=psb_collective_end_,&
+       & request=amx_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_amx(ctxt,dat,mode=psb_collective_start_,request=amx_request)
+  ....... ! Do not access dat 
+  call psb_amx(ctxt,dat,mode=psb_collective_end_,request=amx_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 \clearpage\subsection{psb\_amn --- Global minimum absolute value}
 
 \begin{verbatim}
-call psb_amn(ctxt, dat, root)
+call psb_amn(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a minimum absolute value reduction
@@ -565,6 +874,21 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \\
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -577,6 +901,12 @@ Intent: {\bf inout}.\\
 Specified as: an integer, real or complex variable, which may be a
 scalar, or a rank 1 or 2 array. \\
 Type, kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -585,13 +915,52 @@ Type, kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
-\item The \verb|dat| argument may also be a long integer scalar.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_amn(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_amn(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_amn(ctxt,dat,mode=psb_collective_start_,&
+       & request=amn_request)
+  ....... ! Do not access dat 
+  call psb_amn(ctxt,dat,mode=psb_collective_end_,&
+       & request=amn_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_amn(ctxt,dat,mode=psb_collective_start_,request=amn_request)
+  ....... ! Do not access dat 
+  call psb_amn(ctxt,dat,mode=psb_collective_end_,request=amn_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 \clearpage\subsection{psb\_nrm2 --- Global 2-norm reduction}
 
 \begin{verbatim}
-call psb_nrm2(ctxt, dat, root)
+call psb_nrm2(ctxt, dat [, root, mode, request])
 \end{verbatim}
 
 This subroutine implements a 2-norm value reduction 
@@ -618,6 +987,21 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value $-1<= root <= np-1$, default -1. \\
+\item[mode] Whether the call is started in non-blocking mode and completed
+  later, or is executed synchronously.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value. The action to be taken is determined
+by its bit fields, which can be set with bitwise \verb|OR|. Basic
+action values are \verb|psb_collective_start_|, \verb|psb_collective_end_|.
+Default:  both fields are selected (i.e. require synchronous completion).\\
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -630,6 +1014,12 @@ Intent: {\bf inout}.\\
 Specified as: a real variable, which may be a
 scalar, or a rank 1 array. \\
 Kind, rank and size must agree on all processes.
+\item[request] A request variable to check for operation completion.\\
+Scope: {\bf local}.\\
+Type: {\bf optional}.\\
+Intent: {\bf inout}.\\
+If \verb|mode| does not specify synchronous completion, then this
+variable must be present.
 \end{description}
 
 
@@ -644,6 +1034,46 @@ Kind, rank and size must agree on all processes.
 \item The \verb|dat| argument is both input and output, and its
   value may be changed even on processes different from the final
   result destination.
+\item The \verb|mode| argument can be built with the bitwise
+  \verb|IOR()| operator; in the following example, the   argument is
+  forcing immediate completion, hence the \verb|request| argument
+  needs not be specified: 
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+  call psb_nrm2(ctxt,dat,&
+       & mode=ior(psb_collective_start_,psb_collective_end_))
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_nrm2(ctxt,dat,mode=ior(psb_collective_start_,psb_collective_end_))
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
+  
+\item When splitting the operation in two calls, the \verb|dat|
+  argument  \emph{must not} be accessed between calls:
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+call psb_nrm2(ctxt,dat,mode=psb_collective_start_,&
+     & request=nrm2_request)
+  ....... ! Do not access dat 
+  call psb_nrm2(ctxt,dat,mode=psb_collective_end_,&
+       & request=nrm2_request)
+\end{minted}
+\else
+\begin{center}
+    \begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+  call psb_nrm2(ctxt,dat,mode=psb_collective_start_,request=nrm2_request)
+  ....... ! Do not access dat 
+  call psb_nrm2(ctxt,dat,mode=psb_collective_end_,request=nrm2_request)
+\end{verbatim}
+    \end{minipage}
+  \end{center}
+\fi
 \end{enumerate}
 
 
diff --git a/docs/src/toolsrout.tex b/docs/src/toolsrout.tex
index 95639b84..d026f585 100644
--- a/docs/src/toolsrout.tex
+++ b/docs/src/toolsrout.tex
@@ -547,7 +547,7 @@ An integer value; 0 means no error has been detected.
 \clearpage\subsection{psb\_spall --- Allocates a sparse matrix}
 
 \begin{verbatim}
-call psb_spall(a, desc_a, info, nnz)
+call psb_spall(a, desc_a, info [, nnz, dupl, bldmode])
 \end{verbatim}
 
 \begin{description}
@@ -564,6 +564,19 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: an integer value. 
+\item[dupl] How to handle duplicate coefficients.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
+\verb|psb_dupl_add_|, \verb|psb_dupl_err_|.
+\item[bldmode] Whether to keep track of matrix entries that do not
+  belong to the current process.\\ 
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value \verb|psb_matbld_noremote_|,
+\verb|psb_matbld_remote_|.  Default:  \verb|psb_matbld_noremote_|.
 \end{description}
 
 \begin{description}
@@ -587,7 +600,9 @@ An integer value; 0 means no error has been detected.
 \item Providing a good estimate for the number of nonzeroes $nnz$ in
   the assembled matrix may substantially improve performance in the
   matrix build phase, as it will reduce or eliminate the need for
-  (potentially multiple) data reallocations. 
+  (potentially multiple) data reallocations;
+\item Using \verb|psb_matbld_remote_| is likely to cause  a runtime  overhead at
+  assembly time;
 \end{enumerate}
 
 
@@ -697,8 +712,7 @@ An integer value; 0 means no error has been detected.
 \item The input data can be passed in either COO or CSR formats;
 \item In COO format the coefficients to be inserted are represented by
   the ordered   triples $ia(i),ja(i),val(i)$, for $i=1,\dots,nz$;
-  these triples  should belong to the current process, i.e. $ia(i)$
-  should be one of  the local indices, but are otherwise arbitrary;
+  these triples are arbitrary;
 \item In CSR format the coefficients to be inserted for each input row $i=1,nr$
   are represented by the ordered triples $(i+irw-1),ja(j),val(j)$, for
   $j=irp(i),\dots,irp(i+1)-1$; 
@@ -709,8 +723,11 @@ An integer value; 0 means no error has been detected.
   may be split into   as many calls as desired (even in the CSR format); 
 \item Coefficients from different rows may also be mixed up freely
   in a single call, according to the application needs; 
-\item Any coefficients from matrix rows not owned by the calling
-  process are silently ignored;
+\item Coefficients from matrix rows not owned by the calling
+  process are treated according to the value of \verb|bldmode|
+  specified at allocation time; if 
+  \verb|bldmode| was chosen as \verb|psb_matbld_remote_| the library
+  will keep track of them, otherwise they are   silently ignored;
 \item If the descriptor is in the assembled state, then any entries in
   the sparse matrix that would generate additional communication
   requirements are  ignored; 
@@ -724,7 +741,7 @@ An integer value; 0 means no error has been detected.
 \clearpage\subsection{psb\_spasb --- Sparse matrix assembly routine}
 
 \begin{verbatim}
-call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
+call psb_spasb(a, desc_a, info [, afmt, upd,  mold])
 \end{verbatim}
 
 \begin{description}
@@ -733,7 +750,7 @@ call psb_spasb(a, desc_a, info, afmt, upd, dupl, mold)
 \item[desc\_a] the communication descriptor.\\
 Scope:{\bf local}.\\
 Type:{\bf required}.\\
-Intent: {\bf in}.\\
+Intent: {\bf in/out}.\\
 Specified as: a structured data of type \descdata.
 \item[afmt] the storage format for the sparse matrix.\\
 Scope: {\bf local}.\\
@@ -745,12 +762,6 @@ Scope: {\bf global}.\\
 Type: {\bf optional}.\\
 Intent: {\bf in}.\\
 Specified as: integer, possible values: \verb|psb_upd_srch_|, \verb|psb_upd_perm_|
-\item[dupl] How to handle duplicate coefficients.\\
-Scope: {\bf global}.\\
-Type: {\bf optional}.\\
-Intent: {\bf in}.\\
-Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
-\verb|psb_dupl_add_|, \verb|psb_dupl_err_|.
 \item[mold] The desired dynamic type for the internal matrix storage.\\
 Scope: {\bf local}.\\
 Type: {\bf optional}.\\
@@ -765,6 +776,13 @@ Scope:{\bf local}\\
 Type:{\bf required}\\
 Intent: {\bf inout}.\\
 Specified as: a structured data of type \spdata.
+\item[desc\_a] the communication descriptor.\\
+Scope:{\bf local}.\\
+Type:{\bf required}.\\
+Intent: {\bf in/out}.\\
+Specified as: a structured data of type \descdata. If the matrix was
+allocated with \verb|bldmode=psb_matbld_remote_|, then the
+descriptor will be reassembled. 
 \item[info] Error code.\\
 Scope: {\bf local} \\
 Type: {\bf required} \\
@@ -787,7 +805,14 @@ An integer value; 0 means no error has been detected.
 \item The output storage format need not be the same on all
   processes; 
 \item On exit from this routine the matrix is in the assembled state,
-  and thus is suitable for the computational routines. 
+  and thus is suitable for the computational routines;
+\item If the \verb|bldmode=psb_matbld_remote_| value was specified
+  at allocation time, contributions defined on the current process but
+  belonging to a remote process will be handled accordingly. This is
+  most likely to occur in finite element applications, with
+  \verb|dupl=psb_dupl_add_|; it is necessary to check for possible
+  updates needed in the descriptor, hence there will be a runtime
+  overhead.  
 \end{enumerate}
 
 
@@ -957,7 +982,7 @@ An integer value; 0 means no error has been detected.
 %\addcontentsline{toc}{subsection}{psb\_geall}
 
 \begin{verbatim}
-call psb_geall(x, desc_a, info, n, lb)
+call psb_geall(x, desc_a, info[, dupl, bldmode, n, lb])
 \end{verbatim}
 
 \begin{description}
@@ -980,6 +1005,19 @@ Type: {\bf optional}\\
 Intent: {\bf in}.\\
 Specified as: Integer scalar, default $1$. It is not a valid argument if $x$ is a
 rank-1 array. 
+\item[dupl] How to handle duplicate coefficients.\\
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
+\verb|psb_dupl_add_|; \verb|psb_dupl_err_| has no effect.
+\item[bldmode] Whether to keep track of matrix entries that do not
+  belong to the current process.\\ 
+Scope: {\bf global}.\\
+Type: {\bf optional}.\\
+Intent: {\bf in}.\\
+Specified as: an integer value \verb|psb_matbld_noremote_|,
+\verb|psb_matbld_remote_|.  Default:  \verb|psb_matbld_noremote_|.
 \end{description}
 
 \begin{description}
@@ -997,6 +1035,11 @@ Intent: {\bf out}.\\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
+{\par\noindent\large\bfseries Notes}
+\begin{enumerate}
+\item Using \verb|psb_matbld_remote_| is likely to cause  a runtime  overhead at
+  assembly time;
+\end{enumerate}
 
 %
 %%   psb_ins %%
@@ -1005,7 +1048,7 @@ An integer value; 0 means no error has been detected.
 %\addcontentsline{toc}{subsection}{psb\_geins}
 
 \begin{verbatim}
-call psb_geins(m, irw, val, x, desc_a, info [,dupl,local])
+call psb_geins(m, irw, val, x, desc_a, info [,local])
 \end{verbatim}
 
 \begin{description}
@@ -1034,12 +1077,6 @@ Scope:{\bf local}.\\
 Type:{\bf required}.\\
 Intent: {\bf in}.\\
 Specified as: a structured data of type \descdata.
-\item[dupl] How to handle duplicate coefficients.\\
-Scope: {\bf global}.\\
-Type: {\bf optional}.\\
-Intent: {\bf in}.\\
-Specified as: integer, possible values: \verb|psb_dupl_ovwrt_|,
-\verb|psb_dupl_add_|.
 \item[local] Whether the entries in the index vector \verb|irw|,
    are already in local  numbering. \\
  Scope:{\bf local}.\\
@@ -1111,7 +1148,22 @@ Type: {\bf required} \\
 Intent: {\bf out}.\\
 An integer value; 0 means no error has been detected. 
 \end{description}
+
+
+{\par\noindent\large\bfseries Notes}
+\begin{enumerate}
+\item On entry to this routine the descriptor must  be in  the
+  assembled state, i.e. \verb|psb_cdasb| must already have been called.
+\item If the \verb|bldmode=psb_matbld_remote_| value was specified
+  at allocation time, contributions defined on the current process but
+  belonging to a remote process will be handled accordingly. This is
+  most likely to occur in finite element applications, with
+  \verb|dupl=psb_dupl_add_|.
+\end{enumerate}
+
+
 %
+
 %%   psb_free %%
 %
 \clearpage\subsection{psb\_gefree --- Frees a dense matrix}
diff --git a/docs/src/userguide.tex b/docs/src/userguide.tex
index c95ddab6..9d4e1814 100644
--- a/docs/src/userguide.tex
+++ b/docs/src/userguide.tex
@@ -36,7 +36,7 @@
 \relax
 \pdfcompresslevel=0             %-- 0 = none, 9 = best
 \pdfinfo{                       %-- Info dictionary of PDF output  /Author (Alfredo Buttari)
-  /Title (Parallel Sparse BLAS V. 3.7.0)
+  /Title (Parallel Sparse BLAS V. 3.8.0)
   /Subject (Parallel Sparse Basic Linear Algebra Subroutines)
   /Keywords (Computer Science Linear Algebra Fluid Dynamics Parallel Linux MPI PSBLAS Iterative Solvers Preconditioners)
   /Creator (pdfLaTeX)
@@ -99,7 +99,7 @@
 
 \begin{document}
 {
-\pdfbookmark{PSBLAS-v3.7.0 User's Guide}{title}
+\pdfbookmark{PSBLAS-v3.8.0 User's Guide}{title}
 \lstset{language=Fortran}
 \newlength{\centeroffset}
 \setlength{\centeroffset}{-0.5\oddsidemargin}
@@ -109,7 +109,7 @@
 \vspace*{\stretch{1}}
 \noindent\hspace*{\centeroffset}\makebox[0pt][l]{\begin{minipage}{\textwidth}
 \flushright
-{\Huge\bfseries PSBLAS 3.7.0.1 User's guide
+{\Huge\bfseries PSBLAS 3.8.0 User's guide
 }
 \noindent\rule[-1ex]{\textwidth}{5pt}\\[2.5ex]
 \hfill\emph{\Large A reference guide for the Parallel Sparse BLAS library}
@@ -130,7 +130,7 @@
 {\bfseries 
 by Salvatore Filippone\\
 and Alfredo Buttari}\\ 
-May 11th, 2021
+May 1st, 2022
 \end{minipage}}
 }
 %\addtolength{\textwidth}{\centeroffset}
diff --git a/docs/src/userhtml.tex b/docs/src/userhtml.tex
index 09141e99..5dc0e6cf 100644
--- a/docs/src/userhtml.tex
+++ b/docs/src/userhtml.tex
@@ -94,9 +94,9 @@
    Alfredo Buttari } \\
 %\\[10ex]
 %\today
-Software version: 3.7.0.1\\
+Software version: 3.8.0\\
 %\today
-May 11th, 2021
+May 1st, 2022
 \cleardoublepage
 \begingroup
   \renewcommand*{\thepage}{toc}
diff --git a/docs/src/util.tex b/docs/src/util.tex
index a321f796..ce6dd62a 100644
--- a/docs/src/util.tex
+++ b/docs/src/util.tex
@@ -206,6 +206,54 @@ Type: {\bf required} \\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
+{\par\noindent\large\bfseries Notes}
+
+If this function is called on a matrix \lstinline|a| on a distributed communicator
+only the local part is written in output. To get a single MatrixMarket file with
+the whole matrix when appropriate, e.g. for debugging purposes, one could \emph{gather} 
+the  whole matrix on a single rank and then write it. Consider the following example
+for a \emph{double} precision matrix\vspace{-0.5em}
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+type(psb_ldspmat_type) :: aglobal
+
+call psb_gather(aglobal,a,desc_a,info)
+if (iam == psb_root_) then
+	call mm_mat_write(aglobal,mtitle,info,filename)
+end if
+call psb_spfree(aglobal, desc_a, info)
+\end{minted}
+\else
+\begin{center}
+\begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim} 
+type(psb_ldspmat_type) :: aglobal
+
+call psb_gather(aglobal,a,desc_a,info)
+if (iam == psb_root_) then
+call mm_mat_write(aglobal,mtitle,info,filename)
+end if
+call psb_spfree(aglobal, desc_a, info)
+\end{verbatim}
+\end{minipage}
+\end{center}
+\fi
+To simplify this procedure in \verb|C|, there is a utility function\vspace{-0.5em}
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{c}
+psb_i_t psb_c_global_mat_write(ah,cdh);
+\end{minted}
+\else
+\begin{center}
+\begin{minipage}[tl]{0.9\textwidth}
+\begin{verbatim}
+psb_i_t psb_c_global_mat_write(ah,cdh);
+\end{verbatim}
+\end{minipage}
+\end{center}
+\fi 
+that produces exactly this result.
+
 
 \clearpage\subsection{mm\_array\_write ---  Write a dense array from a
   file in the MatrixMarket format}
@@ -243,7 +291,53 @@ Type: {\bf required} \\
 An integer value; 0 means no error has been detected. 
 \end{description}
 
-
+{\par\noindent\large\bfseries Notes}
+
+If this function is called on a vector \lstinline|v| on a distributed communicator
+only the local part is written in output. To get a single MatrixMarket file with
+the whole vector when appropriate, e.g. for debugging purposes, one could \emph{gather} 
+the  whole vector on a single rank and then write it. Consider the following example
+for a \emph{double} precision vector
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{fortran}
+real(psb_dpk_), allocatable :: vglobal(:)
+
+call psb_gather(vglobal,v,desc,info)
+if (iam == psb_root_) then
+call mm_array_write(vglobal,vtitle,info,filename)
+end if
+call deallocate(vglobal, stat=info)
+\end{minted}
+\else
+\begin{center}
+	\begin{minipage}[tl]{0.9\textwidth}
+		\begin{verbatim} 
+		real(psb_dpk_), allocatable :: vglobal(:)
+		
+		call psb_gather(vglobal,v,desc,info)
+		if (iam == psb_root_) then
+		call mm_array_write(vglobal,vtitle,info,filename)
+		end if
+		call deallocate(vglobal, stat=info)
+		\end{verbatim}
+	\end{minipage}
+\end{center}
+\fi
+To simplify this procedure in \verb|C|, there is a utility function
+\ifpdf
+\begin{minted}[breaklines=true,bgcolor=bg,fontsize=\small]{c}
+psb_i_t psb_c_global_vec_write(vh,cdh);
+\end{minted}
+\else
+\begin{center}
+	\begin{minipage}[tl]{0.9\textwidth}
+		\begin{verbatim}
+		psb_i_t psb_c_global_vec_write(vh,cdh);
+		\end{verbatim}
+	\end{minipage}
+\end{center}
+\fi 
+that produces exactly this result.
 
 %%% Local Variables: 
 %%% mode: latex
diff --git a/krylov/Makefile b/krylov/Makefile
index ab9a3933..f71dbb1a 100644
--- a/krylov/Makefile
+++ b/krylov/Makefile
@@ -26,11 +26,13 @@ LIBNAME=$(METHDLIBNAME)
 
 FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) 
 
-lib: $(OBJS) 
+objs: $(OBJS)
+	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
+
+lib: objs
 	$(AR) $(HERE)/$(LIBNAME) $(OBJS)
 	$(RANLIB) $(HERE)/$(LIBNAME)
 	/bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR)
-	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
 
 
 psb_s_krylov_conv_mod.o psb_c_krylov_conv_mod.o psb_d_krylov_conv_mod.o psb_z_krylov_conv_mod.o:  psb_base_krylov_conv_mod.o
diff --git a/prec/Makefile b/prec/Makefile
index 55a81cd5..5d7523f4 100644
--- a/prec/Makefile
+++ b/prec/Makefile
@@ -28,14 +28,16 @@ COBJS=
 FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR)
 OBJS=$(F90OBJS) $(COBJS) $(MPFOBJS) $(MODOBJS)
 
-lib:  $(OBJS) impld
+objs:  $(OBJS) impld
+	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
+lib:  objs
+	$(MAKE) -C impl lib
 	$(AR) $(HERE)/$(LIBNAME) $(OBJS)
 	$(RANLIB) $(HERE)/$(LIBNAME)
 	/bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR)
-	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
 
 impld: $(OBJS)
-	$(MAKE) -C impl
+	$(MAKE) -C impl objs
 
 $(OBJS): $(MODDIR)/$(BASEMODNAME)$(.mod)
 
diff --git a/prec/impl/Makefile b/prec/impl/Makefile
index 19a200bb..bc5ef2e1 100644
--- a/prec/impl/Makefile
+++ b/prec/impl/Makefile
@@ -42,7 +42,8 @@ LIBNAME=$(PRECLIBNAME)
 COBJS=
 FINCLUDES=$(FMFLAG).. $(FMFLAG)$(MODDIR)
 
-lib:  $(OBJS)
+objs:  $(OBJS)
+lib:  objs
 	$(AR) $(HERE)/$(LIBNAME) $(OBJS)
 	$(RANLIB) $(HERE)/$(LIBNAME)
 
diff --git a/prec/impl/psb_c_diagprec_impl.f90 b/prec/impl/psb_c_diagprec_impl.f90
index 0b20c7ef..c16f9465 100644
--- a/prec/impl/psb_c_diagprec_impl.f90
+++ b/prec/impl/psb_c_diagprec_impl.f90
@@ -239,7 +239,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   class(psb_c_base_sparse_mat), intent(in), optional :: amold
   class(psb_c_base_vect_type), intent(in), optional  :: vmold
   class(psb_i_base_vect_type), intent(in), optional  :: imold
-  integer(psb_ipk_) :: err_act, nrow,i
+  integer(psb_ipk_) :: err_act, nrow,ncol,i
   character(len=20)  :: name='c_diag_precbld'
 
   call psb_erractionsave(err_act)
@@ -247,6 +247,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   info = psb_success_
   call prec%set_ctxt(desc_a%get_ctxt())
   nrow = desc_a%get_local_rows()
+  ncol = desc_a%get_local_cols()
   
   prec%d=a%get_diag(info) 
   if (info /= psb_success_) then 
@@ -255,7 +256,8 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
     goto 9999
   end if
 
-  call psb_realloc(desc_a%get_local_cols(),prec%d,info,pad=cone)
+  call psb_realloc(ncol,prec%d,info)
+  !$omp parallel do private(i)
   do i=1,nrow
     if (prec%d(i) == dzero) then
       prec%d(i) = cone
@@ -263,6 +265,10 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
       prec%d(i) = cone/prec%d(i)
     endif
   end do
+  !$omp parallel do private(i)
+  do i=nrow+1,ncol
+    prec%d(i) = cone
+  end do
 
   allocate(prec%dv,stat=info) 
   if (info == 0) then 
diff --git a/prec/impl/psb_d_diagprec_impl.f90 b/prec/impl/psb_d_diagprec_impl.f90
index 8c7e560c..3a6e32f9 100644
--- a/prec/impl/psb_d_diagprec_impl.f90
+++ b/prec/impl/psb_d_diagprec_impl.f90
@@ -239,7 +239,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   class(psb_d_base_sparse_mat), intent(in), optional :: amold
   class(psb_d_base_vect_type), intent(in), optional  :: vmold
   class(psb_i_base_vect_type), intent(in), optional  :: imold
-  integer(psb_ipk_) :: err_act, nrow,i
+  integer(psb_ipk_) :: err_act, nrow,ncol,i
   character(len=20)  :: name='d_diag_precbld'
 
   call psb_erractionsave(err_act)
@@ -247,6 +247,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   info = psb_success_
   call prec%set_ctxt(desc_a%get_ctxt())
   nrow = desc_a%get_local_rows()
+  ncol = desc_a%get_local_cols()
   
   prec%d=a%get_diag(info) 
   if (info /= psb_success_) then 
@@ -255,7 +256,8 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
     goto 9999
   end if
 
-  call psb_realloc(desc_a%get_local_cols(),prec%d,info,pad=done)
+  call psb_realloc(ncol,prec%d,info)
+  !$omp parallel do private(i)
   do i=1,nrow
     if (prec%d(i) == dzero) then
       prec%d(i) = done
@@ -263,6 +265,10 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
       prec%d(i) = done/prec%d(i)
     endif
   end do
+  !$omp parallel do private(i)
+  do i=nrow+1,ncol
+    prec%d(i) = done
+  end do
 
   allocate(prec%dv,stat=info) 
   if (info == 0) then 
diff --git a/prec/impl/psb_s_diagprec_impl.f90 b/prec/impl/psb_s_diagprec_impl.f90
index 29e2e1a7..4074cbff 100644
--- a/prec/impl/psb_s_diagprec_impl.f90
+++ b/prec/impl/psb_s_diagprec_impl.f90
@@ -239,7 +239,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   class(psb_s_base_sparse_mat), intent(in), optional :: amold
   class(psb_s_base_vect_type), intent(in), optional  :: vmold
   class(psb_i_base_vect_type), intent(in), optional  :: imold
-  integer(psb_ipk_) :: err_act, nrow,i
+  integer(psb_ipk_) :: err_act, nrow,ncol,i
   character(len=20)  :: name='s_diag_precbld'
 
   call psb_erractionsave(err_act)
@@ -247,6 +247,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   info = psb_success_
   call prec%set_ctxt(desc_a%get_ctxt())
   nrow = desc_a%get_local_rows()
+  ncol = desc_a%get_local_cols()
   
   prec%d=a%get_diag(info) 
   if (info /= psb_success_) then 
@@ -255,7 +256,8 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
     goto 9999
   end if
 
-  call psb_realloc(desc_a%get_local_cols(),prec%d,info,pad=sone)
+  call psb_realloc(ncol,prec%d,info)
+  !$omp parallel do private(i)
   do i=1,nrow
     if (prec%d(i) == dzero) then
       prec%d(i) = sone
@@ -263,6 +265,10 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
       prec%d(i) = sone/prec%d(i)
     endif
   end do
+  !$omp parallel do private(i)
+  do i=nrow+1,ncol
+    prec%d(i) = sone
+  end do
 
   allocate(prec%dv,stat=info) 
   if (info == 0) then 
diff --git a/prec/impl/psb_z_diagprec_impl.f90 b/prec/impl/psb_z_diagprec_impl.f90
index 7a20006a..15776b52 100644
--- a/prec/impl/psb_z_diagprec_impl.f90
+++ b/prec/impl/psb_z_diagprec_impl.f90
@@ -239,7 +239,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   class(psb_z_base_sparse_mat), intent(in), optional :: amold
   class(psb_z_base_vect_type), intent(in), optional  :: vmold
   class(psb_i_base_vect_type), intent(in), optional  :: imold
-  integer(psb_ipk_) :: err_act, nrow,i
+  integer(psb_ipk_) :: err_act, nrow,ncol,i
   character(len=20)  :: name='z_diag_precbld'
 
   call psb_erractionsave(err_act)
@@ -247,6 +247,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
   info = psb_success_
   call prec%set_ctxt(desc_a%get_ctxt())
   nrow = desc_a%get_local_rows()
+  ncol = desc_a%get_local_cols()
   
   prec%d=a%get_diag(info) 
   if (info /= psb_success_) then 
@@ -255,7 +256,8 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
     goto 9999
   end if
 
-  call psb_realloc(desc_a%get_local_cols(),prec%d,info,pad=zone)
+  call psb_realloc(ncol,prec%d,info)
+  !$omp parallel do private(i)
   do i=1,nrow
     if (prec%d(i) == dzero) then
       prec%d(i) = zone
@@ -263,6 +265,10 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
       prec%d(i) = zone/prec%d(i)
     endif
   end do
+  !$omp parallel do private(i)
+  do i=nrow+1,ncol
+    prec%d(i) = zone
+  end do
 
   allocate(prec%dv,stat=info) 
   if (info == 0) then 
diff --git a/prec/psb_c_base_prec_mod.f90 b/prec/psb_c_base_prec_mod.f90
index ccc4d708..4358d5c2 100644
--- a/prec/psb_c_base_prec_mod.f90
+++ b/prec/psb_c_base_prec_mod.f90
@@ -161,17 +161,17 @@ module psb_c_base_prec_mod
 
 
   abstract interface 
-    subroutine psb_c_base_precdescr(prec,iout,root, verbosity)
+    subroutine psb_c_base_precdescr(prec,iout,root, verbosity,prefix)
       import psb_ipk_, psb_spk_, psb_desc_type, psb_c_vect_type, &
            & psb_c_base_vect_type, psb_cspmat_type, psb_c_base_prec_type,&
            & psb_c_base_sparse_mat
       Implicit None
 
-      class(psb_c_base_prec_type), intent(in)   :: prec
+      class(psb_c_base_prec_type), intent(in) :: prec
       integer(psb_ipk_), intent(in), optional   :: iout
       integer(psb_ipk_), intent(in), optional   :: root
       integer(psb_ipk_), intent(in), optional   :: verbosity
-
+      character(len=*), intent(in), optional    :: prefix
     end subroutine psb_c_base_precdescr
   end interface
 
diff --git a/prec/psb_c_bjacprec.f90 b/prec/psb_c_bjacprec.f90
index 234dfd89..8d689352 100644
--- a/prec/psb_c_bjacprec.f90
+++ b/prec/psb_c_bjacprec.f90
@@ -158,7 +158,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_c_bjac_precdescr(prec,iout,root, verbosity)
+  subroutine psb_c_bjac_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     implicit none
@@ -167,11 +167,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20) :: name='c_bjac_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -194,6 +196,11 @@ contains
       verbosity_ = 0
     end if
     if (verbosity_ < 0) goto 9998
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     
     if (.not.allocated(prec%iprcparm)) then
       info = 1124
@@ -206,7 +213,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Block Jacobi with: ',&
          &  fact_names(prec%iprcparm(psb_f_type_))
 
diff --git a/prec/psb_c_diagprec.f90 b/prec/psb_c_diagprec.f90
index c9f8fd0a..9af9e2f9 100644
--- a/prec/psb_c_diagprec.f90
+++ b/prec/psb_c_diagprec.f90
@@ -167,7 +167,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_c_diag_precdescr(prec,iout,root, verbosity)
+  subroutine psb_c_diag_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     Implicit None
@@ -176,11 +176,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='c_diag_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -201,6 +203,11 @@ contains
     else
       verbosity_ = 0
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (verbosity_ < 0) goto 9998
     
     ctxt = prec%ctxt
@@ -209,7 +216,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Diagonal scaling'
 
     call psb_erractionsave(err_act)
diff --git a/prec/psb_c_nullprec.f90 b/prec/psb_c_nullprec.f90
index 7e99cdcc..56bbca58 100644
--- a/prec/psb_c_nullprec.f90
+++ b/prec/psb_c_nullprec.f90
@@ -163,7 +163,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_c_null_precdescr(prec,iout,root, verbosity)
+  subroutine psb_c_null_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     
@@ -173,6 +173,7 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
       
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='c_null_precset'
@@ -180,6 +181,7 @@ contains
     integer(psb_ipk_) :: ni
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -195,6 +197,11 @@ contains
     else
       root_ = psb_root_
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (present(verbosity)) then
       verbosity_ = verbosity
     else
@@ -207,7 +214,7 @@ contains
     if (root_ == -1) root_ = iam
 
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'No preconditioning'
 
 9998 continue
diff --git a/prec/psb_c_prec_type.f90 b/prec/psb_c_prec_type.f90
index 248ce7d7..4a62a134 100644
--- a/prec/psb_c_prec_type.f90
+++ b/prec/psb_c_prec_type.f90
@@ -197,7 +197,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_cfile_prec_descr(prec,info,iout, root,verbosity)
+  subroutine psb_cfile_prec_descr(prec,info,iout, root,verbosity,prefix)
     use psb_base_mod
     implicit none
     class(psb_cprec_type), intent(in)       :: prec
@@ -205,6 +205,7 @@ contains
     integer(psb_ipk_), intent(in), optional :: iout
     integer(psb_ipk_), intent(in), optional :: root
     integer(psb_ipk_), intent(in), optional :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: iout_, verbosity_
     character(len=20) :: name='prec_descr'
@@ -219,7 +220,7 @@ contains
       info = 1124
       call psb_errpush(info,name,a_err="preconditioner")
     end if
-    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity)
+    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity,prefix=prefix)
 
   end subroutine psb_cfile_prec_descr
 
diff --git a/prec/psb_d_base_prec_mod.f90 b/prec/psb_d_base_prec_mod.f90
index 7445f9e8..e3869193 100644
--- a/prec/psb_d_base_prec_mod.f90
+++ b/prec/psb_d_base_prec_mod.f90
@@ -161,17 +161,17 @@ module psb_d_base_prec_mod
 
 
   abstract interface 
-    subroutine psb_d_base_precdescr(prec,iout,root, verbosity)
+    subroutine psb_d_base_precdescr(prec,iout,root, verbosity,prefix)
       import psb_ipk_, psb_dpk_, psb_desc_type, psb_d_vect_type, &
            & psb_d_base_vect_type, psb_dspmat_type, psb_d_base_prec_type,&
            & psb_d_base_sparse_mat
       Implicit None
 
-      class(psb_d_base_prec_type), intent(in)   :: prec
+      class(psb_d_base_prec_type), intent(in) :: prec
       integer(psb_ipk_), intent(in), optional   :: iout
       integer(psb_ipk_), intent(in), optional   :: root
       integer(psb_ipk_), intent(in), optional   :: verbosity
-
+      character(len=*), intent(in), optional    :: prefix
     end subroutine psb_d_base_precdescr
   end interface
 
diff --git a/prec/psb_d_bjacprec.f90 b/prec/psb_d_bjacprec.f90
index dad6e60a..6ca35ec8 100644
--- a/prec/psb_d_bjacprec.f90
+++ b/prec/psb_d_bjacprec.f90
@@ -158,7 +158,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_d_bjac_precdescr(prec,iout,root, verbosity)
+  subroutine psb_d_bjac_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     implicit none
@@ -167,11 +167,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20) :: name='d_bjac_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -194,6 +196,11 @@ contains
       verbosity_ = 0
     end if
     if (verbosity_ < 0) goto 9998
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     
     if (.not.allocated(prec%iprcparm)) then
       info = 1124
@@ -206,7 +213,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Block Jacobi with: ',&
          &  fact_names(prec%iprcparm(psb_f_type_))
 
diff --git a/prec/psb_d_diagprec.f90 b/prec/psb_d_diagprec.f90
index 573c3bac..268b104c 100644
--- a/prec/psb_d_diagprec.f90
+++ b/prec/psb_d_diagprec.f90
@@ -167,7 +167,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_d_diag_precdescr(prec,iout,root, verbosity)
+  subroutine psb_d_diag_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     Implicit None
@@ -176,11 +176,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='d_diag_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -201,6 +203,11 @@ contains
     else
       verbosity_ = 0
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (verbosity_ < 0) goto 9998
     
     ctxt = prec%ctxt
@@ -209,7 +216,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Diagonal scaling'
 
     call psb_erractionsave(err_act)
diff --git a/prec/psb_d_nullprec.f90 b/prec/psb_d_nullprec.f90
index e83b11d4..7e94e0ef 100644
--- a/prec/psb_d_nullprec.f90
+++ b/prec/psb_d_nullprec.f90
@@ -163,7 +163,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_d_null_precdescr(prec,iout,root, verbosity)
+  subroutine psb_d_null_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     
@@ -173,6 +173,7 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
       
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='d_null_precset'
@@ -180,6 +181,7 @@ contains
     integer(psb_ipk_) :: ni
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -195,6 +197,11 @@ contains
     else
       root_ = psb_root_
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (present(verbosity)) then
       verbosity_ = verbosity
     else
@@ -207,7 +214,7 @@ contains
     if (root_ == -1) root_ = iam
 
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'No preconditioning'
 
 9998 continue
diff --git a/prec/psb_d_prec_type.f90 b/prec/psb_d_prec_type.f90
index ea7066d1..a5e3a7ad 100644
--- a/prec/psb_d_prec_type.f90
+++ b/prec/psb_d_prec_type.f90
@@ -197,7 +197,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_dfile_prec_descr(prec,info,iout, root,verbosity)
+  subroutine psb_dfile_prec_descr(prec,info,iout, root,verbosity,prefix)
     use psb_base_mod
     implicit none
     class(psb_dprec_type), intent(in)       :: prec
@@ -205,6 +205,7 @@ contains
     integer(psb_ipk_), intent(in), optional :: iout
     integer(psb_ipk_), intent(in), optional :: root
     integer(psb_ipk_), intent(in), optional :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: iout_, verbosity_
     character(len=20) :: name='prec_descr'
@@ -219,7 +220,7 @@ contains
       info = 1124
       call psb_errpush(info,name,a_err="preconditioner")
     end if
-    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity)
+    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity,prefix=prefix)
 
   end subroutine psb_dfile_prec_descr
 
diff --git a/prec/psb_s_base_prec_mod.f90 b/prec/psb_s_base_prec_mod.f90
index 81eaabc5..36af2787 100644
--- a/prec/psb_s_base_prec_mod.f90
+++ b/prec/psb_s_base_prec_mod.f90
@@ -161,17 +161,17 @@ module psb_s_base_prec_mod
 
 
   abstract interface 
-    subroutine psb_s_base_precdescr(prec,iout,root, verbosity)
+    subroutine psb_s_base_precdescr(prec,iout,root, verbosity,prefix)
       import psb_ipk_, psb_spk_, psb_desc_type, psb_s_vect_type, &
            & psb_s_base_vect_type, psb_sspmat_type, psb_s_base_prec_type,&
            & psb_s_base_sparse_mat
       Implicit None
 
-      class(psb_s_base_prec_type), intent(in)   :: prec
+      class(psb_s_base_prec_type), intent(in) :: prec
       integer(psb_ipk_), intent(in), optional   :: iout
       integer(psb_ipk_), intent(in), optional   :: root
       integer(psb_ipk_), intent(in), optional   :: verbosity
-
+      character(len=*), intent(in), optional    :: prefix
     end subroutine psb_s_base_precdescr
   end interface
 
diff --git a/prec/psb_s_bjacprec.f90 b/prec/psb_s_bjacprec.f90
index 98c0ac10..5173ddd2 100644
--- a/prec/psb_s_bjacprec.f90
+++ b/prec/psb_s_bjacprec.f90
@@ -158,7 +158,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_s_bjac_precdescr(prec,iout,root, verbosity)
+  subroutine psb_s_bjac_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     implicit none
@@ -167,11 +167,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20) :: name='s_bjac_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -194,6 +196,11 @@ contains
       verbosity_ = 0
     end if
     if (verbosity_ < 0) goto 9998
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     
     if (.not.allocated(prec%iprcparm)) then
       info = 1124
@@ -206,7 +213,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Block Jacobi with: ',&
          &  fact_names(prec%iprcparm(psb_f_type_))
 
diff --git a/prec/psb_s_diagprec.f90 b/prec/psb_s_diagprec.f90
index f6692dcf..022d831d 100644
--- a/prec/psb_s_diagprec.f90
+++ b/prec/psb_s_diagprec.f90
@@ -167,7 +167,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_s_diag_precdescr(prec,iout,root, verbosity)
+  subroutine psb_s_diag_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     Implicit None
@@ -176,11 +176,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='s_diag_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -201,6 +203,11 @@ contains
     else
       verbosity_ = 0
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (verbosity_ < 0) goto 9998
     
     ctxt = prec%ctxt
@@ -209,7 +216,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Diagonal scaling'
 
     call psb_erractionsave(err_act)
diff --git a/prec/psb_s_nullprec.f90 b/prec/psb_s_nullprec.f90
index f3132ca9..9907eb7a 100644
--- a/prec/psb_s_nullprec.f90
+++ b/prec/psb_s_nullprec.f90
@@ -163,7 +163,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_s_null_precdescr(prec,iout,root, verbosity)
+  subroutine psb_s_null_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     
@@ -173,6 +173,7 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
       
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='s_null_precset'
@@ -180,6 +181,7 @@ contains
     integer(psb_ipk_) :: ni
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -195,6 +197,11 @@ contains
     else
       root_ = psb_root_
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (present(verbosity)) then
       verbosity_ = verbosity
     else
@@ -207,7 +214,7 @@ contains
     if (root_ == -1) root_ = iam
 
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'No preconditioning'
 
 9998 continue
diff --git a/prec/psb_s_prec_type.f90 b/prec/psb_s_prec_type.f90
index 013f3d5d..d438fe9f 100644
--- a/prec/psb_s_prec_type.f90
+++ b/prec/psb_s_prec_type.f90
@@ -197,7 +197,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_sfile_prec_descr(prec,info,iout, root,verbosity)
+  subroutine psb_sfile_prec_descr(prec,info,iout, root,verbosity,prefix)
     use psb_base_mod
     implicit none
     class(psb_sprec_type), intent(in)       :: prec
@@ -205,6 +205,7 @@ contains
     integer(psb_ipk_), intent(in), optional :: iout
     integer(psb_ipk_), intent(in), optional :: root
     integer(psb_ipk_), intent(in), optional :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: iout_, verbosity_
     character(len=20) :: name='prec_descr'
@@ -219,7 +220,7 @@ contains
       info = 1124
       call psb_errpush(info,name,a_err="preconditioner")
     end if
-    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity)
+    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity,prefix=prefix)
 
   end subroutine psb_sfile_prec_descr
 
diff --git a/prec/psb_z_base_prec_mod.f90 b/prec/psb_z_base_prec_mod.f90
index 2874a49c..ddf67630 100644
--- a/prec/psb_z_base_prec_mod.f90
+++ b/prec/psb_z_base_prec_mod.f90
@@ -161,17 +161,17 @@ module psb_z_base_prec_mod
 
 
   abstract interface 
-    subroutine psb_z_base_precdescr(prec,iout,root, verbosity)
+    subroutine psb_z_base_precdescr(prec,iout,root, verbosity,prefix)
       import psb_ipk_, psb_dpk_, psb_desc_type, psb_z_vect_type, &
            & psb_z_base_vect_type, psb_zspmat_type, psb_z_base_prec_type,&
            & psb_z_base_sparse_mat
       Implicit None
 
-      class(psb_z_base_prec_type), intent(in)   :: prec
+      class(psb_z_base_prec_type), intent(in) :: prec
       integer(psb_ipk_), intent(in), optional   :: iout
       integer(psb_ipk_), intent(in), optional   :: root
       integer(psb_ipk_), intent(in), optional   :: verbosity
-
+      character(len=*), intent(in), optional    :: prefix
     end subroutine psb_z_base_precdescr
   end interface
 
diff --git a/prec/psb_z_bjacprec.f90 b/prec/psb_z_bjacprec.f90
index 1a2462ed..d8ff09bb 100644
--- a/prec/psb_z_bjacprec.f90
+++ b/prec/psb_z_bjacprec.f90
@@ -158,7 +158,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_z_bjac_precdescr(prec,iout,root, verbosity)
+  subroutine psb_z_bjac_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     implicit none
@@ -167,11 +167,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20) :: name='z_bjac_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -194,6 +196,11 @@ contains
       verbosity_ = 0
     end if
     if (verbosity_ < 0) goto 9998
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     
     if (.not.allocated(prec%iprcparm)) then
       info = 1124
@@ -206,7 +213,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Block Jacobi with: ',&
          &  fact_names(prec%iprcparm(psb_f_type_))
 
diff --git a/prec/psb_z_diagprec.f90 b/prec/psb_z_diagprec.f90
index e4fc8927..26ae3c38 100644
--- a/prec/psb_z_diagprec.f90
+++ b/prec/psb_z_diagprec.f90
@@ -167,7 +167,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_z_diag_precdescr(prec,iout,root, verbosity)
+  subroutine psb_z_diag_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     Implicit None
@@ -176,11 +176,13 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='z_diag_precdescr'
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -201,6 +203,11 @@ contains
     else
       verbosity_ = 0
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (verbosity_ < 0) goto 9998
     
     ctxt = prec%ctxt
@@ -209,7 +216,7 @@ contains
     if (root_ == -1) root_ = iam
     
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'Diagonal scaling'
 
     call psb_erractionsave(err_act)
diff --git a/prec/psb_z_nullprec.f90 b/prec/psb_z_nullprec.f90
index 6b1ee481..56b5329f 100644
--- a/prec/psb_z_nullprec.f90
+++ b/prec/psb_z_nullprec.f90
@@ -163,7 +163,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_z_null_precdescr(prec,iout,root, verbosity)
+  subroutine psb_z_null_precdescr(prec,iout,root, verbosity,prefix)
     use psb_penv_mod
     use psb_error_mod
     
@@ -173,6 +173,7 @@ contains
     integer(psb_ipk_), intent(in), optional   :: iout
     integer(psb_ipk_), intent(in), optional   :: root
     integer(psb_ipk_), intent(in), optional   :: verbosity
+    character(len=*), intent(in), optional  :: prefix
       
     integer(psb_ipk_) :: err_act, nrow, info
     character(len=20)  :: name='z_null_precset'
@@ -180,6 +181,7 @@ contains
     integer(psb_ipk_) :: ni
     type(psb_ctxt_type) :: ctxt
     integer(psb_ipk_) :: iout_, iam, np, root_, verbosity_
+    character(1024)    :: prefix_
 
     call psb_erractionsave(err_act)
 
@@ -195,6 +197,11 @@ contains
     else
       root_ = psb_root_
     end if
+    if (present(prefix)) then
+      prefix_ = prefix
+    else
+      prefix_ = ""
+    end if
     if (present(verbosity)) then
       verbosity_ = verbosity
     else
@@ -207,7 +214,7 @@ contains
     if (root_ == -1) root_ = iam
 
     if (iam == root_) &
-         &  write(iout_,*) trim(prec%desc_prefix()),' ',&
+         &  write(iout_,*) trim(prefix_),' ', trim(prec%desc_prefix()),' ',&
          & 'No preconditioning'
 
 9998 continue
diff --git a/prec/psb_z_prec_type.f90 b/prec/psb_z_prec_type.f90
index b25bf08f..728e05c1 100644
--- a/prec/psb_z_prec_type.f90
+++ b/prec/psb_z_prec_type.f90
@@ -197,7 +197,7 @@ contains
   !         0: normal
   !        >1: increased details 
   !
-  subroutine psb_zfile_prec_descr(prec,info,iout, root,verbosity)
+  subroutine psb_zfile_prec_descr(prec,info,iout, root,verbosity,prefix)
     use psb_base_mod
     implicit none
     class(psb_zprec_type), intent(in)       :: prec
@@ -205,6 +205,7 @@ contains
     integer(psb_ipk_), intent(in), optional :: iout
     integer(psb_ipk_), intent(in), optional :: root
     integer(psb_ipk_), intent(in), optional :: verbosity
+    character(len=*), intent(in), optional  :: prefix
 
     integer(psb_ipk_) :: iout_, verbosity_
     character(len=20) :: name='prec_descr'
@@ -219,7 +220,7 @@ contains
       info = 1124
       call psb_errpush(info,name,a_err="preconditioner")
     end if
-    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity)
+    call prec%prec%descr(iout=iout,root=root, verbosity=verbosity,prefix=prefix)
 
   end subroutine psb_zfile_prec_descr
 
diff --git a/test/kernel/Makefile b/test/kernel/Makefile
index 9dc88e59..21851beb 100644
--- a/test/kernel/Makefile
+++ b/test/kernel/Makefile
@@ -18,7 +18,8 @@ DPGOBJS=pdgenspmv.o
 DVECOBJS=vecoperation.o
 EXEDIR=./runs
 
-all: runsd d_file_spmv s_file_spmv pdgenspmv vecoperation
+all: runsd pdgenspmv
+#d_file_spmv s_file_spmv pdgenspmv vecoperation
 
 runsd:
 	(if test ! -d runs ; then mkdir runs; fi)
@@ -41,7 +42,7 @@ vecoperation: $(DVECOBJS)
 	/bin/mv vecoperation $(EXEDIR)
 
 clean:
-	/bin/rm -f $(DBOBJSS) $(DBOBJS) $(DTOBJS) $(STOBJS) $(DVECOBJS)
+	/bin/rm -f $(DBOBJSS) $(DPGOBJS) $(DTOBJS) $(STOBJS) $(DVECOBJS)
 
 lib:
 	(cd ../../; make library)
diff --git a/test/kernel/pdgenspmv.f90 b/test/kernel/pdgenspmv.f90
index e96736a8..d5fd9ba4 100644
--- a/test/kernel/pdgenspmv.f90
+++ b/test/kernel/pdgenspmv.f90
@@ -495,9 +495,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then 
       if (present(amold)) then 
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
@@ -575,7 +575,7 @@ program pdgenspmv
   integer(psb_ipk_) :: iter, itmax,itrace, istopc, irst, nr, ipart
   integer(psb_epk_) :: amatsize, precsize, descsize, d2size, annz, nbytes
   real(psb_dpk_)   :: err, eps
-  integer(psb_ipk_), parameter :: times=10
+  integer(psb_ipk_), parameter :: times=20
 
   ! other variables
   integer(psb_ipk_) :: info, i
diff --git a/test/kernel/runs/spmv.inp b/test/kernel/runs/spmv.inp
index 91844ce2..7539285f 100644
--- a/test/kernel/runs/spmv.inp
+++ b/test/kernel/runs/spmv.inp
@@ -1,3 +1,3 @@
 CSR 
-50
+120
 
diff --git a/test/pargen/psb_d_pde2d.F90 b/test/pargen/psb_d_pde2d.F90
index 5fa77373..6da97828 100644
--- a/test/pargen/psb_d_pde2d.F90
+++ b/test/pargen/psb_d_pde2d.F90
@@ -401,10 +401,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -522,9 +524,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
diff --git a/test/pargen/psb_d_pde3d.F90 b/test/pargen/psb_d_pde3d.F90
index def2ea37..d4eeccf2 100644
--- a/test/pargen/psb_d_pde3d.F90
+++ b/test/pargen/psb_d_pde3d.F90
@@ -208,7 +208,7 @@ contains
     type(psb_d_coo_sparse_mat)  :: acoo
     type(psb_d_csr_sparse_mat)  :: acsr
     real(psb_dpk_)           :: zt(nb),x,y,z
-    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_
+    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_, mysz
     integer(psb_lpk_) :: m,n,glob_row,nt
     integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner
     ! For 3D partition
@@ -377,6 +377,7 @@ contains
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
 
+
       !
       ! Specify process topology
       !
@@ -429,10 +430,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz, &
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -462,8 +465,9 @@ contains
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
-    do ii=1, nlr,nb
+    do ii=1, nlr, nb
       ib = min(nb,nlr-ii+1)
+      !ib = min(nb,mysz-ii+1)
       icoeff = 1
       do k=1,ib
         i=ii+k-1
@@ -559,19 +563,126 @@ contains
       goto 9999
     end if
 
-    deallocate(val,irow,icol)
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     call psb_cdasb(desc_a,info,mold=imold)
     tcdasb = psb_wtime()-t1
+
+    if (.false.) then 
+      !
+      !  Add extra rows to test remote build. 
+      !
+      block
+        integer(psb_ipk_) :: ks, i
+        ks = desc_a%get_local_cols()-desc_a%get_local_rows()
+        if (ks > 0) ks = max(1,ks / 10)
+        mysz = nlr+ks
+        call psb_realloc(mysz,myidx,info)
+        do i=nlr+1, mysz
+          myidx(i) = i
+        end do
+        call desc_a%l2gv1(myidx(nlr+1:mysz),info)
+        !write(0,*) iam,' Check on extra nodes ',nlr,mysz,':',myidx(nlr+1:mysz)
+        do ii= nlr+1, mysz, nb
+          ib = min(nb,mysz-ii+1)
+          icoeff = 1
+          do k=1,ib
+            i=ii+k-1
+            ! local matrix pointer
+            glob_row=myidx(i)
+            ! compute gridpoint coordinates
+            call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
+            ! x, y, z coordinates
+            x = (ix-1)*deltah
+            y = (iy-1)*deltah
+            z = (iz-1)*deltah
+            zt(k) = f_(x,y,z)
+            ! internal point: build discretization
+            !
+            !  term depending on   (x-1,y,z)
+            !
+            val(icoeff) = -a1(x,y,z)/sqdeltah-b1(x,y,z)/deltah2
+            if (ix == 1) then
+              zt(k) = g(dzero,y,z)*(-val(icoeff)) + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix-1,iy,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y-1,z)
+            val(icoeff)  = -a2(x,y,z)/sqdeltah-b2(x,y,z)/deltah2
+            if (iy == 1) then
+              zt(k) = g(x,dzero,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy-1,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y,z-1)
+            val(icoeff)=-a3(x,y,z)/sqdeltah-b3(x,y,z)/deltah2
+            if (iz == 1) then
+              zt(k) = g(x,y,dzero)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy,iz-1,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+
+            !  term depending on     (x,y,z)
+            val(icoeff)=(2*done)*(a1(x,y,z)+a2(x,y,z)+a3(x,y,z))/sqdeltah &
+                 & + c(x,y,z)
+            call ijk2idx(icol(icoeff),ix,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+            !  term depending on     (x,y,z+1)
+            val(icoeff)=-a3(x,y,z)/sqdeltah+b3(x,y,z)/deltah2
+            if (iz == idim) then
+              zt(k) = g(x,y,done)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy,iz+1,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y+1,z)
+            val(icoeff)=-a2(x,y,z)/sqdeltah+b2(x,y,z)/deltah2
+            if (iy == idim) then
+              zt(k) = g(x,done,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy+1,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x+1,y,z)
+            val(icoeff)=-a1(x,y,z)/sqdeltah+b1(x,y,z)/deltah2
+            if (ix==idim) then
+              zt(k) = g(done,y,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix+1,iy,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+
+          end do
+          call psb_spins(icoeff-1,irow,icol,val,a,desc_a,info)
+          if(info /= psb_success_) exit
+          call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),bv,desc_a,info)
+          if(info /= psb_success_) exit
+          zt(:)=dzero
+          call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
+          if(info /= psb_success_) exit
+        end do
+
+      end block
+    end if
+
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
@@ -608,6 +719,7 @@ contains
       write(psb_out_unit,'("-total       time : ",es12.5)') ttot
 
     end if
+    deallocate(val,irow,icol)
     call psb_erractionrestore(err_act)
     return
 
@@ -615,8 +727,15 @@ contains
 
     return
   end subroutine psb_d_gen_pde3d
-
-
+  function outside(i,j,k,bndx,bndy,bndz,iamx,iamy,iamz) result(res)
+    logical :: res
+    integer(psb_ipk_), intent(in) :: i,j,k,iamx,iamy,iamz
+    integer(psb_ipk_), intent(in) :: bndx(0:),bndy(0:),bndz(0:)
+
+    res = (i=bndx(iamx+1)) &
+         & .or.(j=bndy(iamy+1)) &
+         & .or.(k=bndz(iamz+1))
+  end function outside
 end module psb_d_pde3d_mod
 
 program psb_d_pde3d
diff --git a/test/pargen/psb_s_pde2d.F90 b/test/pargen/psb_s_pde2d.F90
index ad6f0d81..664d5d08 100644
--- a/test/pargen/psb_s_pde2d.F90
+++ b/test/pargen/psb_s_pde2d.F90
@@ -401,10 +401,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -522,9 +524,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
diff --git a/test/pargen/psb_s_pde3d.F90 b/test/pargen/psb_s_pde3d.F90
index 619a7f75..280a7c34 100644
--- a/test/pargen/psb_s_pde3d.F90
+++ b/test/pargen/psb_s_pde3d.F90
@@ -208,7 +208,7 @@ contains
     type(psb_s_coo_sparse_mat)  :: acoo
     type(psb_s_csr_sparse_mat)  :: acsr
     real(psb_spk_)           :: zt(nb),x,y,z
-    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_
+    integer(psb_ipk_) :: nnz,nr,nlr,i,j,ii,ib,k, partition_, mysz
     integer(psb_lpk_) :: m,n,glob_row,nt
     integer(psb_ipk_) :: ix,iy,iz,ia,indx_owner
     ! For 3D partition
@@ -377,6 +377,7 @@ contains
       !
       call psb_cdall(ctxt,desc_a,info,vl=myidx)
 
+
       !
       ! Specify process topology
       !
@@ -429,10 +430,12 @@ contains
     end select
 
 
-    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz)
+    if (info == psb_success_) call psb_spall(a,desc_a,info,nnz=nnz, &
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
     ! define  rhs from boundary conditions; also build initial guess
     if (info == psb_success_) call psb_geall(xv,desc_a,info)
-    if (info == psb_success_) call psb_geall(bv,desc_a,info)
+    if (info == psb_success_) call psb_geall(bv,desc_a,info,&
+         & bldmode=psb_matbld_remote_,dupl=psb_dupl_add_)
 
     call psb_barrier(ctxt)
     talc = psb_wtime()-t0
@@ -462,8 +465,9 @@ contains
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
-    do ii=1, nlr,nb
+    do ii=1, nlr, nb
       ib = min(nb,nlr-ii+1)
+      !ib = min(nb,mysz-ii+1)
       icoeff = 1
       do k=1,ib
         i=ii+k-1
@@ -559,19 +563,126 @@ contains
       goto 9999
     end if
 
-    deallocate(val,irow,icol)
 
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     call psb_cdasb(desc_a,info,mold=imold)
     tcdasb = psb_wtime()-t1
+
+    if (.false.) then 
+      !
+      !  Add extra rows to test remote build. 
+      !
+      block
+        integer(psb_ipk_) :: ks, i
+        ks = desc_a%get_local_cols()-desc_a%get_local_rows()
+        if (ks > 0) ks = max(1,ks / 10)
+        mysz = nlr+ks
+        call psb_realloc(mysz,myidx,info)
+        do i=nlr+1, mysz
+          myidx(i) = i
+        end do
+        call desc_a%l2gv1(myidx(nlr+1:mysz),info)
+        !write(0,*) iam,' Check on extra nodes ',nlr,mysz,':',myidx(nlr+1:mysz)
+        do ii= nlr+1, mysz, nb
+          ib = min(nb,mysz-ii+1)
+          icoeff = 1
+          do k=1,ib
+            i=ii+k-1
+            ! local matrix pointer
+            glob_row=myidx(i)
+            ! compute gridpoint coordinates
+            call idx2ijk(ix,iy,iz,glob_row,idim,idim,idim)
+            ! x, y, z coordinates
+            x = (ix-1)*deltah
+            y = (iy-1)*deltah
+            z = (iz-1)*deltah
+            zt(k) = f_(x,y,z)
+            ! internal point: build discretization
+            !
+            !  term depending on   (x-1,y,z)
+            !
+            val(icoeff) = -a1(x,y,z)/sqdeltah-b1(x,y,z)/deltah2
+            if (ix == 1) then
+              zt(k) = g(szero,y,z)*(-val(icoeff)) + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix-1,iy,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y-1,z)
+            val(icoeff)  = -a2(x,y,z)/sqdeltah-b2(x,y,z)/deltah2
+            if (iy == 1) then
+              zt(k) = g(x,szero,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy-1,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y,z-1)
+            val(icoeff)=-a3(x,y,z)/sqdeltah-b3(x,y,z)/deltah2
+            if (iz == 1) then
+              zt(k) = g(x,y,szero)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy,iz-1,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+
+            !  term depending on     (x,y,z)
+            val(icoeff)=(2*sone)*(a1(x,y,z)+a2(x,y,z)+a3(x,y,z))/sqdeltah &
+                 & + c(x,y,z)
+            call ijk2idx(icol(icoeff),ix,iy,iz,idim,idim,idim)
+            irow(icoeff) = glob_row
+            icoeff       = icoeff+1
+            !  term depending on     (x,y,z+1)
+            val(icoeff)=-a3(x,y,z)/sqdeltah+b3(x,y,z)/deltah2
+            if (iz == idim) then
+              zt(k) = g(x,y,sone)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy,iz+1,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x,y+1,z)
+            val(icoeff)=-a2(x,y,z)/sqdeltah+b2(x,y,z)/deltah2
+            if (iy == idim) then
+              zt(k) = g(x,sone,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix,iy+1,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+            !  term depending on     (x+1,y,z)
+            val(icoeff)=-a1(x,y,z)/sqdeltah+b1(x,y,z)/deltah2
+            if (ix==idim) then
+              zt(k) = g(sone,y,z)*(-val(icoeff))   + zt(k)
+            else
+              call ijk2idx(icol(icoeff),ix+1,iy,iz,idim,idim,idim)
+              irow(icoeff) = glob_row
+              icoeff       = icoeff+1
+            endif
+
+          end do
+          call psb_spins(icoeff-1,irow,icol,val,a,desc_a,info)
+          if(info /= psb_success_) exit
+          call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),bv,desc_a,info)
+          if(info /= psb_success_) exit
+          zt(:)=szero
+          call psb_geins(ib,myidx(ii:ii+ib-1),zt(1:ib),xv,desc_a,info)
+          if(info /= psb_success_) exit
+        end do
+
+      end block
+    end if
+
     call psb_barrier(ctxt)
     t1 = psb_wtime()
     if (info == psb_success_) then
       if (present(amold)) then
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
@@ -608,6 +719,7 @@ contains
       write(psb_out_unit,'("-total       time : ",es12.5)') ttot
 
     end if
+    deallocate(val,irow,icol)
     call psb_erractionrestore(err_act)
     return
 
@@ -615,8 +727,15 @@ contains
 
     return
   end subroutine psb_s_gen_pde3d
-
-
+  function outside(i,j,k,bndx,bndy,bndz,iamx,iamy,iamz) result(res)
+    logical :: res
+    integer(psb_ipk_), intent(in) :: i,j,k,iamx,iamy,iamz
+    integer(psb_ipk_), intent(in) :: bndx(0:),bndy(0:),bndz(0:)
+
+    res = (i=bndx(iamx+1)) &
+         & .or.(j=bndy(iamy+1)) &
+         & .or.(k=bndz(iamz+1))
+  end function outside
 end module psb_s_pde3d_mod
 
 program psb_s_pde3d
diff --git a/test/pargen/runs/ppde.inp b/test/pargen/runs/ppde.inp
index 996585dd..fb7af68c 100644
--- a/test/pargen/runs/ppde.inp
+++ b/test/pargen/runs/ppde.inp
@@ -2,7 +2,7 @@
 BICGSTAB               Iterative method BICGSTAB CGS  BICG BICGSTABL RGMRES FCG CGR
 BJAC                   Preconditioner NONE  DIAG  BJAC 
 CSR                    Storage format for matrix A:  CSR COO 
-080                    Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )
+040                    Domain size (acutal system is this**3 (pde3d) or **2 (pde2d) )
 3                      Partition: 1 BLOCK  3 3D
 2                      Stopping criterion 1 2 
 0100                   MAXIT
diff --git a/test/serial/d_matgen.F90 b/test/serial/d_matgen.F90
index 7d6bbf05..b4aff97a 100644
--- a/test/serial/d_matgen.F90
+++ b/test/serial/d_matgen.F90
@@ -305,9 +305,9 @@ contains
     t1 = psb_wtime()
     if (info == psb_success_) then 
       if (present(amold)) then 
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,mold=amold)
+        call psb_spasb(a,desc_a,info,mold=amold)
       else
-        call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+        call psb_spasb(a,desc_a,info,afmt=afmt)
       end if
     end if
     call psb_barrier(ctxt)
diff --git a/test/torture/psb_c_mvsv_tester.f90 b/test/torture/psb_c_mvsv_tester.f90
index ed6a9423..1d52faf1 100644
--- a/test/torture/psb_c_mvsv_tester.f90
+++ b/test/torture/psb_c_mvsv_tester.f90
@@ -49,7 +49,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -126,7 +126,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -203,7 +203,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -280,7 +280,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -357,7 +357,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -434,7 +434,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -511,7 +511,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -588,7 +588,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -665,7 +665,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -742,7 +742,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -819,7 +819,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -896,7 +896,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -973,7 +973,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1050,7 +1050,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1127,7 +1127,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1204,7 +1204,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1281,7 +1281,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1358,7 +1358,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1435,7 +1435,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1512,7 +1512,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1589,7 +1589,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1666,7 +1666,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1743,7 +1743,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1820,7 +1820,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1900,7 +1900,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1980,7 +1980,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2060,7 +2060,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2140,7 +2140,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2220,7 +2220,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2300,7 +2300,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2380,7 +2380,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2460,7 +2460,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2540,7 +2540,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2620,7 +2620,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2700,7 +2700,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2780,7 +2780,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
diff --git a/test/torture/psb_d_mvsv_tester.f90 b/test/torture/psb_d_mvsv_tester.f90
index baabf216..4ec87fa7 100644
--- a/test/torture/psb_d_mvsv_tester.f90
+++ b/test/torture/psb_d_mvsv_tester.f90
@@ -50,7 +50,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -127,7 +127,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -204,7 +204,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -281,7 +281,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -358,7 +358,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -435,7 +435,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -512,7 +512,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -589,7 +589,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -666,7 +666,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -743,7 +743,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -820,7 +820,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -897,7 +897,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -974,7 +974,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1051,7 +1051,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1128,7 +1128,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1205,7 +1205,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1282,7 +1282,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1359,7 +1359,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1436,7 +1436,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1513,7 +1513,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1590,7 +1590,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1667,7 +1667,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1744,7 +1744,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1821,7 +1821,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1901,7 +1901,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1981,7 +1981,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2061,7 +2061,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2141,7 +2141,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2221,7 +2221,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2301,7 +2301,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2381,7 +2381,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2461,7 +2461,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2541,7 +2541,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2621,7 +2621,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2701,7 +2701,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2781,7 +2781,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
diff --git a/test/torture/psb_s_mvsv_tester.f90 b/test/torture/psb_s_mvsv_tester.f90
index 34c1e9eb..cfa3388a 100644
--- a/test/torture/psb_s_mvsv_tester.f90
+++ b/test/torture/psb_s_mvsv_tester.f90
@@ -48,7 +48,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -125,7 +125,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -202,7 +202,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -279,7 +279,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -356,7 +356,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -433,7 +433,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -510,7 +510,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -587,7 +587,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -664,7 +664,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -741,7 +741,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -818,7 +818,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -895,7 +895,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -972,7 +972,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1049,7 +1049,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1126,7 +1126,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1203,7 +1203,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1280,7 +1280,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1357,7 +1357,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1434,7 +1434,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1511,7 +1511,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1588,7 +1588,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1665,7 +1665,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1742,7 +1742,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1819,7 +1819,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1898,7 +1898,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1978,7 +1978,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2058,7 +2058,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2138,7 +2138,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2218,7 +2218,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2298,7 +2298,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2378,7 +2378,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2458,7 +2458,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2538,7 +2538,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2618,7 +2618,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2698,7 +2698,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2778,7 +2778,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
diff --git a/test/torture/psb_z_mvsv_tester.f90 b/test/torture/psb_z_mvsv_tester.f90
index bc84a447..329fab9c 100644
--- a/test/torture/psb_z_mvsv_tester.f90
+++ b/test/torture/psb_z_mvsv_tester.f90
@@ -49,7 +49,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -126,7 +126,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -203,7 +203,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -280,7 +280,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -357,7 +357,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -434,7 +434,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -511,7 +511,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -588,7 +588,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -665,7 +665,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -742,7 +742,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -819,7 +819,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -896,7 +896,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -973,7 +973,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1050,7 +1050,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1127,7 +1127,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1204,7 +1204,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1281,7 +1281,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1358,7 +1358,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1435,7 +1435,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1512,7 +1512,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1589,7 +1589,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1666,7 +1666,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1743,7 +1743,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1820,7 +1820,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1900,7 +1900,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -1980,7 +1980,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2060,7 +2060,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2140,7 +2140,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2220,7 +2220,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2300,7 +2300,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2380,7 +2380,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2460,7 +2460,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2540,7 +2540,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2620,7 +2620,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2700,7 +2700,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
@@ -2780,7 +2780,7 @@ contains
     if (info /= psb_success_)goto 9996
     call psb_cdasb(desc_a,info)
     if (info /= psb_success_)goto 9996
-    call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=afmt)
+    call psb_spasb(a,desc_a,info,afmt=afmt)
     if(info.ne.0)print *,"matrix assembly failed"
     if(info.ne.0)goto 9996
 
diff --git a/util/Makefile b/util/Makefile
index 4f4a134a..3f087cbd 100644
--- a/util/Makefile
+++ b/util/Makefile
@@ -29,11 +29,12 @@ LIBNAME=$(UTILLIBNAME)
 FINCLUDES=$(FMFLAG). $(FMFLAG)$(MODDIR) 
 
 
+objs: $(OBJS)
+	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
 lib:  $(HERE)/$(LIBNAME) 
 	/bin/cp -p $(CPUPDFLAG) $(HERE)/$(LIBNAME) $(LIBDIR)
-	/bin/cp -p $(CPUPDFLAG) *$(.mod) $(MODDIR)
 
-$(HERE)/$(LIBNAME): $(OBJS)
+$(HERE)/$(LIBNAME): objs 
 	$(AR) $(HERE)/$(LIBNAME) $(OBJS)
 	$(RANLIB) $(HERE)/$(LIBNAME)
 
diff --git a/util/psb_c_mat_dist_impl.f90 b/util/psb_c_mat_dist_impl.f90
index 970dfc47..e358bf25 100644
--- a/util/psb_c_mat_dist_impl.f90
+++ b/util/psb_c_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_cmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lcmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lcmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_d_mat_dist_impl.f90 b/util/psb_d_mat_dist_impl.f90
index c71141f0..3c683254 100644
--- a/util/psb_d_mat_dist_impl.f90
+++ b/util/psb_d_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_dmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_ldmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_ldmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_partidx_mod.F90 b/util/psb_partidx_mod.F90
index 08fee380..de025fb0 100644
--- a/util/psb_partidx_mod.F90
+++ b/util/psb_partidx_mod.F90
@@ -94,7 +94,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  idx2ijk3d(i,j,k,idx,nx,ny,nz,base)
+  pure subroutine  idx2ijk3d(i,j,k,idx,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: i,j,k
@@ -111,7 +111,7 @@ contains
 
   end subroutine idx2ijk3d
   
-  subroutine  idx2ijk2d(i,j,idx,nx,ny,base)
+  pure subroutine  idx2ijk2d(i,j,idx,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: i,j
@@ -139,7 +139,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  idx2ijkv(coords,idx,dims,base)
+  pure subroutine  idx2ijkv(coords,idx,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: coords(:)
@@ -156,7 +156,7 @@ contains
     idx_ = idx - base_
 
     if (size(coords) < size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       coords = 0
       return
     end if
@@ -181,7 +181,7 @@ contains
 
   end subroutine idx2ijkv
 
-  subroutine  lidx2ijk3d(i,j,k,idx,nx,ny,nz,base)
+  pure subroutine  lidx2ijk3d(i,j,k,idx,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: i,j,k
@@ -199,7 +199,7 @@ contains
 
   end subroutine lidx2ijk3d
   
-  subroutine  lidx2ijk2d(i,j,idx,nx,ny,base)
+  pure subroutine  lidx2ijk2d(i,j,idx,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: i,j
@@ -228,7 +228,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  lidx2ijkv(coords,idx,dims,base)
+  pure subroutine  lidx2ijkv(coords,idx,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: coords(:)
@@ -247,7 +247,7 @@ contains
     idx_ = idx - base_
 
     if (size(coords) < size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       coords = 0
       return
     end if
@@ -272,7 +272,7 @@ contains
 
   end subroutine lidx2ijkv
 
-  subroutine  lidx2lijk3d(i,j,k,idx,nx,ny,nz,base)
+  pure subroutine  lidx2lijk3d(i,j,k,idx,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: i,j,k
@@ -290,7 +290,7 @@ contains
 
   end subroutine lidx2lijk3d
   
-  subroutine  lidx2lijk2d(i,j,idx,nx,ny,base)
+  pure subroutine  lidx2lijk2d(i,j,idx,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: i,j
@@ -319,7 +319,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  lidx2lijkv(coords,idx,dims,base)
+  pure subroutine  lidx2lijkv(coords,idx,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: coords(:)
@@ -338,7 +338,7 @@ contains
     idx_ = idx - base_
 
     if (size(coords) < size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       coords = 0
       return
     end if
@@ -374,7 +374,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  ijk2idxv(idx,coords,dims,base)
+  pure subroutine  ijk2idxv(idx,coords,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(in)  :: coords(:),dims(:)
@@ -389,7 +389,7 @@ contains
     end if
     sz = size(coords)
     if (sz /= size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       idx = 0
       return
     end if
@@ -420,7 +420,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  ijk2idx3d(idx,i,j,k,nx,ny,nz,base)
+  pure subroutine  ijk2idx3d(idx,i,j,k,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: idx
@@ -431,7 +431,7 @@ contains
     call ijk2idx(idx,[i,j,k],[nx,ny,nz],base)
   end subroutine ijk2idx3d
 
-  subroutine  ijk2idx2d(idx,i,j,nx,ny,base)
+  pure subroutine  ijk2idx2d(idx,i,j,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(out) :: idx
@@ -442,7 +442,7 @@ contains
     call ijk2idx(idx,[i,j],[nx,ny],base)
   end subroutine ijk2idx2d
 
-  subroutine  ijk2lidxv(idx,coords,dims,base)
+  pure subroutine  ijk2lidxv(idx,coords,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_mpk_), intent(in)  :: coords(:),dims(:)
@@ -457,7 +457,7 @@ contains
     end if
     sz = size(coords)
     if (sz /= size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       idx = 0
       return
     end if
@@ -489,7 +489,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  ijk2lidx3d(idx,i,j,k,nx,ny,nz,base)
+  pure subroutine  ijk2lidx3d(idx,i,j,k,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: idx
@@ -500,7 +500,7 @@ contains
     call ijk2idx(idx,[i,j,k],[nx,ny,nz],base)
   end subroutine ijk2lidx3d
 
-  subroutine  ijk2lidx2d(idx,i,j,nx,ny,base)
+  pure subroutine  ijk2lidx2d(idx,i,j,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: idx
@@ -512,7 +512,7 @@ contains
   end subroutine ijk2lidx2d
 
 
-  subroutine  lijk2lidxv(idx,coords,dims,base)
+  pure subroutine  lijk2lidxv(idx,coords,dims,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(in)  :: coords(:),dims(:)
@@ -527,7 +527,7 @@ contains
     end if
     sz = size(coords)
     if (sz /= size(dims)) then
-      write(0,*) 'Error: size mismatch ',size(coords),size(dims)
+      !write(0,*) 'Error: size mismatch ',size(coords),size(dims)
       idx = 0
       return
     end if
@@ -559,7 +559,7 @@ contains
   !      do k=1,nz
   !         ijk2idx(i,j,k) = idx
   !         idx = idx + 1
-  subroutine  lijk2lidx3d(idx,i,j,k,nx,ny,nz,base)
+  pure subroutine  lijk2lidx3d(idx,i,j,k,nx,ny,nz,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: idx
@@ -570,7 +570,7 @@ contains
     call ijk2idx(idx,[i,j,k],[nx,ny,nz],base)
   end subroutine lijk2lidx3d
 
-  subroutine  lijk2lidx2d(idx,i,j,nx,ny,base)
+  pure subroutine  lijk2lidx2d(idx,i,j,nx,ny,base)
     use psb_base_mod, only : psb_ipk_, psb_lpk_, psb_mpk_, psb_epk_
     implicit none 
     integer(psb_epk_), intent(out) :: idx
diff --git a/util/psb_s_mat_dist_impl.f90 b/util/psb_s_mat_dist_impl.f90
index 713c3d9c..6c8bd792 100644
--- a/util/psb_s_mat_dist_impl.f90
+++ b/util/psb_s_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_smatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lsmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lsmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
diff --git a/util/psb_z_mat_dist_impl.f90 b/util/psb_z_mat_dist_impl.f90
index 2768b21e..5c83c66c 100644
--- a/util/psb_z_mat_dist_impl.f90
+++ b/util/psb_z_mat_dist_impl.f90
@@ -170,7 +170,7 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
     call psb_errpush(info,name,a_err=ch_err)
     goto 9999
   end if
-  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np))
+  call psb_spall(a,desc_a,info,nnz=((nnzero+np-1)/np),dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -332,7 +332,7 @@ subroutine psb_zmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_
@@ -507,7 +507,7 @@ subroutine psb_lzmatdist(a_glob, a, ctxt, desc_a,&
     goto 9999
   end if
   inz = ((nnzero+np-1)/np)
-  call psb_spall(a,desc_a,info,nnz=inz)
+  call psb_spall(a,desc_a,info,nnz=inz,dupl=psb_dupl_err_)
   if(info /= psb_success_) then
     info=psb_err_from_subroutine_
     ch_err='psb_spall'
@@ -671,7 +671,7 @@ subroutine psb_lzmatdist(a_glob, a, ctxt, desc_a,&
 
   call psb_barrier(ctxt)
   t2 = psb_wtime()
-  call psb_spasb(a,desc_a,info,dupl=psb_dupl_err_,afmt=fmt,mold=mold)     
+  call psb_spasb(a,desc_a,info,afmt=fmt,mold=mold)     
   t3 = psb_wtime()
   if(info /= psb_success_)then
     info=psb_err_from_subroutine_