New ICTXT argument in precinit.

mlprec/impl/mld_cprecinit.F90

@@ -83,7 +83,7 @@
 !    info    -  integer, output.
 !               Error code.
 !  
-subroutine mld_cprecinit(prec,ptype,info)
+subroutine mld_cprecinit(ictxt,prec,ptype,info)
 
   use psb_base_mod
   use mld_c_prec_mod, mld_protect_name => mld_cprecinit
@@ -101,6 +101,7 @@ subroutine mld_cprecinit(prec,ptype,info)
   implicit none
 
   ! Arguments
+  integer(psb_ipk_), intent(in)           :: ictxt
   class(mld_cprec_type), intent(inout)  :: prec
   character(len=*), intent(in)            :: ptype
   integer(psb_ipk_), intent(out)          :: info
@@ -117,6 +118,7 @@ subroutine mld_cprecinit(prec,ptype,info)
       ! Do we want to do something? 
     endif
   endif
+  prec%ictxt = ictxt
   prec%min_coarse_size = -1
 
   select case(psb_toupper(ptype(1:len_trim(ptype))))

mlprec/impl/mld_dprecinit.F90

@@ -83,7 +83,7 @@
 !    info    -  integer, output.
 !               Error code.
 !  
-subroutine mld_dprecinit(prec,ptype,info)
+subroutine mld_dprecinit(ictxt,prec,ptype,info)
 
   use psb_base_mod
   use mld_d_prec_mod, mld_protect_name => mld_dprecinit
@@ -104,6 +104,7 @@ subroutine mld_dprecinit(prec,ptype,info)
   implicit none
 
   ! Arguments
+  integer(psb_ipk_), intent(in)           :: ictxt
   class(mld_dprec_type), intent(inout)  :: prec
   character(len=*), intent(in)            :: ptype
   integer(psb_ipk_), intent(out)          :: info
@@ -120,6 +121,7 @@ subroutine mld_dprecinit(prec,ptype,info)
       ! Do we want to do something? 
     endif
   endif
+  prec%ictxt = ictxt
   prec%min_coarse_size = -1
 
   select case(psb_toupper(ptype(1:len_trim(ptype))))

mlprec/impl/mld_sprecinit.F90

@@ -83,7 +83,7 @@
 !    info    -  integer, output.
 !               Error code.
 !  
-subroutine mld_sprecinit(prec,ptype,info)
+subroutine mld_sprecinit(ictxt,prec,ptype,info)
 
   use psb_base_mod
   use mld_s_prec_mod, mld_protect_name => mld_sprecinit
@@ -101,6 +101,7 @@ subroutine mld_sprecinit(prec,ptype,info)
   implicit none
 
   ! Arguments
+  integer(psb_ipk_), intent(in)           :: ictxt
   class(mld_sprec_type), intent(inout)  :: prec
   character(len=*), intent(in)            :: ptype
   integer(psb_ipk_), intent(out)          :: info
@@ -117,6 +118,7 @@ subroutine mld_sprecinit(prec,ptype,info)
       ! Do we want to do something? 
     endif
   endif
+  prec%ictxt = ictxt
   prec%min_coarse_size = -1
 
   select case(psb_toupper(ptype(1:len_trim(ptype))))

mlprec/impl/mld_zprecinit.F90

@@ -83,7 +83,7 @@
 !    info    -  integer, output.
 !               Error code.
 !  
-subroutine mld_zprecinit(prec,ptype,info)
+subroutine mld_zprecinit(ictxt,prec,ptype,info)
 
   use psb_base_mod
   use mld_z_prec_mod, mld_protect_name => mld_zprecinit
@@ -104,6 +104,7 @@ subroutine mld_zprecinit(prec,ptype,info)
   implicit none
 
   ! Arguments
+  integer(psb_ipk_), intent(in)           :: ictxt
   class(mld_zprec_type), intent(inout)  :: prec
   character(len=*), intent(in)            :: ptype
   integer(psb_ipk_), intent(out)          :: info
@@ -120,6 +121,7 @@ subroutine mld_zprecinit(prec,ptype,info)
       ! Do we want to do something? 
     endif
   endif
+  prec%ictxt = ictxt
   prec%min_coarse_size = -1
 
   select case(psb_toupper(ptype(1:len_trim(ptype))))

mlprec/mld_c_prec_type.f90

@@ -84,7 +84,7 @@ module mld_c_prec_type
   integer, parameter, private :: wv_size_=4
   
   type, extends(psb_cprec_type)        :: mld_cprec_type
-    integer(psb_ipk_)                  :: ictxt
+    ! integer(psb_ipk_)                  :: ictxt ! Now it's in the PSBLAS prec. 
     !
     ! Aggregation defaults:
     !
@@ -278,9 +278,10 @@ module mld_c_prec_type
   end interface
 
   interface mld_precinit
-    subroutine mld_cprecinit(prec,ptype,info)
+    subroutine mld_cprecinit(ictxt,prec,ptype,info)
       import :: psb_cspmat_type, psb_desc_type, psb_spk_, &
            & mld_cprec_type, psb_ipk_
+      integer(psb_ipk_), intent(in)            :: ictxt
       class(mld_cprec_type), intent(inout)    :: prec
       character(len=*), intent(in)             :: ptype
       integer(psb_ipk_), intent(out)           :: info

mlprec/mld_d_prec_type.f90

@@ -84,7 +84,7 @@ module mld_d_prec_type
   integer, parameter, private :: wv_size_=4
   
   type, extends(psb_dprec_type)        :: mld_dprec_type
-    integer(psb_ipk_)                  :: ictxt
+    ! integer(psb_ipk_)                  :: ictxt ! Now it's in the PSBLAS prec. 
     !
     ! Aggregation defaults:
     !
@@ -278,9 +278,10 @@ module mld_d_prec_type
   end interface
 
   interface mld_precinit
-    subroutine mld_dprecinit(prec,ptype,info)
+    subroutine mld_dprecinit(ictxt,prec,ptype,info)
       import :: psb_dspmat_type, psb_desc_type, psb_dpk_, &
            & mld_dprec_type, psb_ipk_
+      integer(psb_ipk_), intent(in)            :: ictxt
       class(mld_dprec_type), intent(inout)    :: prec
       character(len=*), intent(in)             :: ptype
       integer(psb_ipk_), intent(out)           :: info

mlprec/mld_s_prec_type.f90

@@ -84,7 +84,7 @@ module mld_s_prec_type
   integer, parameter, private :: wv_size_=4
   
   type, extends(psb_sprec_type)        :: mld_sprec_type
-    integer(psb_ipk_)                  :: ictxt
+    ! integer(psb_ipk_)                  :: ictxt ! Now it's in the PSBLAS prec. 
     !
     ! Aggregation defaults:
     !
@@ -278,9 +278,10 @@ module mld_s_prec_type
   end interface
 
   interface mld_precinit
-    subroutine mld_sprecinit(prec,ptype,info)
+    subroutine mld_sprecinit(ictxt,prec,ptype,info)
       import :: psb_sspmat_type, psb_desc_type, psb_spk_, &
            & mld_sprec_type, psb_ipk_
+      integer(psb_ipk_), intent(in)            :: ictxt
       class(mld_sprec_type), intent(inout)    :: prec
       character(len=*), intent(in)             :: ptype
       integer(psb_ipk_), intent(out)           :: info

mlprec/mld_z_prec_type.f90

@@ -84,7 +84,7 @@ module mld_z_prec_type
   integer, parameter, private :: wv_size_=4
   
   type, extends(psb_zprec_type)        :: mld_zprec_type
-    integer(psb_ipk_)                  :: ictxt
+    ! integer(psb_ipk_)                  :: ictxt ! Now it's in the PSBLAS prec. 
     !
     ! Aggregation defaults:
     !
@@ -278,9 +278,10 @@ module mld_z_prec_type
   end interface
 
   interface mld_precinit
-    subroutine mld_zprecinit(prec,ptype,info)
+    subroutine mld_zprecinit(ictxt,prec,ptype,info)
       import :: psb_zspmat_type, psb_desc_type, psb_dpk_, &
            & mld_zprec_type, psb_ipk_
+      integer(psb_ipk_), intent(in)            :: ictxt
       class(mld_zprec_type), intent(inout)    :: prec
       character(len=*), intent(in)             :: ptype
       integer(psb_ipk_), intent(out)           :: info