dpsi_dxi_side_second Module Function

module function dpsi_dxi_side_second(self, i) result(dpsi)

Arguments

Type IntentOptional Attributes Name
class(type_side_second), intent(in) :: self
integer(kind=int32), intent(in) :: i

Return Value real(kind=real64)


Called by

proc~~dpsi_dxi_side_second~~CalledByGraph proc~dpsi_dxi_side_second dpsi_dxi_side_second interface~dpsi_dxi_side_second type_side_second%dpsi_dxi_side_second interface~dpsi_dxi_side_second->proc~dpsi_dxi_side_second

Source Code

    module function dpsi_dxi_side_second(self, i) result(dpsi)
        implicit none
        class(type_side_second), intent(in) :: self
        integer(int32), intent(in) :: i
        real(real64) :: dpsi

        select case (i)
        case (1)
            dpsi = -0.5d0
        case (2)
            dpsi = 0.5d0
        case default
            dpsi = 0.0d0
        end select
    end function dpsi_dxi_side_second