24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

575406210

银虫 (初入文坛)

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

[求助] 使用全局变量做实参，导致实参与虚参类型不一致

我把我遇到的问题简化一下，大概意思就是（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人回复
三无产品还有机会吗已经有4人回复
投稿返修后收到这样的回复，还有希望吗已经有7人回复
压汞仪和BET测气凝胶孔隙率已经有4人回复
博士申请都是内定的吗？已经有14人回复
谈谈两天一夜的“延安行” 已经有13人回复
氨基封端PDMS和HDI反应快速固化已经有11人回复
之前让一硕士生水了7个发明专利，现在这7个获批发明专利的维护费可从哪儿支出哈？已经有11人回复
论文投稿求助已经有4人回复
Applied Surface Science 这个期刊。有哪位虫友投过的能把word模板发给我参考一下嘛已经有3人回复

1楼2015-09-03 16:45:19

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

575406210

银虫 (初入文坛)

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

引用回帖:

4楼: Originally posted by 红日520 at 2015-09-05 13:28:51
没有看懂你的问题。实参虚参不是应该声明和调用时保持一致吗？另外还要注意那个implicit

IF (INPTB .NE. NF) CALL MOTION (XX(K01),XX(K02),XX(K03),XX(K04),XX(K04),XX(K05)这一行中XX(K01),XX(K02),XX(K03),XX(K04),XX(K04),XX(K05)有两个变量和子程序MOTION中的两个虚参类型不一致，并且XX是全局变量（没有声明类型），我现在该怎么改，才能让类型一致？