capit.f

Go to the documentation of this file.

C> @file
C> @brief Capitalize a character string.
C>
C> @author J. Woollen @date 2002-05-14
 
C> This subroutine capitalizes all of the alphabetic characters in
C> a string. The string is modified in place.
C>
C> @param[in,out] STR - character*(*): String
C>
C> @author J. Woollen @date 2002-05-14
      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