版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

575406210

銀蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 907.2
帖子: 43
在線: 3.6小時
蟲號: 3655819
注冊: 2015-01-21
性別: GG
專業(yè): 自然語言理解與機器翻譯

[求助] 【求助】求幫忙看一下程序，卡在這里好幾天了，一直想不通已有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

以下是錯誤定位的那一行調(diào)用的子程序：
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
錯誤中提到的同一個變量  在兩個程序中被聲明為兩種格式，怎么辦？

回復此樓

» 猜你喜歡

085405 考的11408求各位老師帶走已經(jīng)有3人回復
339求調(diào)劑已經(jīng)有6人回復
材料與化工272求調(diào)劑已經(jīng)有4人回復
085701環(huán)境工程，267求調(diào)劑已經(jīng)有15人回復
材料求調(diào)劑一志愿哈工大324 已經(jīng)有9人回復
292求調(diào)劑已經(jīng)有15人回復
304求調(diào)劑已經(jīng)有5人回復
材料與化工考研調(diào)劑已經(jīng)有17人回復
321求調(diào)劑已經(jīng)有5人回復
329求調(diào)劑已經(jīng)有5人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

Matlab用fsolve求解非線性方程，卡了三四天了跪求幫助！已經(jīng)有35人回復

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

575406210

銀蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 907.2
帖子: 43
在線: 3.6小時
蟲號: 3655819
注冊: 2015-01-21
性別: GG
專業(yè): 自然語言理解與機器翻譯

是不是給的金幣太少了？有好人么？幫我簡單看一下下啊

贊一下

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

575406210

銀蟲 (初入文壇)

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jiangxingge

金蟲 (正式寫手)

應助: 15 (小學生)
金幣: 2498.6
紅花: 5
帖子: 322
在線: 55.4小時
蟲號: 3205681
注冊: 2014-05-14
性別: GG
專業(yè): 石油、天然氣地質(zhì)學

【答案】應助回帖

感謝參與，應助指數(shù) +1

明顯地，在主調(diào)程序中，s 被定義為 Complex*16 S(1)，所以是復數(shù)數(shù)組；
而在子程序中對應的 M 被定義為 dimension M(1),此處根據(jù) FORTRAN規(guī)定 M開頭的缺省類型是整形，所以是整形數(shù)組。
兩者類型明顯不匹配！

贊一下

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jiangxingge

金蟲 (正式寫手)

應助: 15 (小學生)
金幣: 2498.6
紅花: 5
帖子: 322
在線: 55.4小時
蟲號: 3205681
注冊: 2014-05-14
性別: GG
專業(yè): 石油、天然氣地質(zhì)學

【答案】應助回帖

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

修改建議：
1，所有的變量都寫出類型聲明，不要用缺省。比如 DET 是實型。
2，數(shù)組維數(shù)也是有問題的，比如 V(nn,nn) 和 A（N,1) 也是對不上的，它們雖然類型一致。
3，根據(jù)子程序中 M的用法，編程時是當做整形在使用的。而 S 上面?zhèn)飨聛砭褪?復數(shù)。這有嚴重的矛盾，并不是簡單的修改變量類型問題。所以你搞清楚那個 S 到底是啥？那個 INVERT 子程序是不是抄來的，不好直接使用？

贊一下(1人)

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

575406210

銀蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 907.2
帖子: 43
在線: 3.6小時
蟲號: 3655819
注冊: 2015-01-21
性別: GG
專業(yè): 自然語言理解與機器翻譯

引用回帖:

5樓: Originally posted by jiangxingge at 2015-06-05 14:54:49
修改建議：
1，所有的變量都寫出類型聲明，不要用缺省。比如 DET 是實型。
2，數(shù)組維數(shù)也是有問題的，比如 V(nn,nn) 和 A（N,1) 也是對不上的，它們雖然類型一致。
3，根據(jù)子程序中 M的用法，編程時是當做整 ...

S和M的錯誤，你說得很對。我修改后錯誤跳過了，然后錯誤就變成你建議的第二條了。。。。。子程序不是抄的，都是我老師給的，是fortran77編寫的老程序，讓我調(diào)試，但是我一直沒調(diào)通，發(fā)愁啊，老師出現(xiàn)類似的實參虛參不一致的問題。

贊一下(1人)

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

seanbsd

木蟲 (小有名氣)

應助: 8 (幼兒園)
金幣: 3652.1
紅花: 1
帖子: 207
在線: 45.6小時
蟲號: 3744514
注冊: 2015-03-17
專業(yè): 電氣科學與工程

實在不行的話，加入那個忽略一切隱含說明，自己定義所有的變量的類型。這樣就好找到變量是否有類型錯誤了。
IMPLICIT none

贊一下

回復此樓

» 本帖已獲得的紅花（最新10朵）

575406210

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

575406210

銀蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 907.2
帖子: 43
在線: 3.6小時
蟲號: 3655819
注冊: 2015-01-21
性別: GG
專業(yè): 自然語言理解與機器翻譯

送紅花一朵

引用回帖:

7樓: Originally posted by seanbsd at 2015-06-09 11:38:30
實在不行的話，加入那個忽略一切隱含說明，自己定義所有的變量的類型。這樣就好找到變量是否有類型錯誤了。
IMPLICIT none

嗯，你說的也對，但是源代碼洋洋灑灑6000多行，改起來有點費事啊。源代碼還是很老的程序，寫得特別亂，改起來太費腦子了

贊一下

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

HH學習

鐵蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 36.5
帖子: 3
在線: 2.3小時
蟲號: 4208206
注冊: 2015-11-09
專業(yè): 巖土與基礎工程

引用回帖:

6樓: Originally posted by 575406210 at 2015-06-07 13:59:02
S和M的錯誤，你說得很對。我修改后錯誤跳過了，然后錯誤就變成你建議的第二條了。。。。。子程序不是抄的，都是我老師給的，是fortran77編寫的老程序，讓我調(diào)試，但是我一直沒調(diào)通，發(fā)愁啊，老師出現(xiàn)類似的實參 ...

請問你問題解決了么？我這也是這個情況，是老程序，我在VS原來的版本上調(diào)試是可以的。求助

贊一下

回復此樓

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

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉我要訂閱樓主 575406210 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 一志愿哈爾濱工業(yè)大學材料與化工方向336分 +6	辰沐5211314 2026-03-26	6/300	2026-03-28 03:31 by fmesaito
[考研] 285求調(diào)劑 +4	AZMK 2026-03-27	7/350	2026-03-27 20:59 by AZMK
[考研] 274求調(diào)劑 +17	顧九笙要謙虛 2026-03-24	23/1150	2026-03-27 15:16 by caszguilin
[考研] 324求調(diào)劑 +8	hanamiko 2026-03-26	10/500	2026-03-27 08:06 by hypershenger
[考研] 求調(diào)劑一志愿本科北科大化學 343 +6	13831862839 2026-03-24	7/350	2026-03-26 22:57 by 不吃魚的貓
[考研] 294分080500材料科學與工程求調(diào)劑 +4	柳溪邊 2026-03-26	4/200	2026-03-26 21:14 by XPU李慶
[考研] 機械學碩310分，數(shù)一英一，一志愿211本科雙非找調(diào)劑信息 +3	@357 2026-03-25	3/150	2026-03-26 16:34 by by.MENG
[考研] 081700 調(diào)劑 267分 +11	迷人的哈哈 2026-03-23	11/550	2026-03-26 15:41 by zzll406
[考研] 材料277求調(diào)劑 +5	min3 2026-03-24	5/250	2026-03-26 15:13 by zzll406
[考研] 打過很多競賽，085406控制工程300分，求調(diào)劑 +3	askeladz 2026-03-26	3/150	2026-03-26 09:08 by 給你你注意休息
[考研] 303求調(diào)劑 +6	藍山月 2026-03-25	6/300	2026-03-25 22:47 by 418490947
[考研] 07化學303求調(diào)劑 +5	睿08 2026-03-25	5/250	2026-03-25 22:46 by 418490947
[考研] 一志愿南航 335分 \| 0856材料化工 \| GPA 4.07 \| 有科研經(jīng)歷 +6	cccchenso 2026-03-23	6/300	2026-03-25 22:25 by 544594351
[考研] 0703化學調(diào)劑，求導師收 +7	天天好運來上岸?/a> 2026-03-24	7/350	2026-03-24 20:26 by peike
[考研] 材料考研調(diào)劑生 +3	黃粱一夢千年 2026-03-24	3/150	2026-03-24 17:00 by barlinike
[考研] 085404電子信息284分求調(diào)劑 +4	13659058978 2026-03-24	4/200	2026-03-24 12:15 by syl20081243
[考研] 一志愿山東大學藥學學碩求調(diào)劑 +3	開開心心沒煩惱 2026-03-23	4/200	2026-03-24 00:06 by 開開心心沒煩惱
[考研] 341求調(diào)劑(一志愿湖南大學070300) +5	番茄頭--- 2026-03-22	6/300	2026-03-23 23:45 by Txy@872106
[考研] 284求調(diào)劑 +3	yanzhixue111 2026-03-23	6/300	2026-03-23 22:58 by pswait
[考研] 一志愿東華大學化學070300，求調(diào)劑 +7	2117205181 2026-03-21	8/400	2026-03-22 22:55 by chixmc

24小時熱門版塊排行榜

[求助] 【求助】求幫忙看一下程序，卡在這里好幾天了，一直想不通 已有1人參與

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

» 本帖已獲得的紅花（最新10朵）

[求助] 【求助】求幫忙看一下程序，卡在這里好幾天了，一直想不通已有1人參與

» 本主題相關價值貼推薦，對您同樣有幫助: