From b4b4c3f252e551adcca11a114a8fa07f778b10b6 Mon Sep 17 00:00:00 2001 From: eschnett Date: Fri, 9 Jul 2010 21:51:26 +0000 Subject: Declare and define "theta" git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@23 ef6f4158-a8ee-47d1-ba14-cb73256398e0 --- src/qlm_multipoles.F90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/qlm_multipoles.F90 b/src/qlm_multipoles.F90 index 570f216..d8ab9bb 100644 --- a/src/qlm_multipoles.F90 +++ b/src/qlm_multipoles.F90 @@ -35,6 +35,7 @@ subroutine qlm_multipoles (CCTK_ARGUMENTS, hn) CCTK_REAL :: delta_space(2) integer :: i, j + CCTK_REAL :: theta !!$ integer :: a, b, c, d if (veryverbose/=0) then @@ -65,6 +66,7 @@ subroutine qlm_multipoles (CCTK_ARGUMENTS, hn) do j = 1+qlm_nghostsphi(hn), qlm_nphi(hn)-qlm_nghostsphi(hn) do i = 1+qlm_nghoststheta(hn), qlm_ntheta(hn)-qlm_nghoststheta(hn) + theta = qlm_origin_theta(hn) + (i-1)*qlm_delta_theta(hn) ! 2-metric on the horizon qq(1,1) = qlm_qtt(i,j,hn) -- cgit v1.2.3