lower_ascii Function

public pure function lower_ascii(s) result(out)

ASCII 英字を小文字化した文字列を返す。

Arguments

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

Return Value character(len=len)


Called by

proc~~lower_ascii~~CalledByGraph proc~lower_ascii lower_ascii proc~apply_particles_species_kv apply_particles_species_kv proc~apply_particles_species_kv->proc~lower_ascii proc~apply_sim_kv apply_sim_kv proc~apply_sim_kv->proc~lower_ascii proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~lower_ascii proc~build_template_mesh build_template_mesh proc~build_mesh_from_config->proc~build_template_mesh proc~build_one_template build_one_template proc~build_one_template->proc~lower_ascii proc~detect_sheath_species detect_sheath_species proc~detect_sheath_species->proc~lower_ascii proc~init_particle_batch_from_config init_particle_batch_from_config proc~init_particle_batch_from_config->proc~lower_ascii proc~reservoir_face_velocity_correction reservoir_face_velocity_correction proc~init_particle_batch_from_config->proc~reservoir_face_velocity_correction proc~resolve_sheath_injection_context resolve_sheath_injection_context proc~init_particle_batch_from_config->proc~resolve_sheath_injection_context proc~sample_species_state sample_species_state proc~init_particle_batch_from_config->proc~sample_species_state proc~resolve_reservoir_target_weight resolve_reservoir_target_weight proc~init_particle_batch_from_config->proc~resolve_reservoir_target_weight proc~sample_photo_species_state sample_photo_species_state proc~init_particle_batch_from_config->proc~sample_photo_species_state proc~init_particles_from_config init_particles_from_config proc~init_particles_from_config->proc~lower_ascii proc~init_particles_from_config->proc~sample_species_state proc~load_app_config load_app_config proc~load_app_config->proc~lower_ascii proc~load_toml_config load_toml_config proc~load_app_config->proc~load_toml_config proc~load_toml_config->proc~lower_ascii proc~load_toml_config->proc~apply_particles_species_kv proc~load_toml_config->proc~apply_sim_kv proc~perf_configure_from_env perf_configure_from_env proc~perf_configure_from_env->proc~lower_ascii proc~reservoir_face_velocity_correction->proc~lower_ascii proc~compute_face_average_potential compute_face_average_potential proc~reservoir_face_velocity_correction->proc~compute_face_average_potential proc~resolve_face_sampling_geometry resolve_face_sampling_geometry proc~resolve_face_sampling_geometry->proc~lower_ascii proc~resolve_inject_face resolve_inject_face proc~resolve_inject_face->proc~lower_ascii proc~resolve_inward_normal resolve_inward_normal proc~resolve_inward_normal->proc~lower_ascii proc~resolve_periodic2_collision_config resolve_periodic2_collision_config proc~resolve_periodic2_collision_config->proc~lower_ascii proc~resolve_periodic2_collision_config~2 resolve_periodic2_collision_config proc~resolve_periodic2_collision_config~2->proc~lower_ascii proc~resolve_sheath_injection_context->proc~lower_ascii proc~resolve_sheath_injection_context->proc~detect_sheath_species proc~resolve_species_drift_speed resolve_species_drift_speed proc~resolve_sheath_injection_context->proc~resolve_species_drift_speed proc~resolve_sheath_reference_plane resolve_sheath_reference_plane proc~resolve_sheath_injection_context->proc~resolve_sheath_reference_plane proc~sample_zhao_reservoir_state sample_zhao_reservoir_state proc~resolve_sheath_injection_context->proc~sample_zhao_reservoir_state proc~resolve_species_drift_speed->proc~lower_ascii proc~sample_photo_raycast_particles sample_photo_raycast_particles proc~sample_photo_raycast_particles->proc~lower_ascii proc~find_first_hit find_first_hit proc~sample_photo_raycast_particles->proc~find_first_hit proc~sample_species_state->proc~lower_ascii proc~write_result_files write_result_files proc~write_result_files->proc~lower_ascii proc~build_template_mesh->proc~build_one_template proc~compute_face_average_potential->proc~resolve_face_sampling_geometry proc~find_first_hit->proc~resolve_periodic2_collision_config proc~find_first_hit_periodic2 find_first_hit_periodic2 proc~find_first_hit->proc~find_first_hit_periodic2 proc~find_first_hit_periodic2->proc~resolve_periodic2_collision_config proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config proc~load_or_init_run_state->proc~load_app_config proc~prepare_periodic2_collision_mesh prepare_periodic2_collision_mesh proc~load_or_init_run_state->proc~prepare_periodic2_collision_mesh proc~prepare_periodic2_collision_mesh->proc~resolve_periodic2_collision_config~2 proc~resolve_reservoir_target_weight->proc~resolve_inward_normal proc~resolve_sheath_reference_plane->proc~resolve_inject_face proc~resolve_sheath_reference_plane->proc~resolve_inward_normal proc~sample_photo_species_state->proc~sample_photo_raycast_particles proc~sample_zhao_reservoir_state->proc~resolve_inject_face program~main main program~main->proc~perf_configure_from_env program~main->proc~write_result_files program~main->proc~load_or_init_run_state

Source Code

  pure function lower_ascii(s) result(out)
    character(len=*), intent(in) :: s
    character(len=len(s)) :: out
    integer :: i, code

    out = s
    do i = 1, len(s)
      code = iachar(out(i:i))
      if (code >= iachar('A') .and. code <= iachar('Z')) then
        out(i:i) = achar(code + 32)
      end if
    end do
  end function lower_ascii