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

Improved error messaging for sample programs. Fix PDE2D

Browse Source
This commit is contained in:
Salvatore Filippone
2025-12-17 14:14:19 +01:00
parent 31a44360a4
commit 7aef98fc09
22 changed files with 62 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/fileread/amg_cf_sample.f90
+3 -1
View File
@@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
write(psb_err_unit,*) 'Usage: amg_cf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if
!
! input files
samples/advanced/fileread/amg_df_sample.f90
+3 -1
View File
@@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
write(psb_err_unit,*) 'Usage: amg_df_sample ctrl-file '
call psb_abort(ctxt)
stop
end if
!
! input files
samples/advanced/fileread/amg_sf_sample.f90
+3 -1
View File
@@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
write(psb_err_unit,*) 'Usage: amg_sf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if
!
! input files
samples/advanced/fileread/amg_zf_sample.f90
+3 -1
View File
@@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
write(psb_err_unit,*) 'Usage: amg_zf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if
!
! input files