Fortran Coder

查看: 5287|回复: 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] 纯文本查看 复制代码
 ======================================================================
! 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 币
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, 2024-4-26 12:10

Powered by Tencent X3.4

© 2013-2024 Tencent

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