2 ! Tests the fix for PR28788, a regression in which an ICE was caused
3 ! by the failure of derived type association for the arguments of
4 ! InitRECFAST because the formal namespace derived types references
5 ! were not being reassociated to the module.
7 ! Contributed by Martin Reinecke <martin@mpa-garching.mpg.de>
10 integer, parameter :: dl
= KIND(1.d0
)
16 real(dl
)::omegab
,h0
,tcmb
,yhe
18 type (CAMBparams
) :: CP
20 subroutine CAMBParams_Set(P
)
21 type(CAMBparams
), intent(in
) :: P
22 end subroutine CAMBParams_Set
23 end module ModelParams
33 subroutine inithermo(taumin
,taumax
)
35 use ModelParams
! Would ICE here
36 real(dl
) taumin
,taumax
37 call InitRECFAST(CP
%omegab
,CP
%h0
,CP
%tcmb
,CP
%yhe
)
38 end subroutine inithermo