fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-23 22:31:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improved error messaging for sample programs.

Browse Source
This commit is contained in:
Salvatore Filippone
2025-12-17 14:10:13 +01:00
parent b954ae6090
commit f3fcd3a41a
5 changed files with 34 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/getp.f90
+6 -2
View File
@@ -67,7 +67,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: psb_d_fileread ctrl-file '
call psb_abort(ctxt)
stop
end if
! Read Input Parameters
read(inp_unit,*) ip
@@ -187,7 +189,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=inp_unit
write(psb_err_unit,*) 'Usage: psb_s_fileread ctrl-file '
call psb_abort(ctxt)
stop
end if
! Read Input Parameters
read(inp_unit,*) ip