simple fortran里面调用C 语言写的UMFPACK 函数库 - Fortran Coder

[Fortran] 纯文本查看 复制代码
 ======================================================================

! 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