Originally posted by snoopyzhao at 2011-05-08 07:22:43:
你上面给出的数据中没有字符串啊……

Originally posted by snoopyzhao at 2011-05-08 10:12:11:
ascii 的回车，表示 Go to the beginning of the current line，所以，利用这一特性，可以模拟你的要求，呵呵……

Originally posted by shixha at 2011-05-08 12:33:52:
ITEM: TIMESTEP
415000
ITEM: NUMBER OF ATOMS
32000
ITEM: BOX BOUNDS
-6.86901 78.269
-6.86901 78.269
-6.86901 78.269
ITEM: ATOMS id type xs ys zs
25103 1 0.436324 0.100938 0.0298728
2888 ...

Originally posted by shixha at 2011-05-08 12:33:52:
ITEM: TIMESTEP
415000
ITEM: NUMBER OF ATOMS
32000
ITEM: BOX BOUNDS
-6.86901 78.269
-6.86901 78.269
-6.86901 78.269
ITEM: ATOMS id type xs ys zs
25103 1 0.436324 0.100938 0.0298728
2888 ...

Originally posted by snoopyzhao at 2011-05-08 13:13:26:
如果行数一直是固定的，那么直接用 do i=1,...end do 来做也是可以的……

701330楼: Originally posted by snoopyzhao at 2011-05-07 18:12:15
第一个问题你没有说清楚，所以不知道你要干什么，至少应该给出数据，及你想要的结果……

第二个问题，可以试一下下面的代码：


program test

   character(len=20) :: a, b
   character*1 creturn ! co ...

1599787楼: Originally posted by sunyang1988 at 2013-02-27 09:35:34
你好，我用了类似上面的这段代码，在一个循环中想输出如下的完成度，
1/10000
2/10000
3/10000
4/10000
每一次都覆盖前面的，防止出现刷屏的情况。但用了这段代码，发现这一行始终是空的，直到程序终止（正常 ...

1599887楼: Originally posted by snoopyzhao at 2013-02-27 20:26:55
你先把你的问题代码给出来看看吧……...

1599894楼: Originally posted by sunyang1988 at 2013-02-27 20:57:01
按照你说过的代码，做如下循环
program test
integer(8)::a,b
character(1)::creturn=achar(13)
do a=1,10
write(*,'(A,I)',advance='no') creturn,a
end do
end program test

我希望得到的结果是在屏幕 ...

1599924楼: Originally posted by snoopyzhao at 2013-02-27 23:11:45
其实程序没有什么问题，只是你的a给得太小了，而你的计算机可能太快了，把 a 换成 10000 再看一下

另外，(A,I) 这一句是有错误的，I后面必须要有一个整数，如 I5……

至于 char 和 achar 这样的内置函数，请 ...