- 积分
- 1808
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-5-10
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 lqouc 于 2014-3-25 10:56 编辑
简单读取带有时间的txt,却读不了
代码如下:
program main
implicit none
integer m
parameter(m=180000)
integer i,j
character*10 a(m),b(m)
real(kind=8) c(m),d(m),e(m),f(m),g(m),h(m),k(m)
open(1,file='h:\rr\xuanzhuanhouzhengque\012071330.txt')
do i=1,180000
read(1,100) a(i),b(i),c(i),d(i),e(i),f(i),g(i),h(i),k(i)
end do
100 format(2a10,7f16.10)
print *,a(1)
print *,c(1)
close(1)
end
|
-
-
-
-
1.f90
376 Bytes, 下载次数: 1, 下载积分: 金钱 -5
|