4

型にバインドされたプロシージャを引数として別のサブルーチンに渡そうとしています。これがFortranで可能かどうか知りたいです。これが私がやろうとしていることを示すコードスニペットです。

module type_definitions 
 type test_type 
 integer :: i1, i2,i3
 contains 
   procedure :: add_integers_up 
 end type test_type
 contains 
   subroutine add_integers_up(this,i4,ans)
       class(test_type) :: this 
       integer :: i4,ans 
       ans = this%i1+this%i2+this%i3+i4
    end subroutine add_integers_up

subroutine print_result_of_subroutine(i4,random_subroutine) 
  integer :: i4,ans 

  interface 
     subroutine  random_subroutine(i1,i2) 
       integer:: i1,i2
     end subroutine random_subroutine
  end interface

  call random_subroutine(i4,ans) 
  write(*,*) ans 


end subroutine print_result_of_subroutine


end module type_definitions


program main 
   use type_definitions
   implicit none 
   integer :: i1,i2,i3,i4
   integer :: ans 
   type(test_type) :: test_obj

   i1 =1; i2=2; i3=3
   test_obj%i1 = i1 
   test_obj%i2 = i2 
   test_obj%i3 = i3 
   i4 = 4

   call print_result_of_subroutine(i4,test_obj%add_integers_up) 

    end program main

これはFortranで行うことができますか?ifortを使用してこのコードをコンパイルしようとすると、コンパイラエラーが発生します。

4

2 に答える 2

6

test_obj%add_integers_upはプロシージャではありません。これは、add_integers_upと呼ばれるプロシージャへのバインディングです。バインディングを実際の引数として渡すことはできません。

バインディングが関連付けられている特定のプロシージャを渡す場合は、プロシージャを渡します。仮に:

call print_result_of_subroutine(i4, add_integers_up)

しかし、他の投稿者が指摘しているように、サンプルコードでは、そのプロシージャのインターフェイスは、print_result_of_subroutineの対応するダミー引数のインターフェイスと一致しません。

test_obj%add_integers_upが関連するプロシージャポインタコンポーネントを参照している場合(およびそのコンポーネントのインターフェイスがprint_result_of_subroutineで期待されていたものと一致した場合)、期待どおりに機能します。

Fortran 90は、型にバインドされたプロシージャ(またはプロシージャポインタコンポーネント)をサポートしていないことに注意してください。コードには、Fortran2003が非常に必要です。

于 2012-07-19T22:54:16.000 に答える
3

受け取った正確なエラーメッセージを表示せず、自分で例を試しませんでしたが、問題は、プロシージャのダミー引数のインターフェイスが実際のインターフェイスに対応していないことです。渡される引数。

より明確に言えば、random_subroutine2つの引数を取ると宣言され、test_obj%add_integers_up3つの引数を取ると宣言されます。それらの1つは渡されたオブジェクトのダミー引数として機能しますが、それでもそのプロシージャのインターフェイスの一部としてカウントされます。

于 2012-07-03T23:18:38.437 に答える