csv数据读取并在subroutine中使用

vvt

详解  http://common.w.fcode.cn/

vvt

cyzhang 发表于 2020-5-11 10:35
感谢您的回复！
我现在做的是abaqus这个软件的二次开发，只能对这些subroutine中的特定函数进行定义，即 ...

1. 没有program也可以使用module，并不影响。
2. module没有限制不能使用read操作。
3. 多个subroutine可以 use 同一个module，或者不同module，都可以。
4. module可以只用来共享数据，也可以执行读取操作。

vvt

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

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