| 查看: 542 | 回复: 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 ] |
回复此楼» 猜你喜欢
推荐给教师的一本单词书《金鱼单词讲义：从26个拉丁字母到106万个英语单词》
已经有33人回复
-
核磁分析软件MestReNova打开文件时报错
已经有0人回复
-
物理化学论文润色/翻译怎么收费?
已经有238人回复
-
在职博后不能申请博后基金了，那么在职博后意义何在？
已经有2人回复
-
青岛大学化学化工学院分子测量学研究院2026年招收博士研究生
已经有0人回复
-
香港科技大学（广州）诚招电催化方向博士生（2026秋入学）
已经有0人回复
-
求助Cu2+1O的CIF文件(PDF: 05-0667)
已经有1人回复
-
KAUST（阿卜杜拉国王科技大学）MXene 器件方向博士后招聘
已经有0人回复
-
沙特阿拉伯阿卜杜拉国王科技大学（KAUST）电池方向博士后招聘
已经有0人回复
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
3楼2009-02-13 17:01:37
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2009-02-13 16:58:03
|
谢谢哈！这是那个要调试的子程序： 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