subroutine title

c
c*** subroutine displays the program title
c
      write(6,1)
 1    format('',
     * ' **********************************************************',/,
     * ' *                                                        *',/,
     * ' *     CCC      OOO   M       M PPPPP     GGG   BBBBB     *',/,
     * ' *    C   C    O   O  MM     MM P    P   G   G  B    B    *',/,
     * ' *   C     C  O     O M M   M M P     P G     G B     B   *',/,
     * ' *   C        O     O M  M M  M P     P G       B     B   *',/,
     * ' *   C        O     O M   M   M P    P  G       B    B    *',/,
     * ' *   C        O     O M   M   M PPPPP   G   GGG BBBBB     *',/,
     * ' *   C        O     O M       M P       G     G B    B    *',/,
     * ' *   C        O     O M       M P       G     G B     B   *',/,
     * ' *   C     C  O     O M       M P       G     G B     B   *',/,
     * ' *    C   C    O   O  M       M P        G   G  B    B    *',/,
     * ' *     CCC      OOO   M       M P         GGG   BBBBB     *',/,
     * ' *                                                        *',/,
     * ' *              Conforms to the standards in              *',/,
     * ' *            Input formats and Specifications            *',/,
     * ' *       of the National Geodetic Survey Data Base,       *',/,
     * ' *           Volume I:  Horizontal Control Data           *',/,
     * ' *                      January 1989                      *',/,
     * ' *                                                        *',/,
     * ' **********************************************************'/)
      return
      end