FTN4
      SUBROUTINE FLHD2(LU1,TAPE,NAME,FILENO,JREC,ENTRY,IERR)
     +,92069-16208 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-18208
C     RELOC:     92069-16208
C 
C 
C****************************************************************:
C 
C 
C************************************************************** 
C FLHD2 WRITES A 24-WORD FILEHEAD TO TAPE. (REFER TO THE IMS FOR
C DBULD FOR THE FORMAT OF THE HEADER).
C************************************************************** 
      INTEGER LU1,TAPE,NAME(1),FILENO,JREC,ENTRY(1),IERR
      COMPLEX STRING(6) 
      INTEGER S(24) 
      EQUIVALENCE(S,STRING) 
      DATA STRING/8HFILEHEAD,8H21XX    ,4*8H        / 
C*****************************************************************
C TRANSFER DATA FROM PARAMETERS INTO S
C 
      S(9)=NAME(1)
      S(10)=NAME(2) 
      S(11)=NAME(3) 
      S(17)=FILENO
      S(19)=JREC
      S(21)=ENTRY(1)
      S(22)=ENTRY(2)
      S(24)=2H**
C****************************************************************** 
C WRITE THE FILEHEAD TO TAPE. 
C 
      CALL TAPEW(LU1,TAPE,S,24,IERR)
      IF (IERR .NE. 0) RETURN 
      RETURN
      END 
                                                                                                                                                                                                                                                    