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