diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-30 19:00:02 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-30 19:00:02 +0000 |
commit | 4fbcf2fd94364cafbf2364ae19a103f62b0ac7d3 (patch) | |
tree | f7c1293f3cc9ce7a1a54222b3198f937b953d329 | |
parent | 23f018c56740fbccef729433191456caa489a7ad (diff) |
Fix a couple of typos.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@92 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-rw-r--r-- | src/Derivatives2_6_3.F90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Derivatives2_6_3.F90 b/src/Derivatives2_6_3.F90 index 63bf6b8..699dbb9 100644 --- a/src/Derivatives2_6_3.F90 +++ b/src/Derivatives2_6_3.F90 @@ -41,7 +41,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) else dvar2(1,:,:) = ( q(1,1) * var(1,:,:) + q(2,1) * var(2,:,:) + & q(3,1) * var(3,:,:) + q(4,1) * var(4,:,:) + & - q(5,1) * var(4,:,:) + q(6,1) * var(6,:,:) ) * idel2 + q(5,1) * var(5,:,:) + q(6,1) * var(6,:,:) ) * idel2 dvar2(2,:,:) = ( q(1,2) * var(1,:,:) + q(2,2) * var(2,:,:) + & q(3,2) * var(3,:,:) + q(4,2) * var(4,:,:) + & q(5,2) * var(5,:,:) + q(6,2) * var(6,:,:) ) * idel2 @@ -55,7 +55,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) dvar2(5,:,:) = ( q(1,5) * var(1,:,:) + q(2,5) * var(2,:,:) + & q(3,5) * var(3,:,:) + q(4,5) * var(4,:,:) + & q(5,5) * var(5,:,:) + q(6,5) * var(6,:,:) + & - q(7,5) * var(7,:,:) + q(8,6) * var(8,:,:) ) * idel2 + q(7,5) * var(7,:,:) + q(8,5) * var(8,:,:) ) * idel2 dvar2(6,:,:) = ( q(1,6) * var(1,:,:) + q(2,6) * var(2,:,:) + & q(3,6) * var(3,:,:) + q(4,6) * var(4,:,:) + & q(5,6) * var(5,:,:) + q(6,6) * var(6,:,:) + & @@ -126,7 +126,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) else dvar2(:,1,:) = ( q(1,1) * var(:,1,:) + q(2,1) * var(:,2,:) + & q(3,1) * var(:,3,:) + q(4,1) * var(:,4,:) + & - q(5,1) * var(:,4,:) + q(6,1) * var(:,6,:) ) * idel2 + q(5,1) * var(:,5,:) + q(6,1) * var(:,6,:) ) * idel2 dvar2(:,2,:) = ( q(1,2) * var(:,1,:) + q(2,2) * var(:,2,:) + & q(3,2) * var(:,3,:) + q(4,2) * var(:,4,:) + & q(5,2) * var(:,5,:) + q(6,2) * var(:,6,:) ) * idel2 @@ -140,7 +140,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) dvar2(:,5,:) = ( q(1,5) * var(:,1,:) + q(2,5) * var(:,2,:) + & q(3,5) * var(:,3,:) + q(4,5) * var(:,4,:) + & q(5,5) * var(:,5,:) + q(6,5) * var(:,6,:) + & - q(7,5) * var(:,7,:) + q(8,6) * var(:,8,:) ) * idel2 + q(7,5) * var(:,7,:) + q(8,5) * var(:,8,:) ) * idel2 dvar2(:,6,:) = ( q(1,6) * var(:,1,:) + q(2,6) * var(:,2,:) + & q(3,6) * var(:,3,:) + q(4,6) * var(:,4,:) + & q(5,6) * var(:,5,:) + q(6,6) * var(:,6,:) + & @@ -213,7 +213,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) else dvar2(:,:,1) = ( q(1,1) * var(:,:,1) + q(2,1) * var(:,:,2) + & q(3,1) * var(:,:,3) + q(4,1) * var(:,:,4) + & - q(5,1) * var(:,:,4) + q(6,1) * var(:,:,6) ) * idel2 + q(5,1) * var(:,:,5) + q(6,1) * var(:,:,6) ) * idel2 dvar2(:,:,2) = ( q(1,2) * var(:,:,1) + q(2,2) * var(:,:,2) + & q(3,2) * var(:,:,3) + q(4,2) * var(:,:,4) + & q(5,2) * var(:,:,5) + q(6,2) * var(:,:,6) ) * idel2 @@ -227,7 +227,7 @@ subroutine deriv2_gf_6_3 ( var, ni, nj, nk, dir, bb, gsize, delta, dvar2 ) dvar2(:,:,5) = ( q(1,5) * var(:,:,1) + q(2,5) * var(:,:,2) + & q(3,5) * var(:,:,3) + q(4,5) * var(:,:,4) + & q(5,5) * var(:,:,5) + q(6,5) * var(:,:,6) + & - q(7,5) * var(:,:,7) + q(8,6) * var(:,:,8) ) * idel2 + q(7,5) * var(:,:,7) + q(8,5) * var(:,:,8) ) * idel2 dvar2(:,:,6) = ( q(1,6) * var(:,:,1) + q(2,6) * var(:,:,2) + & q(3,6) * var(:,:,3) + q(4,6) * var(:,:,4) + & q(5,6) * var(:,:,5) + q(6,6) * var(:,:,6) + & |