The shape matching rules of actual arguments and dummy arguments 如何修改

sophia666888 · 发表于 2021-3-11 17:24:13

错误代码： error #6634: The shape matching rules of actual arguments and dummy arguments have been violated. [AUR] 2076

[Fortran] 纯文本查看 复制代码

01     PARAMETER (KCR   =15)
02      PARAMETER (KCI   =10)
03      PARAMETER (KNW   =20)
04      PARAMETER (KDT   =50)
05      PARAMETER (KNANG =60)
06      PARAMETER (KNSIZE=60)
07      PARAMETER (KKSZ=KNSIZE+KNW*2)
08      PARAMETER (KKDT=KDT*KNW+KNW)
09      PARAMETER (KNA1  =50)
10      PARAMETER (KNFI  =50)
11      PARAMETER (KNLN  =4)
12      PARAMETER (KNMEAS=KNANG*KNW+2*KNW,KNA1U=KNA1)
13C
14      PARAMETER (PI=3.141592653589793,RAD=PI/180.0)
15      CHARACTER ERC*(*)
16      DIMENSION CONCA(KNLN),CONCM(KNLN)
17      DIMENSION WL(KNW),GA(KNW),SOLID(KNW),TAUO3(KNW)
18     &         ,OPT(KNW),AUR(KNW,KDT),IAUR(KNW,KDT)
19      DIMENSION TM(KNW),WM(KNW)
20      DIMENSION VOL0(KNSIZE),VOL(KNSIZE)
21      DIMENSION VCR(KCR),VCI(KCI),AK(KNMEAS,KNSIZE,KCR,KCI)
22     &         ,THETA(KNANG),PPM(KNANG),PRTR(KNMEAS),PRTR0(KNMEAS)
23      DIMENSION TH(KNW,KDT),FI(KNW,KDT),ISTH(KNW,KDT),ISFI(KNW,KDT)
24      DIMENSION AM1U(KNW,KNA1),FAI(KNW,KNFI),NA1U0(KNW),NFI0(KNW)
25      DIMENSION AURC(KNW,KDT),AURC0(KNW,KDT),OPTC(KNW),OPTC0(KNW)
26     &         ,AURB(KNW,KDT),OPTB(KNW),AWGT(KNW,KDT),FWGT(KNW)
27      DIMENSION ERRV(KNW)
28      DIMENSION DLA(KKDT),DLAC(KKDT,KKSZ),DEV(KKSZ),DEV0(KKSZ),IEF(KKDT)
29     &         ,H(KKSZ,KKSZ),DDV(KKSZ),SIG(KKSZ)
30      DIMENSION JCR(KNW),JCI(KNW),WCR(KNW),WCI(KNW),WCR0(KNW),WCI0(KNW)
31     &         ,AKNEL(KNMEAS,KNSIZE)
32C
33      DATA COEF /10./
34      DATA G0,VRATE /1., 0.01/
35C
36      ERC=' '
37      DO IW=1,NW
38        WCR0(IW)=WCR(IW)
39        WCI0(IW)=WCI(IW)
40      ENDDO
41      CALL VLRTRN(IPLC,NLN,CONCA,CONCM,NW,WL,GA,SOLID
42     &           ,TAUO3,TM,WM,TH0,NA,TH,FI,ISTH,ISFI,OPT,AUR,IAUR
43     &           ,NA1U0,AM1U,NFI0,FAI,NSIZE,VOL0
44     &           ,IPOL,NANG,THETA,AKNEL,PPM,OPTC0,AURC0,PRTR,ERC)
45      IF (ERC.NE.' ') GOTO 890
46      DO IW=1,NW
47        DO I=1,NA
48          AURB(IW,I)=AURC0(IW,I)
49        ENDDO
50        OPTB(IW)=OPTC0(IW)
51      ENDDO

胡文刚 · 发表于 2021-3-11 18:52:54

这个问题是实参和形参的形状规则不匹配。检查错误提示中提到的函数及其参数 AUR，确保实参虚参一致。

sophia666888 · 发表于 2021-3-12 09:08:09

胡文刚发表于 2021-3-11 18:52
这个问题是实参和形参的形状规则不匹配。检查错误提示中提到的函数及其参数 AUR，确保实参虚参一致。 ...

好的，谢谢

[子程序] The shape matching rules of actual arguments and dummy arguments 如何修改

规矩勋章

元老勋章

新人勋章