Fortran Coder

查看: 50|回复: 3

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

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
31 元
贡献
10 点
发表于 2019-1-4 15:38:06 | 显示全部楼层 |阅读模式
请问哪位大神知道如何在simple fortran里面调用C 语言写的UMFPACK 函数库,在suitesparse package
回复

使用道具 举报

3

帖子

1

主题

0

精华

新人

F 币
31 元
贡献
10 点
 楼主| 发表于 2019-1-4 15:47:53 | 显示全部楼层
[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

3

帖子

1

主题

0

精华

新人

F 币
31 元
贡献
10 点
 楼主| 发表于 2019-1-4 15:51:58 | 显示全部楼层
我用这个来调用UMFPACK C library, 但是总是显示Fatal Error: Can't open module file 。。。
ps: 我是学经济的,刚上手Fortran不久,能大体看懂code, 并不懂makefile之类的,求大神拯救。。

473

帖子

4

主题

0

精华

大宗师

F 币
3190 元
贡献
1889 点

水王勋章元老勋章热心勋章

发表于 2019-1-8 21:13:36 | 显示全部楼层
daniel1010 发表于 2019-1-4 15:51
我用这个来调用UMFPACK C library, 但是总是显示Fatal Error: Can't open module file 。。。
ps: 我是学 ...

果断放弃Fortran,为啥不用R或者Python?
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2019-1-18 12:05

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表