psblas3-dev:

base/modules/psb_const_mod.F90 base/modules/psi_penv_mod.F90 docs/html/footnode.html docs/html/img1.png docs/html/img10.png 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/img11.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/img12.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/img13.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/img139.png docs/html/img14.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/img15.png docs/html/img16.png docs/html/img17.png docs/html/img18.png docs/html/img2.png docs/html/img3.png docs/html/img35.png docs/html/img36.png docs/html/img37.png docs/html/img4.png docs/html/img40.png docs/html/img41.png docs/html/img42.png docs/html/img43.png docs/html/img44.png docs/html/img45.png docs/html/img46.png docs/html/img47.png docs/html/img48.png docs/html/img49.png docs/html/img5.png docs/html/img50.png docs/html/img51.png docs/html/img52.png docs/html/img53.png docs/html/img54.png docs/html/img56.png docs/html/img58.png docs/html/img59.png docs/html/img6.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/img7.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/img8.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/img9.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/node10.html docs/html/node100.html docs/html/node101.html docs/html/node113.html docs/html/node118.html docs/html/node120.html docs/html/node20.html docs/html/node3.html docs/html/node30.html docs/html/node36.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/node50.html docs/html/node52.html docs/html/node53.html docs/html/node54.html docs/html/node55.html docs/html/node57.html docs/html/node58.html docs/html/node6.html docs/html/node62.html docs/html/node63.html docs/html/node64.html docs/html/node68.html docs/html/node69.html docs/html/node7.html docs/html/node72.html docs/html/node8.html docs/html/node81.html docs/html/node83.html docs/html/node85.html docs/html/node86.html docs/html/node87.html docs/html/node89.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.0.pdf docs/src/intro.tex docs/src/toolsrout.tex docs/src/userguide.tex docs/src/userhtml.tex Merged doc fixes. Start reworking parametric data types.
13 years ago · bbe85723ab
parent ed8e588e37
commit bbe85723ab
190 changed files with 2972 additions and 2879 deletions
--- a/base/modules/psb_const_mod.F90
+++ b/base/modules/psb_const_mod.F90
@ -45,14 +45,17 @@ module psb_const_mod
  integer, parameter  :: longndig=12
  integer, parameter  :: psb_long_int_k_ = selected_int_kind(longndig)
  ! This is always a 4-byte integer, for MPI-related stuff
-  integer, parameter  :: mpindig=8
-  integer, parameter  :: psb_mpik_ = selected_int_kind(mpindig)
+  integer, parameter  :: psb_mpik_ = kind(1)
  !
  ! These must be the kind parameter corresponding to MPI_DOUBLE_PRECISION
  ! and MPI_REAL
  !
-  integer(psb_ipk_), parameter  :: psb_dpk_ = kind(1.d0)
-  integer(psb_ipk_), parameter  :: psb_spk_ = kind(1.e0)
+  integer(psb_mpik_), parameter  :: psb_spk_p_ = 6
+  integer(psb_mpik_), parameter  :: psb_spk_r_ = 37
+  integer(psb_mpik_), parameter  :: psb_spk_   = selected_real_kind(psb_spk_p_,psb_spk_r_)
+  integer(psb_mpik_), parameter  :: psb_dpk_p_ = 15
+  integer(psb_mpik_), parameter  :: psb_dpk_r_ = 307
+  integer(psb_mpik_), parameter  :: psb_dpk_   = selected_real_kind(psb_dpk_p_,psb_dpk_r_)
  integer(psb_ipk_), save        :: psb_sizeof_dp, psb_sizeof_sp
  integer(psb_ipk_), save        :: psb_sizeof_int, psb_sizeof_long_int
  !
@ -61,6 +64,10 @@ module psb_const_mod
  integer(psb_mpik_), save      :: psb_mpi_ipk_integer
  integer(psb_mpik_), save      :: psb_mpi_def_integer
  integer(psb_mpik_), save      :: psb_mpi_lng_integer
+  integer(psb_mpik_), save      :: psb_mpi_r_spk_
+  integer(psb_mpik_), save      :: psb_mpi_r_dpk_
+  integer(psb_mpik_), save      :: psb_mpi_c_spk_
+  integer(psb_mpik_), save      :: psb_mpi_c_dpk_
  ! 
  ! Version
  !
--- a/base/modules/psi_penv_mod.F90
+++ b/base/modules/psi_penv_mod.F90
@ -142,6 +142,15 @@ contains
    integer(psb_mpik_) :: info
    
    info = 0
+#if 0
+    if (info == 0) call mpi_type_create_f90_integer(psb_ipk_, psb_mpi_ipk_integer ,info)
+    if (info == 0) call mpi_type_create_f90_integer(psb_mpik_, psb_mpi_def_integer ,info)
+    if (info == 0) call mpi_type_create_f90_integer(psb_long_int_k_, psb_mpi_lng_integer ,info)
+    if (info == 0) call mpi_type_create_f90_real(psb_spk_p_,psb_spk_r_, psb_mpi_r_spk_,info)
+    if (info == 0) call mpi_type_create_f90_real(psb_dpk_p_,psb_dpk_r_, psb_mpi_r_dpk_,info)
+    if (info == 0) call mpi_type_create_f90_complex(psb_spk_p_,psb_spk_r_, psb_mpi_c_spk_,info)
+    if (info == 0) call mpi_type_create_f90_complex(psb_dpk_p_,psb_dpk_r_, psb_mpi_c_dpk_,info)
+#else
 #if defined(LONG_INTEGERS)
    psb_mpi_ipk_integer = mpi_integer8
 #else
@ -149,7 +158,11 @@ contains
 #endif
    psb_mpi_def_integer = mpi_integer
    psb_mpi_lng_integer = mpi_integer8
-
+    psb_mpi_r_spk_      = mpi_real
+    psb_mpi_r_dpk_      = mpi_double_precision
+    psb_mpi_c_spk_      = mpi_complex
+    psb_mpi_c_dpk_      = mpi_double_complex
+#endif

 #if defined(SERIAL_MPI)
 #else 
--- a/docs/html/footnode.html
+++ b/docs/html/footnode.html
@ -104,7 +104,7 @@ sample scatter/gather routines.
 .
 </PRE>
 </DD>
-<DT><A NAME="foot7158">... follows</A><A
+<DT><A NAME="foot7163">... follows</A><A
 HREF="node113.html#tex2html30"><SUP>3</SUP></A></DT>
 <DD>The string is case-insensitive

--- a/docs/html/img1.png
+++ b/docs/html/img1.png
--- a/docs/html/img10.png
+++ b/docs/html/img10.png
--- 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/img11.png
+++ b/docs/html/img11.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/img12.png
+++ b/docs/html/img12.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/img13.png
+++ b/docs/html/img13.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/img139.png
+++ b/docs/html/img139.png
--- a/docs/html/img14.png
+++ b/docs/html/img14.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/img15.png
+++ b/docs/html/img15.png
--- a/docs/html/img16.png
+++ b/docs/html/img16.png
--- a/docs/html/img17.png
+++ b/docs/html/img17.png
--- a/docs/html/img18.png
+++ b/docs/html/img18.png
--- a/docs/html/img2.png
+++ b/docs/html/img2.png
--- a/docs/html/img3.png
+++ b/docs/html/img3.png
--- a/docs/html/img35.png
+++ b/docs/html/img35.png
--- a/docs/html/img36.png
+++ b/docs/html/img36.png
--- a/docs/html/img37.png
+++ b/docs/html/img37.png
--- a/docs/html/img4.png
+++ b/docs/html/img4.png
--- a/docs/html/img40.png
+++ b/docs/html/img40.png
--- a/docs/html/img41.png
+++ b/docs/html/img41.png
--- a/docs/html/img42.png
+++ b/docs/html/img42.png
--- a/docs/html/img43.png
+++ b/docs/html/img43.png
--- a/docs/html/img44.png
+++ b/docs/html/img44.png
--- a/docs/html/img45.png
+++ b/docs/html/img45.png
--- a/docs/html/img46.png
+++ b/docs/html/img46.png
--- a/docs/html/img47.png
+++ b/docs/html/img47.png
--- a/docs/html/img48.png
+++ b/docs/html/img48.png
--- a/docs/html/img49.png
+++ b/docs/html/img49.png
--- a/docs/html/img5.png
+++ b/docs/html/img5.png
--- a/docs/html/img50.png
+++ b/docs/html/img50.png
--- a/docs/html/img51.png
+++ b/docs/html/img51.png
--- a/docs/html/img52.png
+++ b/docs/html/img52.png
--- a/docs/html/img53.png
+++ b/docs/html/img53.png
--- a/docs/html/img54.png
+++ b/docs/html/img54.png
--- a/docs/html/img56.png
+++ b/docs/html/img56.png
--- a/docs/html/img58.png
+++ b/docs/html/img58.png
--- a/docs/html/img59.png
+++ b/docs/html/img59.png
--- a/docs/html/img6.png
+++ b/docs/html/img6.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/img7.png
+++ b/docs/html/img7.png
--- a/docs/html/img70.png
+++ b/docs/html/img70.png
--- a/Show More
+++ b/Show More