From 3c46ea898c9c1c1ead8e02a860a8bb3da70564c5 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Sat, 5 Jun 2010 20:29:26 +0000 Subject: [PATCH] psblas3: prec/psb_cilu_fct.f90 prec/psb_dilu_fct.f90 prec/psb_silu_fct.f90 prec/psb_zilu_fct.f90 Workaround for ICE in gfortran. Have to figure out if the original code was valid or not. --- prec/psb_cilu_fct.f90 | 4 ++-- prec/psb_dilu_fct.f90 | 4 ++-- prec/psb_silu_fct.f90 | 4 ++-- prec/psb_zilu_fct.f90 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/prec/psb_cilu_fct.f90 b/prec/psb_cilu_fct.f90 index c119397f..6c64222d 100644 --- a/prec/psb_cilu_fct.f90 +++ b/prec/psb_cilu_fct.f90 @@ -174,7 +174,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call a%a%csget(i,i+irb-1,trw,info) + call aa%csget(i,i+irb-1,trw,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='a%csget' @@ -312,7 +312,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call b%a%csget(i-ma,i-ma+irb-1,trw,info) + call aa%csget(i-ma,i-ma+irb-1,trw,info) nz = trw%get_nzeros() if(info /= psb_success_) then info=psb_err_from_subroutine_ diff --git a/prec/psb_dilu_fct.f90 b/prec/psb_dilu_fct.f90 index b922c0ee..080ccf0f 100644 --- a/prec/psb_dilu_fct.f90 +++ b/prec/psb_dilu_fct.f90 @@ -177,7 +177,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call a%a%csget(i,i+irb-1,trw,info) + call aa%csget(i,i+irb-1,trw,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='a%csget' @@ -315,7 +315,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call b%a%csget(i-ma,i-ma+irb-1,trw,info) + call aa%csget(i-ma,i-ma+irb-1,trw,info) nz = trw%get_nzeros() if(info /= psb_success_) then info=psb_err_from_subroutine_ diff --git a/prec/psb_silu_fct.f90 b/prec/psb_silu_fct.f90 index c2bfcc5b..ae266c44 100644 --- a/prec/psb_silu_fct.f90 +++ b/prec/psb_silu_fct.f90 @@ -176,7 +176,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call a%a%csget(i,i+irb-1,trw,info) + call aa%csget(i,i+irb-1,trw,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='a%csget' @@ -314,7 +314,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call b%a%csget(i-ma,i-ma+irb-1,trw,info) + call aa%csget(i-ma,i-ma+irb-1,trw,info) nz = trw%get_nzeros() if(info /= psb_success_) then info=psb_err_from_subroutine_ diff --git a/prec/psb_zilu_fct.f90 b/prec/psb_zilu_fct.f90 index 8fa0b7a6..db918183 100644 --- a/prec/psb_zilu_fct.f90 +++ b/prec/psb_zilu_fct.f90 @@ -174,7 +174,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call a%a%csget(i,i+irb-1,trw,info) + call aa%csget(i,i+irb-1,trw,info) if(info /= psb_success_) then info=psb_err_from_subroutine_ ch_err='a%csget' @@ -312,7 +312,7 @@ contains if ((mod(i,nrb) == 1).or.(nrb == 1)) then irb = min(ma-i+1,nrb) - call b%a%csget(i-ma,i-ma+irb-1,trw,info) + call aa%csget(i-ma,i-ma+irb-1,trw,info) nz = trw%get_nzeros() if(info /= psb_success_) then info=psb_err_from_subroutine_