not_proper Function

public function not_proper(flags, node)

Function to decide if the restriction of the nodes is pointwise, e.g. coarse nodes are every other fine node

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: flags(:)
integer, intent(in) :: node

Return Value logical


Called by

proc~~not_proper~~CalledByGraph proc~not_proper not_proper proc~sdc_qmats sdc_qmats proc~sdc_qmats->proc~not_proper proc~pf_quadrature pf_quadrature proc~pf_quadrature->proc~sdc_qmats proc~pf_init_sdcmats pf_init_sdcmats proc~pf_init_sdcmats->proc~pf_quadrature proc~pf_level_setup pf_level_setup proc~pf_level_setup->proc~pf_init_sdcmats proc~pf_pfasst_setup pf_pfasst_setup proc~pf_pfasst_setup->proc~pf_level_setup

Contents

Source Code


Source Code

  logical function not_proper(flags, node)
    integer , intent(in) :: flags(:)
    integer,        intent(in) :: node

    not_proper = .not. btest(flags(node), 0)
  end function not_proper