FTN4
      SUBROUTINE DATAH(LU1,NAMR,BUFR,BUFSZ,HDSZ,IERR) 
     +,92069-16203 REV.2013 790413
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-18203
C     RELOC:     92069-16203
C 
C 
C****************************************************************:
C 
C 
C*********************************************************
C DATAH SETS UP A DATA HEADER IN THE FIRST 24 WORDS OF BUFR.
C IT DOES NOT WRITE BUFR OUT TO TAPE, JUST SETS IT UP.
C*********************************************************
      INTEGER LU1,NAMR(1),BUFR(1),BUFSZ,HDSZ,IERR 
      INTEGER S(24) 
      COMPLEX STRING(6) 
      EQUIVALENCE (S,STRING)
      DATA STRING/8HDATAHEAD,8H21XX    ,4*8H        / 
C*******************************************************
C CHECK BUFR IS LARGE ENOUGH
C 
      IF (BUFSZ .LT. 25) CALL DBER2(LU1,7777,NAMR,6HDATAH ,2HAB)
C********************************************************** 
C BUILD UP S,THEN TRANSFER IT TO BUFR.
C 
      DO 10 J=1,6 
      S(J+8)=NAMR(J)
10    CONTINUE
      S(24)=2H**
C******************************************************** 
C TRANSFER S INTO BUFR
C 
      DO 20 J=1,24
      BUFR(J)=S(J)
20    CONTINUE
      HDSZ=24 
      IERR=0
      RETURN
      END 
                                                                                                                                                                                                  