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 
                                                                                                                                                                                                            