24小时热门版块排行榜    

Znn3bq.jpeg
查看: 184  |  回复: 2
当前主题已经存档。

jxhgwy

金虫 (正式写手)

[交流] [求助]子程序

借助于别人的库文件中的子程序,结果其子程序中的虚参为数组,我的主程序中的参数为动态分配的指针,这样实参和虚参之间类型不匹配,那么我应该如何调用该子程序呢?
谢谢!
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maomao1210

金虫 (正式写手)

★ ★ ★ ★
jxhgwy(金币+2,VIP+0):谢谢建议,可能金币给的不多,抱歉。当初定的少了,现在不好分配 3-21 11:19
sunxiao(金币+2,VIP+0):谢谢参与,欢迎常来仿真编程版 4-30 11:35
不知道你具体是什么情况,呵呵,最好是能贴出来一部分。
这个例子是假设你的主程序的数组是动态二维数组,子程序也是二维数组。
我的建议:
通过构造一个一维数组,传递数据。
2楼2009-03-20 15:21:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jxhgwy

金虫 (正式写手)

★ ★
sunxiao(金币+2,VIP+0):鼓励一下 4-30 11:35
引用回帖:
Originally posted by maomao1210 at 2009-3-20 15:21:
不知道你具体是什么情况,呵呵,最好是能贴出来一部分。
这个例子是假设你的主程序的数组是动态二维数组,子程序也是二维数组。
我的建议:
通过构造一个一维数组,传递数据。

谢谢!这也是一个方法。我曾考虑,但似乎不太好操作。

具体情况是:
我想要将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
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jxhgwy 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 评审有感 +3 popular289 2026-05-18 6/300 2026-05-18 15:17 by gy116024
[基金申请] 今年审到国自然15份,谈谈感受 +16 国自然国社科中 2026-05-17 16/800 2026-05-18 14:58 by gy116024
[硕博家园] 我在等一个没有答案的答案 +3 Love_MH 2026-05-17 3/150 2026-05-18 02:22 by 竹林孤影
[文学芳草园] 半夜喝咖啡 +3 myrtle 2026-05-15 5/250 2026-05-18 01:03 by 小沈2018
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 ky2p12rrjj 2026-05-15 4/200 2026-05-17 19:47 by Equinoxhua
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 xx7gd5zq4e 2026-05-15 6/300 2026-05-17 19:36 by Equinoxhua
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 cjf4bx70cj 2026-05-14 7/350 2026-05-17 18:49 by Equinoxhua
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 5/250 2026-05-17 18:39 by Equinoxhua
[考博] 26/27博士推荐 +3 1木头人13949 2026-05-13 3/150 2026-05-17 09:41 by YuY66
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 v9tggjlwd0 2026-05-15 4/200 2026-05-17 08:06 by 11n4dfd8yn
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 7hlccowb3h 2026-05-15 4/200 2026-05-17 07:46 by 11n4dfd8yn
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +5 cjf4bx70cj 2026-05-14 7/350 2026-05-17 06:55 by 11n4dfd8yn
[考博] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:57 by ue3ir18jc3
[公派出国] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 x0mp7owy2b 2026-05-15 4/200 2026-05-17 00:35 by ue3ir18jc3
[有机交流] 求助2,4-二氯-5-嘧啶甲醛的合成方法 20+3 光吃不拉 2026-05-14 6/300 2026-05-16 19:46 by Equinoxhua
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 l7k6xnh0yc 2026-05-14 6/300 2026-05-16 11:29 by h3oerqvkv9
[教师之家] 教学课件你会给同学吗 +8 硕士研究生吗 2026-05-13 8/400 2026-05-14 22:23 by 常规沥青
[考博] 26应届毕业生考博求助 +3 wo一定上岸 2026-05-13 3/150 2026-05-14 21:47 by 明海天涯
[考博] 材料类只有一篇综述能申博么 +4 乐逍遥谷 2026-05-13 4/200 2026-05-14 12:05 by zhyzzh
[论文投稿] 求助大佬sci投稿哪个好中 +3 江沅188 2026-05-12 4/200 2026-05-13 14:35 by 江沅188
信息提示
请填处理意见