jacobian_det_square_second Module Function

module function jacobian_det_square_second(self, xi, eta) result(J_Det)

Arguments

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

Return Value real(kind=real64)


Calls

proc~~jacobian_det_square_second~~CallsGraph proc~jacobian_det_square_second jacobian_det_square_second interface~jacobian_square_second type_square_second%jacobian_square_second proc~jacobian_det_square_second->interface~jacobian_square_second proc~jacobian_square_second jacobian_square_second interface~jacobian_square_second->proc~jacobian_square_second interface~dpsi_deta_square_second type_square_second%dpsi_deta_square_second proc~jacobian_square_second->interface~dpsi_deta_square_second interface~dpsi_dxi_square_second type_square_second%dpsi_dxi_square_second proc~jacobian_square_second->interface~dpsi_dxi_square_second proc~dpsi_deta_square_second dpsi_deta_square_second interface~dpsi_deta_square_second->proc~dpsi_deta_square_second proc~dpsi_dxi_square_second dpsi_dxi_square_second interface~dpsi_dxi_square_second->proc~dpsi_dxi_square_second

Called by

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

Source Code

    module function jacobian_det_square_second(self, xi, eta) result(J_Det)
        implicit none
        class(type_square_second), intent(in) :: self
        real(real64), intent(in) :: xi, eta
        real(real64) :: J_Det

        real(real64) :: dx_xi, dx_eta
        real(real64) :: dy_xi, dy_eta

        integer(int32) :: i

        dx_xi = 0.0d0
        dx_eta = 0.0d0
        dy_xi = 0.0d0
        dy_eta = 0.0d0

        dx_xi = self%jacobian(1, 1, xi, eta)
        dx_eta = self%jacobian(1, 2, xi, eta)
        dy_xi = self%jacobian(2, 1, xi, eta)
        dy_eta = self%jacobian(2, 2, xi, eta)

        J_Det = dx_xi * dy_eta - dx_eta * dy_xi

    end function jacobian_det_square_second