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