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

顶顶⁵²⁰� · 发表于 2019-10-28 22:08:11

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

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

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

错误
Error: USE statement at (1) cannot follow data declaration statement at (2)
提示错误在use上改了好久不知道怎么办呢

fcode · 发表于 2019-10-28 22:40:36

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

顶顶⁵²⁰� · 发表于 2019-10-29 11:54:55

fcode 发表于 2019-10-28 22:40
use 语句要在程序单元的最上面

[mw_shl_code=fortran,true]

谢谢

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

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章

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

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章

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