From 7f2b43fed2bb83c1ca3d7d8a4d2e0c65ebaeb725 Mon Sep 17 00:00:00 2001 From: diener Date: Wed, 31 Oct 2007 17:38:28 +0000 Subject: Fix wrong subroutine call. git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@94 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/Derivatives_8_4_min_err_coeff.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3