Home
last modified time | relevance | path

Searched refs:dfdt_vdp (Results 1 – 2 of 2) sorted by relevance

/petsc/src/dm/tutorials/
H A Dex13f90aux.F9021 function dfdt_vdp(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, n, f) function
29 PetscReal, dimension(n, imax, jmax, kmax) :: dfdt_vdp
32 dfdt_vdp(1, :, :, :) = f(2, 1, 1, 1)
33 dfdt_vdp(2, :, :, :) = mu*(one - f(1, 1, 1, 1)**2)*f(2, 1, 1, 1) - f(1, 1, 1, 1)
34 end function dfdt_vdp
H A Dex13f90.F90140 call forw_euler(t, dt, ib1, ibn, jb1, jbn, kb1, kbn, imax, jmax, kmax, dof, f, dfdt_vdp)