capit.f

Go to the documentation of this file.

C> @file
C> @brief Capitalize a character string

C> This subroutine capitalizes all of the alphabetic characters in
C> a string.  The string is modified in place.
C>
C> @author J. Woollen
C> @date 2002-05-14
C>
C> @param[in,out] STR -- character*(*): String
C>
C> <b>Program History Log:</b>
C> | Date | Programmer | Comments |
C> | -----|------------|----------|
C> | 2002-05-14 | J. Woollen | Original author |
C> | 2012-03-02 | J. Ator | Changed name of ups array to upcs to avoid namespace contention with function ups() |
C>
      SUBROUTINE capit(STR)

      CHARACTER*(*) str
      CHARACTER*26 upcs,lwcs
      DATA upcs/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
      DATA lwcs/'abcdefghijklmnopqrstuvwxyz'/

      DO 20 i=1,len(str)
      DO 10 j=1,26
      IF(str(i:i).EQ.lwcs(j:j)) THEN
         str(i:i) = upcs(j:j)
         goto 20
      ENDIF
10    CONTINUE
20    CONTINUE

      RETURN
      END