From a7a4b45ab637c9045a2c2fdef890c0d1fb6ab2af Mon Sep 17 00:00:00 2001 From: allen Date: Sun, 20 Feb 2000 00:30:33 +0000 Subject: 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 --- src/ApplySymmetry.c | 58 ----------------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 src/ApplySymmetry.c 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 - -- cgit v1.2.3