function - print - wordpress get all tags

Pasar procedimientos enlazados de tipo como argumentos

Question

Estoy tratando de pasar un procedimiento vinculado a un tipo como un argumento a otra subrutina. Quiero saber si esto es posible en Fortran. Aquí hay un fragmento de código que muestra lo que intento hacer.

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

¿Es esto posible en Fortran? Obtengo un error de compilación cuando trato de compilar este código usando ifort.

Answer 1

No nos mostró el mensaje de error exacto que recibió, y no intenté su ejemplo yo mismo, pero estoy bastante seguro de que el problema es que la interfaz del argumento ficticio de procedimiento no se corresponde con la interfaz de la real argumento que se le pasa.

Más explícitamente, random_subroutine se declara como tomar dos argumentos, mientras que test_obj%add_integers_up toma tres argumentos; aunque uno de ellos funciona como el argumento ficticio de objeto pasado, todavía cuenta como parte de la interfaz de ese procedimiento.

Answer 2

test_obj% add_integers_up no es un procedimiento; es un enlace que resulta ser un procedimiento llamado add_integers_up. No puede pasar un enlace como un argumento real.

Si desea pasar el procedimiento específico al que está asociado el enlace, ¡pase el procedimiento! Hipotéticamente:

call print_result_of_subroutine(i4, add_integers_up)

Pero como han señalado otros carteles, en su código de ejemplo, la interfaz de ese procedimiento no coincide con la interfaz del argumento ficticio correspondiente en print_result_of_subroutine.

Si test_obj% add_integers_up se refería a un componente de puntero de procedimiento asociado (y la interfaz para ese componente coincidía con lo esperado por print_result_of_subroutine), entonces las cosas funcionarían como parece estar esperando.

Tenga en cuenta que Fortran 90 no es compatible con los procedimientos de tipo enlazado (o los componentes de puntero de procedimiento); su código requiere mucho Fortran 2003.