24小时热门版块排行榜

>论坛更新日志 (2680)
>虫友互识 (543)
>文献求助 (120)
>导师招生 (118)
>休闲灌水 (117)
>考博 (111)
>找工作 (64)
>教师之家 (63)
>博后之家 (62)
>硕博家园 (60)
>论文投稿 (58)
>论文道贺祈福 (56)
>基金申请 (52)
>考研 (46)
>公派出国 (43)
>招聘信息布告栏 (29)

返回列表

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

回复此楼