版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

575406210

银虫 (初入文坛)

应助: 0 (幼儿园)
金币: 907.2
帖子: 43
在线: 3.6小时
虫号: 3655819
注册: 2015-01-21
性别: GG
专业: 自然语言理解与机器翻译

[求助] 【求助】数组维数实参和虚参不一致的问题已有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（），不区分一维二维导致错误。
我该怎么改呢？

回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2015-06-11 10:49:49

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

浔荆

木虫 (正式写手)

应助: 33 (小学生)
金币: 3241
散金: 82
红花: 15
帖子: 437
在线: 453.7小时
虫号: 2432022
注册: 2013-04-23
专业: 原子和分子物理

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与，应助指数 +1
575406210: 金币+5, ★★★很有帮助, 谢谢你了，说的挺好，我试试管不管用 2015-06-11 17:18:33

你这个子程序要实现什么功能？
如果只需要将数组的某一维数据来实现该功能，那就参数传递时只传递该维度的数据，如

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

如果二维数组的其他数据也在子程序中涉及到了，那就说明你的子程序写错了，没有考虑二维情形。

赞一下(1人)