hmap_eval_Jh_aux Function

public function hmap_eval_Jh_aux(sf, q1, q2, xv) result(Jh)

evaluate Jacobian of mapping h: J_h=sqrt(det(G)) at q=(X^1,X^2,zeta) INFO: default routine that can be overwritten by specific hmap class, not using additional hmap-dependent auxiliary variables, but calling the pointwise routine eval_Jh

Type Bound

c_hmap

Arguments

Type IntentOptional Attributes Name
class(c_hmap), intent(in) :: sf
real(kind=wp), intent(in) :: q1
real(kind=wp), intent(in) :: q2
class(c_hmap_auxvar), intent(in) :: xv

Return Value real(kind=wp)


Calls

proc~~hmap_eval_jh_aux~~CallsGraph proc~hmap_eval_jh_aux c_hmap%hmap_eval_Jh_aux eval_Jh eval_Jh proc~hmap_eval_jh_aux->eval_Jh

Called by

proc~~hmap_eval_jh_aux~~CalledByGraph proc~hmap_eval_jh_aux c_hmap%hmap_eval_Jh_aux proc~hmap_eval_jh_aux_all c_hmap%hmap_eval_Jh_aux_all proc~hmap_eval_jh_aux_all->proc~hmap_eval_jh_aux

Source Code

FUNCTION hmap_eval_Jh_aux( sf ,q1,q2,xv) RESULT(Jh)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap)       ,INTENT(IN) :: sf
  REAL(wp)            ,INTENT(IN) :: q1,q2
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                        :: Jh
!===================================================================================================================================
  Jh=sf%eval_Jh((/q1,q2,xv%zeta/))
END FUNCTION hmap_eval_Jh_aux