dpsi_dxi_square_second Module Function

module function dpsi_dxi_square_second(self, i, xi, eta) result(dpsi)

Arguments

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

Return Value real(kind=real64)


Called by

proc~~dpsi_dxi_square_second~~CalledByGraph proc~dpsi_dxi_square_second dpsi_dxi_square_second interface~dpsi_dxi_square_second type_square_second%dpsi_dxi_square_second interface~dpsi_dxi_square_second->proc~dpsi_dxi_square_second proc~jacobian_square_second jacobian_square_second proc~jacobian_square_second->interface~dpsi_dxi_square_second interface~jacobian_square_second type_square_second%jacobian_square_second interface~jacobian_square_second->proc~jacobian_square_second proc~is_in_square_second is_in_square_second proc~is_in_square_second->interface~jacobian_square_second interface~jacobian_det_square_second type_square_second%jacobian_det_square_second proc~is_in_square_second->interface~jacobian_det_square_second proc~jacobian_det_square_second jacobian_det_square_second proc~jacobian_det_square_second->interface~jacobian_square_second interface~is_in_square_second type_square_second%is_in_square_second interface~is_in_square_second->proc~is_in_square_second interface~jacobian_det_square_second->proc~jacobian_det_square_second

Source Code

    module function dpsi_dxi_square_second(self, i, xi, eta) result(dpsi)
        implicit none
        class(type_square_second), intent(in) :: self
        integer(int32), intent(in) :: i
        real(real64), intent(in) :: xi, eta
        real(real64) :: dpsi

        select case (i)
        case (1)
            dpsi = 0.25d0 * (1.0d0 - eta) * (2.0d0 * xi + eta)
        case (2)
            dpsi = 0.25d0 * (1.0d0 - eta) * (2.0d0 * xi - eta)
        case (3)
            dpsi = 0.25d0 * (1.0d0 + eta) * (2.0d0 * xi + eta)
        case (4)
            dpsi = 0.25d0 * (1.0d0 + eta) * (2.0d0 * xi - eta)
        case (5)
            dpsi = -xi * (1.0d0 - eta)
        case (6)
            dpsi = 0.5d0 * (1.0d0 + eta) * (1.0d0 - eta)
        case (7)
            dpsi = -xi * (1.0d0 + eta)
        case (8)
            dpsi = -0.5d0 * (1.0d0 + eta) * (1.0d0 - eta)
        case default
            dpsi = 0.0d0
        end select
    end function dpsi_dxi_square_second