sBase_initDOF Function

private function sBase_initDOF(sf, g_IP) result(DOFs)

take values interpolated at sf%s_IP positions and give back the degrees of freedom

Type Bound

t_sBase

Arguments

Type IntentOptional Attributes Name
class(t_sBase), intent(in) :: sf

self
real(kind=wp), intent(in) :: g_IP(:)

interpolation values at s_IP positions [0,1]

Return Value real(kind=wp), (1:sf%nBase)

result of interpolation


Calls

proc~~sbase_initdof~~CallsGraph proc~sbase_initdof t_sBase%sBase_initDOF compute_interpolant compute_interpolant proc~sbase_initdof->compute_interpolant

Called by

proc~~sbase_initdof~~CalledByGraph proc~sbase_initdof t_sBase%sBase_initDOF proc~addboundaryperturbation AddBoundaryPerturbation proc~addboundaryperturbation->proc~sbase_initdof proc~base_test Base_test proc~base_test->proc~sbase_initdof proc~init_la_from_solution Init_LA_from_Solution proc~init_la_from_solution->proc~sbase_initdof proc~initsolution InitSolution proc~initsolution->proc~sbase_initdof proc~readstatefilefromascii ReadStateFileFromASCII proc~readstatefilefromascii->proc~sbase_initdof proc~base_new Base_new proc~readstatefilefromascii->proc~base_new proc~sbase_new sBase_new proc~readstatefilefromascii->proc~sbase_new proc~sbase_change_base t_sBase%sBase_change_base proc~sbase_change_base->proc~sbase_initdof proc~sbase_test sBase_test proc~sbase_test->proc~sbase_initdof proc~sbase_test->proc~sbase_change_base proc~sbase_test->proc~sbase_new proc~to_spline_with_bc to_spline_with_BC proc~to_spline_with_bc->proc~sbase_initdof interface~readstate ReadState interface~readstate->proc~readstatefilefromascii proc~base_new->proc~base_test proc~base_new->proc~sbase_new proc~buildtransform_sfl t_transform_sfl%BuildTransform_SFL proc~buildtransform_sfl->proc~to_spline_with_bc proc~transform_angles_3d Transform_Angles_3d proc~buildtransform_sfl->proc~transform_angles_3d proc~transform_angles_sinterp Transform_Angles_sinterp proc~buildtransform_sfl->proc~transform_angles_sinterp proc~initsolutionmhd3d t_functional_mhd3d%InitSolutionMHD3D proc~initsolutionmhd3d->proc~addboundaryperturbation proc~initsolutionmhd3d->proc~init_la_from_solution proc~initsolutionmhd3d->proc~initsolution proc~sbase_init t_sBase%sBase_init proc~sbase_init->proc~sbase_test proc~transform_angles_3d->proc~to_spline_with_bc proc~transform_angles_sinterp->proc~to_spline_with_bc proc~init_base Init_Base proc~init_base->proc~base_new proc~init_gvec_to_jorek init_gvec_to_jorek proc~init_gvec_to_jorek->interface~readstate proc~init_gvec_to_jorek->proc~init_base proc~initmhd3d t_functional_mhd3d%InitMHD3D proc~initmhd3d->proc~base_new proc~initsolution~2 InitSolution proc~initsolution~2->proc~initsolutionmhd3d proc~restartfromstate RestartFromState proc~restartfromstate->interface~readstate proc~rungvec rungvec proc~rungvec->proc~initsolutionmhd3d proc~rungvec->proc~initmhd3d proc~sbase_copy t_sBase%sBase_copy proc~sbase_copy->proc~sbase_init proc~sbase_new->proc~sbase_init proc~transform_sfl_init t_transform_sfl%transform_SFL_init proc~transform_sfl_init->proc~base_new proc~base_copy t_base%base_copy proc~base_copy->proc~sbase_copy proc~init Init proc~init->proc~initmhd3d proc~start_rungvec start_rungvec proc~start_rungvec->proc~rungvec proc~transform_sfl_new transform_sfl_new proc~transform_sfl_new->proc~transform_sfl_init program~gvec GVEC program~gvec->proc~rungvec program~gvec_post GVEC_POST program~gvec_post->proc~initmhd3d

Source Code

FUNCTION sBase_initDOF( sf , g_IP) RESULT(DOFs)
! MODULES
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
  CLASS(t_sbase), INTENT(IN   ) :: sf    !! self
  REAL(wp)      , INTENT(IN   ) :: g_IP(:)  !!  interpolation values at s_IP positions [0,1]
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
  REAL(wp)                      :: DOFs(1:sf%nBase)  !! result of interpolation
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  IF(SIZE(g_IP,1).NE.sf%nBase) CALL abort(__STAMP__, &
               'nDOF not correct when calling sBase_initDOF')
  SELECT TYPE(sf)
  TYPE IS(t_sbase_disc)
    DOFs(:)=g_IP
  TYPE IS(t_sbase_spl)
    CALL sf%interpol%compute_interpolant( DOFs(:), g_IP )
  CLASS DEFAULT
    CALL abort(__STAMP__, &
      "this type of continuity not implemented!")
  END SELECT !TYPE

END FUNCTION sbase_initDOF