upcase2 Function

private pure function upcase2(s) result(u)

Uppercase the first two characters of a token.

Arguments

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

Return Value character(len=2)


Called by

proc~~upcase2~~CalledByGraph proc~upcase2 upcase2 proc~tide_name_index tide_name_index proc~tide_name_index->proc~upcase2 proc~parse_constituent_list parse_constituent_list proc~parse_constituent_list->proc~tide_name_index proc~configure_ocean_tides configure_ocean_tides proc~configure_ocean_tides->proc~parse_constituent_list proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_tides proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup

Variables

Type Visibility Attributes Name Initial
integer, private :: ic
integer, private :: k

Source Code

   pure function upcase2(s) result(u)
      !! Uppercase the first two characters of a token.
      character(len=*), intent(in) :: s
      character(len=2) :: u
      integer :: k, ic
      u = "  "
      do k = 1, min(2, len_trim(s))
         ic = iachar(s(k:k))
         if (ic >= iachar("a") .and. ic <= iachar("z")) ic = ic - 32
         u(k:k) = achar(ic)
      end do
   end function upcase2