hmap_RZ_eval_gij_dq Function

public function hmap_RZ_eval_gij_dq(sf, qL_in, q_G, qR_in, q_vec) result(g_ab_dq)

evaluate sum_k sum_ij (qL_i d/dq^k(G_ij(q_G)) qR_j) *q_vec^k, k=1,2,3 where qL=(dX^1/dalpha,dX^2/dalpha [,dzeta/dalpha]) and qR=(dX^1/dbeta,dX^2/dbeta [,dzeta/dbeta]) and where qL=(dX^1/dalpha,dX^2/dalpha ,dzeta/dalpha) and qR=(dX^1/dbeta,dX^2/dbeta ,dzeta/dbeta) and dzeta_dalpha then known to be either 0.0 for ds and dtheta and 1.0 for dzeta

Type Bound

t_hmap_RZ

Arguments

Type IntentOptional Attributes Name
class(t_hmap_RZ), intent(in) :: sf
real(kind=wp), intent(in) :: qL_in(3)
real(kind=wp), intent(in) :: q_G(3)
real(kind=wp), intent(in) :: qR_in(3)
real(kind=wp), intent(in) :: q_vec(3)

Return Value real(kind=wp)


Called by

proc~~hmap_rz_eval_gij_dq~~CalledByGraph proc~hmap_rz_eval_gij_dq t_hmap_RZ%hmap_RZ_eval_gij_dq proc~hmap_rz_test hmap_RZ_test proc~hmap_rz_test->proc~hmap_rz_eval_gij_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_gij_dq( sf ,qL_in,q_G,qR_in,q_vec) RESULT(g_ab_dq)
  CLASS(t_hmap_RZ), INTENT(IN) :: sf
  REAL(wp)        , INTENT(IN) :: qL_in(3)
  REAL(wp)        , INTENT(IN) :: q_G(3)
  REAL(wp)        , INTENT(IN) :: qR_in(3)
  REAL(wp)        , INTENT(IN) :: q_vec(3)
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
  REAL(wp)                     :: g_ab_dq
  !===================================================================================================================================
  !                            |R   |   |0  0  0   |        |R   |
  !q_i dG_ij/dq1 q_j = (dalpha |Z   | ) |0  0  0   | (dbeta |Z   | )
  !                            |zeta|   |0  0  2*R |        |zeta|
  g_ab_dq=(qL_in(3)*2.0_wp*q_G(1)*qR_in(3))*q_vec(1)
END FUNCTION hmap_RZ_eval_gij_dq