24小时热门版块排行榜    

查看: 2245  |  回复: 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这三个变量引起的,这里声明的是复型,但是被调用为实参时使用的是全局变量,而全局变量并没有声明类型)
这种问题我该怎么解决呢?请大家帮帮我。谢谢了。
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

575406210

银虫 (初入文坛)

引用回帖:
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是全局变量(没有声明类型),我现在该怎么改,才能让类型一致?
5楼2015-09-05 14:59:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 14 个回答

575406210

银虫 (初入文坛)

求大婶帮忙看一下,谢谢了
2楼2015-09-04 09:01:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

红日520

金虫 (小有名气)

没有看懂你的问题。实参虚参不是应该声明和调用时保持一致吗?另外还要注意那个implicit

发自小木虫Android客户端
4楼2015-09-05 13:28:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

红日520

金虫 (小有名气)

看一下全局变量在哪里定义De

发自小木虫Android客户端
6楼2015-09-05 17:08:55
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 271材料工程求调剂 +5 .6lL 2026-03-18 5/250 2026-03-19 03:07 by 无懈可击111
[考研] 085700资源与环境308求调剂 +3 墨墨漠 2026-03-18 3/150 2026-03-18 22:35 by bingxueer79
[考研] 311求调剂 +4 冬十三 2026-03-18 4/200 2026-03-18 21:47 by 尽舜尧1
[考研] 环境工程调剂 +8 大可digkids 2026-03-16 8/400 2026-03-18 09:36 by zhukairuo
[考研] 268求调剂 +8 一定有学上- 2026-03-14 9/450 2026-03-17 17:47 by laoshidan
[考研] 301求调剂 +4 A_JiXing 2026-03-16 4/200 2026-03-17 17:32 by ruiyingmiao
[考研] 085601求调剂 +4 Du.11 2026-03-16 4/200 2026-03-17 17:08 by ruiyingmiao
[考研] 332求调剂 +6 Zz版 2026-03-13 6/300 2026-03-17 17:03 by ruiyingmiao
[考研] 290求调剂 +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[考研] 药学383 求调剂 +3 药学chy 2026-03-15 4/200 2026-03-16 20:51 by 元子^0^
[考研] 机械专硕325,寻找调剂院校 +3 y9999 2026-03-15 5/250 2026-03-16 19:58 by y9999
[考研] 085600调剂 +5 漾漾123sun 2026-03-12 6/300 2026-03-16 15:58 by 漾漾123sun
[考研] 285求调剂 +6 ytter 2026-03-12 6/300 2026-03-16 15:05 by njzyff
[考研] 277材料科学与工程080500求调剂 +3 自由煎饼果子 2026-03-16 3/150 2026-03-16 14:10 by 运气yunqi
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[考研] 307求调剂 +5 超级伊昂大王 2026-03-12 5/250 2026-03-13 15:56 by 棒棒球手
[考研] 材料301分求调剂 +5 Liyouyumairs 2026-03-12 5/250 2026-03-13 14:42 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-12 3/150 2026-03-13 14:30 by 求调剂zz
[考研] 321求调剂(食品/专硕) +3 mxcz321 2026-03-12 6/300 2026-03-13 08:45 by xc321
信息提示
请填处理意见