diff options
| author | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2000-02-20 00:30:33 +0000 |
|---|---|---|
| committer | allen <allen@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2000-02-20 00:30:33 +0000 |
| commit | a7a4b45ab637c9045a2c2fdef890c0d1fb6ab2af (patch) | |
| tree | ed2795867c8a82ee645b50306975f7b44e854a62 | |
| parent | fa59f441a667af021b058e6fe0318f2aba565085 (diff) | |
Removed strange fortran file with a c extension which isn't used.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@93 c78560ca-4b45-4335-b268-5f3340f3cb52
| -rw-r--r-- | src/ApplySymmetry.c | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/src/ApplySymmetry.c b/src/ApplySymmetry.c deleted file mode 100644 index a0b5ba3..0000000 --- a/src/ApplySymmetry.c +++ /dev/null @@ -1,58 +0,0 @@ - -/*@@ - @routine FortranSym - @date Mon Mar 15 15:51:57 1999 - @author Gerd Lanfermann - @desc - Routine performs the symmetry boundary operations. - @enddesc - @calls - @calledby - @history - - @endhistory -@@*/ - - subroutine FortranSym(nxyz,var,nghostzones,sym,doSym) - - implicit none - - INTEGER nxyz(3) - CCTK_REAL var(nxyz(1),nxyz(2),nxyz(3)) - INTEGER nghostzones - INTEGER sym(3) - INTEGER doSym(3) - - INTEGER sw - -c Apply symmetry if -c * the grid chunk has a physical boundary (bbox) -c * its size in a direction is bigger than one (sh) -c * we actually want a symmetry (sx.ne.ESYM_UNSET) - - if (doSym(1) == 1) then - - do sw=1, nghostzones - var(sw,:,:) = sym(1)*var(nghostzones+sw,:,:) - end do - - end if - - if (doSym(2) == 1) then - - do sw=1, nghostzones - var(:,sw,:) = sym(2)*var(:,nghostzones+sw,:) - end do - - end if - - if (doSym(3).eq.1) then - - do sw=1, nghostzones - var(:,:,sw) = sym(3)*var(:,:,nghostzones+sw) - end do - - end if - - end subroutine - |