From 4c7bbe2d56a0e88da0cdb42a2794cf76538a58f1 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sun, 9 May 2010 07:27:40 +0000 Subject: [PATCH] mld2p4-2 Fixes for USE statements on XLF. --- mlprec/mld_dilu0_fact.f90 | 2 +- mlprec/mld_diluk_fact.f90 | 2 +- mlprec/mld_dilut_fact.f90 | 2 +- mlprec/mld_dprecaply.f90 | 4 ++-- 4 files changed, 5 insertions(+), 5 deletions(-) diff --git a/mlprec/mld_dilu0_fact.f90 b/mlprec/mld_dilu0_fact.f90 index fb8a0bbd..daee95e5 100644 --- a/mlprec/mld_dilu0_fact.f90 +++ b/mlprec/mld_dilu0_fact.f90 @@ -102,7 +102,7 @@ subroutine mld_dilu0_fact(ialg,a,l,u,d,info,blck, upd) use psb_sparse_mod - use mld_inner_mod, mld_protect_name => mld_dilu0_fact + use mld_inner_mod!, mld_protect_name => mld_dilu0_fact implicit none diff --git a/mlprec/mld_diluk_fact.f90 b/mlprec/mld_diluk_fact.f90 index c656294f..cfad4164 100644 --- a/mlprec/mld_diluk_fact.f90 +++ b/mlprec/mld_diluk_fact.f90 @@ -99,7 +99,7 @@ subroutine mld_diluk_fact(fill_in,ialg,a,l,u,d,info,blck) use psb_sparse_mod - use mld_inner_mod, mld_protect_name => mld_diluk_fact + use mld_inner_mod!, mld_protect_name => mld_diluk_fact implicit none diff --git a/mlprec/mld_dilut_fact.f90 b/mlprec/mld_dilut_fact.f90 index 99dff1dd..4f3a869e 100644 --- a/mlprec/mld_dilut_fact.f90 +++ b/mlprec/mld_dilut_fact.f90 @@ -95,7 +95,7 @@ subroutine mld_dilut_fact(fill_in,thres,a,l,u,d,info,blck) use psb_sparse_mod - use mld_inner_mod, mld_protect_name => mld_dilut_fact + use mld_inner_mod!, mld_protect_name => mld_dilut_fact implicit none diff --git a/mlprec/mld_dprecaply.f90 b/mlprec/mld_dprecaply.f90 index f08275ef..dd6dc8f8 100644 --- a/mlprec/mld_dprecaply.f90 +++ b/mlprec/mld_dprecaply.f90 @@ -75,7 +75,7 @@ subroutine mld_dprecaply(prec,x,y,desc_data,info,trans,work) use psb_sparse_mod use mld_inner_mod, mld_protect_name => mld_dprecaply - use mld_prec_mod, mld_protect_name => mld_dprecaply + ! use mld_prec_mod, mld_protect_name => mld_dprecaply implicit none @@ -209,7 +209,7 @@ subroutine mld_dprecaply1(prec,x,desc_data,info,trans) use psb_sparse_mod use mld_inner_mod, mld_protect_name => mld_dprecaply1 - use mld_prec_mod, mld_protect_name => mld_dprecaply1 +! use mld_prec_mod, mld_protect_name => mld_dprecaply1 implicit none