gridloop2 wrapper

To glue F77 gridloop2 and the F77 callback function, we make a gridloop2 wrapper: 
      subroutine gridloop2_fcb(a, xcoor, ycoor, nx, ny)
      integer nx, ny
      real*8 a(0:nx-1,ny-1), xcoor(0:nx-1), ycoor(0:ny-1)
Cf2py intent(out) a
Cf2py depend(nx,ny) a
      real*8 fcb
      external fcb

      call gridloop2(a, xcoor, ycoor, nx, ny, fcb)
      return
      end
This wrapper and the callback function fc constitute the F77 source code, stored in source
The source calls gridloop2 so the module must be linked with the module containing gridloop2 (ext_gridloop.so)

previousnexttable of contents