lower Function

private pure function lower(s) result(out)

Lowercase an ASCII string.

Arguments

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

Return Value character(len=len)


Called by

proc~~lower~~CalledByGraph proc~lower lower proc~enum_parse nml_enum_key_t%enum_parse proc~enum_parse->proc~lower proc~group_add nml_group_t%group_add proc~group_add->proc~lower proc~group_find_key nml_group_t%group_find_key proc~group_find_key->proc~lower proc~logical_parse nml_logical_key_t%logical_parse proc~logical_parse->proc~lower proc~schema_add_group nml_schema_t%schema_add_group proc~schema_add_group->proc~lower proc~schema_find_group nml_schema_t%schema_find_group proc~schema_find_group->proc~lower proc~strip_nml strip_nml proc~schema_find_group->proc~strip_nml proc~schema_is_external nml_schema_t%schema_is_external proc~schema_is_external->proc~lower proc~schema_is_external->proc~strip_nml proc~strip_nml->proc~lower proc~suggest suggest proc~suggest->proc~lower proc~add_dataovr_entry add_dataovr_entry proc~add_dataovr_entry->proc~group_add proc~apply_one_pair apply_one_pair proc~apply_one_pair->proc~group_find_key proc~apply_one_pair->proc~suggest proc~dispatch_group dispatch_group proc~dispatch_group->proc~schema_find_group proc~dispatch_group->proc~schema_is_external proc~dispatch_group->proc~strip_nml proc~dispatch_group->proc~suggest proc~parse_group_body parse_group_body proc~dispatch_group->proc~parse_group_body proc~register_boundary register_boundary proc~register_boundary->proc~group_add proc~register_boundary->proc~schema_add_group proc~register_conv register_conv proc~register_conv->proc~group_add proc~register_conv->proc~schema_add_group proc~register_ddiff register_ddiff proc~register_ddiff->proc~group_add proc~register_ddiff->proc~schema_add_group proc~register_epbl register_epbl proc~register_epbl->proc~group_add proc~register_epbl->proc~schema_add_group proc~register_foxkemper register_foxkemper proc~register_foxkemper->proc~group_add proc~register_foxkemper->proc~schema_add_group proc~register_gm register_gm proc~register_gm->proc~group_add proc~register_gm->proc~schema_add_group proc~register_grid register_grid proc~register_grid->proc~group_add proc~register_grid->proc~schema_add_group proc~register_initial_condition register_initial_condition proc~register_initial_condition->proc~group_add proc~register_initial_condition->proc~schema_add_group proc~register_kappa_shear register_kappa_shear proc~register_kappa_shear->proc~group_add proc~register_kappa_shear->proc~schema_add_group proc~register_logging register_logging proc~register_logging->proc~group_add proc~register_logging->proc~schema_add_group proc~register_meke register_meke proc~register_meke->proc~group_add proc~register_meke->proc~schema_add_group proc~register_mpi register_mpi proc~register_mpi->proc~group_add proc~register_mpi->proc~schema_add_group proc~register_nonhydrostatic register_nonhydrostatic proc~register_nonhydrostatic->proc~group_add proc~register_nonhydrostatic->proc~schema_add_group proc~register_ocean_bc register_ocean_bc proc~register_ocean_bc->proc~group_add proc~register_ocean_bc->proc~schema_add_group proc~register_ocean_bdrag register_ocean_bdrag proc~register_ocean_bdrag->proc~group_add proc~register_ocean_bdrag->proc~schema_add_group proc~register_ocean_bt register_ocean_bt proc~register_ocean_bt->proc~group_add proc~register_ocean_bt->proc~schema_add_group proc~register_ocean_cavity_dyn register_ocean_cavity_dyn proc~register_ocean_cavity_dyn->proc~group_add proc~register_ocean_cavity_dyn->proc~schema_add_group proc~register_ocean_cavity_melt register_ocean_cavity_melt proc~register_ocean_cavity_melt->proc~group_add proc~register_ocean_cavity_melt->proc~schema_add_group proc~register_ocean_continuity register_ocean_continuity proc~register_ocean_continuity->proc~group_add proc~register_ocean_continuity->proc~schema_add_group proc~register_ocean_coriolis register_ocean_coriolis proc~register_ocean_coriolis->proc~group_add proc~register_ocean_coriolis->proc~schema_add_group proc~register_ocean_data register_ocean_data proc~register_ocean_data->proc~group_add proc~register_ocean_data->proc~schema_add_group proc~register_ocean_dataovr register_ocean_dataovr proc~register_ocean_dataovr->proc~group_add proc~register_ocean_dataovr->proc~schema_add_group proc~register_ocean_dataovr->proc~add_dataovr_entry proc~register_ocean_debug register_ocean_debug proc~register_ocean_debug->proc~group_add proc~register_ocean_debug->proc~schema_add_group proc~register_ocean_diag register_ocean_diag proc~register_ocean_diag->proc~group_add proc~register_ocean_diag->proc~schema_add_group proc~register_ocean_eos register_ocean_eos proc~register_ocean_eos->proc~group_add proc~register_ocean_eos->proc~schema_add_group proc~register_ocean_forcing register_ocean_forcing proc~register_ocean_forcing->proc~group_add proc~register_ocean_forcing->proc~schema_add_group proc~register_ocean_geothermal register_ocean_geothermal proc~register_ocean_geothermal->proc~group_add proc~register_ocean_geothermal->proc~schema_add_group proc~register_ocean_grid register_ocean_grid proc~register_ocean_grid->proc~group_add proc~register_ocean_grid->proc~schema_add_group proc~register_ocean_hdiff register_ocean_hdiff proc~register_ocean_hdiff->proc~group_add proc~register_ocean_hdiff->proc~schema_add_group proc~register_ocean_hvisc register_ocean_hvisc proc~register_ocean_hvisc->proc~group_add proc~register_ocean_hvisc->proc~schema_add_group proc~register_ocean_ic register_ocean_ic proc~register_ocean_ic->proc~group_add proc~register_ocean_ic->proc~schema_add_group proc~register_ocean_ice register_ocean_ice proc~register_ocean_ice->proc~group_add proc~register_ocean_ice->proc~schema_add_group proc~register_ocean_ice_ic register_ocean_ice_ic proc~register_ocean_ice_ic->proc~group_add proc~register_ocean_ice_ic->proc~schema_add_group proc~register_ocean_isopycnal register_ocean_isopycnal proc~register_ocean_isopycnal->proc~group_add proc~register_ocean_isopycnal->proc~schema_add_group proc~register_ocean_mpi register_ocean_mpi proc~register_ocean_mpi->proc~group_add proc~register_ocean_mpi->proc~schema_add_group proc~register_ocean_pgf register_ocean_pgf proc~register_ocean_pgf->proc~group_add proc~register_ocean_pgf->proc~schema_add_group proc~register_ocean_psurf register_ocean_psurf proc~register_ocean_psurf->proc~group_add proc~register_ocean_psurf->proc~schema_add_group proc~register_ocean_restore register_ocean_restore proc~register_ocean_restore->proc~group_add proc~register_ocean_restore->proc~schema_add_group proc~register_ocean_sponge register_ocean_sponge proc~register_ocean_sponge->proc~group_add proc~register_ocean_sponge->proc~schema_add_group proc~register_ocean_tdrag register_ocean_tdrag proc~register_ocean_tdrag->proc~group_add proc~register_ocean_tdrag->proc~schema_add_group proc~register_ocean_thermo register_ocean_thermo proc~register_ocean_thermo->proc~group_add proc~register_ocean_thermo->proc~schema_add_group proc~register_ocean_tides register_ocean_tides proc~register_ocean_tides->proc~group_add proc~register_ocean_tides->proc~schema_add_group proc~register_ocean_topo register_ocean_topo proc~register_ocean_topo->proc~group_add proc~register_ocean_topo->proc~schema_add_group proc~register_ocean_tracers register_ocean_tracers proc~register_ocean_tracers->proc~group_add proc~register_ocean_tracers->proc~schema_add_group proc~register_ocean_vdiff register_ocean_vdiff proc~register_ocean_vdiff->proc~group_add proc~register_ocean_vdiff->proc~schema_add_group proc~register_ocean_vmix register_ocean_vmix proc~register_ocean_vmix->proc~group_add proc~register_ocean_vmix->proc~schema_add_group proc~register_ocean_wetdry register_ocean_wetdry proc~register_ocean_wetdry->proc~group_add proc~register_ocean_wetdry->proc~schema_add_group proc~register_ocean_zinit register_ocean_zinit proc~register_ocean_zinit->proc~group_add proc~register_ocean_zinit->proc~schema_add_group proc~register_output register_output proc~register_output->proc~group_add proc~register_output->proc~schema_add_group proc~register_physics register_physics proc~register_physics->proc~group_add proc~register_physics->proc~schema_add_group proc~register_porous register_porous proc~register_porous->proc~group_add proc~register_porous->proc~schema_add_group proc~register_redi register_redi proc~register_redi->proc~group_add proc~register_redi->proc~schema_add_group proc~register_sim register_sim proc~register_sim->proc~group_add proc~register_sim->proc~schema_add_group proc~register_slopes register_slopes proc~register_slopes->proc~group_add proc~register_slopes->proc~schema_add_group proc~register_tidal_mixing register_tidal_mixing proc~register_tidal_mixing->proc~group_add proc~register_tidal_mixing->proc~schema_add_group proc~register_time register_time proc~register_time->proc~group_add proc~register_time->proc~schema_add_group proc~register_tracer register_tracer proc~register_tracer->proc~group_add proc~register_tracer->proc~schema_add_group proc~register_varmix register_varmix proc~register_varmix->proc~group_add proc~register_varmix->proc~schema_add_group proc~register_vcoord register_vcoord proc~register_vcoord->proc~group_add proc~register_vcoord->proc~schema_add_group proc~register_wavespeed register_wavespeed proc~register_wavespeed->proc~group_add proc~register_wavespeed->proc~schema_add_group proc~build_rdb_schema build_rdb_schema proc~build_rdb_schema->proc~register_boundary proc~build_rdb_schema->proc~register_conv proc~build_rdb_schema->proc~register_ddiff proc~build_rdb_schema->proc~register_epbl proc~build_rdb_schema->proc~register_foxkemper proc~build_rdb_schema->proc~register_gm proc~build_rdb_schema->proc~register_grid proc~build_rdb_schema->proc~register_initial_condition proc~build_rdb_schema->proc~register_kappa_shear proc~build_rdb_schema->proc~register_logging proc~build_rdb_schema->proc~register_meke proc~build_rdb_schema->proc~register_mpi proc~build_rdb_schema->proc~register_nonhydrostatic proc~build_rdb_schema->proc~register_ocean_bc proc~build_rdb_schema->proc~register_ocean_bdrag proc~build_rdb_schema->proc~register_ocean_bt proc~build_rdb_schema->proc~register_ocean_cavity_dyn proc~build_rdb_schema->proc~register_ocean_cavity_melt proc~build_rdb_schema->proc~register_ocean_continuity proc~build_rdb_schema->proc~register_ocean_coriolis proc~build_rdb_schema->proc~register_ocean_data proc~build_rdb_schema->proc~register_ocean_dataovr proc~build_rdb_schema->proc~register_ocean_debug proc~build_rdb_schema->proc~register_ocean_diag proc~build_rdb_schema->proc~register_ocean_eos proc~build_rdb_schema->proc~register_ocean_forcing proc~build_rdb_schema->proc~register_ocean_geothermal proc~build_rdb_schema->proc~register_ocean_grid proc~build_rdb_schema->proc~register_ocean_hdiff proc~build_rdb_schema->proc~register_ocean_hvisc proc~build_rdb_schema->proc~register_ocean_ic proc~build_rdb_schema->proc~register_ocean_ice proc~build_rdb_schema->proc~register_ocean_ice_ic proc~build_rdb_schema->proc~register_ocean_isopycnal proc~build_rdb_schema->proc~register_ocean_mpi proc~build_rdb_schema->proc~register_ocean_pgf proc~build_rdb_schema->proc~register_ocean_psurf proc~build_rdb_schema->proc~register_ocean_restore proc~build_rdb_schema->proc~register_ocean_sponge proc~build_rdb_schema->proc~register_ocean_tdrag proc~build_rdb_schema->proc~register_ocean_thermo proc~build_rdb_schema->proc~register_ocean_tides proc~build_rdb_schema->proc~register_ocean_topo proc~build_rdb_schema->proc~register_ocean_tracers proc~build_rdb_schema->proc~register_ocean_vdiff proc~build_rdb_schema->proc~register_ocean_vmix proc~build_rdb_schema->proc~register_ocean_wetdry proc~build_rdb_schema->proc~register_ocean_zinit proc~build_rdb_schema->proc~register_output proc~build_rdb_schema->proc~register_physics proc~build_rdb_schema->proc~register_porous proc~build_rdb_schema->proc~register_redi proc~build_rdb_schema->proc~register_sim proc~build_rdb_schema->proc~register_slopes proc~build_rdb_schema->proc~register_tidal_mixing proc~build_rdb_schema->proc~register_time proc~build_rdb_schema->proc~register_tracer proc~build_rdb_schema->proc~register_varmix proc~build_rdb_schema->proc~register_vcoord proc~build_rdb_schema->proc~register_wavespeed proc~parse_from_lines parse_from_lines proc~parse_from_lines->proc~dispatch_group proc~parse_group_body->proc~apply_one_pair proc~parse_file parse_file proc~parse_file->proc~parse_from_lines proc~read_config_from_string_impl read_config_from_string_impl proc~read_config_from_string_impl->proc~build_rdb_schema proc~schema_parse_lines nml_schema_t%schema_parse_lines proc~read_config_from_string_impl->proc~schema_parse_lines proc~read_config_impl read_config_impl proc~read_config_impl->proc~build_rdb_schema proc~schema_parse_lines->proc~parse_from_lines proc~read_config read_config proc~read_config->proc~read_config_impl proc~read_config_from_string read_config_from_string proc~read_config_from_string->proc~read_config_from_string_impl proc~schema_parse nml_schema_t%schema_parse proc~schema_parse->proc~parse_file

Variables

Type Visibility Attributes Name Initial
integer, private :: c
integer, private :: i

Source Code

   pure function lower(s) result(out)
      !! Lowercase an ASCII string.
      character(len=*), intent(in) :: s
      character(len=len(s)) :: out
      integer :: i, c
      do i = 1, len(s)
         c = iachar(s(i:i))
         if (c >= iachar("A") .and. c <= iachar("Z")) then
            out(i:i) = achar(c + 32)
         else
            out(i:i) = s(i:i)
         end if
      end do
   end function lower