hmap_axisNB_get_dx_dqi_aux Subroutine

public subroutine hmap_axisNB_get_dx_dqi_aux(sf, q1, q2, xv, dx_dq1, dx_dq2, dx_dq3)

evaluate all first derivatives dx(1:3)/dq^i, i=1,2,3 , at q_in=(X^1,X^2,zeta),

Type Bound

t_hmap_axisNB

Arguments

Type IntentOptional Attributes Name
class(t_hmap_axisNB), intent(in) :: sf
real(kind=wp), intent(in) :: q1
real(kind=wp), intent(in) :: q2
class(c_hmap_auxvar), intent(in) :: xv
real(kind=wp), intent(out), DIMENSION(3) :: dx_dq1
real(kind=wp), intent(out), DIMENSION(3) :: dx_dq2
real(kind=wp), intent(out), DIMENSION(3) :: dx_dq3

Calls

proc~~hmap_axisnb_get_dx_dqi_aux~~CallsGraph proc~hmap_axisnb_get_dx_dqi_aux t_hmap_axisNB%hmap_axisNB_get_dx_dqi_aux b b proc~hmap_axisnb_get_dx_dqi_aux->b bp bp proc~hmap_axisnb_get_dx_dqi_aux->bp n n proc~hmap_axisnb_get_dx_dqi_aux->n np np proc~hmap_axisnb_get_dx_dqi_aux->np t t proc~hmap_axisnb_get_dx_dqi_aux->t

Source Code

SUBROUTINE hmap_axisNB_get_dx_dqi_aux( sf ,q1,q2,xv,dx_dq1,dx_dq2,dx_dq3)
  IMPLICIT NONE
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! INPUT VARIABLES
  CLASS(t_hmap_axisNB), INTENT(IN) :: sf
  REAL(wp)            , INTENT(IN) :: q1,q2
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv
  !-----------------------------------------------------------------------------------------------------------------------------------
  ! OUTPUT VARIABLES
  REAL(wp),DIMENSION(3), INTENT(OUT) :: dx_dq1,dx_dq2,dx_dq3
  !===================================================================================================================================
  SELECT TYPE(xv); TYPE IS(t_hmap_axisNB_auxvar)
  dx_dq1(:)=xv%N(:)
  dx_dq2(:)=xv%B(:)
  dx_dq3(:)=xv%T(:)+q1*xv%Np(:)+q2*xv%Bp(:)
  END SELECT !type(xv)
END SUBROUTINE hmap_axisNB_get_dx_dqi_aux