| 查看: 540 | 回复: 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 ] |
回复此楼» 猜你喜欢
华南师范大学广州市光谱分析与功能探针重点实验室诚招青年英才和博士后岗位研究人员
已经有10人回复
-
PbS量子点如何确定浓度
已经有11人回复
-
物理化学论文润色/翻译怎么收费?
已经有174人回复
-
大湾区大学刘天辉课题组招收2026级博士生（与中山大学物理学院联合培养）
已经有22人回复
-
PbS量子点紫外吸收
已经有0人回复
-
求标准卡片Cu0.4In0.4Zn1.2S2 PDF#32-0340
已经有2人回复
-
比利时鲁汶大学与国家留学基金委共同资助博士研究生CSC-KU Leuven PhD Scholarship
已经有0人回复
-
量子点电致发光器件（QLED）：蓝光量子点（QDs）和纳米氧化锌电子传输材料
已经有0人回复
-
七嗪类物质合成求助
已经有0人回复
-
需要一个圆偏振光诱导化学反应，请问使用圆偏振光作为光源，应该需要哪些设备搭建
已经有0人回复
-
伦敦大学学院Benjamin Moss博士招收人工智能、原位光谱、催化相关26年博士生
已经有11人回复
老虎大王
木虫 (著名写手)
- 应助: 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