print_header Subroutine

  1. mod_io.f90
  2. mod_io
  3. print_header

private subroutine print_header()

Arguments

None

Called by

proc~~print_header~~CalledByGraph proc~print_header print_header proc~read_gmsh_file_1d read_gmsh_file_1D proc~read_gmsh_file_1d->proc~print_header program~driver1d driver1D program~driver1d->proc~read_gmsh_file_1d

Contents

Source Code

print_header

Source Code

    subroutine print_header()

        print*,
        print*, '     ____  __________       __             __   '
        print*, '    / __ \/ ____/ __ \_____/ /_____ ______/ /__ '
        print*, '   / /_/ / __/ / / / / ___/ __/ __ `/ ___/ //_/ '
        print*, '  / _, _/ /___/ /_/ (__  ) /_/ /_/ / /__/ ,<    '
        print*, ' /_/ |_/_____/_____/____/\__/\__,_/\___/_/|_|   '
        print*,
        print*,
        print*, ' Developed by Chris Coutinho                   '
        print*,

        stop 'No Input file supplied'

    end subroutine print_header