hmap_knot_init_aux Function

public function hmap_knot_init_aux(sf, zeta, do_2nd_der) result(xv)

Allocate and initialize auxiliary variable at zeta position.

Arguments

Type IntentOptional Attributes Name
class(t_hmap_knot), intent(in) :: sf
real(kind=wp), intent(in) :: zeta
logical, intent(in) :: do_2nd_der

compute second derivative and store second derivative terms

Return Value type(t_hmap_knot_auxvar)


Called by

proc~~hmap_knot_init_aux~~CalledByGraph proc~hmap_knot_init_aux hmap_knot_init_aux interface~t_hmap_knot_auxvar t_hmap_knot_auxvar interface~t_hmap_knot_auxvar->proc~hmap_knot_init_aux proc~hmap_knot_test hmap_knot_test proc~hmap_knot_test->proc~hmap_knot_init_aux proc~hmap_knot_init_params hmap_knot_init_params proc~hmap_knot_init_params->proc~hmap_knot_test interface~t_hmap_knot t_hmap_knot interface~t_hmap_knot->proc~hmap_knot_init_params proc~hmap_knot_init hmap_knot_init interface~t_hmap_knot->proc~hmap_knot_init proc~hmap_knot_init->proc~hmap_knot_init_params

Source Code

FUNCTION hmap_knot_init_aux( sf,zeta,do_2nd_der) RESULT(xv)
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_hmap_knot),INTENT(IN) :: sf
  REAL(wp)          ,INTENT(IN) :: zeta
  LOGICAL           ,INTENT(IN) :: do_2nd_der !! compute second derivative and store second derivative terms
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  TYPE(t_hmap_knot_auxvar)::xv
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
  INTEGER :: i
!===================================================================================================================================
  xv%do_2nd_der=do_2nd_der
  xv%zeta=zeta
END FUNCTION hmap_knot_init_aux