SUBROUTINE ucase (string)
#if defined (DOC)
*
***s/r  UCASE
*
*Author  : Y. Yang ARQI Aug. 2005
*Revision:
**    Purpose:
*
*       change a character string to uppercase
*Arguments
*
*       input:
*          string -- string to be transformed
#endif
      IMPLICIT NONE

      character(len=*) string

      integer i, length


      length = LEN(string)
      do i = 1, length
         if (LGE(string(i:i),'a') .and. LLE(string(i:i), 'z')) then
            string(i:i) = ACHAR (IACHAR( string(i:i)) - 32)
         endif
      enddo
  
      END subroutine ucase