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)
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_save(err_act)
Saves a copy of the qrm_err_act variable.
This module contains all the error management routines and data.
This module contains the definition of the basic sparse matrix type and of the associated methods...
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.
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...
This type defines the data structure used to store a matrix.
subroutine dqrm_compute_graph(qrm_mat, graph)
Computes the adjacency graph of a matrix.
This module implements the memory handling routines. Pretty mucch allocations and deallocations...
subroutine qrm_err_act_restore(err_act)
Restores the value of the qrm_err_act variable.
subroutine dqrm_spmat_convert(in_mat, out_mat, fmt, values)
This subroutine converts an input matrix into a different storage format. Optionally the values may b...