fortran

在水一方，

program exam
parameter(g=9.7843,m1=1124,m=281,n=47)
character shijian(m1)*8,g1(m1)*1
!data e/'Record','data/time','10','tamp(k)','rh(%)','pres(mb)','tir(k)','Rain','vint(cm)','lpint(mm)'/
real a(m1),b(m1),c(m1),d(m1),p(m1),f(m1),h(m1),h1(m1)
real tem(m1),shuju(m1,n)
open(1,file='h:\shuju\200705\2007-05-19_19-62-32_lv2.csv')
read(1,*)
do i=1,m1,1
read(1,*) a(i),shijian(i),b(i),c(i),d(i),p(i),f(i),g1(i),h(i),h1(i),shuju(i,:)
write(*,*) shuju(i,:)
enddo
close(1)
end

在水一方，

求各位帮帮忙

在水一方，

{:5_213:}