c-----------------------------------------------------------------------
      subroutine upcase(string)
c-----------------------------------------------------------------------
c
c     Conversion of lower case  to uppercase letters
c
      character string*(*)
      do i = 1, len(string)
           iasc = ichar(string(i:i))
           if ((iasc.ge.97).and.(iasc.le.122)) string(i:i)=char(iasc
     &             - 32)
      end do
      return 
      end