diff options
| author | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-06-13 23:10:44 +0000 |
|---|---|---|
| committer | cott <cott@8e189c6b-2ab8-4400-aa02-70a9cfce18b9> | 2013-06-13 23:10:44 +0000 |
| commit | 93a82593bda5f12375e9b14ba6a2d0afcc93183e (patch) | |
| tree | 638b4f4445013c28549c86a19fbfd64a673a1ff5 /interface.ccl | |
| parent | 3981374c692be89efeff891df356fe570e14b1bf (diff) | |
slow down pointwise calls
* make a copy of the press routine, call it OMP, add interface
entry; use this routine for GF-wide calls.
* uglyness ensues
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinEOS/EOS_Omni/trunk@84 8e189c6b-2ab8-4400-aa02-70a9cfce18b9
Diffstat (limited to 'interface.ccl')
| -rw-r--r-- | interface.ccl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl index 57ef222..f652f69 100644 --- a/interface.ccl +++ b/interface.ccl @@ -22,6 +22,20 @@ void FUNCTION EOS_Omni_press(CCTK_INT IN eoskey, \ PROVIDES FUNCTION EOS_Omni_press WITH EOS_Omni_EOS_Press LANGUAGE Fortran +void FUNCTION EOS_Omni_pressOMP(CCTK_INT IN eoskey, \ + CCTK_INT IN havetemp, \ + CCTK_REAL IN rf_precision, \ + CCTK_INT IN npoints, \ + CCTK_REAL IN ARRAY rho, \ + CCTK_REAL INOUT ARRAY eps, \ + CCTK_REAL INOUT ARRAY temp, \ + CCTK_REAL IN ARRAY ye, \ + CCTK_REAL OUT ARRAY press, \ + CCTK_INT OUT ARRAY keyerr, \ + CCTK_INT OUT anyerr) + +PROVIDES FUNCTION EOS_Omni_pressOMP WITH EOS_Omni_EOS_PressOMP LANGUAGE Fortran + void FUNCTION EOS_Omni_DPressByDEps(CCTK_INT IN eoskey, \ CCTK_INT IN havetemp, \ |