初学者 有个问题想请教一下

fcode

use 语句要在程序单元的最上面

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

module global
implicit none
  contains
   subroutine fun(a)
    real a(:,:)
    a = 3
   End subroutine
end module

Program www_fcode_cn
  use  global
  Implicit None
  real a(3,2)
  Write (*, '(6f3.0)') a
end program