24小时热门版块排行榜    

Znn3bq.jpeg
查看: 891  |  回复: 1

575406210

银虫 (初入文坛)

[求助] 【求助】数组维数 实参和虚参不一致的问题 已有1人参与

Error        2         error #6633: The type of the actual argument differs from the type of the dummy argument.   [A]        C:\Users\zyl\Desktop\LASS3.FOR        96       
Error        3         error #6633: The type of the actual argument differs from the type of the dummy argument.   [A]        C:\Users\zyl\Desktop\LASS3.FOR        96       
Error        4         error #6633: The type of the actual argument differs from the type of the dummy argument.   [A]        C:\Users\zyl\Desktop\LASS3.FOR        96       
Error        5         error #6633: The type of the actual argument differs from the type of the dummy argument.   [A]        C:\Users\zyl\Desktop\LASS3.FOR        96       
Error        6         error #6633: The type of the actual argument differs from the type of the dummy argument.   [A]        C:\Users\zyl\Desktop\LASS3.FOR        96       
       
CALL REED (A(N1),A(N2),A(N3),A(N4),A(N5),A(KK1),A(KK2),A(KK3),    错误定位到这一行
     *  NLAYER,NMAT,NUMNP,A(K1),NCYCL,NDI)                              


      SUBROUTINE REED (DEPTH,NEL,MATYP,EMATL,BACC,JPLTM,JPLTSS,         
     *  JSETS,NLAYER,NMAT,NUMNP,ACC,NCYCL,NDI)                        
      DIMENSION DEPTH(NLAYER),NEL(NLAYER),MATYP(NLAYER),EMATL(35,NMAT),
     *  BACC(NCYCL,NDI),ACC(2,1),TITLE(18),JPLTM(1),JPLTSS(1),JSETS(1)
很明显,错误是因为有的数组是二维有的是一维,但是call reed  里面全用实参A(),不区分一维二维导致错误。
我该怎么改呢?
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

浔荆

木虫 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
575406210: 金币+5, ★★★很有帮助, 谢谢你了,说的挺好,我试试管不管用 2015-06-11 17:18:33
你这个子程序要实现什么功能?
如果只需要将数组的某一维数据来实现该功能,那就参数传递时只传递该维度的数据,如

call REED(A(:,1)......)

如果二维数组的其他数据也在子程序中涉及到了,那就说明你的子程序写错了,没有考虑二维情形。
2楼2015-06-11 12:53:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 575406210 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 上海大学实验技术岗位非升即走 +8 嘻嘻哈哈乐呵呵 2026-05-15 8/400 2026-05-18 11:53 by ning312
[基金申请] 今年审到国自然15份,谈谈感受 +14 国自然国社科中 2026-05-17 14/700 2026-05-18 11:34 by wkrkairan
[硕博家园] 考博自荐 +5 科研狗111 2026-05-13 6/300 2026-05-18 11:22 by 糊糊涂涂好
[基金申请] 青C资助名额大幅增加! +12 西葫芦炒鸡蛋 2026-05-13 16/800 2026-05-18 10:02 by Equinoxhua
[基金申请] 重磅!青年科学基金项目(C类)资助增幅预计超过50% +7 水和泥不是水泥 2026-05-13 10/500 2026-05-18 07:50 by 水和泥不是水泥
[硕博家园] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 7/350 2026-05-17 19:42 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
[考博] 2026博士还有哪些学校有名额 +6 小王求读研 2026-05-15 7/350 2026-05-17 16:54 by 知音湖畔
[硕博家园] 售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,科目齐全,可+急 +6 l7k6xnh0yc 2026-05-14 6/300 2026-05-17 07:16 by 11n4dfd8yn
[找工作] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:37 by ue3ir18jc3
[博后之家] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +4 k37jurhrau 2026-05-16 4/200 2026-05-17 01:35 by ue3ir18jc3
[考研] 售SCI一区T0P文章,我:8.O.5.5.1.O.5.4,科目齐全,可+急 +3 k37jurhrau 2026-05-16 3/150 2026-05-17 01:25 by ue3ir18jc3
[考博] 售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 ky2p12rrjj 2026-05-15 4/200 2026-05-17 00:50 by ue3ir18jc3
[基金申请] 请问大佬b0816评完了吗 +4 市民华南虎 2026-05-12 8/400 2026-05-16 19:54 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 常规沥青
信息提示
请填处理意见