     	SUBROUTINE IFFEED( ICODE )
C
C  PROGRAMMER: R.S. ZHOU		SEP-1986
C
C	THIS ROUTINE ENDS THE CURRENT PLOT SESSION...
C
    	INCLUDE 'LN03PS.CBS'

     	IF( NVEC.GT.0 ) CALL IFPLOT_DUMP(0)
     	IF( ICODE.NE.0 ) WRITE(LUN,1000)
1000	FORMAT('stroke showpage')

    	CLOSE(UNIT=LUN)

999	RETURN
     	END

