| 查看: 2265 | 回复: 13 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
575406210银虫 (初入文坛)
|
[求助]
使用全局变量做实参，导致实参与虚参类型不一致
|
||
|
我把我遇到的问题简化一下，大概意思就是（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),& (调试后显示这一行有两个XX实参与虚参类型不一致) & 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,& (调试后显示这一行有一个XX实参与虚参类型不一致) & 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 （调试后出现的错误是ACCC,BB,DD这三个变量引起的，这里声明的是复型，但是被调用为实参时使用的是全局变量，而全局变量并没有声明类型） 这种问题我该怎么解决呢？请大家帮帮我。谢谢了。 |
回复此楼» 猜你喜欢
材料工程专硕求调剂
已经有5人回复
-
296求调剂
已经有10人回复
-
332求调剂
已经有5人回复
-
318求调剂
已经有7人回复
-
求调剂 有机化学考研356分
已经有10人回复
-
279求调剂
已经有5人回复
-
283求调剂（080500）
已经有12人回复
-
考研调剂
已经有4人回复
-
300求调剂，材料科学英一数二
已经有14人回复
-
化学308分调剂
已经有6人回复
575406210
银虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 907.2
- 帖子: 43
- 在线: 3.6小时
- 虫号: 3655819
- 注册: 2015-01-21
- 性别: GG
- 专业: 自然语言理解与机器翻译
|
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'/ .......... 以上是主程序，只是对XX声明了是可变数组，但是类型并未声明 |
8楼2015-09-06 10:15:49
575406210
银虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 907.2
- 帖子: 43
- 在线: 3.6小时
- 虫号: 3655819
- 注册: 2015-01-21
- 性别: GG
- 专业: 自然语言理解与机器翻译
2楼2015-09-04 09:01:02
4楼2015-09-05 13:28:51
575406210
银虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 907.2
- 帖子: 43
- 在线: 3.6小时
- 虫号: 3655819
- 注册: 2015-01-21
- 性别: GG
- 专业: 自然语言理解与机器翻译
5楼2015-09-05 14:59:19
5