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