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