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'
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

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'
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

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'
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

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'
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

2
samples/advanced/pdegen/amg_d_genpde_mod.F90
Unescape Escape 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)

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'
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
!

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'
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
!

2
samples/advanced/pdegen/amg_s_genpde_mod.F90
Unescape Escape 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)

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'
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
!

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'
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
!

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'
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)

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'
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)

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'
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)

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'
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)

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'
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)

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'
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)

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'
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)

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'
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)

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'
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

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'
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)

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'
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

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'
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)

Write Preview
Loading…
Cancel
Save