From 4fbcf2fd94364cafbf2364ae19a103f62b0ac7d3 Mon Sep 17 00:00:00 2001 From: diener Date: Tue, 30 Oct 2007 19:00:02 +0000 Subject: Fix a couple of typos. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@92 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Derivatives2_6_3.F90 | 12 ++++++------ 1 file 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) + & -- cgit v1.2.3