diff options
author | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 1999-12-01 13:36:25 +0000 |
---|---|---|
committer | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 1999-12-01 13:36:25 +0000 |
commit | 6b266c308ed6ed21b401e3a670cc017286d79036 (patch) | |
tree | 759c532bf74cfc87e989c4ff2d2ab01e60b42274 /src/psi_1st_deriv.x | |
parent | f50dd221f56adcee042c811725c2dae63edf23c0 (diff) |
This commit was generated by cvs2svn to compensate for changes in r2,
which included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@3 971fb155-194f-0410-9daf-e2eca44e59f5
Diffstat (limited to 'src/psi_1st_deriv.x')
-rw-r--r-- | src/psi_1st_deriv.x | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/psi_1st_deriv.x b/src/psi_1st_deriv.x new file mode 100644 index 0000000..d0a0be2 --- /dev/null +++ b/src/psi_1st_deriv.x @@ -0,0 +1,20 @@ + o1 = 5.0000000000000d-1*eta(i,j,k) + o2 = exp(o1) + o3 = psi3d(i,j,k) + o4 = 1/o3 + o5 = cos(phi(i,j,k)) + o6 = cos(q(i,j,k)) + o7 = dqpsi3d(i,j,k) + o8 = -1.50000000000000d0*eta(i,j,k) + o9 = exp(o8) + o10 = dphipsi3d(i,j,k) + o11 = sin(phi(i,j,k)) + o12 = sin(q(i,j,k)) + o13 = 1/o12 + o14 = detapsi3d(i,j,k) + psix(i,j,k) = o2*o4*(-(o10*o11*o13*o9) + o12*o14*o5*o9 - 5.00000 + & 00000000d-1*o12*o3*o5*o9 + o5*o6*o7*o9) + psiy(i,j,k) = o2*o4*(o11*o12*o14*o9 - 5.0000000000000d-1*o11*o12 + & *o3*o9 + 1.00000000000000d0*o10*o13*o5*o9 + o11*o6*o7*o9) + psiz(i,j,k) = o2*o4*(o14*o6*o9 - 5.0000000000000d-1*o3*o6*o9 - o + & 12*o7*o9) |