unix/boot/spp/rpp/ratlibf/cupper.f


1
2
3
4
5
6
7
8
9
10

integer function cupper (c)
      integer c
      if (.not.(c .ge. 97 .and. c .le. 122))goto 23000
      cupper = c + (65 - 97)
      goto 23001
23000 continue
      cupper = c
23001 continue
      return
      end