to_lowercase Function

public function to_lowercase(str) result(low_str)

forces lowercase on given string

Arguments

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

input string

Return Value character(len=len)

output (lowercase) string


Calls

proc~~to_lowercase~~CallsGraph proc~to_lowercase to_lowercase proc~char_to_lowercase char_to_lowercase proc~to_lowercase->proc~char_to_lowercase

Called by

proc~~to_lowercase~~CalledByGraph proc~to_lowercase 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

i

Source Code

to_lowercase

Variables

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

Source Code

      function to_lowercase(str) result(low_str)
         !! forces lowercase on given string
         !---------------------------------------------------------------------!      
         character(len=*), intent(in) :: str
            !! input string
         character(len=len(str))      :: low_str
            !! output (lowercase) string
         !---------------------------------------------------------------------!            
         integer(int32)               :: i
         !---------------------------------------------------------------------!
         do i = 1, len(str)
            low_str(i:i) = char_to_lowercase(str(i:i))
         enddo
         !---------------------------------------------------------------------!
      end function to_lowercase