1! -*- f90 -*- 2 3python module App 4interface 5 6 subroutine formFunction(nx, ny, nz, h, t, x, xdot, f) 7 intent(c) formFunction 8 integer, intent(in), intent(hide) :: nx = shape(x,0) 9 integer, intent(in), intent(hide) :: ny = shape(x,1) 10 integer, intent(in), intent(hide) :: nz = shape(x,2) 11 real(kind=8), intent(in) :: h(3), t 12 real(kind=8), intent(in) :: x(nx,ny,nz), xdot(nx,ny,nz) 13 real(kind=8), intent(inout) :: f(nx,ny,nz) 14 end subroutine formFunction 15 16 subroutine formInitial(nx, ny, nz, h, t, x) 17 intent(c) formInitial 18 integer, intent(in), intent(hide) :: nx = shape(x,0) 19 integer, intent(in), intent(hide) :: ny = shape(x,1) 20 integer, intent(in), intent(hide) :: nz = shape(x,2) 21 real(kind=8), intent(in) :: h(3), t 22 real(kind=8), intent(inout) :: x(nx,ny,nz) 23 end subroutine formFunction 24 25end python module App 26