char_to_lowercase Function

private function char_to_lowercase(s) result(l_s)

forces lowercase on a single character

Arguments

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

input character

Return Value character(len=1)

output (lowercase) character


Called by

proc~~char_to_lowercase~~CalledByGraph proc~char_to_lowercase char_to_lowercase proc~to_lowercase to_lowercase proc~to_lowercase->proc~char_to_lowercase proc~check_namelist_input check_namelist_input proc~check_namelist_input->proc~to_lowercase proc~read_input_file read_input_file proc~read_input_file->proc~to_lowercase proc~read_input_file->proc~check_namelist_input proc~fill_symmetric_matrix_dp fill_symmetric_matrix_dp proc~fill_symmetric_matrix_dp->proc~to_lowercase proc~fill_symmetric_matrix_int32 fill_symmetric_matrix_int32 proc~fill_symmetric_matrix_int32->proc~to_lowercase proc~fill_symmetric_matrix_sp fill_symmetric_matrix_sp proc~fill_symmetric_matrix_sp->proc~to_lowercase program~scattering SCATTERING program~scattering->proc~read_input_file

Contents

Variables

Source Code

char_to_lowercase

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: indx

Source Code

      function char_to_lowercase(s) result(l_s)
         !! forces lowercase on a single character
         !---------------------------------------------------------------------!
         character(len=1), intent(in) :: s
            !! input character
         character(len=1)             :: l_s
            !! output (lowercase) character
         !---------------------------------------------------------------------!
         integer(int32)               :: indx
         !---------------------------------------------------------------------!
         indx = index(uppercase, s)

         if (indx > 0) then
            l_s = lowercase(indx:indx)
         else
            l_s = s
         endif
         !---------------------------------------------------------------------!
      end function char_to_lowercase