| 1 | |
|---|
| 2 | ! File advection_ext.pyf |
|---|
| 3 | python module advection_ext |
|---|
| 4 | interface |
|---|
| 5 | subroutine compute_fluxes(stage_edge,stage_bdry,stage_update,neighbours,neighbour_edges,normals,areas,radii,edgelengths,tri_full_flag,huge_timestep,timestep,v,n) |
|---|
| 6 | intent(c) compute_fluxes |
|---|
| 7 | intent(c) |
|---|
| 8 | |
|---|
| 9 | double precision dimension(3,n) :: stage_edge |
|---|
| 10 | double precision dimension(3,n) :: stage_bdry, |
|---|
| 11 | double precision dimension(n) :: stage_update, |
|---|
| 12 | integer dimension(n) :: neighbours, |
|---|
| 13 | integer dimension(n) :: neighbour_edges, |
|---|
| 14 | double precision dimension(6,n) :: normals |
|---|
| 15 | double precision dimension(n) :: areas |
|---|
| 16 | double precision dimension(n) :: radii |
|---|
| 17 | double precision dimension(3,n) :: edgelengths |
|---|
| 18 | integer dimension(n) :: tri_full_flag |
|---|
| 19 | double precision :: huge_timestep |
|---|
| 20 | double precision :: timestep |
|---|
| 21 | double precision dimension(2) :: v |
|---|
| 22 | integer optional,check(shape(stage_edge,1)==n),depend(stage_edge) :: n=shape(stage_edge,0) |
|---|
| 23 | |
|---|
| 24 | end subroutine compute_fluxes |
|---|
| 25 | end interface |
|---|
| 26 | end python module |
|---|
| 27 | |
|---|
| 28 | |
|---|
| 29 | |
|---|
| 30 | |
|---|
| 31 | void compute_fluxes(double* stage_edge, |
|---|
| 32 | double* stage_bdry, |
|---|
| 33 | double* stage_update, |
|---|
| 34 | int* neighbours, |
|---|
| 35 | int* neighbour_edges, |
|---|
| 36 | double* normals, |
|---|
| 37 | double* areas, |
|---|
| 38 | double* radii, |
|---|
| 39 | double* edgelengths, |
|---|
| 40 | int* tri_full_flag, |
|---|
| 41 | double huge_timestep, |
|---|
| 42 | double timestep, |
|---|
| 43 | double* v, |
|---|
| 44 | int N){ |
|---|
