print_logo Subroutine

public subroutine print_logo()

Print the PIC Chemistry ASCII sunflower logo

Arguments

None

Called by

proc~~print_logo~~CalledByGraph proc~print_logo print_logo program~main main program~main->proc~print_logo

Source Code

   subroutine print_logo()
      !! Print the PIC Chemistry ASCII sunflower logo

      write (*, '(A)') ' '
      write (*, '(A)') ' '
      write (*, '(A)') '                        __   __'
      write (*, '(A)') '                     .-(  ''.''  )-.'
      write (*, '(A)') '                    (   \  |  /   )'
      write (*, '(A)') '                   ( ''`-.;;;;;.-''` )'
      write (*, '(A)') '                  ( :-==;;;;;;;==-: )'
      write (*, '(A)') '                   (  .-'';;;;;''-.  )'
      write (*, '(A)') '                    (``  /  |  \  ``)'
      write (*, '(A)') '                     ''-(__.''.__)-'''
      write (*, '(A)') ' '
      write (*, '(A)') '                      (Art by jgs)'
      write (*, '(A)') ' '
      write (*, '(A)') '    ╔═══════════════════════════════════════════════╗'
      write (*, '(A)') '    ║              Met"al q"uicha                   ║'
      write (*, '(A)') '    ║                (Sunflower)                    ║'
      write (*, '(A)') '    ║   A hastily put together Fortran code for     ║'
      write (*, '(A)') '    ║     Fragmented Based Quantum Chemistry        ║'
      write (*, '(A)') '    ║                                               ║'
      write (*, '(A)') '    ║        Coded up by Jorge as a hobby           ║'
      write (*, '(A)') '    ╚═══════════════════════════════════════════════╝'
      write (*, '(A)') ' '

   end subroutine print_logo