skip_sign Subroutine

private pure subroutine skip_sign(text, pos)

Advance pos past a leading + or - if one is present.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: text
integer(kind=default_int), intent(inout) :: pos

Called by

proc~~skip_sign~~CalledByGraph proc~skip_sign skip_sign proc~check_exponent check_exponent proc~check_exponent->proc~skip_sign proc~parse_real_wide parse_real_wide proc~parse_real_wide->proc~skip_sign proc~parse_real_wide->proc~check_exponent proc~parse_real_dp_char parse_real_dp_char proc~parse_real_dp_char->proc~parse_real_wide proc~parse_real_dp_string parse_real_dp_string proc~parse_real_dp_string->proc~parse_real_wide proc~parse_real_sp_char parse_real_sp_char proc~parse_real_sp_char->proc~parse_real_wide interface~parse_real parse_real interface~parse_real->proc~parse_real_dp_char interface~parse_real->proc~parse_real_dp_string interface~parse_real->proc~parse_real_sp_char proc~parse_real_sp_string parse_real_sp_string interface~parse_real->proc~parse_real_sp_string proc~parse_real_sp_string->proc~parse_real_sp_char proc~cli_get_real_dp cli_t%cli_get_real_dp proc~cli_get_real_dp->interface~parse_real proc~cli_get_real_sp cli_t%cli_get_real_sp proc~cli_get_real_sp->interface~parse_real

Source Code

   pure subroutine skip_sign(text, pos)
      !! Advance `pos` past a leading `+` or `-` if one is present.
      character(len=*), intent(in) :: text
      integer(default_int), intent(inout) :: pos

      if (pos > len(text)) return
      if (index(SIGNS, text(pos:pos)) > 0) pos = pos + 1

   end subroutine skip_sign