fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improved error messaging for sample programs. Fix PDE2D

Browse Source
gpucinterfaces
Salvatore Filippone 5 months ago
parent 31a44360a4
commit 7aef98fc09
22 changed files with 62 additions and 22 deletions
Show Stats Download Patch File Download Diff File

4
samples/advanced/fileread/amg_cf_sample.f90
Unescape Escape View File

@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_cf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! !
! input files ! input files

4
samples/advanced/fileread/amg_df_sample.f90
Unescape Escape View File

@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_df_sample ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! !
! input files ! input files

4
samples/advanced/fileread/amg_sf_sample.f90
Unescape Escape View File

@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_sf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! !
! input files ! input files

4
samples/advanced/fileread/amg_zf_sample.f90
Unescape Escape View File

@ -659,7 +659,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_zf_sample ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! !
! input files ! input files

2
samples/advanced/pdegen/amg_d_genpde_mod.F90
Unescape Escape View File

@ -736,7 +736,7 @@ contains
npdims = 1 npdims = 1
#else #else
npp = np npp = np
call mpi_dims_create(npp,3,npdims,minfo) call mpi_dims_create(npp,2,npdims,minfo)
#endif #endif
npx = npdims(1) npx = npdims(1)
npy = npdims(2) npy = npdims(2)

4
samples/advanced/pdegen/amg_d_pde2d.F90
Unescape Escape View File

@ -634,7 +634,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_d_pde2d ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input data ! read input data
! !

4
samples/advanced/pdegen/amg_d_pde3d.F90
Unescape Escape View File

@ -638,7 +638,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_d_pde3d ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input data ! read input data
! !

2
samples/advanced/pdegen/amg_s_genpde_mod.F90
Unescape Escape View File

@ -736,7 +736,7 @@ contains
npdims = 1 npdims = 1
#else #else
npp = np npp = np
call mpi_dims_create(npp,3,npdims,minfo) call mpi_dims_create(npp,2,npdims,minfo)
#endif #endif
npx = npdims(1) npx = npdims(1)
npy = npdims(2) npy = npdims(2)

4
samples/advanced/pdegen/amg_s_pde2d.F90
Unescape Escape View File

@ -634,7 +634,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_s_pde2d ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input data ! read input data
! !

4
samples/advanced/pdegen/amg_s_pde3d.F90
Unescape Escape View File

@ -638,7 +638,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_s_pde3d ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input data ! read input data
! !

4
samples/simple/fileread/amg_cexample_1lev.f90
Unescape Escape View File

@ -328,7 +328,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_cexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_cexample_ml.f90
Unescape Escape View File

@ -378,7 +378,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_cexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_dexample_1lev.f90
Unescape Escape View File

@ -328,7 +328,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_dexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_dexample_ml.f90
Unescape Escape View File

@ -378,7 +378,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_dexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_sexample_1lev.f90
Unescape Escape View File

@ -328,7 +328,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_sexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_sexample_ml.f90
Unescape Escape View File

@ -378,7 +378,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_sexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_zexample_1lev.f90
Unescape Escape View File

@ -328,7 +328,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_zexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/fileread/amg_zexample_ml.f90
Unescape Escape View File

@ -378,7 +378,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_zexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(mtrx,inp_unit) call read_data(mtrx,inp_unit)

4
samples/simple/pdegen/amg_dexample_1lev.f90
Unescape Escape View File

@ -257,7 +257,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_dexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters

4
samples/simple/pdegen/amg_dexample_ml.f90
Unescape Escape View File

@ -320,7 +320,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_dexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(choice,inp_unit) call read_data(choice,inp_unit)

4
samples/simple/pdegen/amg_sexample_1lev.f90
Unescape Escape View File

@ -257,7 +257,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_sexample_1lev ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters

4
samples/simple/pdegen/amg_sexample_ml.f90
Unescape Escape View File

@ -320,7 +320,9 @@ contains
write(psb_err_unit,*) 'Opened file ',trim(filename),' for input' write(psb_err_unit,*) 'Opened file ',trim(filename),' for input'
end if end if
else else
inp_unit=psb_inp_unit write(psb_err_unit,*) 'Usage: amg_sexample_ml ctrl-file '
call psb_abort(ctxt)
stop
end if end if
! read input parameters ! read input parameters
call read_data(choice,inp_unit) call read_data(choice,inp_unit)

Write Preview
Loading…
Cancel
Save