      SUBROUTINE HEADER(IO)
C   ==================================================================
C   ===                                                            ===
C   ===              Standard Fortran77 version                    ===
C   ===                                                            ===
C   ==================================================================

      WRITE(IO,*)'  ================================================='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===   GENESIS Distributed Memory Benchmarks   ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===                  PDE2                     ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ===   Program:  2-Dimensional Multi-grid      ==='
      WRITE(IO,*)'  ===             Poisson solver                ==='
      WRITE(IO,*)'  ===   Version:  Standard Fortran 77           ==='
      WRITE(IO,*)'  ===   Author:   Max Lemke                     ==='
      WRITE(IO,*)'  ===   Update:   January 1993; Release: 2.1    ==='
      WRITE(IO,*)'  ===                                           ==='
      WRITE(IO,*)'  ================================================='
      WRITE(IO,*)

      CALL SETDAT(IO)

      CALL SETDTL(IO)

      WRITE(IO,*)

      WRITE(6,*)
      WRITE(6,*)'The calculation proceeds ...Please, wait.'
      WRITE(6,*)

      END
