两个fortranDLL怎样共享一个module中的数据?

问题描述

两个fortranDLL怎样共享一个module中的数据?

怎样实现DLL程序DD能够读取DLL程序AA中的module SEA中的变量(B)?
即怎样由一个程序读取另外一个程序module中的变量数值?
若不行,可有其他的方法?

源程序如下

AA.DLL

MODULE SEA
COMMON A,B,C
ENDMODULE

subroutine AA(X1,Y1,Z1)
USE SEA
REAL X1,Y1,Z1

! Expose subroutine AA to users of this DLL
!
!DEC$ ATTRIBUTES DLLEXPORT::AA

! Variables

! Body of AA
X1=1.2
Y1=2.4
Z1=X1+Y1
A=X1
B=Z1
end subroutine AA

DD.LL

! DD.f90
!
! FUNCTIONS/SUBROUTINES exported from DD.dll:
! DD - subroutine
!

MODULE SEA
COMMON A,B,C
ENDMODULE

解决方案

http://zhidao.baidu.com/link?url=GO6LD1YrsXHY5HqGIZo6BnttRqx1j2_FPSvhNODzZ1PDE5FfJyXhYgYGz4z8EmUtFfV0_Th8xgX1gn_MmvVeA_

解决方案二:

参考去dll共享数据段

时间: 2024-11-18 18:03:05

两个fortranDLL怎样共享一个module中的数据?的相关文章

ios6-如何将两个字符串归置到一个NSString中?

问题描述 如何将两个字符串归置到一个NSString中? 有NSMutableArray和一个NSString.要使用NSKeyedArchiver 将两个字符串归置到一个NSData中? 我用的版本是IOS6,XCode4.6 解决方案 // Convert it to NSdata NSData *messageData1 = [NSKeyedArchiver archivedDataWithRootObject:message]; NSData *messageData2 = [NSKey

resultmap-MyBatis怎么在程序不变的情况下,把两个字段映射到一个字段中。

问题描述 MyBatis怎么在程序不变的情况下,把两个字段映射到一个字段中. 比如有firstName和lastName两个字段,怎么将两个字段映射到一个字段中,在resultMap中怎么实现.或者还有什么其它方式,急急急 解决方案 说清楚是你的对象这边是两个字段还是数据库那里是两个字段. 解决方案二: select firstName||lastName as name from xxx; resultMap里用name跟实体里面的属性对应 解决方案三: 没必要,你可以加上一个get Stri

日历-两个js代码放在一个页面中冲突

问题描述 两个js代码放在一个页面中冲突 <script> $.fn.smartFloat = function() { var position = function(element) { var top = element.position().top, pos = element.css("position"); $(window).scroll(function() { var scrolls = $(this).scrollTop(); if (scrolls &

把一个数据库中的数据导入到另一个数据库中

问题描述 把一个数据库中的数据导入到另一个数据库中.我写java程序 要建立两个数据库连接.有木有好点的办法.数据交换解决不了我的问题,我这里有逻辑处理.急啊. 问题补充:Rainbow702 写道 解决方案 ① 与数据库A建立连接② 从A取得数据③ 处理这些数据④ 与数据库B建立连接⑤ 将处理后的数据插入B中解决方案二:如果数据库类型一样,字段一样,直接用数据库备份工具就可以了,方便快捷解决方案三:引用这样的话就要创建两个conn对象.会不会出现问题为什么会出问题呢?你把你获取 conn 的方

不确定数据多少的类-c++如何定义一个类中的数据不确定的类

问题描述 c++如何定义一个类中的数据不确定的类 比如 class s { public: s(int a) {b=a;} ... private: int b; int w[b]; ..... }; 我试着用new,但是还是不成功,那么有什么办法可以使类中的数据多少由外部确定呢? 这是我在重载[]成员访问运算符 和重载()函数调用运算符时遇到的问题. 解决方案 用静态数组的时候,必须同时指明数组的大小,比如int w[10],这是因为静态数组在栈上分配,在编译的时候就已经分配好内存了.楼主可以

《Oracle SQL疑难解析》——1.6 批量地从一个表中复制数据到另一个表

1.6 批量地从一个表中复制数据到另一个表 Oracle SQL疑难解析 1.6.1 要解决的问题 如何从一个表中一次性复制多行记录到另一个表. 1.6.2 解决方法 INSERT INTO... SELECT... 方法可以插入多行记录,关键是用SELECT语句选择多行记录时一定要用对选择条件.我们把以前的SELECT语句做一点修改,就可以选择多行记录了: 当然,前提是存在HR.CANDIDATES表,在做练习前,应确保你的HR.CANDIDATES表和例子中的表是一致的. 1.6.3 数据库

SQL存在一个表而不在另一个表中的数据

select a.id,a.oacode,a.custid,a.custname,a.xsz,a.salename,a.communicationtheme,a.communicationproperty,a.communicationtime,a.productmanager,'' creator,a.creator oaCreator,a.createdate,case when a.oastate='正常结束' then 3 else 0 end status from reception

文本聚类,怎么用Carrot2对一个文本中的数据进行聚类呢?

问题描述 如题,望指教! 解决方案 解决方案二:怎么没有人,自顶一下.

SQL同时更新两张表中关联数据方法

文章标题比较难理解,先让我举个例子,解释一下要实现的操作. 有两张表,t_statistics.t_add,如下 t_statistics数据 t_add数据 现在需要将 t_statistics 表 addtotal 字段的值减去 t_add 表 total 字段的值,条件是两者有相同的 id,所以正确的操作之后,t_add 记录无变化,t_statistics 记录如下 测试的数据库为Oracle(Oracle Database 10g Enterprise Edition Release