SUBROUTINE IZHNUM (HOLL,INTV,NP) INTEGER INTV(99), HOLL(99) DO 39 JWH=1,NP 39 INTV(JWH) = SHIFTR (HOLL(JWH), 56) RETURN END