From 07ec7a355d4b2b686ed16b7416cae0b38fcc9085 Mon Sep 17 00:00:00 2001 From: Salvatore Filippone Date: Tue, 31 Aug 2010 14:25:47 +0000 Subject: [PATCH] psblas3: base/serial/f03/psb_c_coo_impl.f03 base/serial/f03/psb_d_coo_impl.f03 base/serial/f03/psb_s_coo_impl.f03 base/serial/f03/psb_z_coo_impl.f03 Added return code from inner_fix_coo. --- base/serial/f03/psb_c_coo_impl.f03 | 3 ++- base/serial/f03/psb_d_coo_impl.f03 | 3 ++- base/serial/f03/psb_s_coo_impl.f03 | 3 ++- base/serial/f03/psb_z_coo_impl.f03 | 3 ++- 4 files changed, 8 insertions(+), 4 deletions(-) diff --git a/base/serial/f03/psb_c_coo_impl.f03 b/base/serial/f03/psb_c_coo_impl.f03 index 44cbd297..86862fa9 100644 --- a/base/serial/f03/psb_c_coo_impl.f03 +++ b/base/serial/f03/psb_c_coo_impl.f03 @@ -3090,7 +3090,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ - + info =-7 end select @@ -3174,6 +3174,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ + info =-7 end select if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name),': end second loop' diff --git a/base/serial/f03/psb_d_coo_impl.f03 b/base/serial/f03/psb_d_coo_impl.f03 index 6e219a5b..c04ae6ab 100644 --- a/base/serial/f03/psb_d_coo_impl.f03 +++ b/base/serial/f03/psb_d_coo_impl.f03 @@ -3136,7 +3136,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ - + info =-7 end select @@ -3220,6 +3220,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ + info =-7 end select if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name),': end second loop' diff --git a/base/serial/f03/psb_s_coo_impl.f03 b/base/serial/f03/psb_s_coo_impl.f03 index 6dbc1150..7e716d1d 100644 --- a/base/serial/f03/psb_s_coo_impl.f03 +++ b/base/serial/f03/psb_s_coo_impl.f03 @@ -2889,7 +2889,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ - + info =-7 end select @@ -2973,6 +2973,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ + info =-7 end select if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name),': end second loop' diff --git a/base/serial/f03/psb_z_coo_impl.f03 b/base/serial/f03/psb_z_coo_impl.f03 index 38d7edbb..121be449 100644 --- a/base/serial/f03/psb_z_coo_impl.f03 +++ b/base/serial/f03/psb_z_coo_impl.f03 @@ -3089,7 +3089,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ - + info =-7 end select @@ -3173,6 +3173,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir) enddo case default write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ + info =-7 end select if (debug_level >= psb_debug_serial_)& & write(debug_unit,*) trim(name),': end second loop'