diff options
Diffstat (limited to 'src/qlm_analyse.F90')
| -rw-r--r-- | src/qlm_analyse.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/qlm_analyse.F90 b/src/qlm_analyse.F90 index 415fa88..952a18c 100644 --- a/src/qlm_analyse.F90 +++ b/src/qlm_analyse.F90 @@ -273,6 +273,7 @@ subroutine qlm_analyse (CCTK_ARGUMENTS, hn) spin = spin + xi1(a) * ss(b) * kk(a,b) end do end do + qlm_spin_density(i,j) = spin ! phi^i omega_i = (alpha + ~beta) phi^i m_i + complex conjugate npspin = 0 |