      subroutine header
c
c     introductory statements for PCCONTUR
c
      write(*,1000)
 1000 format(
     &  '      Welcome to Program PCCONTUR(Version 2.0)',
     &/,'      Note: set iverb=1 to list parameters')
c     &/,'      U.S. Geological Survey Open-File Report 88-593B',
c     &/,'                               by'
c     &/,'      Richard H. Godson,Robert E. Bracken and'
c     &,' Michael W. Webring',
c     &//,'      This program was developed by personnel',
c     &' of the U.S. Geological Survey',/,
c     &'      Branch of Geophysics,Denver,Colorado',//
c     &,'      The original program was developed by',
c     &' Gerald I. Evenden',/,
c     &'      on a Decsystem-10 computer in the early-mid 70''s.',
c     &/,'      Modifications have been made through the years',
c     &/,'      by Rob Bracken,Dick Godson and Mike Webring.',
c     &/,'      References:',
c     &/,'      Evenden,Gerald Ian,A general purpose contouring',
c     &' program:',/'      U.S.Geological Survey Open-File',
c     &' Report 75-317 ',/,
c     &'      Godson.R.H. and Webring,M.W,CONTOUR: - a',
c     &' modification of',/,
c     &'      G.I.Evenden''s general purpose',
c     &' contouring program:',/,
c     &'      U.S. Geological Survey',
c     &' Open-File Report 82-797.')
c      write(*,2000)
 2000 format(
     &/,'      Although this program has been extensively tested,',/,
     &'      the U.S. Geological Survey cannot guarantee that',/,
     &'      it will give accurate results for all applications'/,
     &'      nor that it will work on all computer systems.')
c      pause'Hit Return to Continue'
      return
      end
