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

登录注册

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

24小时热门版块排行榜

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

返回列表

575406210

银虫 (初入文坛)

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

[求助] 【求助】求帮忙看一下程序，卡在这里好几天了，一直想不通已有1人参与

错误是Error 37    error #6633: The type of the actual argument differs from the type of the dummy argument. [S] C:\Users\zyl\Desktop\console\Console6\Console6\Source1.f90 5424
这是第一个子程序：
SUBROUTINE BMATCH (SM,LAM,A1,A3,S,T,E,V,W,NN,LR,FLOAD,FAMP)
   IMPLICIT REAL*8 (A-H,O-Z)
   COMPLEX*16 SM(1),LAM(1),A1(1),A3(1),S(1),T(1),E(NN)
   COMPLEX*16 V(NN,NN),W(NN,NN),C,CC,D,DD
   COMPLEX*16 FLOAD(1),FAMP(1)
   COMMON /LRCHK/ NCOMF
   N1=NN-1
   N2=NN-2
   N3=NN-3
   F=.5D0
   DO 30 J=1,NN
   C=E(J)*(0.0D0,1.0D0)
   DO 30 I=1,NN
30 W(I,J)=V(I,J)*C
   DO 60 J=1,NN
   S(1)=A1(1)*W(1,J)+A3(1)*W(3,J)
   S(2)=A1(2)*W(2,J)+A3(2)*W(4,J)
   S(N1)=A1(N1)*W(N1,J)+A3(N3)*W(N3,J)
   S(NN)=A1(NN)*W(NN,J)+A3(N2)*W(N2,J)
   DO 50 I=3,N2
50 S(I)=A3(I-2)*W(I-2,J)+A1(I)*W(I,J)+A3(I)*W(I+2,J)
   DO 60 I=1,NN
60 W(I,J)=S(I)
   CALL INVERT  (V,NN,NN,S,T,DET)    错误定位在这一行，说S的类型不对。
   DO 80 I=1,NN
   DO 70 J=I,NN
   S(J)=(0.0D0,0.0D0)
   DO 70 K=1,NN
70 S(J)=S(J)+W(I,K)*V(K,J)
   DO 80 J=I,NN
80 W(I,J)=S(J)
   CC=(0.0D0,0.0D0)
   DD=(0.0D0,0.0D0)
   M=0
   DO 100 I=2,N2,2
   K=I-1
   M=M+1
   C=F*LAM(M)
   D=F*SM(M)
   W(K,I)=W(K,I)+C-CC
   W(K,K+3)=W(K,K+3)-C
   W(I,I+1)=W(I,I+1)-D
   CC=C
  100 DD=D
   W(N1,NN)=W(N1,NN)-CC+F*LAM(M+1)
   DO 105 I=1,NN
   DO 105 J=I,NN
  105 W(J,I)=W(I,J)
   L=0
   DO 150 J=1,NN
   DO 150 I=1,J
   L=L+1
   V(L,1)=W(I,J)
  150 W(L,1)=V(L,1)
   M=0
   K=-2
   DO 200 I=1,NN,2
   K=K+4
   L=M+1
   M=L+K
   N=L+1
   DO 180 J=N,M,2
   IF (NCOMF.EQ.0) GO TO 181
   W(J,1)=-W(J,1)
   GO TO 180
181 CONTINUE
   V(J,1)=-V(J,1)
180 CONTINUE
  200 CONTINUE
   READ (24) (FAMP(LK),LK=1,NN)
   IF (LR-2) 300,400,300
  300 WRITE (23) M, (W(J,1),J=1,M)
   CALL FVECT(NN,FLOAD,W,FAMP)
   IF (LR .EQ. 3) GO TO 400
   RETURN
  400 WRITE (23) M, (V(J,1),J=1,M)
   CALL FVECT(NN,FLOAD,V,FAMP)
   RETURN
   END

以下是错误定位的那一行调用的子程序：
SUBROUTINE INVERT (A,NN,N,M,C,DET)
   IMPLICIT REAL*8 (A-H,O-Z)
   DIMENSION M(1)
   COMPLEX*16 A(N,1),C(1),D,TEMP,DE
   DE=(1.0D0,0.0D0)
   IF (NN-1)  300,350,100
  100 DO 110  I = 1,NN
  110 M(I) = -I
   DO 200  I = 1,NN
   X=0.0D0
   DO 130  L = 1,NN
   IF (M(L).GT.0)  GO TO 130
   DO 120  K = 1,NN
   IF (M(K).GT.0) GO TO 120
   D=A(L,K)
   Y=DABS(DREAL(D))+DABS(DIMAG(D))
   IF (X.GT.Y) GO TO 120
   LD = L
   KD = K
   X=Y
  120 CONTINUE
  130 CONTINUE
   D=A(LD,KD)
   DE=DE*D
   L = -M(LD)
   M(LD) = M(KD)
   M(KD) = L
   DO 140  J = 1,NN
   C(J) = A(LD,J)
   A(LD,J) = A(KD,J)
  140 A(KD,J) = C(J)
   DO 150  K = 1,NN
  150 A(K,KD) = A(K,KD)/D
   DO 170  J = 1,NN
   IF (J.EQ.KD)  GO TO 170
   DO 160  K = 1,NN
  160 A(K,J) = A(K,J) - C(J)*A(K,KD)
  170 CONTINUE
   C(KD) =(-1.0D0,0.0D0)
   DO 180  K = 1,NN
  180 A(KD,K) = -C(K)/D
  200 CONTINUE
   DO 240  I = 1,NN
   L = 0
  220 L = L + 1
   IF (M(L).NE.I)  GO TO 220
   M(L) = M(I)
   M(I) = I
   DO 240  K = 1,NN
   TEMP = A(K,L)
   A(K,L) = A(K,I)
  240 A(K,I) = TEMP
   DET=CDABS(DE)
  300 RETURN
  350 A(1,1) = 1.0D0/A(1,1)
   DET=CDABS(A(1,1))
   GO TO 300
   END
错误中提到的同一个变量  在两个程序中被声明为两种格式，怎么办？

回复此楼

» 猜你喜欢

312求调剂已经有5人回复
0703调剂，一志愿天津大学319分已经有9人回复
085600材料与化工301分求调剂院校已经有10人回复
专硕0854初试考材科基，求调剂已经有3人回复
求调剂已经有8人回复
085600，320分求调剂已经有17人回复
297分083200求助已经有3人回复
求调剂已经有7人回复
一志愿北交大材料工程总分358求调剂已经有5人回复
一志愿南京航空航天大学材料与化工329分求调剂已经有7人回复

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

Matlab用fsolve求解非线性方程，卡了三四天了跪求帮助！已经有35人回复

1楼 2015-06-04 10:24:20

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

575406210

银虫 (初入文坛)

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

是不是给的金币太少了？有好人么？帮我简单看一下下啊

赞一下

回复此楼

2楼2015-06-04 14:58:53

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

575406210

银虫 (初入文坛)

3楼2015-06-05 11:16:48

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

jiangxingge

金虫 (正式写手)

应助: 15 (小学生)
金币: 2498.6
红花: 5
帖子: 322
在线: 55.4小时
虫号: 3205681
注册: 2014-05-14
性别: GG
专业: 石油、天然气地质学

【答案】应助回帖

感谢参与，应助指数 +1

明显地，在主调程序中，s 被定义为 Complex*16 S(1)，所以是复数数组；
而在子程序中对应的 M 被定义为 dimension M(1),此处根据 FORTRAN规定 M开头的缺省类型是整形，所以是整形数组。
两者类型明显不匹配！

赞一下

回复此楼

4楼2015-06-05 14:42:22

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

jiangxingge

金虫 (正式写手)

应助: 15 (小学生)
金币: 2498.6
红花: 5
帖子: 322
在线: 55.4小时
虫号: 3205681
注册: 2014-05-14
性别: GG
专业: 石油、天然气地质学

【答案】应助回帖

★ ★ ★ ★ ★
575406210: 金币+5, ★★★很有帮助 2015-06-07 13:55:59

修改建议：
1，所有的变量都写出类型声明，不要用缺省。比如 DET 是实型。
2，数组维数也是有问题的，比如 V(nn,nn) 和 A（N,1) 也是对不上的，它们虽然类型一致。
3，根据子程序中 M的用法，编程时是当做整形在使用的。而 S 上面传下来就是复数。这有严重的矛盾，并不是简单的修改变量类型问题。所以你搞清楚那个 S 到底是啥？那个 INVERT 子程序是不是抄来的，不好直接使用？

赞一下(1人)

回复此楼

5楼2015-06-05 14:54:49

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

575406210

银虫 (初入文坛)

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

引用回帖:

5楼: Originally posted by jiangxingge at 2015-06-05 14:54:49
修改建议：
1，所有的变量都写出类型声明，不要用缺省。比如 DET 是实型。
2，数组维数也是有问题的，比如 V(nn,nn) 和 A（N,1) 也是对不上的，它们虽然类型一致。
3，根据子程序中 M的用法，编程时是当做整 ...

S和M的错误，你说得很对。我修改后错误跳过了，然后错误就变成你建议的第二条了。。。。。子程序不是抄的，都是我老师给的，是fortran77编写的老程序，让我调试，但是我一直没调通，发愁啊，老师出现类似的实参虚参不一致的问题。

赞一下(1人)

回复此楼

6楼2015-06-07 13:59:02

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

seanbsd

木虫 (小有名气)

应助: 8 (幼儿园)
金币: 3652.1
红花: 1
帖子: 207
在线: 45.6小时
虫号: 3744514
注册: 2015-03-17
专业: 电气科学与工程

实在不行的话，加入那个忽略一切隐含说明，自己定义所有的变量的类型。这样就好找到变量是否有类型错误了。
IMPLICIT none

赞一下

回复此楼

» 本帖已获得的红花（最新10朵）

575406210

7楼2015-06-09 11:38:30

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

575406210

银虫 (初入文坛)

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

送红花一朵

引用回帖:

7楼: Originally posted by seanbsd at 2015-06-09 11:38:30
实在不行的话，加入那个忽略一切隐含说明，自己定义所有的变量的类型。这样就好找到变量是否有类型错误了。
IMPLICIT none

嗯，你说的也对，但是源代码洋洋洒洒6000多行，改起来有点费事啊。源代码还是很老的程序，写得特别乱，改起来太费脑子了

赞一下

回复此楼

8楼2015-06-10 09:44:37

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

HH学习

铁虫 (初入文坛)

应助: 0 (幼儿园)
金币: 36.5
帖子: 3
在线: 2.3小时
虫号: 4208206
注册: 2015-11-09
专业: 岩土与基础工程

引用回帖:

6楼: Originally posted by 575406210 at 2015-06-07 13:59:02
S和M的错误，你说得很对。我修改后错误跳过了，然后错误就变成你建议的第二条了。。。。。子程序不是抄的，都是我老师给的，是fortran77编写的老程序，让我调试，但是我一直没调通，发愁啊，老师出现类似的实参 ...

请问你问题解决了么？我这也是这个情况，是老程序，我在VS原来的版本上调试是可以的。求助

赞一下

回复此楼

9楼2015-11-09 22:02:23

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

相关版块跳转我要订阅楼主 575406210 的主题更新

返回列表

最具人气热帖推荐 [查看全部]		作者	回/看	最后发表

[考研] 复试调剂 +13	呼呼？~+123456 2026-04-05	13/650	2026-04-05 22:07 by 醉翁wl
[考研] 生物与医药273求调剂 +5	荔题南墙 2026-04-05	5/250	2026-04-05 22:04 by imissbao
[考研] 270分求调剂 +4	maxjxbsk 2026-04-01	4/200	2026-04-05 17:04 by yulian1987
[考研] 考研生物学考A区211，初试322，科目生化和生物综合，求调剂 +6	。。。54 2026-04-03	6/300	2026-04-05 14:54 by JOKER0401
[考研] 数一英一274机械调剂 +5	星陨流霞 2026-04-04	6/300	2026-04-05 11:38 by arrow8852
[考研] 288环境专硕,求调材料方向 +13	lllllos 2026-04-04	14/700	2026-04-04 23:34 by lqwchd
[考研] 292分，材料与化工，申请调剂 +22	程晴之 2026-04-01	26/1300	2026-04-04 22:03 by hemengdong
[考研] 求调剂，一志愿南京航空航天大学，080500材料科学与工程学硕 +10	@taotao 2026-04-03	10/500	2026-04-04 09:01 by T可可西里T
[考研] 一志愿双非085502，267分，过四级求调剂 +3	再忙也要吃饭啊 2026-04-03	3/150	2026-04-04 05:03 by gswylq
[考研] 材料专硕322分 +13	哈哈哈吼吼吼哈 2026-04-01	13/650	2026-04-03 16:08 by 哦哦123
[考研] 334求调剂 +9	Trying] 2026-03-31	9/450	2026-04-03 15:18 by 琢珥丶
[基金申请] esi高被引论文是不是能对中标有所加分和帮助呢 +5	redcom 2026-04-01	6/300	2026-04-03 15:15 by Howard28
[考研] 312求调剂 +6	小小墨123 2026-04-02	7/350	2026-04-03 07:32 by jsw79
[考博] 申博求助 +3	Reee1Llll 2026-04-01	3/150	2026-04-02 22:29 by 这是一个无聊的�
[考研] 321求调剂一志愿浙江工业大学生物医药 +5	嘿嘿HC 2026-04-01	6/300	2026-04-02 15:23 by sophie2180
[考研] 348求调剂 +6	吴彦祖24k 2026-04-02	6/300	2026-04-02 14:07 by 给你你注意休息
[考研] 266求调剂 +4	学员97LZgn 2026-04-02	4/200	2026-04-02 09:52 by yulian1987
[考研] 材料与化工（0856）304求B区调剂 +8	邱gl 2026-03-30	16/800	2026-04-01 17:58 by 邱gl
[考研] 求0861交通运输专硕or材料专硕调剂 +4	勒布朗@ 2026-03-31	4/200	2026-04-01 09:54 by 一只好果子?
[考研] 085601英二数二求调剂总分325 +4	余航航 2026-03-31	4/200	2026-03-31 17:38 by 唐沐儿

24小时热门版块排行榜

[求助] 【求助】求帮忙看一下程序，卡在这里好几天了，一直想不通 已有1人参与

» 猜你喜欢

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

【答案】应助回帖

【答案】应助回帖

» 本帖已获得的红花（最新10朵）

[求助] 【求助】求帮忙看一下程序，卡在这里好几天了，一直想不通已有1人参与