C***********************************************************************
C     THIS SUBROUTINE WRIES OUT A HEADER STATEMENT FOR THE PERPENDICULAR
C     DISTANCE ESTIMATORS.
C***********************************************************************
      SUBROUTINE NAME (INDEX)
      WRITE (6,60)
      IF (INDEX.EQ.1) THEN
         WRITE (6,10)
      ELSE IF (INDEX.EQ.2) THEN
         WRITE (6,20)
      ELSE IF (INDEX.EQ.3) THEN
         WRITE (6,30)
      ELSE IF (INDEX.EQ.4) THEN
         WRITE (6,40)
      ELSE IF (INDEX.EQ.5) THEN
         WRITE (6,50)
      ENDIF
      WRITE (6,70)
      RETURN
C***********************************************************************
C     FORMAT STATEMENTS
C***********************************************************************
C
   10 FORMAT (15X,'*',7X,'Fourier Series Estimator',7X,'*')
   20 FORMAT (15X,'*',2X,'Exponential Power Series Estimator',2X,'*')
   30 FORMAT (15X,'*',3X,'Exponential Polynomial Estimator',3X,'*')
   40 FORMAT (15X,'*',4X,'Negative Exponential Estimator',4X,'*')
   50 FORMAT (15X,'*',9X,'Half-normal Estimator',8X,'*')
   60 FORMAT (//15X,40('*')/15X,'*',38X,'*')
   70 FORMAT (15X,'*',38X,'*'/15X,40('*'))
      END