| 查看: 709 | 回复: 12 | |||
| 当前主题已经存档。 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
【求助】关于调试程序的
|
|||
|
请教一下：在调试程序的时候遇到下面的问题是什么意思呢？应该怎么样修改？ （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 ] |
回复此楼» 猜你喜欢
International Journal of Nanoscience属于中科院4区吗？
已经有0人回复
-
研究生学术新锐奖｜宁波微纳材料研讨会参会通知
已经有2人回复
-
物理化学论文润色/翻译怎么收费?
已经有173人回复
-
申请2027年材料/化学类博士
已经有6人回复
-
澳大利亚南昆士兰大学量子点课题组招收博士生
已经有0人回复
-
求相关合成条件
已经有14人回复
-
2027春季申博自荐
已经有6人回复
-
香港中文大学（深圳）2026年招聘公告
已经有0人回复
-
青基的材料青椒们，可以把硕士联培生送我这里，要研二男生
已经有68人回复
-
申博
已经有2人回复
ytu_cyc
木虫 (著名写手)
- 应助: 0 (幼儿园)
- 金币: 1504.9
- 散金: 783
- 红花: 4
- 帖子: 2967
- 在线: 30.1小时
- 虫号: 478995
- 注册: 2007-12-14
- 性别: GG
- 专业: 偏微分方程
12楼2009-02-14 20:08:41
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2009-02-13 16:58:03
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
3楼2009-02-13 17:01:37
|
谢谢哈！这是那个要调试的子程序： 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 谢谢哈！ 这个程序在执行的时候就出现了上面说的错误！不知道怎么样修改了 |
4楼2009-02-14 14:29:01