diff options
| author | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-10-22 20:39:54 +0000 |
|---|---|---|
| committer | schnetter <schnetter@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2004-10-22 20:39:54 +0000 |
| commit | db3727248c9e5f391ff690d0c7f5e279c02bf824 (patch) | |
| tree | bd21c3b09b1462608c84be6d028bacd152ed5728 /src | |
| parent | 785d14d7d111a1120b9595385c38dde6267ade95 (diff) | |
Pass Fortran arguments by reference
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@11 f69c4107-0314-4c4f-9ad4-17e986b73f4a
Diffstat (limited to 'src')
| -rw-r--r-- | src/call_norm_mask.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/call_norm_mask.c b/src/call_norm_mask.c index 5e7996a..98bb214 100644 --- a/src/call_norm_mask.c +++ b/src/call_norm_mask.c @@ -11,7 +11,7 @@ void SetNMask ( const CCTK_POINTER cctkGH_, CCTK_REAL *mask ) DECLARE_CCTK_ARGUMENTS CCTK_INT ni, nj, nk; - void CCTK_FCALL CCTK_FNAME(sbp_set_norm_mask)(const CCTK_POINTER cctkGH, + void CCTK_FCALL CCTK_FNAME(sbp_set_norm_mask)(const CCTK_POINTER *cctkGH, const CCTK_INT *ni, const CCTK_INT *nj, const CCTK_INT *nk, @@ -20,5 +20,5 @@ void SetNMask ( const CCTK_POINTER cctkGH_, CCTK_REAL *mask ) ni = cctk_lsh[0]; nj = cctk_lsh[1]; nk = cctk_lsh[2]; - CCTK_FNAME(sbp_set_norm_mask)(cctkGH_,&ni,&nj,&nk,mask); + CCTK_FNAME(sbp_set_norm_mask)(&cctkGH_,&ni,&nj,&nk,mask); } |