fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 22:55:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Salvatore Filippone
2007-11-30 12:35:04 +00:00
parent b3b1a68781
commit 5553dc45f0
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/mld_dumf_bld.f90
+2 -1
View File
@@ -58,7 +58,8 @@ subroutine mld_dumf_bld(a,desc_a,p,info)
call psb_info(ictxt, me, np)
if (toupper(a%fida) /= 'CSC') then
write(0,*) 'Unimplemented input to mld_umf_BLD'
info=135
call psb_errpush(info,name,a_err=a%fida)
goto 9999
endif
mlprec/mld_zumf_bld.f90
+2 -2
View File
@@ -54,12 +54,12 @@ subroutine mld_zumf_bld(a,desc_a,p,info)
info=0
name='mld_zumf_bld'
call psb_erractionsave(err_act)
ictxt = psb_cd_get_context(desc_a)
call psb_info(ictxt, me, np)
if (toupper(a%fida) /= 'CSC') then
write(0,*) 'Unimplemented input to mld_umf_BLD'
info=135
call psb_errpush(info,name,a_err=a%fida)
goto 9999
endif