hmap_frenet_eval_aux Function

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

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

Type Bound

t_hmap_frenet

Arguments

Type IntentOptional Attributes Name
class(t_hmap_frenet), 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_frenet_eval_aux( sf ,q1,q2,xv) RESULT(x_out)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_hmap_frenet), 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_frenet_auxvar)
  x_out=xv%X0 +xv%sigma*(q1*xv%N + q2*xv%B)
  END SELECT !type(xv)
END FUNCTION hmap_frenet_eval_aux