| 查看: 703 | 回复: 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 ] |
回复此楼» 猜你喜欢
Postdoc position, materials simulations/machine learning, U. of South Carolina
已经有0人回复
-
祈福青基
已经有34人回复
-
物理化学论文润色/翻译怎么收费?
已经有228人回复
-
青基的材料青椒们，可以把硕士联培生送我这里，要研二男生
已经有67人回复
-
牛来！米来！面来！
已经有8人回复
-
2027申博咨询
已经有11人回复
-
寻求CrC2Al的cif文件，感谢
已经有0人回复
-
申博
已经有2人回复
-
ORCA 纯新手向入门指南0.7版
已经有0人回复
-
哈尔滨工业大学（深圳）绿色合成化学团队招收27年春季或秋季入学的博士生
已经有5人回复
-
吉林大学化学学院理论化学研究所刘靖尧教授课题组招收2027级申请考核制博士研究生
已经有0人回复
老虎大王
木虫 (著名写手)
- 应助: 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
snoopyzhao
至尊木虫 (职业作家)
- QC强帖: 1
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
5楼2009-02-14 16:24:12
snoopyzhao
至尊木虫 (职业作家)
- QC强帖: 1
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
6楼2009-02-14 16:29:59
snoopyzhao
至尊木虫 (职业作家)
- QC强帖: 1
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
7楼2009-02-14 16:35:28
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
8楼2009-02-14 16:57:17
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
9楼2009-02-14 17:01:29
snoopyzhao
至尊木虫 (职业作家)
- QC强帖: 1
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
10楼2009-02-14 17:26:49