diff options
| author | shusa <shusa> | 2005-01-25 22:27:31 +0000 |
|---|---|---|
| committer | shusa <shusa> | 2005-01-25 22:27:31 +0000 |
| commit | 3627752b599846c6ee84c172d66273cb844a0271 (patch) | |
| tree | 0ec20a792dffbb4428b901dd80d70cf39d311f63 /Tools/CodeGen/Thorn.m | |
| parent | c79a292aeee6f3b0424feafd010fe9e29270a21a (diff) | |
fixed some code in the interface to Lego-Excision that was not proper F90 as
pointed out by Erik:
if ( (excision).AND.(find_excision_boundary) ) then
is illegal in F90, because the Cactus-BOOLEAN-variables become integers
in Fortran. Now we use:
if ( (excision.ne.0).AND.(find_excision_boundary.ne.0) ) then
Diffstat (limited to 'Tools/CodeGen/Thorn.m')
| -rw-r--r-- | Tools/CodeGen/Thorn.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/CodeGen/Thorn.m b/Tools/CodeGen/Thorn.m index 0719f29..b161705 100644 --- a/Tools/CodeGen/Thorn.m +++ b/Tools/CodeGen/Thorn.m @@ -868,7 +868,7 @@ CreateMoLExcisionSource[spec_] := "ny = cctk_lsh(2)\n", "nz = cctk_lsh(3)\n\n", - "if ( (excision).AND.(find_excision_boundary) ) then\n\n", + "if ( (excision .ne. 0).AND.(find_excision_boundary .ne. 0) ) then\n\n", " call excision_findboundary(ierr, emask, nx, ny, nz)\n", " if (ierr < 0) call CCTK_WARN(2, \"findboundary exited with an error\")\n\n", @@ -891,7 +891,7 @@ CreateMoLExcisionSource[spec_] := "ny = cctk_lsh(2)\n", "nz = cctk_lsh(3)\n\n", - "if ( (excision).AND.(find_excision_normals) ) then\n\n", + "if ( (excision .ne. 0).AND.(find_excision_normals .ne. 0) ) then\n\n", " call excision_findnormals(ierr, emask, exnormx, exnormy, exnormz, nx, ny, nz)\n", " if (ierr < 0) call CCTK_WARN(2, \"findnormals exited with an error\")\n\n", |