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

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
samples/advanced/pdegen/amg_d_genpde_mod.F90
+1 -1
View File
@@ -736,7 +736,7 @@ contains
npdims = 1
#else
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
call mpi_dims_create(npp,2,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
samples/advanced/pdegen/amg_d_pde2d.F90
+3 -1
View File
@@ -634,7 +634,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_d_pde2d ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input data
!
samples/advanced/pdegen/amg_d_pde3d.F90
+3 -1
View File
@@ -638,7 +638,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_d_pde3d ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input data
!
samples/advanced/pdegen/amg_s_genpde_mod.F90
+1 -1
View File
@@ -736,7 +736,7 @@ contains
npdims = 1
#else
npp = np
call mpi_dims_create(npp,3,npdims,minfo)
call mpi_dims_create(npp,2,npdims,minfo)
#endif
npx = npdims(1)
npy = npdims(2)
samples/advanced/pdegen/amg_s_pde2d.F90
+3 -1
View File
@@ -634,7 +634,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_s_pde2d ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input data
!
samples/advanced/pdegen/amg_s_pde3d.F90
+3 -1
View File
@@ -638,7 +638,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_s_pde3d ctrl-file '
call psb_abort(ctxt)
stop
end if
! read input data
!
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)
samples/simple/pdegen/amg_dexample_1lev.f90
+3 -1
View File
@@ -257,7 +257,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
samples/simple/pdegen/amg_dexample_ml.f90
+3 -1
View File
@@ -320,7 +320,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(choice,inp_unit)
samples/simple/pdegen/amg_sexample_1lev.f90
+3 -1
View File
@@ -257,7 +257,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
samples/simple/pdegen/amg_sexample_ml.f90
+3 -1
View File
@@ -320,7 +320,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(choice,inp_unit)