From 959a184c241d9ffe01b964a0e9ebf38374b9c210 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Wed, 21 May 2008 11:58:22 +0000 Subject: [PATCH] *** empty log message *** --- base/modules/psb_spmat_type.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/base/modules/psb_spmat_type.f90 b/base/modules/psb_spmat_type.f90 index f4d475f1..0b20731e 100644 --- a/base/modules/psb_spmat_type.f90 +++ b/base/modules/psb_spmat_type.f90 @@ -339,6 +339,7 @@ contains Subroutine psb_dspreinit(a,info,clear) + use psb_string_mod Implicit None !....Parameters... @@ -366,7 +367,7 @@ contains if (clear_) a%aspk(:) = dzero if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then - if(a%fida(1:3) == 'JAD') then + if(psb_toupper(a%fida(1:3)) == 'JAD') then a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0 else a%ia2(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0 @@ -890,7 +891,7 @@ contains end subroutine psb_nullify_zsp Subroutine psb_zspreinit(a,info,clear) - + use psb_string_mod Implicit None !....Parameters... @@ -917,7 +918,7 @@ contains if (clear_) a%aspk(:) = zzero if (psb_sp_getifld(psb_upd_,a,info)==psb_upd_perm_) then - if(a%fida(1:3) == 'JAD') then + if(psb_toupper(a%fida(1:3)) == 'JAD') then a%ia1(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0 else a%ia2(a%infoa(psb_upd_pnt_)+psb_nnz_) = 0