fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +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/pdegen/psb_d_pde2d.F90
+7 -7
View File
@@ -877,7 +877,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
call pr_usage(psb_err_unit)
call psb_abort(ctxt)
stop
end if
read(inp_unit,*) ip
if (ip >= 3) then
@@ -1012,12 +1014,10 @@ contains
!
subroutine pr_usage(iout)
integer(psb_ipk_) :: iout
write(iout,*)'incorrect parameter(s) found'
write(iout,*)' usage: pde2d90 methd prec dim &
&[ipart istop itmax itrace]'
write(iout,*)' where:'
write(iout,*)' methd: cgstab cgs rgmres bicgstabl'
write(iout,*)' prec : bjac diag none'
write(iout,*)' usage: psb_d_pde2d cntrl-file '
write(iout,*)' where ctrl-file contains the following:'
write(iout,*)' methd BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR RICHARDSON'
write(iout,*)' prec bjac diag none'
write(iout,*)' dim number of points along each axis'
write(iout,*)' the size of the resulting linear '
write(iout,*)' system is dim**2'
test/pdegen/psb_d_pde3d.F90
+7 -7
View File
@@ -933,7 +933,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
call pr_usage(psb_err_unit)
call psb_abort(ctxt)
stop
end if
read(inp_unit,*) ip
if (ip >= 3) then
@@ -1070,12 +1072,10 @@ contains
!
subroutine pr_usage(iout)
integer(psb_ipk_) :: iout
write(iout,*)'incorrect parameter(s) found'
write(iout,*)' usage: pde3d90 methd prec dim &
&[istop itmax itrace]'
write(iout,*)' where:'
write(iout,*)' methd: cgstab cgs rgmres bicgstabl'
write(iout,*)' prec : bjac diag none'
write(iout,*)' usage: psb_d_pde3d cntrl-file '
write(iout,*)' where ctrl-file contains the following:'
write(iout,*)' methd BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR RICHARDSON'
write(iout,*)' prec bjac diag none'
write(iout,*)' dim number of points along each axis'
write(iout,*)' the size of the resulting linear '
write(iout,*)' system is dim**3'
test/pdegen/psb_s_pde2d.F90
+7 -7
View File
@@ -877,7 +877,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
call pr_usage(psb_err_unit)
call psb_abort(ctxt)
stop
end if
read(inp_unit,*) ip
if (ip >= 3) then
@@ -1012,12 +1014,10 @@ contains
!
subroutine pr_usage(iout)
integer(psb_ipk_) :: iout
write(iout,*)'incorrect parameter(s) found'
write(iout,*)' usage: pde2d90 methd prec dim &
&[ipart istop itmax itrace]'
write(iout,*)' where:'
write(iout,*)' methd: cgstab cgs rgmres bicgstabl'
write(iout,*)' prec : bjac diag none'
write(iout,*)' usage: psb_s_pde2d cntrl-file '
write(iout,*)' where ctrl-file contains the following:'
write(iout,*)' methd BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR RICHARDSON'
write(iout,*)' prec bjac diag none'
write(iout,*)' dim number of points along each axis'
write(iout,*)' the size of the resulting linear '
write(iout,*)' system is dim**2'
test/pdegen/psb_s_pde3d.F90
+7 -7
View File
@@ -933,7 +933,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if
else
inp_unit=psb_inp_unit
call pr_usage(psb_err_unit)
call psb_abort(ctxt)
stop
end if
read(inp_unit,*) ip
if (ip >= 3) then
@@ -1070,12 +1072,10 @@ contains
!
subroutine pr_usage(iout)
integer(psb_ipk_) :: iout
write(iout,*)'incorrect parameter(s) found'
write(iout,*)' usage: pde3d90 methd prec dim &
&[istop itmax itrace]'
write(iout,*)' where:'
write(iout,*)' methd: cgstab cgs rgmres bicgstabl'
write(iout,*)' prec : bjac diag none'
write(iout,*)' usage: psb_s_pde3d cntrl-file '
write(iout,*)' where ctrl-file contains the following:'
write(iout,*)' methd BICGSTAB CGS BICG BICGSTABL RGMRES FCG CGR RICHARDSON'
write(iout,*)' prec bjac diag none'
write(iout,*)' dim number of points along each axis'
write(iout,*)' the size of the resulting linear '
write(iout,*)' system is dim**3'