Question

我遇到这样的问题：

main.f90 - ＆gt;包含MAIN文件
sub_A.f90 - ＆gt;包含子程序A
sub_B.f90 - ＆gt;包含子程序B
other_stuffs.f90 - ＆gt;包含第2点和第3点所需的所有功能。

所有四点都是单独写的。

main.f90时

include sub_A.f90
include sub_B.f90
include other_stuffs.f90

program MAIN
use A
use B
use other
     ...
     call proc_A   
     call_proc_B
end program MAIN

sub_A.f90

module A
contains
    subroutine proc_A
    use other            
    ...
        call compute_something_1
    end subroutine proc_A
end module A

sub_B.f90

module B
contains  
    subroutine proc_B
    use other            
    ...
        call compute_something_2
    end subroutine proc_B
end module B

other_stuffs.f90

module other
contains  
    subroutine compute_something_1
    ...
    end subroutine compute_something_1

    subroutine compute_something_2
    ...
    end subroutine compute_something_2
end module other

不幸的是，它没有用。我做错什么了吗？

Answer 1

您错过了contains模块中的other部分。只能从模块外部访问contains部分中的子程序，函数和变量。

module other

contains  
    subroutine compute_something_1
    ...
    end subroutine compute_something_1

    subroutine compute_something_2
    ...
    end subroutine compute_something_2
end module other

Answer 2

答案应如下

<强> main.f90时

IIS_IUSRS ([server name]\IIS_IUSRS)

<强> sub_A.f90

include other_stuffs.f90     !It becomes the first now
include sub_A.f90
include sub_B.f90

program MAIN
use other
use A
use B
     ...
     call proc_A   
     call_proc_B
end program MAIN

<强> sub_B.f90

module A
use other     ! CORRECT PLACE
contains
    subroutine proc_A
    ! use other             !WRONG PLACE !!!
    ...
        call compute_something_1
    end subroutine proc_A
end module A

<强> other_stuffs.f90

module B
use other     ! CORRECT PLACE
contains  
    subroutine proc_B
    ! use other             !WRONG PLACE !!!
    ...
        call compute_something_2
    end subroutine proc_B
end module B

谢谢大家。

Fortran模块需要位于另一个模块中的子例程

2 个答案: