       SUBROUTINE EXIT
       WRITE(6,11)
 11    FORMAT(' ******TAP6 PROGRAM STOP ********** ')
       RETURN
       END
