csv数据读取并在subroutine中使用

vvt

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

Module var_mod
  integer, parameter ::n = 24
  real SPZFS(n),QW(n),FS(n),TDL(n),BDL(n),LDL(n)
End Module var_mod

subroutine test
  use var_mod
  implicit none
  integer ::i
  open(107,file='D:\Desktop\read\weatherdata.csv',status='old')
  do i=1,n
    read(107,*) SPZFS(i),QW(i),FS(i),TDL(i),BDL(i),LDL(i)
  end do
  close(107)
end subroutine test


program main
  use var_mod
  implicit none
  call test
  write(*,*)SPZFS(n)
end

cyzhang

necrohan 发表于 2020-5-11 14:04
read(107,*) SPZFS(n),QW(n),FS(n),TDL(n),BDL(n),LDL(n)
把这里的n都改成i。

感谢！已经解决了！

cyzhang

vvt 发表于 2020-5-11 19:28
1. 没有program也可以使用module，并不影响。
2. module没有限制不能使用read操作。
3. 多个subroutine可 ...

谢谢您！已经解决了