Fortran Coder

标题: 初学者有个问题想请教一下 [打印本页]

作者: 顶顶⁵²⁰� 时间: 2019-10-28 22:08
标题: 初学者有个问题想请教一下

[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
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

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

[mw_shl_code=fortran,true]

谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)