24小时热门版块排行榜

>论坛更新日志 (3288)
>虫友互识 (770)
>休闲灌水 (115)
>导师招生 (114)
>博后之家 (95)
>基金申请 (94)
>论文投稿 (89)
>文献求助 (86)
>教师之家 (48)
>硕博家园 (44)
>考博 (27)
>药学 (26)
>招聘信息布告栏 (15)
>考研 (12)
>海外博后 (11)
>医学 (11)

返回列表

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（），不区分一维二维导致错误。
我该怎么改呢？

回复此楼