05p0_neutral_parametrizations_2D.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_neutral_parametrization_2d

    use precision
    use eftcamb_cache
    use eftcamb_abstract_parametrizations_2d

    implicit none

    private

    public zero_parametrization_2d

    ! ---------------------------------------------------------------------------------------------
    type, extends ( parametrized_function_2d ) :: zero_parametrization_2d

    contains

        ! initialization:
        procedure :: set_param_number      => zeroparametrized2dsetparamnumber     
        procedure :: init_parameters       => zeroparametrized2dinitparams         
        procedure :: parameter_value       => zeroparametrized2dparametervalues    

        ! evaluation procedures:
        procedure :: value                 => zeroparametrized2dvalue               
        procedure :: first_derivative_x    => zeroparametrized2dfirstderivativex    
        procedure :: first_derivative_y    => zeroparametrized2dfirstderivativey    
        procedure :: second_derivative_x   => zeroparametrized2dsecondderivativex   
        procedure :: second_derivative_y   => zeroparametrized2dsecondderivativey   
        procedure :: second_derivative_xy  => zeroparametrized2dsecondderivativexy  

    end type zero_parametrization_2d

contains

    ! ---------------------------------------------------------------------------------------------
    ! Implementation of the constant zero function.
    ! ---------------------------------------------------------------------------------------------

    ! ---------------------------------------------------------------------------------------------
    subroutine zeroparametrized2dsetparamnumber( self )

        implicit none

        class(zero_parametrization_2d)  :: self

        self%parameter_number = 0

    end subroutine zeroparametrized2dsetparamnumber


    ! ---------------------------------------------------------------------------------------------
    subroutine zeroparametrized2dinitparams( self, array )

        implicit none

        class(zero_parametrization_2d)                         :: self
        real(dl), dimension(self%parameter_number), intent(in) :: array

    end subroutine zeroparametrized2dinitparams

    ! ---------------------------------------------------------------------------------------------
    subroutine zeroparametrized2dparametervalues( self, i, value )

        implicit none

        class(zero_parametrization_2d)  :: self
        integer , intent(in)            :: i
        real(dl), intent(out)           :: value

        value = 0._dl

    end subroutine zeroparametrized2dparametervalues

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dvalue( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dvalue

        zeroparametrized2dvalue = 0._dl

    end function zeroparametrized2dvalue

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dfirstderivativex( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dfirstderivativex

        zeroparametrized2dfirstderivativex = 0._dl

    end function zeroparametrized2dfirstderivativex

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dfirstderivativey( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dfirstderivativey

        zeroparametrized2dfirstderivativey = 0._dl

    end function zeroparametrized2dfirstderivativey

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dsecondderivativex( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dsecondderivativex

        zeroparametrized2dsecondderivativex = 0._dl

    end function zeroparametrized2dsecondderivativex

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dsecondderivativey( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dsecondderivativey

        zeroparametrized2dsecondderivativey = 0._dl

    end function zeroparametrized2dsecondderivativey

    ! ---------------------------------------------------------------------------------------------
    function zeroparametrized2dsecondderivativexy( self, x, y, eft_cache )

        implicit none

        class(zero_parametrization_2d)                     :: self
        real(dl), intent(in)                               :: x
        real(dl), intent(in)                               :: y
        type(eftcamb_timestep_cache), intent(in), optional :: eft_cache
        real(dl) :: zeroparametrized2dsecondderivativexy

        zeroparametrized2dsecondderivativexy = 0._dl

    end function zeroparametrized2dsecondderivativexy

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

end module eftcamb_neutral_parametrization_2d

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