hmap_RZ_eval_Jh_dq Function

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

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

Type Bound

t_hmap_RZ

Arguments

Type IntentOptional Attributes Name
class(t_hmap_RZ), 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_rz_eval_jh_dq~~CalledByGraph proc~hmap_rz_eval_jh_dq t_hmap_RZ%hmap_RZ_eval_Jh_dq proc~hmap_rz_test hmap_RZ_test proc~hmap_rz_test->proc~hmap_rz_eval_jh_dq proc~hmap_rz_init hmap_RZ_init proc~hmap_rz_init->proc~hmap_rz_test interface~t_hmap_rz t_hmap_RZ interface~t_hmap_rz->proc~hmap_rz_init

Source Code

FUNCTION hmap_RZ_eval_Jh_dq( sf ,q_in,q_vec) RESULT(Jh_dq)
  IMPLICIT NONE
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
  CLASS(t_hmap_RZ), INTENT(IN) :: sf
  REAL(wp)        , INTENT(IN) :: q_in(3)
  REAL(wp)        , INTENT(IN) :: q_vec(3)
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
  REAL(wp)                     :: Jh_dq
  !===================================================================================================================================
  !  q= (R,Z,zeta)
  Jh_dq = q_vec(1)
END FUNCTION hmap_RZ_eval_Jh_dq