|
|
★ ★ ★
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 |
|
回复此楼
10