minor tidy

Author: cmbant

camb/cambdll.dll

@@ -717,7 +717,7 @@ def get_nonlinear_matter_power_spectrum(self, **kwargs):
         :param var1: variable i (index, or name of variable; default delta_tot)
         :param var2: variable j (index, or name of variable; default delta_tot)
         :param hubble_units: if true, output power spectrum in :Math:`({\rm Mpc}/h)^{3}` units, otherwise :math:`{\rm Mpc}^{3}`
-        :param have_power_spectra: set to True if already computed power spectra
+        :param have_power_spectra: set to False if not already computed power spectra
         :param params: if have_power_spectra=False, optional :class:`~.model.CAMBparams` instance to specify new parameters
         :return: kh, z, PK, where kz an z are arrays of k/h and z respectively, and PK[i,j] is value at z[i], k/h[j]
         """

camb/results.py

@@ -103,7 +103,7 @@ module NonLinear
         REAL(dl), ALLOCATABLE :: log_k_plin(:), log_plin(:), log_plinc(:)
         real(dl) :: kmax
         INTEGER :: nk, ng, nsig
-        real(dl) :: grow2_z, this_z !cached value at redshift being calclated
+        real(dl) :: grow2_z, this_z !cached value at redshift being calculated
         !AM - Added feedback parameters below at fixed fiducial (DMONLY) values
         REAL(dl) :: A_baryon=3.13
         REAL(dl) :: eta_baryon=0.603
@@ -1563,8 +1563,6 @@ SUBROUTINE fill_sigtab(cosm)
     cosm%log_r_sigma=log(r)
     cosm%log_sigma=log(sig)
 
-    DEALLOCATE(r,sig)
-
     IF(HM_verbose) WRITE(*,*) 'SIGTAB: Done'
     IF(HM_verbose) WRITE(*,*)
 
@@ -2596,7 +2594,7 @@ SUBROUTINE fill_growtab(cosm)
     cosm%ng=n
     ALLOCATE(cosm%a_growth(n),cosm%growth(n))
     DO i=1,n
-        a=ainit+(amax-ainit)*float(i-1)/float(n-1)
+        a=ainit+(amax-ainit)*(i-1)/real(n-1,dl)
         cosm%a_growth(i)=a
         cosm%growth(i)=find(a,a_tab,d_tab,SIZE(a_tab),iorder_int,ifind_int,imeth_int)
     END DO