ana_blk_m.F

Go to the documentation of this file.

C
C  This file is part of MUMPS 5.5.1, released
C  on Tue Jul 12 13:17:24 UTC 2022
C
C
C  Copyright 1991-2022 CERFACS, CNRS, ENS Lyon, INP Toulouse, Inria,
C  Mumps Technologies, University of Bordeaux.
C
C  This version of MUMPS is provided to you free of charge. It is
C  released under the CeCILL-C license 
C  (see doc/CeCILL-C_V1-en.txt, doc/CeCILL-C_V1-fr.txt, and
C  https://cecill.info/licences/Licence_CeCILL-C_V1-en.html)
C
      MODULE mumps_ana_blk_m
      TYPE col_lmatrix_t
       INTEGER :: nbincol   
       INTEGER, POINTER :: irn(:) => null()  
      END TYPE col_lmatrix_t
      TYPE lmatrix_t
       INTEGER    :: nbcol
       INTEGER(8) :: nzl
       TYPE(col_lmatrix_t), POINTER :: col(:) => null()
      END TYPE lmatrix_t
      TYPE compact_graph_t
       INTEGER(8) :: nzg, sizeadjallocated
       INTEGER    :: ng
       INTEGER(8), POINTER :: ipe(:) => null()  
       INTEGER, POINTER :: adj(:) => null()  
      END TYPE compact_graph_t
      END MODULE mumps_ana_blk_m