Question

为了简化我的代码，我决定以下列方式在另一个模块中创建一个模块：

   module A
    contains                                                                                                                         
        module B
        real*8, parameter ::pi=3.14159
        end module B
   end module A


   program test
   use A
   write(*,*)pi
   end

这不起作用。什么是简化模块的策略？

Answer 1

我认为你想要的是这样的：

module B
    implicit none
    real, parameter :: pi = 3.14159
end module B

module A
    use B
    implicit none
end module A

program main
    use A
    implicit none
    print*, pi
end program main

如何在主模块中包含模块？

1 个答案: