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