24小时热门版块排行榜

返回列表

当前主题已经存档。

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

忘尘天空

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 890
红花: 1
帖子: 115
在线: 55.2小时
虫号: 572098
注册: 2008-06-11
性别: MM
专业: 核技术及其应用

[交流] 【求助】关于调试程序的

请教一下：在调试程序的时候遇到下面的问题是什么意思呢？应该怎么样修改？
（1）：Error: Syntax error, found END-OF-STATEMENT when expecting one of: :: , : )
   1 (K(5)-K(9)+I+1,K2-I)*KMN(K(1)-K(9)+I+1,K2-I)
谢谢！
（2）：Error: A REAL or INTEGER or LOGICAL data type is required in this context.
   1 (K(5)-K(9)+I+1,K2-I)*KMN(K(1)-K(9)+I+1,K2-I)
（3）：A REAL or INTEGER or LOGICAL data type is required in this context.
   1 (K(5)-K(9)+I+1,K2-I)*KMN(K(1)-K(9)+I+1,K2-I)
（4）：Error: The number of subscripts is incorrect. [KMN]
   1 KMN((K(4)-I+1,I-K1)*KMN(K(9)-I+1,I-K1)*
（5）：found END-OF-STATEMENT when expecting one of: ( * :: , : ) + . - % . ** / // .LT. < .LE. <= .EQ. == .NE. ...
  CALL GY0(I,A,VEC,L,QQ,SS,LL,N,KM,S1Z,L1Z

[ Last edited by 忘尘天空 on 2009-2-13 at 15:53 ]

回复此楼

» 猜你喜欢

快乐生活，感恩！

1楼 2009-02-13 15:49:36

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

忘尘天空

银虫 (小有名气)

应助: 0 (幼儿园)
金币: 890
红花: 1
帖子: 115
在线: 55.2小时
虫号: 572098
注册: 2008-06-11
性别: MM
专业: 核技术及其应用

谢谢哈！这是那个要调试的子程序：

   SUBROUTINE S72(K,M,KK,NQ,I1,I2,C)
   COMMON /KP/KP(0:49,15),/KMN/KMN(31,0:11)
   DIMENSION KK(M),KI(25),K(9)
   K1=MAX(0,K(9)-K(5),K(9)-K(1))
   K2=MIN(K(2),K(4),K(9))
   I1=0
   DO 1 I=K1,K2
   I1=I1+(-1)**(K(1)-K(5)+I)*KMN(K(2)-I+1,I-K1)*
  1 KMN((K(4)-I+1,I-K1)*KMN(K(9)-I+1,I-K1)*
  1 KMN(I+1,K2-I)*KMN
  1 (K(5)-K(9)+I+1,K2-I)*KMN(K(1)-K(9)+I+1,K2-I)
1 CONTINUE
   IF(I1) 2,3,2
3 C=0
   I1=0
   I2=1
   RETURN
2    CALL PRIMN(I1,M,KK,NQ)
   KI(1:M)=KK(1:M)-KP(K(2)-K1,1:M)-KP(K(4)-K1,
1 1:M)-KP(K2,1:M)-KP(K(9)-K1,1:M)
1 -KP(K(5)-K(9)+K2,1:M)-KP(K(1)-K(9)+K2,1:M)
   KK(1:M)=2*KI(1:M)-KP(K(1)+K(2)+K(3)+1,1:M)
   DO 4 I=1,9
   KK(1:M)=KK(1:M)+KP(K(I),1:M)
4    CONTINUE
   CALL I1I26J(M,KK,NQ,I1,I2)
   C=SQRT(REAL(I1)/REAL(I2))*ISIGN(1,NQ)
   RETURN
   END
谢谢哈！
这个程序在执行的时候就出现了上面说的错误！不知道怎么样修改了