psi_side_first Module Function

module function psi_side_first(self, i, xi) result(psi)

Arguments

Type IntentOptional Attributes Name
class(type_side_first), intent(in) :: self
integer(kind=int32), intent(in) :: i
real(kind=real64), intent(in) :: xi

Return Value real(kind=real64)


Called by

proc~~psi_side_first~~CalledByGraph proc~psi_side_first psi_side_first interface~psi_side_first type_side_first%psi_side_first interface~psi_side_first->proc~psi_side_first

Source Code

    module function psi_side_first(self, i, xi) result(psi)
        implicit none
        class(type_side_first), intent(in) :: self
        integer(int32), intent(in) :: i
        real(real64), intent(in) :: xi
        real(real64) :: psi

        select case (i)
        case (1)
            psi = 0.5d0 * (1.0d0 - xi)
        case (2)
            psi = 0.5d0 * (1.0d0 + xi)
        case default
            psi = 0.0d0
        end select
    end function psi_side_first