diff options
Diffstat (limited to 'src/qlm_calculate.F90')
-rw-r--r-- | src/qlm_calculate.F90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/qlm_calculate.F90 b/src/qlm_calculate.F90 index eb4c4ba..19b0ffb 100644 --- a/src/qlm_calculate.F90 +++ b/src/qlm_calculate.F90 @@ -106,6 +106,9 @@ subroutine qlm_calculate (CCTK_ARGUMENTS) end if call qlm_calc_3determinant (CCTK_PASS_FTOF, hn) call qlm_analyse (CCTK_PASS_FTOF, hn) + if (qlm_have_killing_vector(hn) /= 0) then + call qlm_multipoles_normalise (CCTK_PASS_FTOF, hn) + end if 9999 continue |