35 #include "qrm_common.h"
58 integer ::
i, j, pnt, savepnt, dups, ii
59 integer,
allocatable :: dupsmap(:)
62 character(len=*),
parameter :: name=
'qrm_compute_graph'
73 __qrm_check_ret(name,
'alloc/convert',9999)
81 do ii=graph%jptr(j), graph%jptr(j+1)-1
83 if(dupsmap(
i) .eq. j)
then
93 graph%jptr(j) = savepnt
96 graph%jptr(graph%n+1)=savepnt
98 graph%icntl = qrm_mat%icntl
99 graph%rcntl = qrm_mat%rcntl
101 __qrm_prnt_dbg(
'("Number of duplicates in the matrix: ",i10)')dups
105 __qrm_check_ret(name,
'qrm_pdealloc',9999)
112 if(err_act .eq. qrm_abort_)
then
This module contains all the error management routines and data.
subroutine _qrm_spmat_convert(in_mat, out_mat, fmt, values)
This subroutine converts an input matrix into a different storage format. Optionally the values may b...
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.
This module contains the generic interfaces for all the analysis routines.
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.
subroutine qrm_err_check()
This subroutine checks the errors stack. If something is found all the entries in the stack are poppe...
Generic interface for the qrm_aalloc_i, qrm_aalloc_2i, qrm_aalloc_s, qrm_aalloc_2s, qrm_aalloc_3s, qrm_aalloc_d, qrm_aalloc_2d, qrm_aalloc_3d, qrm_aalloc_c, qrm_aalloc_2c, qrm_aalloc_3c, qrm_aalloc_z, qrm_aalloc_2z, qrm_aalloc_3z, routines.
subroutine _qrm_compute_graph(qrm_mat, graph)
Computes the adjacency graph of a matrix.
This type defines the data structure used to store a matrix.
This module contains the definition of the basic sparse matrix type and of the associated methods...
This module implements the memory handling routines. Pretty mucch allocations and deallocations...
subroutine qrm_err_act_save(err_act)
Saves a copy of the qrm_err_act variable.