*
* $Id: iucomh.F,v 1.1.1.1 1996/02/15 17:50:19 mclareni Exp $
*
* $Log: iucomh.F,v $
* Revision 1.1.1.1  1996/02/15 17:50:19  mclareni
* Kernlib
*
*
      FUNCTION IUCOMH (ISTR1, ISTR2, NCH)
C
C CERN PROGLIB#         IUCOMH          .VERSION KERNLNX  1.00  930829
C ORIG.  FCA+JZ, 20/02/90
C
C Compare the two Hollerith strings of NCH bytes length and return
C         -1  if  STRING1  < STRING2
C          0               =
C         +1               >
C which is determined by the first non-identical character.
C
      DIMENSION ISTR1(9), ISTR2(9)
C
      NDO = NCH
      IF (NDO.LE.0)                GO TO 30
      NWD = (NDO-1)/4 + 1

      DO 29  JW=1,NWD
      IWD1 = ISTR1(JW)
      IWD2 = ISTR2(JW)
      NL   = MIN(NDO,4)
      IF (IWD1. NE. IWD2)    THEN

      DO 28  J=1,NL
        ICHAR1 = AND (IWD1,255)
        ICHAR2 = AND (IWD2,255)
        IF (ICHAR1-ICHAR2)           32, 26, 31
   26   IWD1 = ISHFTR (IWD1,8)
   28   IWD2 = ISHFTR (IWD2,8)
      END IF
   29 NDO  = NDO - 4

   30 IUCOMH = 0
      RETURN

   31 IUCOMH = 1
      RETURN
   32 IUCOMH = -1
      RETURN
      END