 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 2252 | 回復(fù): 13 | ||
575406210銀蟲(chóng) (初入文壇)
|
[求助]
使用全局變量做實(shí)參，導(dǎo)致實(shí)參與虛參類型不一致
|
|
|
我把我遇到的問(wèn)題簡(jiǎn)化一下，大概意思就是（XX是全局變量） SUBROUTINE FIELD（MTYPE,GMAX,G,GN,XL,XLN,DEP,EST,PO,DENS,H,S,INV,& & BB,KOUT,KPOINT,RR,TSTIF,STRN,XX,NF,LAYER,NHORZ,NVERT,INPT,DW,& & DT,NOUT,KDISP,TOTFR,NOPT,RATIO,DAMP,KSTRN,NAVAIL,GTYPE,DTYPE,& & KST,ND,U2GMAX,FGG,FLMD,IUSE） IMPLICIT REAL*8 (A-H,O-Z) DIMENSION XX(*) COMPLEX*16 FLMD COMPLEX*16 RR,BB,TSTIF,STRN COMPLEX*16 OLSTRN COMPLEX*16 GSTAR COMPLEX*16 ALOAD COMPLEX*16 P1,P10 COMPLEX*16 FGG REAL*8 NHORZ,NVERT REAL*8 KOUT,KBASE REAL*4 TIM1,TIM2 ...... IF (INPTB .NE. NF) CALL MOTION (XX(K01),XX(K02),XX(K03),XX(K04),XX(K04),XX(K05),& (調(diào)試后顯示這一行有兩個(gè)XX實(shí)參與虛參類型不一致) & XX(K06),XX(K07),XX(K08),XX(K09),XX(K10),XX(K11),XX(K12),& & XX(K13),XX(K14),XX(K15),DEP,DEP,KBASE,NBASE,DAMP,BB,INV,& (調(diào)試后顯示這一行有一個(gè)XX實(shí)參與虛參類型不一致) & S,MCUT,U2GMAX,NDP,KST,NBBA,KKEY,KKP,NMBR) SUBROUTINE MOTION (TIME1,DD,W2,ACC,ACCC,ACCMAX,TT,FR,RD,PRV,PAA, . SA,SV,T,FOUAM,AAAC,XORD,YORD,KEYSPC,KOUTP,DAMP,BB,INV,S, . NCUT,U2GMAX,NDP,KST,NBLKCM,KEY,NOUT,NMBR) IMPLICIT REAL*8 (A-H,O-Z) DIMENSION IDEN(:,  ALLOCATABLE IDEN REAL*8 KEYSPC REAL*4 TIM1,TIM2 COMPLEX*16 ACCC,AAAC,BB,DD （調(diào)試后出現(xiàn)的錯(cuò)誤是ACCC,BB,DD這三個(gè)變量引起的，這里聲明的是復(fù)型，但是被調(diào)用為實(shí)參時(shí)使用的是全局變量，而全局變量并沒(méi)有聲明類型） 這種問(wèn)題我該怎么解決呢？請(qǐng)大家?guī)蛶臀摇Ｖx謝了。 |
回復(fù)此樓» 猜你喜歡
277材料科學(xué)與工程080500求調(diào)劑
已經(jīng)有7人回復(fù)
-
317求調(diào)劑
已經(jīng)有18人回復(fù)
-
293求調(diào)劑
已經(jīng)有5人回復(fù)
-
280分求調(diào)劑 一志愿085802
已經(jīng)有7人回復(fù)
-
0854電子信息求調(diào)劑
已經(jīng)有3人回復(fù)
-
263求調(diào)劑
已經(jīng)有4人回復(fù)
-
石河子大學(xué)（211、雙一流）碩博研究生長(zhǎng)期招生公告
已經(jīng)有3人回復(fù)
-
一志愿西安交通大學(xué)材料工程專業(yè) 282分求調(diào)劑
已經(jīng)有13人回復(fù)
-
北科281學(xué)碩材料求調(diào)劑
已經(jīng)有6人回復(fù)
-
328求調(diào)劑，英語(yǔ)六級(jí)551，有科研經(jīng)歷
已經(jīng)有10人回復(fù)
575406210
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時(shí)
- 蟲(chóng)號(hào): 3655819
- 注冊(cè): 2015-01-21
- 性別: GG
- 專業(yè): 自然語(yǔ)言理解與機(jī)器翻譯
2樓2015-09-04 09:01:02
|
那就得弄清楚到底需要什么變量了，不改會(huì)出錯(cuò)，所以還是得改呀 發(fā)自小木蟲(chóng)Android客戶端 |
» 本帖已獲得的紅花（最新10朵）
57540621012樓2015-09-07 22:26:40
575406210
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時(shí)
- 蟲(chóng)號(hào): 3655819
- 注冊(cè): 2015-01-21
- 性別: GG
- 專業(yè): 自然語(yǔ)言理解與機(jī)器翻譯
3樓2015-09-05 10:14:27
|
沒(méi)有看懂你的問(wèn)題。實(shí)參虛參不是應(yīng)該聲明和調(diào)用時(shí)保持一致嗎？另外還要注意那個(gè)implicit 發(fā)自小木蟲(chóng)Android客戶端 |
4樓2015-09-05 13:28:51
575406210
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時(shí)
- 蟲(chóng)號(hào): 3655819
- 注冊(cè): 2015-01-21
- 性別: GG
- 專業(yè): 自然語(yǔ)言理解與機(jī)器翻譯
5樓2015-09-05 14:59:19
6樓2015-09-05 17:08:55
7樓2015-09-05 17:12:05
575406210
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時(shí)
- 蟲(chóng)號(hào): 3655819
- 注冊(cè): 2015-01-21
- 性別: GG
- 專業(yè): 自然語(yǔ)言理解與機(jī)器翻譯
|
program flushp implicit real*8 (a-h,o-z) character*80 iname,bname character*11 fm,uf,sc,uk,bi,cdate character*9 char,ctime real*4 time1,time2 integer idat,idayno,isd1,isd2 external idat,idayno,maxfiles dimension xx( allocatable xx data fm,uf,sc,uk/'formatted','unformatted','scratch','unknown'/ .......... 以上是主程序，只是對(duì)XX聲明了是可變數(shù)組，但是類型并未聲明 |
8樓2015-09-06 10:15:49
|
有的，implicit 里面已經(jīng)說(shuō)了開(kāi)頭字母為o到z的都是實(shí)數(shù)，所以xx是實(shí)數(shù) 發(fā)自小木蟲(chóng)Android客戶端 |
9樓2015-09-06 11:43:39
10樓2015-09-06 11:46:34
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 575406210 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 317求調(diào)劑 +12 | 申子申申 2026-03-19 | 18/900 |
|
|---|---|---|---|---|
|
[考研] 0805 316求調(diào)劑 +3 | 大雪深藏 2026-03-18 | 3/150 |
|
|
|
[考研] 297求調(diào)劑 +11 | 戲精丹丹丹 2026-03-17 | 12/600 |
|
|
|
[考研] 302求調(diào)劑 +12 | 呼呼呼。。。。 2026-03-17 | 12/600 |
|
|
|
[基金申請(qǐng)]
學(xué)校已經(jīng)提交到NSFC，還能修改嗎？
 40+4
|
babangida 2026-03-19 | 9/450 |
|
|
|
[考研] 求調(diào)劑 +3 | 白QF 2026-03-21 | 3/150 |
|
|
|
[考研] 316求調(diào)劑 +6 | 梁茜雯 2026-03-19 | 6/300 |
|
|
|
[考研] 332求調(diào)劑 +4 | ydfyh 2026-03-17 | 4/200 |
|
|
|
[考研] 材料 336 求調(diào)劑 +3 | An@. 2026-03-18 | 4/200 |
|
|
|
[考研] 324分 085600材料化工求調(diào)劑 +4 | llllkkkhh 2026-03-18 | 4/200 |
|
|
|
[考研] 296求調(diào)劑 +6 | www_q 2026-03-18 | 10/500 |
|
|
|
[考研] 274求調(diào)劑 +10 | S.H1 2026-03-18 | 10/500 |
|
|
|
[考研] 考研調(diào)劑求學(xué)校推薦 +3 | 伯樂(lè)29 2026-03-18 | 5/250 |
|
|
|
[考研] 一志愿武漢理工材料工程專碩調(diào)劑 +9 | Doleres 2026-03-19 | 9/450 |
|
|
|
[考研]
 材料與化工 322求調(diào)劑
+4
|
然11 2026-03-19 | 4/200 |
|
|
|
[考研] 材料學(xué)碩297已過(guò)四六級(jí)求調(diào)劑推薦 +11 | adaie 2026-03-19 | 11/550 |
|
|
|
[考研] 材料與化工專碩調(diào)劑 +7 | heming3743 2026-03-16 | 7/350 |
|
|
|
[考研] 085601材料工程專碩求調(diào)劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
|
[考研] 085601專碩，總分342求調(diào)劑，地區(qū)不限 +5 | share_joy 2026-03-16 | 5/250 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +3 | 妮妮ninicgb 2026-03-17 | 3/150 |
|