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~global_coordinator_impl global_coordinator_impl proc~global_coordinator_impl->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_serial mbe_context_t%mbe_run_serial proc~mbe_run_serial->proc~mbe_base_has_geometry proc~node_worker_impl node_worker_impl proc~node_worker_impl->proc~mbe_base_has_geometry proc~global_coordinator global_coordinator proc~global_coordinator->proc~global_coordinator_impl proc~node_worker node_worker proc~node_worker->proc~node_worker_impl interface~global_coordinator global_coordinator interface~global_coordinator->proc~global_coordinator interface~node_worker node_worker interface~node_worker->proc~node_worker proc~gmbe_run_distributed gmbe_context_t%gmbe_run_distributed proc~gmbe_run_distributed->interface~node_worker proc~mbe_run_distributed mbe_context_t%mbe_run_distributed proc~mbe_run_distributed->interface~global_coordinator proc~mbe_run_distributed->interface~node_worker

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