|
|
★ ★ ★ mastergxm(金幣+2): 2011-01-03 15:02:41 余澤成(金幣+3):謝謝參與應(yīng)助! 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
測(cè)試數(shù)據(jù)
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
輸出結(jié)果:
-0.0002178600
-0.0002279453
-0.0002374854
-0.0002464803
-0.0002549301
-0.0002628347
-0.0002701942
-0.0002770086
-0.0002832778
-0.0002890018
-0.0002941807 |
|