mbe_base_has_geometry Function

private pure function mbe_base_has_geometry(this)

Check if system geometry is available

Type Bound

many_body_expansion_t

Arguments

Type IntentOptional Attributes Name
class(many_body_expansion_t), intent(in) :: this

Return Value logical


Called by

proc~~mbe_base_has_geometry~~CalledByGraph proc~mbe_base_has_geometry many_body_expansion_t%mbe_base_has_geometry proc~gmbe_run_distributed gmbe_context_t%gmbe_run_distributed proc~gmbe_run_distributed->proc~mbe_base_has_geometry proc~gmbe_run_serial gmbe_context_t%gmbe_run_serial proc~gmbe_run_serial->proc~mbe_base_has_geometry proc~mbe_run_distributed mbe_context_t%mbe_run_distributed proc~mbe_run_distributed->proc~mbe_base_has_geometry proc~mbe_run_serial mbe_context_t%mbe_run_serial proc~mbe_run_serial->proc~mbe_base_has_geometry

Source Code

   pure logical function mbe_base_has_geometry(this)
      !! Check if system geometry is available
      class(many_body_expansion_t), intent(in) :: this
      mbe_base_has_geometry = allocated(this%sys_geom)
   end function mbe_base_has_geometry