dftd3_has_feature Function

public pure function dftd3_has_feature(feature) result(has)

Query an optional feature by name at runtime, unknown features are not available

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: feature

Name of the feature, currently only “mpi” is defined

Return Value logical

Whether the feature is available in this build


Source Code

pure function dftd3_has_feature(feature) result(has)

   !> Name of the feature, currently only "mpi" is defined
   character(len=*), intent(in) :: feature

   !> Whether the feature is available in this build
   logical :: has

   select case(feature)
   case default
      has = .false.
   case("mpi")
      has = dftd3_has_mpi
   end select

end function dftd3_has_feature