24小时热门版块排行榜    

查看: 2630  |  回复: 9
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

匿名

用户注销 (知名作家)


本帖仅楼主可见

» 收录本帖的淘帖专辑推荐

Monte Carlo 模拟(fortran 编程)

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

查看全部散金贴

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

匿名

用户注销 (知名作家)


本帖仅楼主可见
5楼2011-01-03 16:52:44
已阅   申请程序强帖   回复此楼   编辑   查看我的主页
查看全部 10 个回答

gsview

木虫 (小有名气)


★ ★ ★
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楼2011-01-03 14:33:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

匿名

用户注销 (知名作家)


本帖仅楼主可见
3楼2011-01-03 15:04:33
已阅   申请程序强帖   回复此楼   编辑   查看我的主页

gsview

木虫 (小有名气)


mastergxm(金币+1): 2011-01-03 16:51:17
不需要指定格式,空格,tab,都可以作为分割符!

行代码不需要读取,这是我以前一个程序中的一部分,需要对数组操作的,所以这里当数组读入了!
4楼2011-01-03 15:23:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 286分人工智能专业请求调剂愿意跨考! +3 lemonzzn 2026-03-17 3/150 2026-03-19 23:58 by 23Postgrad
[论文投稿] 申请回稿延期一个月,编辑同意了。但系统上的时间没变,给编辑又写邮件了,没回复 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[考研] 一志愿中国海洋大学,生物学,301分,求调剂 +5 1孙悟空 2026-03-17 6/300 2026-03-19 23:46 by zcl123
[考研] 0703化学调剂 +5 pupcoco 2026-03-17 8/400 2026-03-19 13:58 by houyaoxu
[考研] 一志愿福大288有机化学,求调剂 +3 小木虫200408204 2026-03-18 3/150 2026-03-19 13:31 by houyaoxu
[考研] 085600材料与化工求调剂 +6 绪幸与子 2026-03-17 6/300 2026-03-19 13:27 by houyaoxu
[考研] 一志愿天大材料与化工(085600)总分338 +5 蔡大美女 2026-03-13 5/250 2026-03-19 10:44 by 是小刘呀~
[考研] 274求调剂 +6 S.H1 2026-03-18 6/300 2026-03-19 09:34 by 花店相见
[考研] 0703化学 305求调剂 +4 FY_yy 2026-03-14 4/200 2026-03-19 05:54 by anny19840123
[考研] 330求调剂 +3 小材化本科 2026-03-18 3/150 2026-03-18 21:55 by 无懈可击111
[考研] 收复试调剂生 +4 雨后秋荷 2026-03-18 4/200 2026-03-18 14:16 by elevennnne
[考研] 268求调剂 +8 一定有学上- 2026-03-14 9/450 2026-03-17 17:47 by laoshidan
[考研] 332求调剂 +6 Zz版 2026-03-13 6/300 2026-03-17 17:03 by ruiyingmiao
[考研] 274求调剂 +5 时间点 2026-03-13 5/250 2026-03-17 07:34 by 热情沙漠
[考研] 一志愿211 0703方向310分求调剂 +3 努力奋斗112 2026-03-15 3/150 2026-03-16 16:44 by houyaoxu
[考研] 288求调剂 +4 奇点0314 2026-03-14 4/200 2026-03-14 23:04 by JourneyLucky
[考研] 080500,材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[考研] 本科南京大学一志愿川大药学327 +3 麦田耕者 2026-03-14 3/150 2026-03-14 20:04 by 外星文明
[考研] 328求调剂 +3 5201314Lsy! 2026-03-13 6/300 2026-03-14 15:31 by hyswxzs
[考研] 297求调剂 +4 学海漂泊 2026-03-13 4/200 2026-03-14 11:51 by 热情沙漠
信息提示
请填处理意见