subroutine header
c
c     + + + PURPOSE + + +
c     Writes header information to screen.
c
c     + + + OUTPUT FORMATS + + +
 2000 format(////,2x,68('*'),/,2x,'*',66x,'*',/,2x,'*',66x,'*',
     1       /,2x,'*',14x,'USDA - WATER EROSION PREDICTION',
     2       ' PROJECT',13x,'*',/,2x,'*',66x,'*',/,2x,'*',16x,
     3       ' WEPP CLIMATE INPUT DATA GENERATOR',16x,'*'/2x,'*',66x,
     4       '*',/,2x,'*',20x,'CONTINUOUS SIMULATION AND',21x,'*',/,
     5       2x,'*',23x,'SINGLE STORM OPTIONS',23x,'*',/,
     6       2x,'*',20x,'with Command Line Options,',20x,'*',/,
     7       2x,'*',24x,'and Corrections to',24x,'*',/,
     8       2x,'*',18x,'Rainfall Intensity Calculations',17x,'*',/,
     9       2x,'*',19x,'and Random Number Generation.',18x,'*')
 2001 format(
c    1       2x,'*',66x,'*',/,
c    2       2x,'*',66x,'*',/,2x,'*',28x,'VERSION 5.1',27x,'*',/,
     2       2x,'*',66x,'*',/,2x,'*',27x,'VERSION 5.101',26x,'*',/,
     2       2x,'*',66x,'*',/,2x,'*',21x,'Revised from VERSION 4.2',
     3       21x,'*',/,
c    4       2x,'*',66x,'*',/,
     5       2x,'*',26x,'  Autumn 2000 ',26x,'*',/,2x,'*',66x,'*',/,
     6       2x,'*',66x,'*',/,2x,68('*'),//)
c
c     + + + END SPECIFICATIONS + + +
c
      write(*,2000)
      write(*,2001)
      return
      end