dpsi_side_second Module Function

pure elemental module function dpsi_side_second(self, i, j, r) result(dpsi)

Arguments

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

Return Value real(kind=real64)


Called by

proc~~dpsi_side_second~~CalledByGraph proc~dpsi_side_second dpsi_side_second interface~dpsi_side_second type_side_second%dpsi_side_second interface~dpsi_side_second->proc~dpsi_side_second proc~jacobian_side_second jacobian_side_second proc~jacobian_side_second->interface~dpsi_side_second interface~jacobian_side_second type_side_second%jacobian_side_second interface~jacobian_side_second->proc~jacobian_side_second proc~jacobian_det_side_second jacobian_det_side_second proc~jacobian_det_side_second->interface~jacobian_side_second interface~jacobian_det_side_second type_side_second%jacobian_det_side_second interface~jacobian_det_side_second->proc~jacobian_det_side_second proc~get_length_side_second get_length_side_second proc~get_length_side_second->interface~jacobian_det_side_second interface~get_length_side_second type_side_second%get_length_side_second interface~get_length_side_second->proc~get_length_side_second

Source Code

    module pure elemental function dpsi_side_second(self, i, j, r) result(dpsi)
        implicit none
        class(type_side_second), intent(in) :: self
        integer(int32), intent(in) :: i
        integer(int32), intent(in) :: j
        type(type_dp_vector_3d), intent(in) :: r
        real(real64) :: dpsi

        select case (j)
        case (1)
            select case (i)
            case (1)
                dpsi = 0.5d0 - r%x
            case (2)
                dpsi = 2.0d0 * r%x
            case (3)
                dpsi = 0.5d0 + r%x
            case default
                dpsi = 0.0d0
            end select
        case default
            dpsi = 0.0d0
        end select
    end function dpsi_side_second