diff options
| author | schnetter <schnetter@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-10-28 13:48:24 +0000 |
|---|---|---|
| committer | schnetter <schnetter@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-10-28 13:48:24 +0000 |
| commit | 7ce729799d3bf56ea66b14c93e14023b342b77d6 (patch) | |
| tree | 03f48dea0288a87de8c4f4fdd9bdc84aafd58455 | |
| parent | 12330918025efc50632ec2f3cf90a57dea4d4443 (diff) | |
Change the way in which pointers are passed to and from Fortran.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@358 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | interface.ccl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interface.ccl b/interface.ccl index 2642baf..037875e 100644 --- a/interface.ccl +++ b/interface.ccl @@ -5,7 +5,7 @@ implements: AHFinder inherits: ADMBase StaticConformal SpaceMask Grid IO ADMMacros -SUBROUTINE SetDriftCorrectPosition ( CCTK_POINTER IN GH_Pointer, \ +SUBROUTINE SetDriftCorrectPosition ( CCTK_POINTER_TO_CONST IN GH_Pointer, \ CCTK_REAL IN x, \ CCTK_REAL IN y, \ CCTK_REAL IN z ) |