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