photo_escape_model_enabled Function

public pure function photo_escape_model_enabled(spec) result(enabled)

photo_raycast のPE escape closureが有効かを返す。

Arguments

Type IntentOptional Attributes Name
type(particle_species_spec), intent(in) :: spec

Return Value logical


Calls

proc~~photo_escape_model_enabled~~CallsGraph proc~photo_escape_model_enabled photo_escape_model_enabled proc~lower_ascii lower_ascii proc~photo_escape_model_enabled->proc~lower_ascii

Called by

proc~~photo_escape_model_enabled~~CalledByGraph proc~photo_escape_model_enabled photo_escape_model_enabled proc~init_particle_batch_from_config init_particle_batch_from_config proc~init_particle_batch_from_config->proc~photo_escape_model_enabled

Source Code

  pure logical function photo_escape_model_enabled(spec) result(enabled)
    type(particle_species_spec), intent(in) :: spec

    enabled = trim(lower_ascii(spec%photo_escape_model)) /= 'none'
  end function photo_escape_model_enabled