C     @(#)shiftup.f	1.2     03/25/98
C
      subroutine shiftup (text)

c Shifts lower case alphabetic characters to upper case
c
c     Character*(<n>) text
c     call shiftup (text)
c*********************************************************

      character*(*) text


      character*1 symbol
      logical lowercase

      lowercase(symbol) = symbol .ge. 'a' .and. symbol .le. 'z'

      do i = 1, len(text)
        if (lowercase(text(i:i))) text(i:i) =
     2       char(ichar(text(i:i)) + ichar('A') - ichar('a'))
      end do

      return
      end