Skip to main content

ToUpperCase

This is a subroutine which converts a string into upper case.

Interface

܀ Interface
️܀ See example
↢

INTERFACE
  MODULE PURE SUBROUTINE ToUpperCase(chars)
    CHARACTER(*), INTENT(INOUT) :: chars
  END SUBROUTINE ToUpperCase
END INTERFACE

program main
use easifemBase
implicit none

CHARACTER( LEN = 100 ) :: astr = "hello world"
CALL ToUpperCase(astr)
CALL Display(astr, "uppercase astr = ")
end program main 

Interface