Example of computing a fill-reducing ordering of a sparse matrix
Source: http://comp.lang.fortran.narkive.com/uFmDM7Bo/how-to-call-a-metis-subroutine-from-my-fortran-code
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer(kind=idx_t), | parameter | :: | n | = | 15 | |
| integer(kind=idx_t), | parameter | :: | m | = | 22 | |
| integer(kind=idx_t) | :: | xadj(n+1) | ||||
| integer(kind=idx_t) | :: | adjncy(2*m) | ||||
| integer(kind=idx_t) | :: | perm(n) | ||||
| integer(kind=idx_t) | :: | iperm(n) | ||||
| integer(kind=idx_t) | :: | options(0:METIS_NOPTIONS-1) | ||||
| integer(kind=idx_t) | :: | ios |