FTN4
      SUBROUTINE CKDHD(LU1,NAMR,BLKNO,BUFR,IERR)
     +,92069-16207 REV.2013 790511
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18207
C     RELOC:     92069-16207
C 
C 
C****************************************************************:
C 
C 
C****************************************************** 
C CKDHD CHECKS THAT THE FIRST 24 WORDS OF BUFR CORRESPOND TO
C A VALID DATA HEAD.
C****************************************************** 
      INTEGER LU1,NAMR(1),BLKNO,BUFR(1),IERR
      COMPLEX S(6)
      DATA S/8HDATAHEAD,8H21XX    ,4*8H        /
C***********************************************************
C WRITE OUT MESSAGE AND CHECK DATA HEAD.
C 
      CALL COMP(LU1,BUFR,S,8,IERR)
      IF (IERR .LT. 0) GO TO 9000 
      IERR=0
      RETURN
C************************************************************ 
C BAD DATA HEAD. LEAVE NEGATIVE IERR AND RETURN.
C 
9000  CONTINUE
      CALL REIO(2,LU1,19H BAD HEADER RECORD.,-19) 
      IERR=-7777
      CALL DBER2(LU1,IERR,NAMR,6HCKDHD ,2HXX) 
      RETURN
      END 
                                                                                                          