多くのサブルーチンにポインタを渡す適切な方法

Question

私は非常に優れたプログラマーではなく、データをポインタとして提供するモデルとのインターフェースをとろうとしています。これらのポインタは、データが書き込まれる前にいくつかのサブルーチンに渡されます。私はメモリリークを避けるためにこれを行う方法がわかりません。

アレイポインタAが書き込まれる前にいくつかのサブルーチンに渡されているとします。宣言、割り当て、および割り当てをどのように処理しますか？

module data 

implicit none 
contains 

subroutine s1(a) 
real, pointer, intent(out) :: a(5,5) 

call s2(a) 
end subroutine s1 

subroutine s2(a) 
real, pointer, intent(out) :: a(5,5) 
integer :: i 

do i = 1,5 
    a(:,i) = 5.0 
end do 
end subroutine s2 
end module data 

Program test 
use data, only : s1, s2 
real, pointer, dimension(:,:) :: A => NULL() 
allocate(A(5,5)) 
call s1(A) 
write(*,*) A 
deallocate(A) 
end Program test 

Answer 1

はあなたのコードは、Fortranではないことに注意してください90.

のFortran 2003

に導入されたポインタであるダミー（正式な）引数の intent属性 intentは、ポインタの結合状態を指し、その目標にはならない。また、引数が ポインタコンポーネントを持つ派生型である場合、 intentはポインタのターゲットではなく型オブジェクト自体に適用されます。つまり、ポインタがに標的化されること、例えば、 intent(in)が使用される場合など、データ領域では変更することができる。

module MyType_mod 

    implicit none 
    private 

    type, public :: MyType 
    integer, pointer :: ptr(:) 
    contains 
    procedure :: sub => my_type_sub 
    end type MyType 

contains 

    subroutine my_type_sub(self) 
    ! Dummy argument 
    class(MyType), intent(in) :: self 

    ! The following is perfectly legal, 
    ! even though intent(in) was specified 
    self%ptr = 42 

    end subroutine my_type_sub 

end module MyType_mod 

program main 

    use MyType_mod, only: & 
     MyType 

    implicit none 

    type(MyType) :: foo 
    integer  :: alloc_stat 

    allocate(integer :: foo%ptr(100), stat=alloc_stat) 
    call foo%sub() 

end program main 

必要ないにもかかわらず、そのような前の例とする場合には、に優れています状態intent(inout)を使用して、データの変更が行われていることを読者に示します。別のノートで

、あなたがこの回答に有用Fortran subroutine returning wrong values