FTN4,Q,C C***************************************************************** C* * C* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. 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: DL1B4 C SOURCE: 92067-18586 C RELOC: PART OF 92067-12003 C PGMR: JRS C SUBROUTINE ZSENS(LU,IBUFR,L),92067-1X586 REV.2040 800717 INTEGER LU,IBUFR,L CALL EXEC(1,LU+2200B,IBUFR,L,2,0) RETURN END SUBROUTINE ZCTRL(LU,IBUFR),92067-1X586 REV.2040 800717 INTEGER LU,IBUFR CALL EXEC(1,LU+2200B,IBUFR,1,1,0) RETURN END SUBROUTINE ZDSJ(LU,HPIB,KDSJ),92067-1X586 REV.2040 800717 INTEGER LU,HPIB,KDSJ CALL EXEC(1,LU+2200B,KDSJ,1,5,HPIB) RETURN END SUBROUTINE ZTMAP(LU,IBUFR,L),92067-1X586 REV.2040 800717 INTEGER LU,IBUFR,L CALL EXEC(1,LU+2200B,IBUFR,L,0,0) RETURN END SUBROUTINE ZWRIT(LU,IBUFR,L),92067-1X586 REV.2040 800717 INTEGER LU,IBUFR,L CALL EXEC(1,LU+2200B,IBUFR,L,4,0) RETURN END SUBROUTINE ZREAD(LU,IBUFR,L),92067-1X586 REV.2040 800717 INTEGER LU,IBUFR,L CALL EXEC(1,LU+2200B,IBUFR,L,3,0) RETURN END SUBROUTINE ZPPOL(LU,IPPOL),92067-1X586 REV.2040 800717 INTEGER LU,IPPOL CALL EXEC(1,LU+2200B,IPPOL,1,6,0) RETURN END