make_upper_case.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: MAKE_UPPER_CASE (LINE_STRING,MAXCOL)                   C
!  Purpose: change lowercase characters to uppercase in input line     C
!                                                                      C
!  Author: P.Nicoletti                                Date: 26-NOV-91  C
!  Reviewer: M.SYAMLAL, W.ROGERS, P.NICOLETTI         Date: 24-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: A_UP, A_LO, Z_LO, A_DIFF, INT_C, L                 C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE make_upper_case(LINE_STRING, MAXCOL)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
!                   input line to change to uppercase
      CHARACTER(len=*) LINE_STRING
!
!                   number of characters to look at in LINE_STRING
      INTEGER       MAXCOL
!
! local variables:
!
!                   ICHAR value for UPPERCASE A
      INTEGER       A_UP
!
!                   ICHAR value for lowercase a
      INTEGER       A_LO
!
!                   ICHAR value for lowercase z
      INTEGER       Z_LO
!
!                   ICHAR differnce between lower and uppercase letters
      INTEGER       A_DIFF
!
!                   holds ICHAR value of current character
      INTEGER       INT_C
!
!                   loop index
      INTEGER       L
!-----------------------------------------------
!
!
      a_up = ichar('A')
      a_lo = ichar('a')
      z_lo = ichar('z')
      a_diff = a_lo - a_up
!
      DO l = 1, maxcol
         int_c = ichar(line_string(l:l))
         IF (a_lo<=int_c .AND. int_c<=z_lo) THEN
            int_c = int_c - a_diff
            line_string(l:l) = char(int_c)
         ENDIF
      END DO
      RETURN
      END SUBROUTINE make_upper_case
!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: REPLACE_TAB (LINE_STRING,MAXCOL)                       C
!  Purpose: replace tab characters with space                          C
!                                                                      C
!  Author: M. Syamlal                                 Date: 10-JUL-03  C
!  Reviewer:                                          Date: 24-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced: None                                          C
!  Variables modified: None                                            C
!                                                                      C
!  Local variables: A_UP, A_LO, Z_LO, A_DIFF, INT_C, L                 C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE replace_tab(LINE_STRING, MAXCOL)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
      CHARACTER, PARAMETER          :: TAB = char(9)
      CHARACTER, PARAMETER          :: CRET = char(13)

!                   input line to change to uppercase
      CHARACTER(len=*) LINE_STRING
!
!                   number of characters to look at in LINE_STRING
      INTEGER       MAXCOL
!
! local variables:
!
!                   loop index
      INTEGER       L
!-----------------------------------------------
!
!
!
      DO l = 1, maxcol
        if(line_string(l:l) .eq. tab) line_string(l:l) = ' '
        if(line_string(l:l) .eq. cret) line_string(l:l) = ' '
      END DO
      RETURN
      END SUBROUTINE replace_tab