24小时热门版块排行榜    

查看: 2414  |  回复: 9

black2982

金虫 (小有名气)


[交流] Fortran 编译问题

我从网上(http://leroy.uwaterloo.ca/programs.html)下了一个fortran的程序RKR1, 是用来计算分子光谱常数的免费程序, 但是只有程序源代码, 并且是用邮件格式发过来的, 我试着把程序源代码拷出来作成文本文件, 并且转换成fortran格式,用一个网上编译器进行了编译,然后用它发过来的sample文件(同样是邮件发送)运行测试,程序给出一个错误“At line 86 of file ZERTh1fI.f Fortran runtime error: Bad  integer for item 1 in list input“

想问一下这人错误我该怎么解决呢?还有,由于我对于程序的了解太少,不知道有没有人愿意帮我解决一下,我会把源程序和sample文件发过来。
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

» 本主题相关价值贴推荐,对您同样有帮助:

» 抢金币啦!回帖就可以得到:

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lijie169

铜虫 (著名写手)



black2982(金币+1):谢谢参与
你不懂Fortran么?这个是运行错误....
2楼2012-02-20 12:24:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lurencyj

木虫 (著名写手)



black2982(金币+1):谢谢参与
那个错误信息说sample文件里面的第一个输入参数应该是整数,但实际上不是个整数。
3楼2012-02-20 17:18:33
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

black2982

金虫 (小有名气)


引用回帖:
3楼: Originally posted by lurencyj at 2012-02-20 17:18:33:
那个错误信息说sample文件里面的第一个输入参数应该是整数,但实际上不是个整数。

谢谢, 可是我的sample文件第一个输入参数是整数

程序第86行:
   2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv


Sample文件:
  11 23  11 23  0  1  1                 % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
'(iii) Liu et al. JCP 111, 3494 (1999) NDE functions for Na2:  VEXT = 0'
6  1  1 1  3 2   61.41d0  4.4867d-2   % NLR ITYPE IZP0 IZQ0 NP0 NQ0 VD XCN0
0.436636d0  -3.529d-3  1.54d-5
4.8d-2  1.366d-2
3  1 0  7 0  3.0921d-3                % ITYPB IZP1 IZQ1 NP1 NQ1 XCN1
0.1341d0  -1.6863d-2  9.2d-4  -2.810837d-5  4.924d-7  -4.61952d-9  1.8d-11
1  2   0.d0                           % Kaiser NSV VEXT
  -0.4d0  0.2d0  1.6d0                 %(1) V1 DV V2
   1.d0   1.0d0 61.d0                  %(2) V1 DV V2
4楼2012-02-21 09:42:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

black2982

金虫 (小有名气)


引用回帖:
2楼: Originally posted by lijie169 at 2012-02-20 12:24:07:
你不懂Fortran么?这个是运行错误....

是的, 不懂, 请问应该怎么解决呢?谢谢
5楼2012-02-21 09:52:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ygl820

至尊木虫 (知名作家)



black2982(金币+1):谢谢参与
读入的数据文件格式不对,应该是整数intger,检查数据文件“ 11...”这一行有没有非法字符。
6楼2012-02-21 10:06:49
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

black2982

金虫 (小有名气)


引用回帖:
6楼: Originally posted by ygl820 at 2012-02-21 10:06:49:
读入的数据文件格式不对,应该是整数intger,检查数据文件“ 11...”这一行有没有非法字符。

好的, 谢谢
7楼2012-02-21 20:00:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

emanlee

木虫 (小有名气)



black2982(金币+1):谢谢参与
Sample文件:
  11 23  11 23  0  1  1                 % IAN1 IMN1 IAN2 IMN2 CHARGE NDEGv NDEBv
=================================================
Sample文件中,检查“11”前面是否有空格,如果有的话删掉空格。
把 % 及后面的内容都删除,再试一试。
8楼2012-02-21 22:45:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

black2982(金币+1):谢谢参与
余泽成(金币+2): 谢谢参与应助! 2012-02-25 04:37:49
我测试了一下所贴出来的 86 句以及那个数据行,代码没有什么问题,所以问题在于其它的问题

LZ 可以尝试着在
2 READ(5,*,END=99) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv
之后加一行
write(*,*) IAN1, IMN1, IAN2, IMN2, CHARGE, NDEGv, NDEBv

看看输出是否正常……
9楼2012-02-23 14:03:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

18766315007

新虫 (著名写手)



black2982(金币+1): 谢谢参与
请问楼主,解决了吗?

发自小木虫Android客户端
10楼2016-10-19 15:28:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 black2982 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 311求调剂 +13 冬十三 2026-03-15 14/700 2026-03-21 22:10 by peike
[考研] 277材料科学与工程080500求调剂 +6 自由煎饼果子 2026-03-16 6/300 2026-03-21 17:21 by 学员8dgXkO
[考研] 0805材料320求调剂 +3 深海物语 2026-03-20 3/150 2026-03-21 15:46 by 无际的草原
[考研] 306求调剂 +4 chuanzhu川烛 2026-03-18 4/200 2026-03-21 08:25 by laoshidan
[考研] 机械专硕299求调剂至材料 +3 kkcoco25 2026-03-16 4/200 2026-03-21 03:52 by JourneyLucky
[考研] 083200学硕321分一志愿暨南大学求调剂 +3 innocenceF 2026-03-17 3/150 2026-03-21 02:35 by JourneyLucky
[考研] 一志愿中国石油大学(华东) 本科齐鲁工业大学 +3 石能伟 2026-03-17 3/150 2026-03-21 02:22 by JourneyLucky
[考研] 一志愿华中科技大学,080502,354分求调剂 +5 守候夕阳CF 2026-03-18 5/250 2026-03-21 01:06 by JourneyLucky
[考研] 295求调剂 +4 一志愿京区211 2026-03-18 6/300 2026-03-20 23:41 by JourneyLucky
[考研] 求调剂一志愿南京航空航天大学289分 +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[考研] 一志愿西南交通 专硕 材料355 本科双非 求调剂 +5 西南交通专材355 2026-03-19 5/250 2026-03-20 21:10 by JourneyLucky
[考研] 一志愿华中农业071010,总分320求调剂 +3 困困困困坤坤 2026-03-20 3/150 2026-03-20 20:38 by 学员8dgXkO
[考研] 一志愿西安交通大学 学硕 354求调剂211或者双一流 +3 我想要读研究生 2026-03-20 3/150 2026-03-20 20:13 by JourneyLucky
[考研] 281求调剂(0805) +14 烟汐忆海 2026-03-16 25/1250 2026-03-20 15:47 by yuncha
[考研] 298-一志愿中国农业大学-求调剂 +9 手机用户 2026-03-17 9/450 2026-03-20 14:24 by 无懈可击111
[考研] 344求调剂 +6 knight344 2026-03-16 7/350 2026-03-18 20:13 by walc
[考研] 326求调剂 +5 上岸的小葡 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[考研] 一志愿苏州大学材料工程(085601)专硕有科研经历三项国奖两个实用型专利一项省级立项 +6 大火山小火山 2026-03-16 8/400 2026-03-17 15:05 by 无懈可击111
[考博] 26申博 +4 八6八68 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 东南大学364求调剂 +5 JasonYuiui 2026-03-15 5/250 2026-03-16 21:28 by 木瓜膏
信息提示
请填处理意见