C     OUTPUT DEVICE CLOSE ROUTINE. SELECTS PROPER
C     ROUTINE TO CLOSE OUT INDIVIDUAL PLOT DEVICES.
C
      SUBROUTINE PXZHC
C
$INCLUDE:'pxz99.cmn'
C
      GO TO (50,50,50,50,50,35,50,45,45,45,45,45,50),IPLTR
C
C     GO TO (10,20,25,30,20,35,40),IPLTR
C
C     FOR CALCOMP
C  10 CALL PXZ18C
C  C  GO TO 70
C
CC    FOR TEKTRONIX 4010,4012, AND 4014
C  20 CALL PXZ17C
C  C  GO TO 70
C
CC    FOR TEXPLOT
C  25 CALL PXZ22C(RXYRS,RYXRS)
C  C  GO TO 70
C
CC    FOR HP7203
C  30 CALL PXZ19C
C  C  GO TO 70
C
CC    FOR HP 7580A
CC    PUT THE PEN BACK.
   35 CALL NEWPEN(0)
      GO TO 70
C
CC    GENERAL VECTOR OUTPUT
C  40 CALL PXZ23C(RXYRS,RYXRS)
C  C  GO TO 70
C
C     FOR PC'S
c   45 CALL PXZ42C(ISUM)
   45 CALL PXZ42C
      GO TO 70
C
C     FOR TANDY DMP-PRINTER
C
C  46 CALL PXZ44C
C  C  GO TO 70
   50 WRITE(LUERR,60)
   60 FORMAT(' %PLOTTER SELECTED NOT IMPLEMENTED.')
      STOP 7777
   70 RETURN
      END


