diff options
| author | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-03-20 21:40:17 +0000 |
|---|---|---|
| committer | allen <allen@6a3ddf76-46e1-4315-99d9-bc56cac1ef84> | 1999-03-20 21:40:17 +0000 |
| commit | 1cdf4bc6e9ff4891b2299a6a2176ce316eb73a6e (patch) | |
| tree | b1ce9599cf6dc3b0f92bdc5da8a5806df0ce59f5 /src | |
| parent | 3684059561a520ca5b96d7727b612d60d306af6e (diff) | |
Linux doesn't allow integers to be treated a logics
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAnalyticBH/trunk@9 6a3ddf76-46e1-4315-99d9-bc56cac1ef84
Diffstat (limited to 'src')
| -rw-r--r-- | src/BrillLindquist.F | 4 | ||||
| -rw-r--r-- | src/Misner_multiple.F | 2 | ||||
| -rw-r--r-- | src/Misner_standard.F | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/src/BrillLindquist.F b/src/BrillLindquist.F index 287e531..03c8f9b 100644 --- a/src/BrillLindquist.F +++ b/src/BrillLindquist.F @@ -71,7 +71,7 @@ c Initialize to zero and then use += c ---------------------------------- psi = 1.0D0 - if (use_conformal_derivs) then + if (use_conformal_derivs == 1) then psix = 0.0D0 psiy = 0.0D0 @@ -93,7 +93,7 @@ c ------------ &0+y**2+2.D0*y*hole_y0(i)+hole_y0(i)**2.D0+z**2+2.D0*z*hole_z0(i)+h &ole_z0(i)**2.D0)/2.D0 - if (use_conformal_derivs) then + if (use_conformal_derivs == 1) then Psix = Psix-hole_mass(i)/sqrt(x**2+2.D0*x*hole_x0(i)+hole_x0(i)**2 &.D0+y**2+2.D0*y*hole_y0(i)+hole_y0(i)**2.D0+z**2+2.D0*z*hole_z0(i) diff --git a/src/Misner_multiple.F b/src/Misner_multiple.F index 04e7348..433aa7a 100644 --- a/src/Misner_multiple.F +++ b/src/Misner_multiple.F @@ -60,7 +60,7 @@ c -------------------------------------------- c Only calculate derivatives of psi if required c --------------------------------------------- - if (use_conformal_derivs) then + if (use_conformal_derivs == 1) then call MisnerEvalPsi(xval+nm_eps,yval,zval,tmp1) call MisnerEvalPsi(xval-nm_eps,yval,zval,tmp2) diff --git a/src/Misner_standard.F b/src/Misner_standard.F index 08d9c67..35f04ec 100644 --- a/src/Misner_standard.F +++ b/src/Misner_standard.F @@ -84,7 +84,7 @@ c ------------------------------- r2 = sqrt(x**2+y**2+(z-coth)**2) psi = psi + csch*(one/r1 + one/r2) - if (use_conformal_derivs) then + if (use_conformal_derivs == 1) then psix = psix + (-(x/r2**3)-x/r1**3)*csch psiy = psiy + (-(y/r2**3)-y/r1**3)*csch psiz = psiz + (-((z-coth)/r2**3)-(z + coth)/r1**3)*csch |