hmap_axisNB_eval_aux Function

public function hmap_axisNB_eval_aux(sf, q1, q2, xv) result(x_out)

evaluate the mapping h (q1,q2,zeta) -> (x,y,z)

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

Return Value real(kind=wp), (3)


Source Code

FUNCTION hmap_axisNB_eval_aux( sf ,q1,q2, xv) RESULT(x_out)
! MODULES
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)                         :: x_out(3)
!===================================================================================================================================
  SELECT TYPE(xv); TYPE IS(t_hmap_axisNB_auxvar)
  x_out=xv%X0 +(q1*xv%N + q2*xv%B)
  END SELECT !type(xv)
END FUNCTION hmap_axisNB_eval_aux