Aquila-Consortium/libsharp2
0
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small Fortran wrapper fixup

Browse source
This commit is contained in:
Dag Sverre Seljebotn 2016-03-04 15:19:34 +01:00
parent eb4a76a4eb
commit 8a32a8e751
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
fortran/sharp.f90
View file

@ -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))