hmap_cyl_eval_Jh_dq Function

public function hmap_cyl_eval_Jh_dq(sf, q_in, q_vec) result(Jh_dq)

evaluate derivative of Jacobian of mapping h: dJ_h/dq^k, k=1,2 at q=(X^1,X^2,zeta)

Type Bound

t_hmap_cyl

Arguments

Type IntentOptional Attributes Name
class(t_hmap_cyl), intent(in) :: sf
real(kind=wp), intent(in) :: q_in(3)
real(kind=wp), intent(in) :: q_vec(3)

Return Value real(kind=wp)


Called by

proc~~hmap_cyl_eval_jh_dq~~CalledByGraph proc~hmap_cyl_eval_jh_dq t_hmap_cyl%hmap_cyl_eval_Jh_dq proc~hmap_cyl_test hmap_cyl_test proc~hmap_cyl_test->proc~hmap_cyl_eval_jh_dq proc~hmap_cyl_init_params hmap_cyl_init_params proc~hmap_cyl_init_params->proc~hmap_cyl_test interface~t_hmap_cyl t_hmap_cyl interface~t_hmap_cyl->proc~hmap_cyl_init_params proc~hmap_cyl_init hmap_cyl_init interface~t_hmap_cyl->proc~hmap_cyl_init proc~hmap_cyl_init->proc~hmap_cyl_init_params

Source Code

FUNCTION hmap_cyl_eval_Jh_dq( sf ,q_in, q_vec) RESULT(Jh_dq)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_hmap_cyl), INTENT(IN) :: sf
  REAL(wp)         , INTENT(IN) :: q_in(3)
  REAL(wp)         , INTENT(IN) :: q_vec(3)
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                      :: Jh_dq
!===================================================================================================================================
  Jh_dq = 0.0_wp !dJ_h / dR
END FUNCTION hmap_cyl_eval_Jh_dq