|
Last change
on this file since 4967 was
4967,
checked in by steve, 16 years ago
|
|
Playing with f2py for adding C extensions
|
|
File size:
1.1 KB
|
| Line | |
|---|
| 1 | |
|---|
| 2 | ! File advection_ext.pyf |
|---|
| 3 | python module advection_ext |
|---|
| 4 | interface |
|---|
| 5 | double precision function compute_fluxes(stage_edge,stage_bdry,stage_update,neighbours,neighbour_edges,normals,areas,radii,edgelengths,tri_full_flag,huge_timestep,max_timestep,v,n) |
|---|
| 6 | intent(c) compute_fluxes |
|---|
| 7 | intent(c) |
|---|
| 8 | |
|---|
| 9 | double precision dimension(*) :: stage_edge |
|---|
| 10 | double precision dimension(*) :: stage_bdry, |
|---|
| 11 | double precision dimension(*) :: stage_update, |
|---|
| 12 | integer dimension(*) :: neighbours, |
|---|
| 13 | integer dimension(*) :: neighbour_edges, |
|---|
| 14 | double precision dimension(*) :: normals |
|---|
| 15 | double precision dimension(*) :: areas |
|---|
| 16 | double precision dimension(*) :: radii |
|---|
| 17 | double precision dimension(*) :: edgelengths |
|---|
| 18 | integer dimension(*) :: tri_full_flag |
|---|
| 19 | double precision :: huge_timestep |
|---|
| 20 | double precision :: max_timestep |
|---|
| 21 | double precision dimension(2) :: v |
|---|
| 22 | integer :: n |
|---|
| 23 | |
|---|
| 24 | end function compute_fluxes |
|---|
| 25 | end interface |
|---|
| 26 | end python module |
|---|
| 27 | |
|---|
| 28 | |
|---|
| 29 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
