reverse Function

public elemental function reverse(string) result(reverse_string)

Reverse the character order in the input character variable

Version: experimental

Arguments

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

Return Value character(len=len)


Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: n

Source Code

   elemental function reverse(string) result(reverse_string)
      character(len=*), intent(in) :: string
      character(len=len(string)) :: reverse_string
      integer :: i, n

      n = len(string)
      do i = 1, n
         reverse_string(n - i + 1:n - i + 1) = string(i:i)
      end do

   end function reverse