fortranのサブルーチンと関数を含むモジュール

Question

私はサブルーチン、関数、モジュールの正しい使い方を学んでいます。以下は簡単な例です。コンパイル中にエラーは発生せず、結果はpiではなく4.57187637E-41です。参照、まだ間違いを発見していない。

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です。あなたはxfに関数を渡す必要がある、とあなたは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