psblas:

base/modules/psb_desc_mod.F90 docs/html/footnode.html docs/html/img100.png docs/html/img101.png docs/html/img102.png docs/html/img103.png docs/html/img104.png docs/html/img105.png docs/html/img106.png docs/html/img107.png docs/html/img108.png docs/html/img109.png docs/html/img110.png docs/html/img111.png docs/html/img112.png docs/html/img113.png docs/html/img114.png docs/html/img115.png docs/html/img116.png docs/html/img117.png docs/html/img118.png docs/html/img119.png docs/html/img120.png docs/html/img121.png docs/html/img122.png docs/html/img123.png docs/html/img124.png docs/html/img125.png docs/html/img126.png docs/html/img127.png docs/html/img128.png docs/html/img129.png docs/html/img130.png docs/html/img131.png docs/html/img132.png docs/html/img133.png docs/html/img134.png docs/html/img135.png docs/html/img136.png docs/html/img137.png docs/html/img138.png docs/html/img139.png docs/html/img140.png docs/html/img141.png docs/html/img142.png docs/html/img143.png docs/html/img144.png docs/html/img145.png docs/html/img146.png docs/html/img147.png docs/html/img148.png docs/html/img149.png docs/html/img150.png docs/html/img151.png docs/html/img152.png docs/html/img153.png docs/html/img154.png docs/html/img155.png docs/html/img156.png docs/html/img157.png docs/html/img158.png docs/html/img159.png docs/html/img160.png docs/html/img161.png docs/html/img162.png docs/html/img163.png docs/html/img164.png docs/html/img165.png docs/html/img20.png docs/html/img25.png docs/html/img28.png docs/html/img29.png docs/html/img33.png docs/html/img34.png docs/html/img38.png docs/html/img39.png docs/html/img42.png docs/html/img45.png docs/html/img46.png docs/html/img53.png docs/html/img54.png docs/html/img55.png docs/html/img56.png docs/html/img57.png docs/html/img58.png docs/html/img59.png docs/html/img60.png docs/html/img61.png docs/html/img62.png docs/html/img63.png docs/html/img64.png docs/html/img65.png docs/html/img66.png docs/html/img67.png docs/html/img68.png docs/html/img69.png docs/html/img70.png docs/html/img71.png docs/html/img72.png docs/html/img73.png docs/html/img74.png docs/html/img75.png docs/html/img76.png docs/html/img77.png docs/html/img78.png docs/html/img79.png docs/html/img80.png docs/html/img81.png docs/html/img82.png docs/html/img83.png docs/html/img84.png docs/html/img85.png docs/html/img86.png docs/html/img87.png docs/html/img88.png docs/html/img89.png docs/html/img90.png docs/html/img91.png docs/html/img92.png docs/html/img93.png docs/html/img94.png docs/html/img95.png docs/html/img96.png docs/html/img97.png docs/html/img98.png docs/html/img99.png docs/html/index.html docs/html/node1.html docs/html/node10.html docs/html/node100.html docs/html/node101.html docs/html/node102.html docs/html/node103.html docs/html/node104.html docs/html/node105.html docs/html/node106.html docs/html/node107.html docs/html/node108.html docs/html/node109.html docs/html/node11.html docs/html/node110.html docs/html/node111.html docs/html/node112.html docs/html/node113.html docs/html/node114.html docs/html/node115.html docs/html/node116.html docs/html/node117.html docs/html/node118.html docs/html/node119.html docs/html/node12.html docs/html/node120.html docs/html/node121.html docs/html/node122.html docs/html/node123.html docs/html/node124.html docs/html/node125.html docs/html/node126.html docs/html/node127.html docs/html/node128.html docs/html/node13.html docs/html/node14.html docs/html/node15.html docs/html/node16.html docs/html/node17.html docs/html/node18.html docs/html/node19.html docs/html/node2.html docs/html/node20.html docs/html/node21.html docs/html/node22.html docs/html/node23.html docs/html/node24.html docs/html/node25.html docs/html/node26.html docs/html/node27.html docs/html/node28.html docs/html/node29.html docs/html/node3.html docs/html/node30.html docs/html/node31.html docs/html/node32.html docs/html/node33.html docs/html/node34.html docs/html/node35.html docs/html/node36.html docs/html/node37.html docs/html/node38.html docs/html/node39.html docs/html/node4.html docs/html/node40.html docs/html/node41.html docs/html/node42.html docs/html/node43.html docs/html/node44.html docs/html/node45.html docs/html/node46.html docs/html/node47.html docs/html/node48.html docs/html/node49.html docs/html/node5.html docs/html/node50.html docs/html/node51.html docs/html/node52.html docs/html/node53.html docs/html/node54.html docs/html/node55.html docs/html/node56.html docs/html/node57.html docs/html/node58.html docs/html/node59.html docs/html/node6.html docs/html/node60.html docs/html/node61.html docs/html/node62.html docs/html/node63.html docs/html/node64.html docs/html/node65.html docs/html/node66.html docs/html/node67.html docs/html/node68.html docs/html/node69.html docs/html/node7.html docs/html/node70.html docs/html/node71.html docs/html/node72.html docs/html/node73.html docs/html/node74.html docs/html/node75.html docs/html/node76.html docs/html/node77.html docs/html/node78.html docs/html/node79.html docs/html/node8.html docs/html/node80.html docs/html/node81.html docs/html/node82.html docs/html/node83.html docs/html/node84.html docs/html/node85.html docs/html/node86.html docs/html/node87.html docs/html/node88.html docs/html/node89.html docs/html/node9.html docs/html/node90.html docs/html/node91.html docs/html/node92.html docs/html/node93.html docs/html/node94.html docs/html/node95.html docs/html/node96.html docs/html/node97.html docs/html/node98.html docs/html/node99.html docs/html/userhtml.html docs/psblas-3.4.pdf docs/src/datastruct.tex util/psb_d_genpde_impl.f90 util/psb_s_genpde_impl.f90 Defined new get_global_indices() method for DESC. Use it in GENPDE. Update docs
10 years ago · 410a52745f
parent da035aae38
commit 410a52745f
260 changed files with 14967 additions and 14812 deletions
--- a/base/modules/psb_desc_mod.F90
+++ b/base/modules/psb_desc_mod.F90
@ -231,6 +231,7 @@ module psb_desc_mod
    procedure, pass(desc) :: get_local_cols  => psb_cd_get_local_cols
    procedure, pass(desc) :: get_global_rows => psb_cd_get_global_rows
    procedure, pass(desc) :: get_global_cols => psb_cd_get_global_cols
    procedure, pass(desc) :: get_global_indices => psb_cd_get_global_indices
    procedure, pass(desc) :: a_get_list      => psb_cd_get_list
    procedure, pass(desc) :: v_get_list      => psb_cd_v_get_list
    generic, public       :: get_list => a_get_list, v_get_list
@ -497,6 +498,40 @@ contains
  end function psb_cd_get_global_cols
  function psb_cd_get_global_indices(desc,owned) result(val)
    implicit none 
    integer(psb_ipk_), allocatable   :: val(:)
    class(psb_desc_type), intent(in) :: desc
    logical, intent(in), optional    :: owned
    logical :: owned_
    integer(psb_ipk_) :: i, nr, info
    owned_=.true.
    if (present(owned)) owned_=owned
    if (allocated(desc%indxmap)) then 
      if (owned_) then
        nr = desc%get_local_rows()
      else
        nr = desc%get_local_cols()
      end if
      nr = max(nr,0)
      allocate(val(nr))
      do i=1, nr
        val(i) = i
      end do
      call desc%l2gip(val,info,owned=owned_)
    else
      allocate(val(0))
    endif
  end function psb_cd_get_global_indices
  function cd_get_fmt(desc) result(val)
    implicit none 
    character(len=5) :: val 
--- a/docs/html/footnode.html
+++ b/docs/html/footnode.html
@ -18,7 +18,7 @@ original version by:  Nikos Drakos, CBLU, University of Leeds
 <LINK REL="STYLESHEET" HREF="userhtml.css">
-<LINK REL="previous" HREF="node127.html">
+<LINK REL="previous" HREF="node128.html">
 <LINK REL="up" HREF="userhtml.html">
 </HEAD>
@ -104,8 +104,8 @@ sample scatter/gather routines.
 .
 </PRE>
 </DD>
-<DT><A NAME="foot7458">... follows</A><A
+<DT><A NAME="foot7478">... follows</A><A
- HREF="node120.html#tex2html30"><SUP>3</SUP></A></DT>
+ HREF="node121.html#tex2html30"><SUP>3</SUP></A></DT>
 <DD>The string is case-insensitive
 <PRE>.
--- a/docs/html/img100.png
+++ b/docs/html/img100.png
--- a/docs/html/img101.png
+++ b/docs/html/img101.png
--- a/docs/html/img102.png
+++ b/docs/html/img102.png
--- a/docs/html/img103.png
+++ b/docs/html/img103.png
--- a/docs/html/img104.png
+++ b/docs/html/img104.png
--- a/docs/html/img105.png
+++ b/docs/html/img105.png
--- a/docs/html/img106.png
+++ b/docs/html/img106.png
--- a/docs/html/img107.png
+++ b/docs/html/img107.png
--- a/docs/html/img108.png
+++ b/docs/html/img108.png
--- a/docs/html/img109.png
+++ b/docs/html/img109.png
--- a/docs/html/img110.png
+++ b/docs/html/img110.png
--- a/docs/html/img111.png
+++ b/docs/html/img111.png
--- a/docs/html/img112.png
+++ b/docs/html/img112.png
--- a/docs/html/img113.png
+++ b/docs/html/img113.png
--- a/docs/html/img114.png
+++ b/docs/html/img114.png
--- a/docs/html/img115.png
+++ b/docs/html/img115.png
--- a/docs/html/img116.png
+++ b/docs/html/img116.png
--- a/docs/html/img117.png
+++ b/docs/html/img117.png
--- a/docs/html/img118.png
+++ b/docs/html/img118.png
--- a/docs/html/img119.png
+++ b/docs/html/img119.png
--- a/docs/html/img120.png
+++ b/docs/html/img120.png
--- a/docs/html/img121.png
+++ b/docs/html/img121.png
--- a/docs/html/img122.png
+++ b/docs/html/img122.png
--- a/docs/html/img123.png
+++ b/docs/html/img123.png
--- a/docs/html/img124.png
+++ b/docs/html/img124.png
--- a/docs/html/img125.png
+++ b/docs/html/img125.png
--- a/docs/html/img126.png
+++ b/docs/html/img126.png
--- a/docs/html/img127.png
+++ b/docs/html/img127.png
--- a/docs/html/img128.png
+++ b/docs/html/img128.png
--- a/docs/html/img129.png
+++ b/docs/html/img129.png
--- a/docs/html/img130.png
+++ b/docs/html/img130.png
--- a/docs/html/img131.png
+++ b/docs/html/img131.png
--- a/docs/html/img132.png
+++ b/docs/html/img132.png
--- a/docs/html/img133.png
+++ b/docs/html/img133.png
--- a/docs/html/img134.png
+++ b/docs/html/img134.png
--- a/docs/html/img135.png
+++ b/docs/html/img135.png
--- a/docs/html/img136.png
+++ b/docs/html/img136.png
--- a/docs/html/img137.png
+++ b/docs/html/img137.png
--- a/docs/html/img138.png
+++ b/docs/html/img138.png
--- a/docs/html/img139.png
+++ b/docs/html/img139.png
--- a/docs/html/img140.png
+++ b/docs/html/img140.png
--- a/docs/html/img141.png
+++ b/docs/html/img141.png
--- a/docs/html/img142.png
+++ b/docs/html/img142.png
--- a/docs/html/img143.png
+++ b/docs/html/img143.png
--- a/docs/html/img144.png
+++ b/docs/html/img144.png
--- a/docs/html/img145.png
+++ b/docs/html/img145.png
--- a/docs/html/img146.png
+++ b/docs/html/img146.png
--- a/docs/html/img147.png
+++ b/docs/html/img147.png
--- a/docs/html/img148.png
+++ b/docs/html/img148.png
--- a/docs/html/img149.png
+++ b/docs/html/img149.png
--- a/docs/html/img150.png
+++ b/docs/html/img150.png
--- a/docs/html/img151.png
+++ b/docs/html/img151.png
--- a/docs/html/img152.png
+++ b/docs/html/img152.png
--- a/docs/html/img153.png
+++ b/docs/html/img153.png
--- a/docs/html/img154.png
+++ b/docs/html/img154.png
--- a/docs/html/img155.png
+++ b/docs/html/img155.png
--- a/docs/html/img156.png
+++ b/docs/html/img156.png
--- a/docs/html/img157.png
+++ b/docs/html/img157.png
--- a/docs/html/img158.png
+++ b/docs/html/img158.png
--- a/docs/html/img159.png
+++ b/docs/html/img159.png
--- a/docs/html/img160.png
+++ b/docs/html/img160.png
--- a/docs/html/img161.png
+++ b/docs/html/img161.png
--- a/docs/html/img162.png
+++ b/docs/html/img162.png
--- a/docs/html/img163.png
+++ b/docs/html/img163.png
--- a/docs/html/img164.png
+++ b/docs/html/img164.png
--- a/docs/html/img165.png
+++ b/docs/html/img165.png
--- a/docs/html/img20.png
+++ b/docs/html/img20.png
--- a/docs/html/img25.png
+++ b/docs/html/img25.png
--- a/docs/html/img28.png
+++ b/docs/html/img28.png
--- a/docs/html/img29.png
+++ b/docs/html/img29.png
--- a/docs/html/img33.png
+++ b/docs/html/img33.png
--- a/docs/html/img34.png
+++ b/docs/html/img34.png
--- a/docs/html/img38.png
+++ b/docs/html/img38.png
--- a/docs/html/img39.png
+++ b/docs/html/img39.png
--- a/docs/html/img42.png
+++ b/docs/html/img42.png
--- a/docs/html/img45.png
+++ b/docs/html/img45.png
--- a/docs/html/img46.png
+++ b/docs/html/img46.png
--- a/docs/html/img53.png
+++ b/docs/html/img53.png
--- a/docs/html/img54.png
+++ b/docs/html/img54.png
--- a/docs/html/img55.png
+++ b/docs/html/img55.png
--- a/docs/html/img56.png
+++ b/docs/html/img56.png
--- a/docs/html/img57.png
+++ b/docs/html/img57.png
--- a/docs/html/img58.png
+++ b/docs/html/img58.png
--- a/docs/html/img59.png
+++ b/docs/html/img59.png
--- a/docs/html/img60.png
+++ b/docs/html/img60.png
--- a/docs/html/img61.png
+++ b/docs/html/img61.png
--- a/docs/html/img62.png
+++ b/docs/html/img62.png
--- a/docs/html/img63.png
+++ b/docs/html/img63.png
--- a/docs/html/img64.png
+++ b/docs/html/img64.png
--- a/docs/html/img65.png
+++ b/docs/html/img65.png
--- a/docs/html/img66.png
+++ b/docs/html/img66.png
--- a/docs/html/img67.png
+++ b/docs/html/img67.png
--- a/docs/html/img68.png
+++ b/docs/html/img68.png
--- a/docs/html/img69.png
+++ b/docs/html/img69.png
--- a/docs/html/img70.png
+++ b/docs/html/img70.png
--- a/docs/html/img71.png
+++ b/docs/html/img71.png
--- a/docs/html/img72.png
+++ b/docs/html/img72.png
--- a/docs/html/img73.png
+++ b/docs/html/img73.png
--- a/Show More
+++ b/Show More