StringToLower Function

public function StringToLower(string) result(new)

! Description: Return a string that has all letters in lower case Arguments: string String to be treated Result: String with letters turned into lower case

Arguments

Type IntentOptional Attributes Name
character(len=*) :: string

Return Value character(len=LEN)


Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: i
integer(kind=short), public :: k
integer(kind=short), public :: length

Source Code

FUNCTION StringToLower &
  ( string )           &
RESULT (new)

IMPLICIT NONE

! Function arguments
! Scalar arguments with intent(in):
CHARACTER(LEN=*)   :: string

! Local scalars:
CHARACTER(LEN=LEN(string)) :: new
INTEGER (KIND = short)     :: i 
INTEGER (KIND = short)     :: k 
INTEGER (KIND = short)     :: length
!------------end of declaration------------------------------------------------

length = LEN(string)
new    = string
DO i = 1,length
   k = INDEX( upper, string(i:i) )
   IF ( k > 0 ) THEN
       new(i:i) = lower(k:k)
   END IF
END DO
END FUNCTION StringToLower