 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 2255 | 回復(fù): 13 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
575406210銀蟲 (初入文壇)
|
[求助]
使用全局變量做實(shí)參，導(dǎo)致實(shí)參與虛參類型不一致
|
|
|
我把我遇到的問題簡化一下，大概意思就是（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)試后顯示這一行有兩個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)試后顯示這一行有一個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)的錯誤是ACCC,BB,DD這三個變量引起的，這里聲明的是復(fù)型，但是被調(diào)用為實(shí)參時使用的是全局變量，而全局變量并沒有聲明類型） 這種問題我該怎么解決呢？請大家?guī)蛶臀�。謝謝了。 |
回復(fù)此樓» 猜你喜歡
323求調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿北京化工大學(xué) 070300 學(xué)碩 336分 求調(diào)劑
已經(jīng)有4人回復(fù)
-
352求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿東華大學(xué)化學(xué)070300，求調(diào)劑
已經(jīng)有8人回復(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ù)
575406210
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時
- 蟲號: 3655819
- 注冊: 2015-01-21
- 性別: GG
- 專業(yè): 自然語言理解與機(jī)器翻譯
5樓2015-09-05 14:59:19
575406210
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 907.2
- 帖子: 43
- 在線: 3.6小時
- 蟲號: 3655819
- 注冊: 2015-01-21
- 性別: GG
- 專業(yè): 自然語言理解與機(jī)器翻譯
2樓2015-09-04 09:01:02
4樓2015-09-05 13:28:51
6樓2015-09-05 17:08:55
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿北京化工大學(xué) 070300 學(xué)碩 336分 求調(diào)劑 +4 | vv迷 2026-03-22 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 310求調(diào)劑 +4 | baibai1314 2026-03-16 | 4/200 |
|
|
|
[考研] 284求調(diào)劑 +5 | Zhao anqi 2026-03-22 | 5/250 |
|
|
|
[考研] 287求調(diào)劑 +8 | 晨昏線與星海 2026-03-19 | 9/450 |
|
|
[考研] 環(huán)境學(xué)碩288求調(diào)劑 +6 | 皮皮皮123456 2026-03-22 | 6/300 |
|
|
|
[考研] 260求調(diào)劑 +3 | 朱芷琳 2026-03-20 | 4/200 |
|
|
|
[考研] 【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠心求調(diào)劑 +11 | 吃吃吃才有意義 2026-03-19 | 11/550 |
|
|
|
[考研] 311求調(diào)劑 +3 | 勇敢的小吳 2026-03-20 | 3/150 |
|
|
|
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6 | 77chaselx 2026-03-20 | 6/300 |
|
|
|
[考研] 346求調(diào)劑[0856] +4 | WayneLim327 2026-03-16 | 7/350 |
|
|
|
[考研] 307求調(diào)劑 +3 | wyyyqx 2026-03-17 | 3/150 |
|
|
|
[考研] 265求調(diào)劑 +3 | Jack?k?y 2026-03-17 | 3/150 |
|
|
|
[考研] 二本跨考鄭大材料306英一數(shù)二 +3 | z1z2z3879 2026-03-17 | 3/150 |
|
|
|
[考研] 265求調(diào)劑 +9 | 梁梁校校 2026-03-17 | 9/450 |
|
|
|
[考研] 一志愿中海洋材料工程專碩330分求調(diào)劑 +8 | 小材化本科 2026-03-18 | 8/400 |
|
|
|
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3 | niko- 2026-03-19 | 6/300 |
|
|
|
[考研] 材料學(xué)碩297已過四六級求調(diào)劑推薦 +11 | adaie 2026-03-19 | 11/550 |
|
|
|
[考研] 085600材料與化工調(diào)劑 324分 +10 | llllkkkhh 2026-03-18 | 12/600 |
|
|
|
[考研] 312求調(diào)劑 +8 | 陌宸希 2026-03-16 | 9/450 |
|
|
|
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3 | TqlXswl 2026-03-16 | 7/350 |
|