Searched defs:formfunction_f (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/binding/petsc4py/demo/legacy/perftest/ |
| H A D | App.f90 | 52 subroutine formfunction_f(nx, ny, nz, h, t, x, xdot, f) subroutine
54 integer, intent(in) :: nx, ny, nz
55 real(kind=8), intent(in) :: h(3), t local
56 real(kind=8), intent(in) :: x(nx,ny,nz), xdot(nx,ny,nz)
57 real(kind=8), intent(inout) :: f(nx,ny,nz)
59 integer :: i,j,k,ii(-1:1),jj(-1:1),kk(-1:1)
60 real(kind=8) :: K1(-1:1), K2(-1:1), K3(-1:1)
61 real(kind=8) :: P1(-1:1), P2(-1:1), P3(-1:1)
|