tdrag_variant_is_implemented Function

public pure function tdrag_variant_is_implemented(code) result(ok)

.true. only for a top-drag variant with a real kernel. The single gate validate_config consumes.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: code

Return Value logical


Called by

proc~~tdrag_variant_is_implemented~~CalledByGraph proc~tdrag_variant_is_implemented tdrag_variant_is_implemented proc~validate_config validate_config proc~validate_config->proc~tdrag_variant_is_implemented proc~build_pending_handle build_pending_handle proc~build_pending_handle->proc~validate_config proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~build_pending_handle proc~rdb_ocean_create_pending rdb_ocean_create_pending proc~rdb_ocean_create_pending->proc~build_pending_handle

Source Code

   pure function tdrag_variant_is_implemented(code) result(ok)
      !! `.true.` only for a top-drag variant with a real kernel.  The
      !! single gate `validate_config` consumes.
      integer, intent(in) :: code
      logical :: ok
      ok = (code == TDRAG_LINEAR) .or. (code == TDRAG_QUADRATIC)
   end function tdrag_variant_is_implemented