1 SUBROUTINE ZITOH (INTV,HOLL,NP)
3 #include "zebra/zbcd.inc"
4 C-------------- END CDE --------------
5 INTEGER INTV(99), HOLL(99)
7 #include "zebra/q_and.inc"
8 #include "zebra/q_or.inc"
17 MWH = IOR (MWH, ISHFT(NQHOLL(JV),24))
18 29 INTW = ISHFT (INTW,-6)