lcase Function

  1. check_output_control.f90
  2. check_output_control
  3. lcase

private function lcase(text) result(res)

Make the whole string to lower case

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: text

Input string of any case

Return Value character(len=STRING_BUFFER_LENGTH)

Output string of lower case


Called by

proc~~lcase~~CalledByGraph proc~lcase lcase proc~verify_write_control verify_write_control proc~verify_write_control->proc~lcase proc~verify_read_control verify_read_control proc~verify_read_control->proc~lcase proc~initstate initstate proc~initstate->proc~verify_write_control proc~read_file~3 read_file proc~initstate->proc~read_file~3 proc~read_file~3->proc~verify_read_control proc~setup_state setup_state proc~setup_state->proc~initstate proc~setup_solver setup_solver proc~setup_solver->proc~setup_state proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

lcase

Source Code

    function lcase(text) result(res)
      !< Make the whole string to lower case
      CHARACTER(len=*), intent(in)         :: text
      !< Input string of any case
      character(len=STRING_BUFFER_LENGTH) :: res
      !< Output string of lower case
      integer ::  I,C
  
      res=text
      DO I = 1,LEN(TEXT)
        C = INDEX("ABCDEFGHIJKLMNOPQRSTUVWXYZ",TEXT(I:I))
        IF (C.GT.0) res(I:I) = "abcdefghijklmnopqrstuvwxyz"(C:C)
      END DO
  
    end function lcase