35 #include "qrm_common.h" 65 integer,
allocatable :: rows(:)
67 integer,
allocatable :: cols(:)
70 integer,
allocatable :: aiptr(:)
73 integer,
allocatable :: ajcn(:)
77 _qrm_data,
allocatable :: aval(:)
84 integer,
allocatable :: colmap(:)
90 integer,
allocatable :: rowmap(:)
94 integer,
allocatable :: stair(:)
97 _qrm_data,
allocatable :: front(:,:)
100 _qrm_data,
allocatable :: r(:)
103 _qrm_data,
allocatable :: h(:)
107 _qrm_data,
allocatable :: cb(:)
110 _qrm_data,
allocatable :: tau(:)
113 _qrm_data,
allocatable :: t(:,:)
116 _qrm_data,
allocatable :: b(:,:)
127 integer,
allocatable :: ptable(:)
156 integer(kind=8) :: rsize, hsize
159 integer(kind=omp_lock_kind) :: lock
178 integer(kind=omp_lock_kind) :: lock
181 logical :: ok=.false.
207 character(len=*),
parameter :: name=
'qrm_front_destroy' 228 call omp_destroy_lock(qrm_front%lock)
230 __qrm_check_ret(name,
'qrm_adelloc',9999)
262 character(len=*),
parameter :: name=
'qrm_fdata_destroy' 267 if(
allocated(qrm_fdata%front_list))
then 268 do i=1, qrm_fdata%nfronts
271 deallocate(qrm_fdata%front_list)
273 __qrm_check_ret(name,
'qrm_front_destroy',9999)
276 qrm_fdata%nfronts = 0
277 qrm_fdata%ok = .false.
Generic interface for the qrm_adealloc_i, qrm_adealloc_2i, qrm_adealloc_s, qrm_adealloc_2s, qrm_adealloc_3s, qrm_adealloc_d, qrm_adealloc_2d, qrm_adealloc_3d, qrm_adealloc_c, qrm_adealloc_2c, qrm_adealloc_3c, qrm_adealloc_z, qrm_adealloc_2z, qrm_adealloc_3z, routines.
subroutine _qrm_front_destroy(qrm_front)
Frees a qrm_front_type instance.
integer, parameter qrm_done_
integer, parameter qrm_ready_
subroutine _qrm_fdata_destroy(qrm_fdata)
Destroys a _qrm_fdata_type instance.
integer, parameter qrm_free_
subroutine qrm_err_act_save(err_act)
Saves a copy of the qrm_err_act variable.
integer, parameter qrm_factorized_
This module contains all the error management routines and data.
integer, parameter qrm_activable_
integer, parameter qrm_abort_
Possible actions to be performed upon detection of an error.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
The data structure meant to store all the results of the factorization phase.
integer, parameter qrm_busy_
This module contains the definition of all the data related to the factorization phase.
integer, parameter qrm_active_
This module implements the memory handling routines. Pretty mucch allocations and deallocations...
This type defines a data structure containing all the data related to a front.
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.