Fortran中包含子程序和函數的模塊

Question

我正在學習正確使用子程序，函數和模塊，下面是一個簡單的例子，編譯時沒有發生錯誤，執行後，結果是4.57187637E-41而不是pi，我查了幾個引用，還沒有發現錯誤。

module wz 
    implicit none 
    private 
    public :: print_out 
    real,parameter :: pi = 3.14159 
    contains 
     subroutine print_out 
     implicit none 
     real :: area 
     print *, area 
     end subroutine print_out 

     function f(x) result(area) 
     implicit none 

     real, intent(in):: x 
     real   :: area 

     area = pi * x ** 2 
     end function f 
end module wz 

program test_module 
use wz 
implicit none 
    real :: x 
    x = 1. 
    call print_out 
end program test_module 

Answer 1

您正在打印的值是area，只是在聲明之後以及在做任何事情之前。你需要傳遞x到f功能，你可以做到這一點通過print_out子程序：

module wz 
    implicit none 
    private 
    public :: print_out 
    real,parameter :: pi = 3.14159 
    contains 
     subroutine print_out(x) 
     implicit none 
     real, intent(in) :: x 
     real :: area 
     area = f(x) 
     print *, area 
     end subroutine print_out 

     function f(x) result(area) 
     implicit none 

     real, intent(in):: x 
     real   :: area 

     area = pi * x ** 2 
     end function f 
end module wz 

program test_module 
use wz 
implicit none 
    real :: x 
    x = 1. 
    call print_out(x) 
end program test_module