#2886: support cell centered directions when calling Fortran scheduled functions
Reporter:Roland Haas
Status:open
Milestone:
Version:
Type:enhancement
Priority:major
Component:Cactus

Comment (by Roland Haas):

A somehwat ugly workaround right now would be use of Fortran 2003’s iso_c_binding module and using C pointers as intermediate pointers as in https://gcc.gnu.org/onlinedocs/gfortran/C_005fF_005fPOINTER.html

    program main
      use iso_c_binding
      implicit none
      interface
        subroutine my_routine(p) bind(c,name='myC_func')
          import :: c_ptr
          type(c_ptr), intent(out) :: p
        end subroutine
      end interface
      type(c_ptr) :: cptr
      real,pointer :: a(:)
      call my_routine(cptr)
      call c_f_pointer--

Ticket URL: https://bitbucket.org/einsteintoolkit/tickets/issues/2886/support-cell-centered-directions-when