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