-
Notifications
You must be signed in to change notification settings - Fork 14
Open
Description
I am using psblas3-development on the AMU mesocentre, with ifort 2018. I obtained segmetation fault errors on executing my application (either in debug mode or optimized). The error appeared in different parts of the code whether or not I was doing different stuffs in my application (such as, for example, saving my unknown vector). I realized the fault was caused by the routine psb_spasb (commenting this routine the code used to run without problem).
The problem was solved by modifying the file: base/modules/serial/psb_d_mat_mod.F90
replacing the following line (~line 248)
class(psb_d_base_sparse_mat), allocatable, target, &
& save, private :: psb_d_base_mat_default
with
class(psb_d_base_sparse_mat), allocatable, target, &
& save :: psb_d_base_mat_default
and also the file: base/serial/impl/psb_d_mat_impl.F90
replacing the following line (~line 1265)
allocate(altmp, mold=psb_get_mat_default(a),stat=info)
with
if (.not.allocated(psb_d_base_mat_default)) then
allocate(psb_d_csr_sparse_mat :: psb_d_base_mat_default)
end if
allocate(altmp, mold=psb_d_base_mat_default,stat=info)
Metadata
Metadata
Assignees
Labels
No labels