type_proereties_manager_initialize Subroutine

    subroutine type_proereties_manager_initialize(self, Input, ierr)
        implicit none
        class(type_proereties_manager), intent(inout) :: self
        type(Type_Input), intent(in) :: Input
        integer(int32), intent(inout) :: ierr

        logical :: is_ptr = .true.

        ! Initialize the materials manager
        call self%materials%initialize(Input, ierr)

        if (ierr /= 0) then
            print *, "Error initializing materials manager."
            return
        end if

        if (is_ptr) then
            self%get_thc => calculate_thc_ptr
            self%get_vhc => calculate_heat_capacity_ptr
            ! self%get_dCa_dT => calculate_dcdt_ptr
            self%get_qw => calculate_water_content_ptr
        else
            self%get_thc => calculate_thc_holder
            self%get_vhc => calculate_heat_capacity_holder
            ! self%get_dCa_dT => calculate_dcdt_holder
            self%get_qw => calculate_water_content_holder
        end if

    end subroutine type_proereties_manager_initialize