diff options
author | lanfer <lanfer@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2000-05-11 17:07:59 +0000 |
---|---|---|
committer | lanfer <lanfer@c78560ca-4b45-4335-b268-5f3340f3cb52> | 2000-05-11 17:07:59 +0000 |
commit | e0c6dffcce36f8a9deeb229d1300117347ae6eb7 (patch) | |
tree | f2acad9121d287fa22b20224068d36401ffeb1fe | |
parent | 199a0aafd5c81ebfd31e046cfd06df8a820c572e (diff) |
replaced bitant with Erics code
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@113 c78560ca-4b45-4335-b268-5f3340f3cb52
-rw-r--r-- | src/Bitant.c | 128 |
1 files changed, 0 insertions, 128 deletions
diff --git a/src/Bitant.c b/src/Bitant.c deleted file mode 100644 index e410108..0000000 --- a/src/Bitant.c +++ /dev/null @@ -1,128 +0,0 @@ - /*@@ - @file Bitant.c - @date Tue Nov 2 08:10:56 CET 1999 - @author Gabrielle Allen - @desc - Set up origin for bitant plane - @enddesc - @@*/ - -#include "cctk.h" -#include "cctk_Arguments.h" -#include "cctk_Parameters.h" - -static char *rcsid = "$Header$"; - -CCTK_FILEVERSION(CactusBase_CartGrid3D_Bitant_c) - - -void bitant_byspacing(CCTK_ARGUMENTS, - CCTK_REAL this_dx, - CCTK_REAL this_dy, - CCTK_REAL this_dz, - CCTK_REAL *x_origin, - CCTK_REAL *y_origin, - CCTK_REAL *z_origin) -{ - - DECLARE_CCTK_ARGUMENTS - DECLARE_CCTK_PARAMETERS - - if (CCTK_EQUALS(bitant_plane,"xy")) - { - - if (no_origin && no_originx) - { - *x_origin = (0.5 - cctk_gsh[0]/2)*this_dx; - } - else - { - *x_origin = (- cctk_gsh[0]/2)*this_dx; - } - - if (no_origin && no_originy) - { - *y_origin = (0.5 - cctk_gsh[1]/2)*this_dy; - } - else - { - *y_origin = (- cctk_gsh[1]/2)*this_dy; - } - - if (no_origin && no_originz) - { - *z_origin = (- cctk_nghostzones[2]+0.5)*this_dz; - } - else - { - *z_origin = (- cctk_nghostzones[2])*this_dz; - } - - } - else if (CCTK_EQUALS(bitant_plane,"xz")) - { - - if (no_origin && no_originx) - { - *x_origin = (0.5 - cctk_gsh[0]/2)*this_dx; - } - else - { - *x_origin = (- cctk_gsh[0]/2)*this_dx; - } - - if (no_origin && no_originy) - { - *y_origin = (- cctk_nghostzones[1]+0.5)*this_dy; - } - else - { - *y_origin = (- cctk_nghostzones[1])*this_dy; - } - - if (no_origin && no_originz) - { - *z_origin = (0.5 - cctk_gsh[2]/2)*this_dz; - } - else - { - *z_origin = (- cctk_gsh[2]/2)*this_dz; - } - - } - else if (CCTK_EQUALS(bitant_plane,"yz")) - { - - if (no_origin && no_originx) - { - *x_origin = (- cctk_nghostzones[0]+0.5)*this_dx; - } - else - { - *x_origin = (- cctk_nghostzones[0])*this_dx; - } - - if (no_origin && no_originy) - { - *y_origin = (0.5 - cctk_gsh[1]/2)*this_dy; - } - else - { - *y_origin = (- cctk_gsh[1]/2)*this_dy; - } - - if (no_origin && no_originz) - { - *z_origin = (0.5 - cctk_gsh[2]/2)*this_dz; - } - else - { - *z_origin = (- cctk_gsh[2]/2)*this_dz; - } - - } - - return; - - -} |