| 查看: 552 | 回复: 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 ] |
回复此楼» 猜你喜欢
书籍求助：汽车市场营销理论与实务（电子版）——章小平
已经有0人回复
-
东方理-中科大联合博士生招聘
已经有0人回复
-
物理化学论文润色/翻译怎么收费?
已经有137人回复
-
钴酸锂半电池小倍率容量上不去
已经有1人回复
-
吉林大学材料物理本科生求问调剂信息
已经有23人回复
-
2026第二届光电子与半导体器件前沿技术研讨会——光电子赋能·半导体创芯！
已经有1人回复
-
光电子赋能·半导体创芯！
已经有1人回复
-
光电子赋能·半导体创芯！
已经有0人回复
-
Chemical Bonding at Surfaces and Interfaces,最经典的一本表面上化学相互作用教材
已经有0人回复
-
QE计算电声耦合的时候报错Error in routine lambda (100)wrong or too many modes
已经有2人回复
-
分子动力学模拟合作需求
已经有0人回复
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
- 专业: 金属结构材料
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