Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. FortCpp

    pass unlimited polymorphic subroutine as argument and other issues

    mikrom, Thanks for the response. To me, "external" contains no information of the subroutine. My understanding is: "external" can be anything and the language leave this room for the linker. I don't know for sure why there is a seg fault. But I'd expect this is due to the FORTRAN standard...
  2. FortCpp

    pass unlimited polymorphic subroutine as argument and other issues

    Sorry, I made some grammar mistakes in the code, I have no idea how to edit the reply.
  3. FortCpp

    pass unlimited polymorphic subroutine as argument and other issues

    mikrom, Yes, I agree. But it doesn't compile if I make interface generic. For example subroutine poly(another_subroutine, A) class(*), intent(inout) :: A interface another_subroutine subroutine another_subroutine(AA) class(*), intent(inout) ::AA endsubroutine subroutine another_subroutine(AA)...
  4. FortCpp

    pass unlimited polymorphic subroutine as argument and other issues

    Thanks for your time and response mikrom. But I think there is some misunderstand here. In your example code, you shown that "a subroutine can take unlimited polymorphic types as imput parameters". My question is "Is it possible to make subroutine take unlimited polymorphic subroutines as well...
  5. FortCpp

    pass unlimited polymorphic subroutine as argument and other issues

    I am programming with FORTRAN oop features. Now I have a subroutine which takes another subroutine as its argument. But I want the subroutine takes unlimited polymorphic subroutine as the argument as well as normal subroutine. For example I have: subroutine PassFunc(MyFunc, MyInput)...

Part and Inventory Search

Back
Top