SUBROUTINE HEADR (VRSION)

*** This subroutine prints the header information and the disclaimer

      IMPLICIT DOUBLE PRECISION (A-H, O-Z)
      IMPLICIT INTEGER (I-N)
*     IMPLICIT UNDEFINED (A-Z)

      INTEGER MXAREA
      PARAMETER (MXAREA = 8)

      DOUBLE PRECISION VRSION
      CHARACTER*1 ANS

      INTEGER LUIN, LUOUT, NOUT, NIN, NAPAR, LUAREA
      COMMON /INOUT/ LUIN, LUOUT, NOUT, NIN, NAPAR, LUAREA(2*MXAREA)

      WRITE (LUOUT,920)
  920 FORMAT (10X,'                   Welcome', /,
     +    10X,    '                   to  the', /,
     +    10X,    '          National Geodetic Survey', /,
     +    10X,    '  North American Datum Conversion program.', //,
     +    10X,    ' For use when NAD 27 latitude and longitudes', /,
     +    10X,    '            need to be converted', /,
     +    10X,    '   to NAD 83 latitude and longitude values', /,
     +    10X,    '                     or', /,
     +    10X,    ' for use when NAD 83 latitude and longitudes', /,
     +    10X,    '            need to be converted', /,
     +    10X,    '  to NAD 27 latitude and longitude values.', /)

      WRITE (LUOUT,931)
      READ (LUIN,'(A1)') ANS
      WRITE (LUOUT,2)
      write(LUOUT,*) ' '
      write(LUOUT,921)
c...v....1....v....2....v....3....v....4....v....5....v....6....v....7....v....8....v....9....v....0....v....1....v....2
  921 format (10x,'              Additional Option',//,
     +        10x,' For use when NAD83 (1986) latitudes and longitudes',
     + /,
     +        10x,'             need to be converted',/,
     +        10x,'to applicable state HPGN latitude and longitude ',
     + 'values',/,
     +        10x,'                    or',/,
     +        10x,'    for use when HPGN latitudes and longitudes',/,
     +        10x,'             need to be converted',/,
     +        10x,'  to NAD 83 (1986) latitude and longitude values.',/)

      WRITE (LUOUT,931)
      READ (LUIN,'(A1)') ANS
      WRITE (LUOUT,2)

      WRITE (LUOUT,930) VRSION
  930 FORMAT (//,10X,'               (Version ', F5.2, ')', /,
c    +       10X,    '                April 1, 1991', /,
     +       10X,    '              January 15, 1992',/,
     +       10X,    '          Warren T. Dewhurst, Ph.D.', /,
     +       10X,    '         Lieutenant Commander, NOAA', /,
     +       10X,    '               Alice R. Drew', /,
     +       10X,   ' Senior Geodesist, Horizontal Network Branch', /,
     +       10X,    '             Janice M. Bengston',/,
     +       10x,    '        Geodesist, Horizontal Network Branch',/)

      WRITE (LUOUT,931)
  931 FORMAT (10X,    '          (Hit RETURN to continue.)')

      READ (LUIN,'(A1)') ANS
      WRITE (LUOUT,2)
*   2 FORMAT ('1')
    2 FORMAT ('')

      WRITE (LUOUT,932)
  932 FORMAT (/, '                           DISCLAIMER', //,
     + ' This program and supporting information is furnished by',
     + ' the government of', /,
     + ' the United States of America, and is accepted/used by the',
     + ' recipient with', /,
     + ' the understanding that the U. S. government makes no',
     + ' warranties, express or', /,
     + ' implied, concerning the accuracy, completeness, reliability,',
     + ' or suitability', /,
     + ' of this program, of its constituent parts, or of any',
     + ' supporting data.', //,
     + ' The government of the United States of America shall be',
     + ' under no liability', /,
     + ' whatsoever resulting from any use of this program.',
     + '  This program should', /,
     + ' not be relied upon as the sole basis for solving a problem',
     + ' whose incorrect', /,
     + ' solution could result in injury to person or property.')
        WRITE (LUOUT,933)
  933   FORMAT ( /,
     + ' This program is the property of the government of the',
     + ' United States of', /,
     + ' America. Therefore, the recipient further agrees not to',
     + ' assert proprietary', /,
     + ' rights therein and not to represent this program to anyone as',
     + ' being other', /,
     + ' than a government program.', /)

      WRITE (LUOUT,931)
      READ (LUIN,'(A1)') ANS
      WRITE (LUOUT,2)

      RETURN
      END