fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
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.
psblas3-type-indexed
Salvatore Filippone 15 years ago
parent 0ece9784e4
commit 07ec7a355d
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File

3
base/serial/f03/psb_c_coo_impl.f03
Unescape Escape View File

@ -3090,7 +3090,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
@ -3174,6 +3174,7 @@ subroutine psb_c_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
if (debug_level >= psb_debug_serial_)& if (debug_level >= psb_debug_serial_)&
& write(debug_unit,*) trim(name),': end second loop' & write(debug_unit,*) trim(name),': end second loop'

3
base/serial/f03/psb_d_coo_impl.f03
Unescape Escape View File

@ -3136,7 +3136,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
@ -3220,6 +3220,7 @@ subroutine psb_d_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
if (debug_level >= psb_debug_serial_)& if (debug_level >= psb_debug_serial_)&
& write(debug_unit,*) trim(name),': end second loop' & write(debug_unit,*) trim(name),': end second loop'

3
base/serial/f03/psb_s_coo_impl.f03
Unescape Escape View File

@ -2889,7 +2889,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
@ -2973,6 +2973,7 @@ subroutine psb_s_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
if (debug_level >= psb_debug_serial_)& if (debug_level >= psb_debug_serial_)&
& write(debug_unit,*) trim(name),': end second loop' & write(debug_unit,*) trim(name),': end second loop'

3
base/serial/f03/psb_z_coo_impl.f03
Unescape Escape View File

@ -3089,7 +3089,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
@ -3173,6 +3173,7 @@ subroutine psb_z_fix_coo_inner(nzin,dupl,ia,ja,val,nzout,info,idir)
enddo enddo
case default case default
write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_ write(psb_err_unit,*) 'Error in fix_coo: unsafe dupl',dupl_
info =-7
end select end select
if (debug_level >= psb_debug_serial_)& if (debug_level >= psb_debug_serial_)&
& write(debug_unit,*) trim(name),': end second loop' & write(debug_unit,*) trim(name),': end second loop'

Write Preview
Loading…
Cancel
Save