fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +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/simple/fileread/amg_cexample_1lev.f90
+3 -1
View File
@@ -328,7 +328,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_cexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_cexample_ml.f90
+3 -1
View File
@@ -378,7 +378,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_cexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_dexample_1lev.f90
+3 -1
View File
@@ -328,7 +328,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_dexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_dexample_ml.f90
+3 -1
View File
@@ -378,7 +378,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_dexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_sexample_1lev.f90
+3 -1
View File
@@ -328,7 +328,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_sexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_sexample_ml.f90
+3 -1
View File
@@ -378,7 +378,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_sexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_zexample_1lev.f90
+3 -1
View File
@@ -328,7 +328,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_zexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)
samples/simple/fileread/amg_zexample_ml.f90
+3 -1
View File
@@ -378,7 +378,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_zexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input parameters
call read_data(mtrx,inp_unit)