fortran 读入时间 其中的/怎么处理？

yxying

用fortran读入数据如：
2000/1/1 0:00:00,5.3,4.5
我写的程序是：
character*8 time,hour
  real un,cn

read(1,*) time,hour,un,cn
read(time(1:4),*) year
read(time(6:6),*) month
read(time(8:8),*) day

读不出来，刚刚开始用fortran，求大神指导~

貌似是读入字符串time时仅能读入到2000，/之后的就不能读入了，怎么处理呢？
谢谢！

小虫小虫

/是终止符，具体你查查书，以前也遇到过这个问题。不难解决。

koala54

如果没有指定读入数据的格式，fortran读到 / 符号就会终止。指定一下读入的格式就可以了

言深深

可以试试定义一个/的字符去读取，或者在文本文件里面替换掉。

smile2wind

read(1,*) time,hour,un,cn
问题出在这一行。
你可以print*,time  看看就知道了。
fortran认为/是换行符或者行终止符，所以读到这就不读了。

你得改成read(1,'(a8,1x,a9,2*(1x,f3.1))')time,hour,un,cn

刷牙

smile2wind 发表于 2015-6-26 12:32
read(1,*) time,hour,un,cn
问题出在这一行。
你可以print*,time  看看就知道了。

根据楼上的说法，我试了一下，是可行的
program main
implicit none
character*8 time,hour
real un,cn
open(100,file='time.txt')
read(100,'(a8,1x,a7,2(1x,f3.1))')time,hour,un,cn
print*, time,hour,un,cn
end

yxying

谢谢！解决了~{:eb502:}