06p1_abstract_EFTCAMB_full_map.f90

Go to the documentation of this file.

!----------------------------------------------------------------------------------------
!
! This file is part of EFTCAMB.
!
! Copyright (C) 2013-2016 by the EFTCAMB authors
!
! The EFTCAMB code is free software;
! You can use it, redistribute it, and/or modify it under the terms
! of the GNU General Public License as published by the Free Software Foundation;
! either version 3 of the License, or (at your option) any later version.
! The full text of the license can be found in the file eftcamb/LICENSE at
! the top level of the EFTCAMB distribution.
!
!----------------------------------------------------------------------------------------



!----------------------------------------------------------------------------------------


module eftcamb_abstract_model_full

    use precision
    use inifile
    use eftcamb_cache
    use eftcamb_abstract_model

    implicit none

    private

    public eftcamb_full_model

    !----------------------------------------------------------------------------------------
    type, extends ( eftcamb_model ), abstract :: eftcamb_full_model

    contains

        procedure :: compute_dtauda   => eftcambfullmodelcomputedtauda    
        procedure :: compute_adotoa   => eftcambfullmodelcomputeadotoa    
        procedure :: compute_h_derivs => eftcambfullmodelcomputehubbleder 

    end type eftcamb_full_model

contains

    ! ---------------------------------------------------------------------------------------------
    function eftcambfullmodelcomputedtauda( self, a, eft_par_cache, eft_cache )

        implicit none

        class(eftcamb_full_model)                    :: self
        real(dl), intent(in)                         :: a
        type(eftcamb_parameter_cache), intent(inout) :: eft_par_cache
        type(eftcamb_timestep_cache ), intent(inout) :: eft_cache

        real(dl) :: eftcambfullmodelcomputedtauda

        write(*,*) 'IW'
        stop

    end function eftcambfullmodelcomputedtauda

    ! ---------------------------------------------------------------------------------------------
    subroutine eftcambfullmodelcomputeadotoa( self, a, eft_par_cache, eft_cache )

        implicit none

        class(eftcamb_full_model)                    :: self
        real(dl), intent(in)                         :: a
        type(eftcamb_parameter_cache), intent(inout) :: eft_par_cache
        type(eftcamb_timestep_cache ), intent(inout) :: eft_cache

        write(*,*) 'IW'
        stop

    end subroutine eftcambfullmodelcomputeadotoa

    ! ---------------------------------------------------------------------------------------------
    subroutine eftcambfullmodelcomputehubbleder( self, a, eft_par_cache, eft_cache )

        implicit none

        class(eftcamb_full_model)                    :: self
        real(dl), intent(in)                         :: a
        type(eftcamb_parameter_cache), intent(inout) :: eft_par_cache
        type(eftcamb_timestep_cache ), intent(inout) :: eft_cache

        write(*,*) 'IW'
        stop

    end subroutine eftcambfullmodelcomputehubbleder

    !----------------------------------------------------------------------------------------

end module eftcamb_abstract_model_full

!----------------------------------------------------------------------------------------