From ef4ab28e7fc7486c47075b67d9b6ee326945f370 Mon Sep 17 00:00:00 2001
From: Anton Khirnov <anton@khirnov.net>
Date: Thu, 11 Sep 2014 12:05:20 +0200
Subject: Add an option for exporting the expansion coefficients.

---
 src/brill.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/brill.c')

diff --git a/src/brill.c b/src/brill.c
index 4592081..952287e 100644
--- a/src/brill.c
+++ b/src/brill.c
@@ -378,6 +378,9 @@ void brill_data(CCTK_ARGUMENTS)
 
         brill_solve(bd);
 
+        if (export_coeffs)
+            memcpy(brill_coeffs, bd->psi_coeffs->data, sizeof(*brill_coeffs) * bd->nb_coeffs);
+
         prev_bd = bd;
     } else
         bd = prev_bd;
-- 
cgit v1.2.3