Remove an unused subroutine.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@40 f69c4107-0314-4c4f-9ad4-17e986b73f4a

1 files changed, 0 insertions, 52 deletions

diff --git a/src/Dissipation_4_3_min_err_coeff.F90 b/src/Dissipation_4_3_min_err_coeff.F90
index d7d011f..df70422 100644
--- a/src/Dissipation_4_3_min_err_coeff.F90
+++ b/src/Dissipation_4_3_min_err_coeff.F90
@@ -442,56 +442,4 @@ contains
 
   end function sigma
 
-  subroutine set_coeff ( a, dx )
-
-    implicit none
-
-    CCTK_REAL, dimension(7,5), intent(OUT) :: a
-    CCTK_REAL, intent(in) :: dx
-    CCTK_REAL :: zero = 0.0
-    integer, parameter :: wp = kind(zero)
-    CCTK_REAL, dimension(4) :: b
-
-    b(1) = dx
-    b(2) = ( 1 + 3*b(1) ) / 4
-    b(3) = ( 1 + b(1) ) / 2
-    b(4) = ( 3 + b(1) )/4
-
-    a(1,1) = -2.001729494283060564327579028280434295231079652820_wp*b(1)-2.001729494283060564327579028280434295231079652820_wp*b(2)
-    a(2,1) = 4.0034589885661211286551580565608685904621593056401_wp*b(1)+4.0034589885661211286551580565608685904621593056401_wp*b(2)
-    a(3,1) = -2.001729494283060564327579028280434295231079652820_wp*b(1)-2.001729494283060564327579028280434295231079652820_wp*b(2)
-    a(4,1) = 0.0_wp
-    a(5,1) = 0.0_wp
-    a(6,1) = 0.0_wp
-    a(7,1) = 0.0_wp
-    a(1,2) = 33.349009885955840248954469595024528895341083236112_wp*b(1)+33.349009885955840248954469595024528895341083236112_wp*b(2)
-    a(2,2) = -66.698019771911680497908939190049057790682166472223_wp*b(1)-66.698019771911680497908939190049057790682166472223_wp*b(2)-14.236744515267393430983451831106076148131079582685_wp*b(3)
-    a(3,2) = 33.349009885955840248954469595024528895341083236112_wp*b(1)+33.349009885955840248954469595024528895341083236112_wp*b(2)+28.473489030534786861966903662212152296262159165371_wp*b(3)-5.0440331538485788446043928053469767557227163958272_wp*b(4)
-    a(4,2) = -1.3951356569032137488502820136180622005437534045293_wp-14.236744515267393430983451831106076148131079582685_wp*b(3)+10.088066307697157689208785610693953511445432791654_wp*b(4)
-    a(5,2) = 5.9576955605539351261459121347762848951403545560302_wp-5.0440331538485788446043928053469767557227163958272_wp*b(4)
-    a(6,2) = -7.7299841503982290057409782286983831886494488984724_wp
-    a(7,2) = 3.1674242467475076284453481075401604940528477469716_wp
-    a(1,3) = -3.9903407976170909924931618645027940552738274990905_wp*b(1)-3.9903407976170909924931618645027940552738274990905_wp*b(2)
-    a(2,3) = 7.9806815952341819849863237290055881105476549981809_wp*b(1)+7.9806815952341819849863237290055881105476549981809_wp*b(2)+2.0281925060753259562659269077917853627407035645458_wp*b(3)
-    a(3,3) = -3.9903407976170909924931618645027940552738274990905_wp*b(1)-3.9903407976170909924931618645027940552738274990905_wp*b(2)-4.0563850121506519125318538155835707254814071290916_wp*b(3)+0.85749863949531149345224149788443686605331530370993_wp*b(4)
-    a(4,3) = -0.17805296968581960088505371131995522597503148483988_wp+2.0281925060753259562659269077917853627407035645458_wp*b(3)-1.7149972789906229869044829957688737321066306074199_wp*b(4)
-    a(5,3) = -0.029159711483604197600932897250942820943416950674515_wp+0.85749863949531149345224149788443686605331530370993_wp*b(4)
-    a(6,3) = 0.59247833202466719785702692846175131981192835586867_wp
-    a(7,3) = -0.38526565085524339937104031989085327289347992035428_wp
-    a(1,4) = -10.828009944579909415707962754026179346885875504376_wp*b(1)-10.828009944579909415707962754026179346885875504376_wp*b(2)
-    a(2,4) = 21.656019889159818831415925508052358693771751008752_wp*b(1)+21.656019889159818831415925508052358693771751008752_wp*b(2)+4.8030111910833762941985823652201696605573253856589_wp*b(3)
-    a(3,4) = -10.828009944579909415707962754026179346885875504376_wp*b(1)-10.828009944579909415707962754026179346885875504376_wp*b(2)-9.6060223821667525883971647304403393211146507713177_wp*b(3)+1.8413742894937777907392755981492717093567250921496_wp*b(4)
-    a(4,4) = 0.52169344312294565855548171683437104934836522915934_wp+4.8030111910833762941985823652201696605573253856589_wp*b(3)-3.6827485789875555814785511962985434187134501842992_wp*b(4)
-    a(5,4) = -2.3211687019578831529367545613086339586352127503243_wp+1.8413742894937777907392755981492717093567250921496_wp*b(4)
-    a(6,4) = 3.0772570745469293302070639721141547692253298131705_wp
-    a(7,4) = -1.2777818157119918358257911276398918599384822920056_wp
-    a(1,5) = -6.7201141443502586562617365349711742609991754142974_wp*b(1)-6.7201141443502586562617365349711742609991754142974_wp*b(2)
-    a(2,5) = 13.440228288700517312523473069942348521998350828595_wp*b(1)+13.440228288700517312523473069942348521998350828595_wp*b(2)+2.6601737327460025913616376196819751799013252956745_wp*b(3)
-    a(3,5) = -6.7201141443502586562617365349711742609991754142974_wp*b(1)-6.7201141443502586562617365349711742609991754142974_wp*b(2)-5.3203474654920051827232752393639503598026505913491_wp*b(3)+0.68697583481584777698277591803888262651185956794776_wp*b(4)
-    a(4,5) = 1.6888624757937931547697409070602037810047678994127_wp+2.6601737327460025913616376196819751799013252956745_wp*b(3)-1.3739516696316955539655518360777652530237191358955_wp*b(4)
-    a(5,5) = -4.8610470973404788048372478314704553824811608945344_wp+0.68697583481584777698277591803888262651185956794776_wp*b(4)
-    a(6,5) = 4.6555067672995781453652729417602994219480180908309_wp
-    a(7,5) = -1.4833221457528924952977660173500478204716250957091_wp
-
-  end subroutine set_coeff
 end subroutine dissipation_4_3_opt