Fortran Coder

查看: 5979|回复: 3
打印 上一主题 下一主题

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

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
33 元
贡献
11 点
跳转到指定楼层
楼主
发表于 2019-1-4 15:38:06 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问哪位大神知道如何在simple fortran里面调用C 语言写的UMFPACK 函数库,在suitesparse package
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

3

帖子

1

主题

0

精华

新人

F 币
33 元
贡献
11 点
沙发
 楼主| 发表于 2019-1-4 15:47:53 | 只看该作者
[Fortran] 纯文本查看 复制代码
01======================================================================
02! UMFPACK Fortran interface via the mUMFPACK module
03! ======================================================================
04! Version 1.0 (Apr 23, 2014) for UMFPACK version 5.6.2
05! ======================================================================
06! Compile with any Fortran compiler with support of iso_c_binding module
07! and link with the UMFPACK C library:
08! e.g., gfortran umfpack.f90 my_code.f90 -lumfpack
09! ======================================================================
10module mUMFPACK
11! ======================================================================
12use iso_c_binding
13implicit none
14 
15! private size constants
16 
17integer,parameter,private :: i4=4, & ! size of default integer
18                             i8=8, & ! size of long integer
19                    ip=c_intptr_t, & ! size of pointers used in basic Fortran wrappers
20                             r4=4, & ! size of single precision real/complex
21                             r8=8    ! size of double precision real/complex
22 
23! default pointers to UMFPACK Symbolic and Numeric objects
24 
25type(c_ptr),private :: iSymbolic=c_null_ptr,iNumeric=c_null_ptr
26 
27! ======================================================================
28! UMFPACK constants
29! ======================================================================
30 
31! size of Info and Control arrays

3

帖子

1

主题

0

精华

新人

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

490

帖子

4

主题

0

精华

大宗师

F 币
3298 元
贡献
1948 点

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

地板
发表于 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?
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2025-5-1 23:39

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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