C*TAPEREDGE.FOR**************************************************************
C     Simple program to taper edges of a rectangular image so that there are
C     no sharp discontinuities which make the Fourier tranform contain spikes.
C         Input original image on stream 1 (IN)
C         Output featheredged image on stream 2 (OUT)
C
C     Version  1.0      11-SEP-87    RH
C     Version  1.1      16-SEP-87    PAB
C     Version  1.2      25-JUN-88    RH    bigger value of IDEEP (taper)
C     Version  1.3       5-JUL-88    RH    check that dens<255 if MODE=0
C     Version  1.4       2-OCT-88    RH    prints out Y-dependence as plot
C     Version  1.5      14-MAR-92    RH    port to Alliant - UNIX
C     Version  1.6      14-FEB-96    JMS   bug fix - arrays went to 0
C     Version  1.7      27-FEB-96    JMS   remove redundant lines
C     Version  2.0      20-AUG-00    RH    convert to plot2000
C         "             13-JUN-01    TSH   P2K_FONT needed string terminator
C     Version  3.0      30-OCT-05    HS    2dx
C
C---------------------------------INPUT-------------------------------------
C
C       CARD 1:IAVER,ISMOOTH,ITAPER,IDIST
C
C       IAVER:depths of strips parallel to x & y over which averaging
C                   takes place.
C       ISMOOT:for each pixel running average calculated over area
C                       defined by (-ISMOOTH to ISMOOTH) x (IAVER).
C       ITAPER:depth over which tapering takes place.
C       IDIST:depth of constant exclusion border 
C
C****************************************************************************
C