[求助],帮忙解决编译中出现的错误吧，谢谢！[Fortran中文网]

dvbbs

收藏本页

联系我们

论坛帮助

dvbbs

恢复默认设置
动网默认风格
默认风格
秋意盎然
棕红预览
紫色淡雅
青青河草
橘子红了
红红夜思
粉色回忆
水晶紫色

>> Fortran语言使用经验交流

Fortran中文网 → Fortran中文网—Fortran语言经验交流 → Fortran语言使用经验交流 → [求助],帮忙解决编译中出现的错误吧，谢谢！

您是本帖的第 6827 个阅读者

树形打印

标题：

[求助],帮忙解决编译中出现的错误吧，谢谢！

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

楼主

[求助],帮忙解决编译中出现的错误吧，谢谢！

CALL CALOAD(PL,SFT(12,NL),T,ML,NLP,XL,K1,NL,P(7,NN))
子程序CALOAD的一部分：
SUBROUTINE CALOAD(PL,SFT,T,ML,NLP,XL,K1,NL,WW)
      IMPLICIT INTEGER*4 (I-N)
      IMPLICIT REAL*8 (A-H, O-Z)
      COMMON /AXYZ/ AX(20),AY(20),AZ(20)
      DIMENSION PL(18,NLP),T(3,3),ML(NL),SFT(12,20),RR(12)
C―――DFORM FIXED END FORCES IN LOCAL COORDINATES ―――――
      DO 50 I=1,NL
      DO 50 J=1,12
      SFT(J,I)=0.0
50    CONTINUE
      DO 100 L=1,NL
      LX=ML(L)
      IF(LX.LT.1) GOTO 400
      IF(PL(1,LX).EQ.0.0) GOTO 120
      SFT(1,L)=SFT(1,L)-0.5*PL(1,LX)*XL
      SFT(7,L)=SFT(7,L)+SFT(1,L)
编译时说：warning FOR4227: argument SFT (number 2) in reference to procedure CALOAD from procedure BEAM incorrect: is not an array
哪位老师、高手帮忙看看吧，谢谢了，我是初学者，现急需解决

2006/7/5 20:25:20

lm_lxt

等级：版主

文章：480

积分：3912

门派：无门无派

第 2 楼

CALL CALOAD(PL,SFT(12,NL),T,ML,NLP,XL,K1,NL,P(7,NN))其中我觉得等效节点荷载存储数组SFT(12,NL)的传递有问题，将上述语句改为：CALL CALOAD(PL,SFT,ML,NLP,XL,K1,NL,P(7,NN))试一下。

http://lmlxt.spaces.live.com/

2006/7/6 11:08:26

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

第 3 楼

似乎不对，又提示说：error FOR2233: wrong number of arguments to procedure CALOAD invoked from BEAM: 8 found, 9 expected，

谢谢你的帮助！

2006/7/6 13:43:36

admin

等级：管理员

文章：105

积分：1241

门派：无门无派

第 4 楼

sft的对应关系怪:

sft(12,nl) -> sft(1,1)

如果主程序中dimension sft(12,*),则只有这一个有对应,其它就复杂了?

2006/7/6 16:42:49

lm_lxt

等级：版主

文章：480

积分：3912

门派：无门无派

第 5 楼

是我写错了，应该是CALL CALOAD(PL,SFT,T,ML,NLP,XL,K1,NL,P(7,NN))，少了一个传递参数。

http://lmlxt.spaces.live.com/

2006/7/6 21:52:47

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

第 6 楼

那再帮忙看看这个在同一程序中CALL NEWBM(P,IR,JR,SFT,XL,NN)

子程序NEWBM（部分）：

      SUBROUTINE NEWBM(P,IR,JR,SFT,XL,NN)
      IMPLICIT INTEGER*4(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      COMMON /PAR/NL,NUMNP,NEQ,NZ4,NEQ1,NMT,NLP
      DIMENSION P(7,NMT),SFT(12,20)
      DIMENSION S(12,12),IR(6),JR(6),JD(2),R(12),C(12)
      COMMON /EM/LM(24),ND,NS,ASA(24,24),RF(24,20),SA(20,24),
     1 SF(20,20),T(3,3)
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
C――― FORM ELEMENT STIFFNESS MATRICES IN LOCAL COORDINATES ―
      DO 2 N=1,20
      DO 2 I=1,20
      SF(N,I)=0.0
2     CONTINUE
      DO 6 N=1,NL
      DO 6 I=1,12
      SF(I,N)=SFT(I,N)
6     CONTINUE
      DO 5 I=1,ND
      DO 5 J=1,ND
      S(I,J)=0.0
5     CONTINUE
      S33=P(1,NN)*P(5,NN)/XL
      S66=P(2,NN)*P(6,NN)/XL
      S(1,1)=S33
      S(7,7)=S33
      S(1,7)=-S33
      S(4,4)=S66
      S(10,10)=S66
      S(4,10)=-S66

其中的SFT

谢谢了

2006/7/7 10:01:00

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

第 7 楼

主程序中是dimension sft(12,20),

2006/7/7 10:10:15

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

第 8 楼

现在问题解决了，谢谢你们的热心帮助！

2006/7/7 10:19:00

baling

等级：论坛游民

文章：15

积分：270

门派：无门无派

第 9 楼

又有个问题了：

     PROGRAM FAP9
C―――――――A GENERAL STRUCTURAL ANALYSIS PROGRAM――――
      IMPLICIT INTEGER*4(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      COMMON /PAR/NL,NUMNP,NEQ,NZ4,NEQ1,NMT,NLP
      COMMON /AXYZ/AX(20),AY(20),AZ(20)
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
      COMMON /BLANK/IA(10000),A(30000)

SUBROUTINE BSYST
      IMPLICIT INTEGER*4(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      COMMON /PAR/NL,NUMNP,NEQ,NZ4,NEQ1,NMT(72),NLP(72)
      COMMON /AXYZ/AX(20),AY(20),AZ(20)
      COMMON /IOLIST/NTM,NTR,NIN,NOT,NSP,NFL,NT7,NT8
C――― READ BEAM DATA ―――――――――――――――――――
      CALL FIND('BEAM',KL)
      IF(KL.EQ.0) GOTO 110
      WRITE(NTM,2005)
      STOP
110   CALL FREE(LINE(160))
      NMT=0
      NLP=0

提示说： warning FOR4199: inconsistent definitions of COMMON block PAR in program units FAP9 and BSYST

这里怎么改呢，

谢谢了

2006/7/7 10:35:05

lm_lxt

等级：版主

文章：480

积分：3912

门派：无门无派

第 10 楼

COMMON /PAR/NL,NUMNP,NEQ,NZ4,NEQ1,NMT,NLP和

COMMON /PAR/NL,NUMNP,NEQ,NZ4,NEQ1,NMT(72),NLP(72)不一致，修改一下试试