diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-31 17:38:28 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-31 17:38:28 +0000 |
commit | 7f2b43fed2bb83c1ca3d7d8a4d2e0c65ebaeb725 (patch) | |
tree | 1651da4386f675fbe04ded40a80993896fd5b223 | |
parent | 3d5b284d6cc60be8c2685e2eddcab6b1b4801c3b (diff) |
Fix wrong subroutine call.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@94 f69c4107-0314-4c4f-9ad4-17e986b73f4a
-rw-r--r-- | src/Derivatives_8_4_min_err_coeff.F90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Derivatives_8_4_min_err_coeff.F90 b/src/Derivatives_8_4_min_err_coeff.F90 index af9b15f..930da74 100644 --- a/src/Derivatives_8_4_min_err_coeff.F90 +++ b/src/Derivatives_8_4_min_err_coeff.F90 @@ -29,7 +29,7 @@ subroutine deriv_gf_8_4_opt ( var, ni, nj, nk, dir, bb, gsize, offset, delta, dv logical, save :: first = .true. if ( first ) then - call set_coeff_8_4_opt ( a, q ) + call coeffs_1_8_4_opt ( a, q ) first = .false. end if |