NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
capit.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Capitalize a character string
3 
4 C> This subroutine capitalizes all of the alphabetic characters in
5 C> a string. The string is modified in place.
6 C>
7 C> @author J. Woollen
8 C> @date 2002-05-14
9 C>
10 C> @param[in,out] STR -- character*(*): String
11 C>
12 C> <b>Program History Log:</b>
13 C> | Date | Programmer | Comments |
14 C> | -----|------------|----------|
15 C> | 2002-05-14 | J. Woollen | Original author |
16 C> | 2012-03-02 | J. Ator | Changed name of ups array to upcs to avoid namespace contention with function ups() |
17 C>
18  SUBROUTINE capit(STR)
19 
20  CHARACTER*(*) str
21  CHARACTER*26 upcs,lwcs
22  DATA upcs/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
23  DATA lwcs/'abcdefghijklmnopqrstuvwxyz'/
24 
25  DO 20 i=1,len(str)
26  DO 10 j=1,26
27  IF(str(i:i).EQ.lwcs(j:j)) THEN
28  str(i:i) = upcs(j:j)
29  goto 20
30  ENDIF
31 10 CONTINUE
32 20 CONTINUE
33 
34  RETURN
35  END
subroutine capit(STR)
This subroutine capitalizes all of the alphabetic characters in a string.
Definition: capit.f:18