关于fortran 提取文件数据 新手

vvt

[Fortran] 纯文本查看 复制代码

program ex
  implicit none
  integer m,i
  integer , allocatable :: days(:)
  real , allocatable :: tMax(:) , tMin(:)
  real :: srad
  open(8,file="cn003830.wth")
  !read(8,*)m  !//m无法再文件中获取，需手动输入或获取文件行数减去3，得到。
  m = 300 !//我假设是300个
  allocate(days(m),tMax(m),tMin(m))
  do i = 1,4
    read(8,*)
  end do !//跳过前4行
  do i = 1,m
    read(8,*) days(i) , srad , tMax(i) , tMin(i)
    write(*,*) days(i) , tMax(i) , tMin(i)
  enddo
end program ex

vvt

定义一个real变量，名叫srad

vvt

你的基础知识太薄弱，建议看看书。
基础的数组用法，循环，你还比较混乱。