| 
 
	积分1808贡献 精华在线时间 小时注册时间2013-5-10最后登录1970-1-1 
 | 
 
| 
本帖最后由 lqouc 于 2014-3-25 10:56 编辑
x
登录后查看更多精彩内容~您需要 登录 才可以下载或查看,没有帐号?立即注册 
  
 简单读取带有时间的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  
 |