From d8284f038a5aac28130e74ca61b4c7644c8ae31c Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 22 Sep 2008 16:30:31 +0000
Subject: [PATCH] mld2p4:

Taken out explicit reference to DESC internals in SLUD_BLD.
---
 mlprec/mld_cslud_bld.f90 | 5 +++--
 mlprec/mld_dslud_bld.f90 | 5 +++--
 mlprec/mld_sslud_bld.f90 | 5 +++--
 mlprec/mld_zslud_bld.f90 | 5 +++--
 4 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/mlprec/mld_cslud_bld.f90 b/mlprec/mld_cslud_bld.f90
index 644c16fb..af44e9c3 100644
--- a/mlprec/mld_cslud_bld.f90
+++ b/mlprec/mld_cslud_bld.f90
@@ -105,8 +105,9 @@ subroutine mld_csludist_bld(a,desc_a,p,info)
   !
   nrow = psb_cd_get_local_rows(desc_a)
   ncol = psb_cd_get_local_cols(desc_a)
-  ifrst   = desc_a%loc_to_glob(1) 
-  ibcheck = desc_a%loc_to_glob(nrow) - ifrst + 1 
+  call psb_loc_to_glob(1,ifrst,desc_a,info) 
+  call psb_loc_to_glob(nrow,ibcheck,desc_a,info) 
+  ibcheck = ibcheck - ifrst + 1 
   ibcheck = ibcheck - nrow
   call psb_amx(ictxt,ibcheck)
   if (ibcheck > 0) then 
diff --git a/mlprec/mld_dslud_bld.f90 b/mlprec/mld_dslud_bld.f90
index d1de861c..cd8b9386 100644
--- a/mlprec/mld_dslud_bld.f90
+++ b/mlprec/mld_dslud_bld.f90
@@ -105,8 +105,9 @@ subroutine mld_dsludist_bld(a,desc_a,p,info)
   !
   nrow = psb_cd_get_local_rows(desc_a)
   ncol = psb_cd_get_local_cols(desc_a)
-  ifrst   = desc_a%loc_to_glob(1) 
-  ibcheck = desc_a%loc_to_glob(nrow) - ifrst + 1 
+  call psb_loc_to_glob(1,ifrst,desc_a,info) 
+  call psb_loc_to_glob(nrow,ibcheck,desc_a,info) 
+  ibcheck = ibcheck - ifrst + 1 
   ibcheck = ibcheck - nrow
   call psb_amx(ictxt,ibcheck)
   if (ibcheck > 0) then 
diff --git a/mlprec/mld_sslud_bld.f90 b/mlprec/mld_sslud_bld.f90
index 0b450b18..be0c447a 100644
--- a/mlprec/mld_sslud_bld.f90
+++ b/mlprec/mld_sslud_bld.f90
@@ -105,8 +105,9 @@ subroutine mld_ssludist_bld(a,desc_a,p,info)
   !
   nrow = psb_cd_get_local_rows(desc_a)
   ncol = psb_cd_get_local_cols(desc_a)
-  ifrst   = desc_a%loc_to_glob(1) 
-  ibcheck = desc_a%loc_to_glob(nrow) - ifrst + 1 
+  call psb_loc_to_glob(1,ifrst,desc_a,info) 
+  call psb_loc_to_glob(nrow,ibcheck,desc_a,info) 
+  ibcheck = ibcheck - ifrst + 1 
   ibcheck = ibcheck - nrow
   call psb_amx(ictxt,ibcheck)
   if (ibcheck > 0) then 
diff --git a/mlprec/mld_zslud_bld.f90 b/mlprec/mld_zslud_bld.f90
index b464a167..e8169d4c 100644
--- a/mlprec/mld_zslud_bld.f90
+++ b/mlprec/mld_zslud_bld.f90
@@ -105,8 +105,9 @@ subroutine mld_zsludist_bld(a,desc_a,p,info)
   !
   nrow = psb_cd_get_local_rows(desc_a)
   ncol = psb_cd_get_local_cols(desc_a)
-  ifrst   = desc_a%loc_to_glob(1) 
-  ibcheck = desc_a%loc_to_glob(nrow) - ifrst + 1 
+  call psb_loc_to_glob(1,ifrst,desc_a,info) 
+  call psb_loc_to_glob(nrow,ibcheck,desc_a,info) 
+  ibcheck = ibcheck - ifrst + 1 
   ibcheck = ibcheck - nrow
   call psb_amx(ictxt,ibcheck)
   if (ibcheck > 0) then