[文件读写] 读取固定行数据出错

program mian
implicit none
integer,parameter::shou=1,wei=2,lie=140
integer,parameter::H=wei-shou+1
real::a(H,lie)
integer i
open(10,file="D:\哈弗\通量数据处理\通量\2003")


do i=1,H
    read(10,*)a(1,:),a(2,:)
end do 

  open(14,file="D:\哈弗\通量数据处理\通量结果所有\2003.txt")
  write(14,"(f8.1)")a(1,25),a(1,26),a(1,27),a(1,28),a(1,29),a(1,30),&
    a(2,25),a(2,26),a(2,27),a(2,28),a(2,29),a(2,30)

do i=1,H
    read(10,*)a(i,:)
end do ...
write(14,"(f8.1)") a(1,25:30), a(2,25:30)

program mianimplicit none
!real::a(1,140)
integer,parameter::shou=1,wei=1,lie=140
integer,parameter::H=wei-shou+1
real::a(H,lie)
real::mnpp(36),mco2(36),mnep(36)
integer i,j
open(10,file="D:\长白山03-05\通量数据处理\通量\2003")


do i=1,H
    read(10,*)a(1,:)
end do 
   open(11,file="D:\mnpp模拟结果\2003")
   write(11,"(f8.1)")a(1,69:104)
   open(12,file="D:\\mco2模拟结果\2003")
   write(12,"(f8.1)")a(1,105:140)

do j=1,36
    read(11,*)mnpp(j)
    read(12,*)mco2(j)
    mnep(j)=mnpp(j)-mco2(j)
end do 
    open(13,file="D:\NEP模拟结果\2003")
    write(13,"(f8.1)")mnep

  stop
end