UpperCase

This is a function which returns a string in upper case.

Interface

܀ Interface

INTERFACE
  MODULE PURE FUNCTION UpperCase(chars) RESULT(Ans)
    CHARACTER(*), INTENT(IN) :: chars
    CHARACTER(LEN(chars)) :: ans
  END FUNCTION UpperCase
END INTERFACE

️܀ See example

program main
use easifemBase
implicit none

character(20) :: astr = "HELLO"

CALL Display(LowerCase(astr), "hello=" )

end program main

↢