hmap_eval_aux Function

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

evaluate the mapping h (X^1,X^2,zeta) -> (x,y,z) cartesian INFO: default routine that can be overwritten by specific hmap class, not using additional hmap-dependent auxiliary variables, but calling the pointwise routine eval

Type Bound

c_hmap

Arguments

Type IntentOptional Attributes Name
class(c_hmap), 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)


Calls

proc~~hmap_eval_aux~~CallsGraph proc~hmap_eval_aux c_hmap%hmap_eval_aux eval eval proc~hmap_eval_aux->eval

Called by

proc~~hmap_eval_aux~~CalledByGraph proc~hmap_eval_aux c_hmap%hmap_eval_aux proc~evaluate_hmap evaluate_hmap proc~evaluate_hmap->proc~hmap_eval_aux proc~evaluate_hmap_only evaluate_hmap_only proc~evaluate_hmap_only->proc~hmap_eval_aux proc~hmap_eval_aux_all c_hmap%hmap_eval_aux_all proc~hmap_eval_aux_all->proc~hmap_eval_aux

Source Code

FUNCTION hmap_eval_aux( sf ,q1,q2,xv) RESULT(x_out)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(c_hmap)       ,INTENT(IN) :: sf
  REAL(wp)            ,INTENT(IN) :: q1,q2
  CLASS(c_hmap_auxvar),INTENT(IN) :: xv
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                        :: x_out(3)
!===================================================================================================================================
  x_out=sf%eval((/q1,q2,xv%zeta/))
END FUNCTION hmap_eval_aux