Fortran:forpy 嵌入Python

2024-05-26 20:20
文章标签 python 嵌入 fortran forpy

本文主要是介绍Fortran:forpy 嵌入Python,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

Fortran嵌入Python

利用forpy库,可以在Fortran程序内嵌入Python.

program test_forpyuse forpy_modimplicit noneinteger::ierrierr=forpy_initialize()!!---------------!!list!!---------------blocktype(list)::my_listierr=list_create(my_list)ierr=my_list%append(19)ierr=my_list%append("Hello world")ierr=my_list%append(3.14d0)ierr=print_py(my_list)call my_list%destroyend block!!----------------!!dict!!----------------blocktype(dict)::direal::a_valueierr=dict_create(di)ierr=di%setitem("temperature",273.0)ierr=di%setitem("pressure",1013.0)ierr=di%getitem(a_value,"pressure")write(*,*) 'pressure= ',a_valueierr=di%getitem(a_value,'does not exist')if(ierr/=0) thenif(exception_matches(KeyError)) thenwrite(*,*) 'Key not found....'call err_clearelsewrite(*,*) 'Unknown error.....'stopendifendif!default valueierr=di%get(a_value,"volumne",1.0)write(*,*) 'volume= ',a_valuecall di%destroy()endblock!!----------------!!tuple!!----------------blocktype(tuple)::tutype(object)::iteminteger::tu_leninteger::iinteger::int_valuecharacter(len=:),allocatable::str_valueierr=tuple_create(tu,4)ierr=tu%setitem(0,17)ierr=tu%setitem(1,"hello")ierr=tu%setitem(2,23)ierr=tu%setitem(3,"world")ierr=tu%len(tu_len)do i=0,tu_len-1 !!python 0-basedierr=tu%getitem(item,i)if(is_int(item))thenierr=cast(int_value,item)write(*,*) int_valueelse if(is_str(item)) thenierr=cast(str_value,item)write(*,*) str_valueendifend docall tu%destroy()endblock!!----------------------!!import python module !!----------------------blocktype(module_py)::datetimetype(object)::date,today,today_strcharacter(len=:),allocatable::today_fortranierr=import_py(datetime,"datetime")ierr=datetime%getattribute(date,'date')ierr=call_py(today,date,"today")ierr=call_py(today_str,today,'isoformat')ierr=cast(today_fortran,today_str)write(*,*) 'Today is ',today_fortran call datetime%destroy()call date%destroycall today%destroycall today_str%destroyendblock!!---------------------------------!!import my python module !!---------------------------------blocktype(list)::pathstype(tuple)::argstype(dict)::kwargs,xxxtype(module_py)::mymoduletype(object)::return_valuetype(ndarray)::cellsreal,dimension(2,3)::matrixcharacter(len=:),allocatable::return_stringierr=get_sys_path(paths)ierr=paths%append(".")ierr=import_py(mymodule,'mymodule')ierr=tuple_create(args,3)ierr=args%setitem(0,12)ierr=args%setitem(1,'Hi')ierr=args%setitem(2,.true.)ierr=dict_create(kwargs)ierr=kwargs%setitem("message","Hello world")matrix=1111ierr=ndarray_create_nocopy(cells,matrix) !!ndarray(shallow copy)!ierr=kwargs%setitem("cells",cells) !!成员是ndarrayierr=dict_create(xxx)ierr=xxx%setitem("cells",cells)ierr=kwargs%setitem("xxx",xxx) !!成员是dictierr=call_py(return_value,mymodule,"print_args",args,kwargs)ierr=cast(return_string,return_value)write(*,*) return_string matrix(1,1)=99999 !!python端也被改变ierr=call_py(return_value,mymodule,"print_args",args,kwargs)ierr=cast(return_string,return_value)write(*,*) return_string call args%destroycall kwargs%destroycall mymodule%destroycall return_value%destroycall cells%destroycall xxx%destroycall paths%destroyendblock!!-----------------!!array!!-----------------!!deep-copy : creating a numpy array from a Fortran array blockreal,dimension(:,:),allocatable::matrixtype(ndarray)::arrinteger::i,jallocate(matrix(2,3))do i=1,size(matrix,1)do j=1,size(matrix,2)matrix(i,j)=real(i)*jend doenddoierr=ndarray_create(arr,matrix)ierr=print_py(arr)call arr%destroyend block!!creating a numpy wrapper for a Fortran arrayblock!Fortran: asynchronousinteger::i,jreal,asynchronous::matrix(2,3)type(ndarray)::arrforall(i=1:2,j=1:3) matrix(i,j)=real(i)*jierr=ndarray_create_nocopy(arr,matrix)ierr=print_py(arr)matrix(1,1)=1234.0ierr=print_py(arr)call arr%destroyend block!how to return a ndarray from a subroutineblockuse iso_fortran_env,only:real64type(ndarray)::arrinteger::i,jreal(kind=real64),dimension(:,:),pointer::matrixierr=ndarray_create_empty(arr,[2,3],dtype='float64')ierr=arr%get_data(matrix)forall(i=1:2,j=1:3) matrix(i,j)=real(i,kind=real64)*jierr=print_py(arr)call arr%destroyend block!!----------------------------------call forpy_finalizeend program test_forpy!!====================================
!!编译:
!!   gfortran -c forpy_mod.F90
!!   gfortran test_forpy.F90 forpy_mod.o `python3-config --ldflags --embed`
!!
!!

mymodule.py

def print_args(*args,**kwargs):print("Arguments: ",args)print("keyword arguments: ",kwargs)return "Return from mymodule.print_args"

资料

文档,API

这篇关于Fortran:forpy 嵌入Python的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/1005493

相关文章

Python FastAPI+Celery+RabbitMQ实现分布式图片水印处理系统

《PythonFastAPI+Celery+RabbitMQ实现分布式图片水印处理系统》这篇文章主要为大家详细介绍了PythonFastAPI如何结合Celery以及RabbitMQ实现简单的分布式... 实现思路FastAPI 服务器Celery 任务队列RabbitMQ 作为消息代理定时任务处理完整

Python Websockets库的使用指南

《PythonWebsockets库的使用指南》pythonwebsockets库是一个用于创建WebSocket服务器和客户端的Python库,它提供了一种简单的方式来实现实时通信,支持异步和同步... 目录一、WebSocket 简介二、python 的 websockets 库安装三、完整代码示例1.

揭秘Python Socket网络编程的7种硬核用法

《揭秘PythonSocket网络编程的7种硬核用法》Socket不仅能做聊天室,还能干一大堆硬核操作,这篇文章就带大家看看Python网络编程的7种超实用玩法,感兴趣的小伙伴可以跟随小编一起... 目录1.端口扫描器:探测开放端口2.简易 HTTP 服务器:10 秒搭个网页3.局域网游戏:多人联机对战4.

使用Python实现快速搭建本地HTTP服务器

《使用Python实现快速搭建本地HTTP服务器》:本文主要介绍如何使用Python快速搭建本地HTTP服务器,轻松实现一键HTTP文件共享,同时结合二维码技术,让访问更简单,感兴趣的小伙伴可以了... 目录1. 概述2. 快速搭建 HTTP 文件共享服务2.1 核心思路2.2 代码实现2.3 代码解读3.

Python使用自带的base64库进行base64编码和解码

《Python使用自带的base64库进行base64编码和解码》在Python中,处理数据的编码和解码是数据传输和存储中非常普遍的需求,其中,Base64是一种常用的编码方案,本文我将详细介绍如何使... 目录引言使用python的base64库进行编码和解码编码函数解码函数Base64编码的应用场景注意

Python基于wxPython和FFmpeg开发一个视频标签工具

《Python基于wxPython和FFmpeg开发一个视频标签工具》在当今数字媒体时代,视频内容的管理和标记变得越来越重要,无论是研究人员需要对实验视频进行时间点标记,还是个人用户希望对家庭视频进行... 目录引言1. 应用概述2. 技术栈分析2.1 核心库和模块2.2 wxpython作为GUI选择的优

Python如何使用__slots__实现节省内存和性能优化

《Python如何使用__slots__实现节省内存和性能优化》你有想过,一个小小的__slots__能让你的Python类内存消耗直接减半吗,没错,今天咱们要聊的就是这个让人眼前一亮的技巧,感兴趣的... 目录背景:内存吃得满满的类__slots__:你的内存管理小助手举个大概的例子:看看效果如何?1.

Python+PyQt5实现多屏幕协同播放功能

《Python+PyQt5实现多屏幕协同播放功能》在现代会议展示、数字广告、展览展示等场景中,多屏幕协同播放已成为刚需,下面我们就来看看如何利用Python和PyQt5开发一套功能强大的跨屏播控系统吧... 目录一、项目概述:突破传统播放限制二、核心技术解析2.1 多屏管理机制2.2 播放引擎设计2.3 专

Python中随机休眠技术原理与应用详解

《Python中随机休眠技术原理与应用详解》在编程中,让程序暂停执行特定时间是常见需求,当需要引入不确定性时,随机休眠就成为关键技巧,下面我们就来看看Python中随机休眠技术的具体实现与应用吧... 目录引言一、实现原理与基础方法1.1 核心函数解析1.2 基础实现模板1.3 整数版实现二、典型应用场景2

Python实现无痛修改第三方库源码的方法详解

《Python实现无痛修改第三方库源码的方法详解》很多时候,我们下载的第三方库是不会有需求不满足的情况,但也有极少的情况,第三方库没有兼顾到需求,本文将介绍几个修改源码的操作,大家可以根据需求进行选择... 目录需求不符合模拟示例 1. 修改源文件2. 继承修改3. 猴子补丁4. 追踪局部变量需求不符合很