1! -*- f90 -*- 2 3python module Bratu2D 4 5usercode ''' 6#include "Bratu2Dmodule.h" 7''' 8 9interface 10 11 subroutine FormInitGuess(dm, x, param, ierr) 12 !integer, parameter :: HANDLE_KIND=4 13 integer(kind=HANDLE_KIND) dm ! DM 14 integer(kind=HANDLE_KIND) x ! Vec 15 real(kind=8) param 16 integer, intent(out) :: ierr 17 end subroutine FormInitGuess 18 19 subroutine FormFunction(dm, x, f, param, ierr) 20 !integer, parameter :: HANDLE_KIND=4 21 integer(kind=HANDLE_KIND) dm ! DM 22 integer(kind=HANDLE_KIND) x ! Vec 23 integer(kind=HANDLE_KIND) f ! Vec 24 real(kind=8) param 25 integer, intent(out) :: ierr 26 end subroutine FormFunction 27 28 subroutine FormJacobian(dm, x, J, param, ierr) 29 !integer, parameter :: HANDLE_KIND=4 30 integer(kind=HANDLE_KIND) dm ! DM 31 integer(kind=HANDLE_KIND) x ! Vec 32 integer(kind=HANDLE_KIND) J ! Vec 33 real(kind=8) param 34 integer, intent(out) :: ierr 35 end subroutine FormJacobian 36 37end interface 38 39end python module Bratu2D 40