[混编] simple fortran里面调用C 语言写的UMFPACK 函数库

 ======================================================================
! UMFPACK Fortran interface via the mUMFPACK module
! ======================================================================
! Version 1.0 (Apr 23, 2014) for UMFPACK version 5.6.2
! ======================================================================
! Compile with any Fortran compiler with support of iso_c_binding module
! and link with the UMFPACK C library:
! e.g., gfortran umfpack.f90 my_code.f90 -lumfpack
! ======================================================================
module mUMFPACK 
! ======================================================================
use iso_c_binding
implicit none

! private size constants

integer,parameter,private :: i4=4, & ! size of default integer
                             i8=8, & ! size of long integer
                    ip=c_intptr_t, & ! size of pointers used in basic Fortran wrappers
                             r4=4, & ! size of single precision real/complex
                             r8=8    ! size of double precision real/complex

! default pointers to UMFPACK Symbolic and Numeric objects

type(c_ptr),private :: iSymbolic=c_null_ptr,iNumeric=c_null_ptr

! ======================================================================
! UMFPACK constants
! ======================================================================

! size of Info and Control arrays