share/module_string_tools.F

   1 MODULE module_string_tools
   2
   3 CONTAINS
   4
   5     FUNCTION capitalize(str) RESULT(capStr)
   6 !<DESCRIPTION>
   7 !
   8 ! Returns a copy of 'str' in which all lower-case letters have been converted
   9 ! to upper-case letters.
  10 !
  11 !</DESCRIPTION>
  12
  13         CHARACTER(LEN=*), INTENT(IN) :: str
  14         CHARACTER(LEN=LEN(str)) :: capStr
  15
  16         INTEGER :: i
  17         INTEGER, PARAMETER :: offset = (IACHAR('a') - IACHAR('A'))
  18
  19
  20         DO i=1,LEN(str)
  21             IF ( ( IACHAR(str(i:i)) >= IACHAR('a') ) .AND. ( IACHAR(str(i:i)) <= IACHAR('z') ) ) THEN
  22                capStr(i:i) = ACHAR(IACHAR(str(i:i)) - offset)
  23             ELSE
  24                capStr(i:i) = str(i:i)
  25             END IF
  26         END Do
  27
  28     END FUNCTION capitalize
  29
  30 END MODULE module_string_tools