********************************************************************************
*                                                                              *
*  2DHF version 1-2003                                                         *
*  Copyright (C) 1996  Jacek Kobus, Leif Laaksonen, Dage Sundholm              *
*                                                                              *
*  This software may be used and distributed according to the terms            *
*  of the GNU General Public License, see README and COPYING.                  *
*                                                                              *
********************************************************************************
c ### banner ###  

      subroutine banner
      implicit integer*4 (i-n)
      implicit real*8 (a-h,o-z)
01010 format(/,
     &'////////////////////////////////////////////////////////////////////////////////'/,
     &'                                                                                '/,
     &'                ######     #    #    #     #     #####  ######                  '/,
     &'                #          #    ##   #     #       #    #                       '/,
     &'                #####      #    # #  #     #       #    #####                   '/,
     &'                #          #    #  # #     #       #    #                       '/,
     &'                #          #    #   ##     #       #    #                       '/,
     &'                #          #    #    #     #       #    ######                  '/,
     &'                                                                                '/,
     &'  #####      #    ######  ######  ######  #####   ######  #    #   ####   ######'/,
     &'  #    #     #    #       #       #       #    #  #       ##   #  #    #  #     '/,
     &'  #    #     #    #####   #####   #####   #    #  #####   # #  #  #       ##### '/,
     &'  #    #     #    #       #       #       #####   #       #  # #  #       #     '/,
     &'  #    #     #    #       #       #       #   #   #       #   ##  #    #  #     '/,
     &'  #####      #    #       #       ######  #    #  ######  #    #   ####   ######')
01012 format(
     &'                                                                                '/,
     &'                     #####                                                      '/,
     &'                    #     #  #####          #    #  ######                      '/,
     &'                          #  #    #         #    #  #                           '/, 
     &'                     #####   #    #         ######  #####                       '/,
     &'                    #        #    #         #    #  #                           '/,
     &'                    #        #    #         #    #  #                           '/,
     &'                    #######  #####          #    #  #                           '/,
     &'                                                                                '/,
     &'                                                                                '/,
     &'                                version 1-2003                                  '/,
     &'                                                                                '/,
     &'////////////////////////////////////////////////////////////////////////////////')

      write(*,1010)
      write(*,1012)
      write(*,*) 
      write(*,*) 
      return
      end