FTN4
      SUBROUTINE DTHD2(LU1,NAME,BUFR,BUFSZ,HDEND,IERR)
     +,92069-16209 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-18209
C     RELOC:     92069-16209
C 
C 
C****************************************************************:
C 
C 
C***************************************************************
C DTHD2 SETS UP A 24-WORD DATA HEADER IN BUFR.(REFER TO THE IMS 
C FOR THE FORMAT OF THE DATA HEADER). 
C 
C NAME= NAME OF DATA SET YOU'RE WRITING.
C BUFR = THE BUFR TO PUT THE HEADER IN. 
C HDEND= THE LENGTH OF THE HEADER(RETURNED).
C**************************************************************** 
      INTEGER LU1,NAME(1),BUFR(1),BUFSZ,HDEND,IERR
      INTEGER S(24) 
      COMPLEX STRING(6) 
      EQUIVALENCE (STRING,S)
      DATA STRING/8HDATAHEAD,8H21XX    ,4*8H        / 
C*******************************************************************
C PRELIMINARY CHECK THAT BUFR IS LARGE ENOUGH 
C 
      HDEND=24
      IF (HDEND .GT. BUFSZ) CALL DBER2(LU1,7777,NAME,6HDTHD2 ,6HDBUL9 ) 
C****************************************************************** 
C INIT BUFR TO S
C 
      DO 10 J=1,HDEND 
      BUFR(J)=S(J)
10    CONTINUE
C****************************************************************** 
C PUT PARAMETER VALUES INTO BUFR. 
C 
      BUFR(9)=NAME(1) 
      BUFR(10)=NAME(2)
      BUFR(11)=NAME(3)
      BUFR(24)=2H** 
      RETURN
      END 
    