35 #include "qrm_common.h"
63 subroutine qrm_metis(n, iptr, jcn, cperm, iperm) bind(c, name='qrm_metis')
66 integer(c_int) :: iptr(*), jcn(*), cperm(*), iperm(*)
70 integer ::
i, idx, cnt, tmp, alen
72 integer,
allocatable :: iperm(:)
75 character(len=*),
parameter :: name=
'qrm_do_metis'
80 __qrm_check_ret(name,
'qrm_ata_graph',9999)
83 __qrm_check_ret(name,
'qrm_ata_graph/alloc',9999)
85 call
qrm_metis(graph%n, ata_graph%iptr, ata_graph%jcn, cperm, iperm)
89 __qrm_check_ret(name,
'dealloc/destroy',9999)
96 if(err_act .eq. qrm_abort_)
then
This module contains all the error management routines and data.
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_spmat_destroy(qrm_spmat, all)
This subroutine destroyes a qrm_spmat instance.
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_do_metis(graph, cperm)
Please refer to:
This type defines the data structure used to store a matrix.
void qrm_metis(int *n, int *iptr, int *jcn, int *cperm, int *iperm)
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_ata_graph(g_csc, ata_graph)
This subroutine computes the fill reducing ordering using METIS.
subroutine qrm_err_act_save(err_act)
Saves a copy of the qrm_err_act variable.