FTN4,Q,C
      SUBROUTINE XIDEN(LU,DVID,IDENT,IER),92067-1X520 REV.2040 800717 
      IMPLICIT INTEGER(A-Z) 
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  XIDEN
C   SOURCE:  92067-18520
C    RELOC:  PART OF 92067-12002
C     PGMR:  J.S.W
C 
      DIMENSION BUF(20) 
C 
      ID=IAND(DVID,7B)  
C 
      BUF(1) = 476B 
      BUF(2) = 737B   
      BUF(3) = 100740B+ID   
      CALL XPRTY(BUF(3))  
      CALL ZSENS(LU,BUF,1)  
      IDENT = BUF(17)   
      CALL XDSJ(LU,DVID,IER)  
      RETURN
      END 
                                                                                                                                                                          