| 查看: 158 | 回复: 2 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
jxhgwy金虫 (正式写手)
|
[交流]
[求助]子程序
|
||
|
借助于别人的库文件中的子程序，结果其子程序中的虚参为数组，我的主程序中的参数为动态分配的指针，这样实参和虚参之间类型不匹配，那么我应该如何调用该子程序呢？ 谢谢！ |
回复此楼» 猜你喜欢
多组分精馏求助
已经有5人回复
-
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有7人回复
-
青椒八年已不青，大家都被折磨成啥样了？
已经有15人回复
-
免疫学博士有名额，速联系
已经有4人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有6人回复
-
国家级人才课题组招收2026年入学博士
已经有5人回复
-
Fe3O4@SiO2合成
已经有6人回复
-
青年基金C终止
已经有4人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
jxhgwy
金虫 (正式写手)
- 应助: 1 (幼儿园)
- 金币: 1704.9
- 散金: 3200
- 帖子: 702
- 在线: 183.9小时
- 虫号: 582939
- 注册: 2008-07-25
- 性别: GG
- 专业: 燃烧学
★ ★
sunxiao(金币+2,VIP+0):鼓励一下 4-30 11:35
sunxiao(金币+2,VIP+0):鼓励一下 4-30 11:35
|
谢谢！这也是一个方法。我曾考虑，但似乎不太好操作。 具体情况是： 我想要将3维场变量记录为TECPLOT文件，所以需要调用TECDAT111 INTEGER(4) FUNCTION tecdat111 & (N, & FieldData, & IsDouble) !MS$ATTRIBUTES STDCALL :: tecdat111 !MS$ATTRIBUTES REFERENCE :: N,FieldData,IsDouble INTEGER(4) N REAL(4) FieldData(*) INTEGER(4) IsDouble END FUNCTION tecdat111 我的场变量如温度、密度等都是用的ALLOCATABLE POINTER 来表示的，因为变量的维数大小无法事先确定。似乎动态数组又不能在主程序中出现。所以我的指针变量代入到上述函数的 FIELDDATA 时总是出现 ‘ Error: The type of the actual argument differs from the type of the dummy argument. ‘ 的错误。 不知道哪位做过TECPLOT 格式的二进制数据输出，请提供一些好的建议，谢谢！ |
3楼2009-03-21 11:16:21
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
2楼2009-03-20 15:21:21