【求助】FORTRAN读取文本文件 - 程序语言 - Fortran - 小木虫论坛-学术科研互动平台

版块导航: 正在加载中...

客户端APP下载

论文辅导

申博辅导

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

>论坛更新日志 (3655)
>文献求助 (321)
>导师招生 (307)
>虫友互识 (295)
>休闲灌水 (97)
>论文投稿 (81)
>招聘信息布告栏 (72)
>硕博家园 (68)
>考博 (68)
>博后之家 (66)
>公派出国 (52)
>催化 (48)
>考研 (42)
>基金申请 (41)
>论文道贺祈福 (40)
>教师之家 (34)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

匿名

用户注销 (知名作家)

应助: 1 (幼儿园)
金币: 3228.2
帖子: 6711
在线: 384.6小时
虫号: 0

本帖仅楼主可见

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

查看全部散金贴

1楼 2011-01-03 13:41:52

已阅同方向广播申请程序强帖回复此楼编辑删除查看我的主页

wu330324

铜虫 (小有名气)

应助: 3 (幼儿园)
金币: 81.9
帖子: 256
在线: 194.4小时
虫号: 1947841

★
小木虫: 金币+0.5, 给个红包，谢谢回帖

请问楼主，这个问题是怎么解决的？
鄙人现正遇到这个问题，还望赐解！！
谢谢！

赞一下

回复此楼

9楼2015-04-27 20:43:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

查看全部 10 个回答

gsview

木虫 (小有名气)

应助: 4 (幼儿园)
金币: 2446.9
帖子: 146
在线: 233.8小时
虫号: 443276

★ ★ ★
mastergxm(金币+2): 2011-01-03 15:02:41
余泽成(金币+3):谢谢参与应助！ 2011-01-05 20:44:24

程序
program rw

dimension cpp(1000,1000)
open (unit=12,file='data.dat',Status='old')
nn=5
ndim=3
do i=1,4
read (12,*)
end do
do
   read(12,*,End=1000) cpp(nn,1:ndim)
   write(13,'(50f15.10)')cpp(nn,3)
   nn=nn+1
   end do
1000    close(12)
end

测试数据

a
b
c
  -1.0000000000 0.0001520507  -0.0002072296
  -0.9499999881 0.0001520507  -0.0002178600
  -0.8999999762 0.0001520507  -0.0002279453
  -0.8500000238 0.0001520507  -0.0002374854
  -0.8000000119 0.0001520507  -0.0002464803
  -0.7500000000 0.0001520507  -0.0002549301
  -0.6999999881 0.0001520507  -0.0002628347
  -0.6499999762 0.0001520507  -0.0002701942
  -0.6000000238 0.0001520507  -0.0002770086
  -0.5500000119 0.0001520507  -0.0002832778
  -0.5000000000 0.0001520507  -0.0002890018
  -0.4499999881 0.0001520507  -0.0002941807

输出结果：
  -0.0002178600
  -0.0002279453
  -0.0002374854
  -0.0002464803
  -0.0002549301
  -0.0002628347
  -0.0002701942
  -0.0002770086
  -0.0002832778
  -0.0002890018
  -0.0002941807

赞一下(2人)

回复此楼

2楼2011-01-03 14:33:31

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖