From 8a32a8e75195d23ed08fada04f2cddd4390d1695 Mon Sep 17 00:00:00 2001
From: Dag Sverre Seljebotn <d.s.seljebotn@astro.uio.no>
Date: Fri, 4 Mar 2016 15:19:34 +0100
Subject: [PATCH] Small Fortran wrapper fixup

---
 fortran/sharp.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fortran/sharp.f90 b/fortran/sharp.f90
index 224f20f..36a1d11 100644
--- a/fortran/sharp.f90
+++ b/fortran/sharp.f90
@@ -236,6 +236,8 @@ contains
     end if
 
     ! Set up pointer table to access maps
+    alm_ptr(:) = c_null_ptr
+    map_ptr(:) = c_null_ptr
     do k = 1, nmaps
        if (alm_info%n_local > 0) alm_ptr(k) = c_loc(alm(0, k))
        if (geom_info%n_local > 0) map_ptr(k) = c_loc(map(0, k))