24小时热门版块排行榜    

查看: 1260  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

lchunmei001

木虫 (正式写手)


[交流] 【求助】输入是什么?

请教一下大家,如下这样一个输入片段,到底输入文件应该如何命名?运行总是没有输出。请路过高手帮解答解答,感激不尽!
C--->  INPUT EXPERIMENTAL DATA
       WRITE(*,*)'elem ?'
       READ(*,'(A2)')elem
       WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
       OPEN(1,FILE=FILM1,status='old')
       READ(1,*)
       READ(1,*)
       READ(1,*)a,b,c,d,e,f,g,h
      ..........
回复此楼

» 猜你喜欢

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

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

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
★
小木虫(金币+0.5):给个红包,谢谢回帖交流
lchunmei001(金币+5): 2011-04-14 14:26:29
你的程序提示错误了没有?如果没有的话,为什么说不行呢?如果提示错误,最好把错误信息给出来。

另外,判断是否读了文件,可以在 read 后加一行 write……

比如

READ(1,*)a,b,c,d,e,f,g,h
write(*,*) a,b,c,d,e,f,g,h
7楼2011-04-14 10:39:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 10 个回答
lchunmei001(金币+10): 2011-04-14 08:55:47
引用回帖:
Originally posted by lchunmei001 at 2011-04-13 20:54:37:
请教一下大家,如下这样一个输入片段,到底输入文件应该如何命名?运行总是没有输出。请路过高手帮解答解答,感激不尽!
C--->  INPUT EXPERIMENTAL DATA
       WRITE(*,*)'elem ?'
       READ(*,'(A2)') ...

你这里都是在读取数据,没有输出啊……

C--->  INPUT EXPERIMENTAL DATA
       WRITE(*,*)'elem ?'
上面这行是在屏幕上输出 elem 这样的字符
       READ(*,'(A2)')elem
这里是读入一个长度为2的字符串,即你给 elem 的值
       WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
这里是给一个字符串 film1 赋值,它最终的值是是ab-??.IN,其中??是上一步获得的。但这里好象有点儿问题,应该是'(3A,2A,3A)',也可能是后面 'ab-' 这儿有问题。
       OPEN(1,FILE=FILM1,status='old')
这是打开一个名为 film1,即 ab-??.IN 的文件
       READ(1,*)
读入一行,但其值不被使用
       READ(1,*)
同上
       READ(1,*)a,b,c,d,e,f,g,h
为 a, b, c, d, e, f, g, h 赋值,这些值来自于上面的那个打开的文件……

其实,随便找一本 Fortran 的书,看 I/O 部分的讲解即可……
2楼2011-04-13 22:02:01
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
注意下面这句没有输出的,虽然用的是 write 函数……

WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
3楼2011-04-13 22:05:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dingxb

金虫 (正式写手)


lchunmei001(金币+10): 2011-04-14 08:55:54
引用回帖:
Originally posted by lchunmei001 at 2011-04-13 20:54:37:
请教一下大家,如下这样一个输入片段,到底输入文件应该如何命名?运行总是没有输出。请路过高手帮解答解答,感激不尽!
C--->  INPUT EXPERIMENTAL DATA
       WRITE(*,*)'elem ?'
       READ(*,'(A2)') ...

在下不才斗胆来说两句。

细观Lz的代码,惊奇的发现,这段代码写的真的挺值得学习的。

1 C--->  INPUT EXPERIMENTAL DATA
2      WRITE(*,*)'elem ?'
3       READ(*,'(A2)')elem
4       WRITE(FILM1,'(4A,2A,3A)')'ab-',elem,'.IN'
5       OPEN(1,FILE=FILM1,status='old')
6      READ(1,*)
7       READ(1,*)
8       READ(1,*)a,b,c,d,e,f,g,h


简单的来看,楼主需要输入的如下形式的东西。假设楼主的输入文件名为,ab-AA.IN.
则,lz在该程序中仅需输入“AA”, 这样应该可以保证没有问题。

实际上正如snoopyzhao 兄所说,语句4其本质就是一个字符串运算,而且他也指出,这里可能对于"ab-"的格式描述符"4A" 有问题。建议作者,仔细调试这一段,最简单的,可以在4后加上输出,看看是否有问题。

同时可以在open这里加上是否成功打开文件的判断标志。
4楼2011-04-14 08:00:43
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 C6CRn66RYYXS 2026-11-10 3/150 2026-11-11 17:47 by TgvkbZZl9tqB
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 FChKX8meu1ds 2026-11-09 7/350 2026-11-11 17:31 by TgvkbZZl9tqB
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +5 FChKX8meu1ds 2026-11-09 8/400 2026-11-11 17:11 by TgvkbZZl9tqB
[考研] 售SCI一区T0P文章,我:8.O.55.1.O54,科目全,可伽急 +4 FChKX8meu1ds 2026-11-09 6/300 2026-11-11 17:09 by TgvkbZZl9tqB
[基金申请] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +4 FChKX8meu1ds 2026-11-09 4/200 2026-11-11 14:04 by cdqGD6ftHmbl
[考研] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +5 FChKX8meu1ds 2026-11-09 6/300 2026-11-11 13:53 by cdqGD6ftHmbl
[考研] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +4 czAiolzR0IJC 2026-11-10 4/200 2026-11-11 12:14 by gRND4NVAZ8VG
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 czAiolzR0IJC 2026-11-10 3/150 2026-11-11 12:05 by gRND4NVAZ8VG
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 +3 C6CRn66RYYXS 2026-11-10 3/150 2026-11-11 11:41 by gRND4NVAZ8VG
[考研] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +3 C6CRn66RYYXS 2026-11-10 3/150 2026-11-11 11:38 by gRND4NVAZ8VG
[考研] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 ttH3f1oA6ace 2026-11-04 11/550 2026-11-11 08:54 by Equinoxhua
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +3 G2rhSvqvhNzl 2026-11-10 4/200 2026-11-11 08:34 by 1Nb0IVlmV6v0
[公派出国] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +4 zSbvVX9JFl9J 2026-11-09 6/300 2026-11-11 07:06 by Z7qfCsdIiD1T
[考博] 27博士申请 +3 白白白ly 2026-11-09 3/150 2026-11-09 21:39 by szq0819
[文学芳草园] 厉娜 +3 张丹枫1991 2026-11-09 5/250 2026-11-09 16:53 by 张丹枫1991
[公派出国] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +4 5sJFDKp2kwuI 2026-11-06 8/400 2026-11-09 00:14 by l48hFd8Nwae2
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 +5 5sJFDKp2kwuI 2026-11-06 9/450 2026-11-08 22:46 by l48hFd8Nwae2
[公派出国] 售SCI一区T0P文章,我:8.O.55.1.O.54,科目齐全,可+急 +5 ttH3f1oA6ace 2026-11-04 10/500 2026-11-06 16:12 by 5sJFDKp2kwuI
[硕博家园] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +4 ttH3f1oA6ace 2026-11-04 11/550 2026-11-06 16:10 by 5sJFDKp2kwuI
[考博] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +4 ttH3f1oA6ace 2026-11-04 7/350 2026-11-06 02:13 by qL1cU46YIdK0
信息提示
请填处理意见