FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18402 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACPGA PURGES AN ACCOUNT ENTRY 
C           OR RESERVES SPACE FOR SECOND
C           PART OF AN ENTRY
C 
      SUBROUTINE ACPGA(I,IDIRN,ID) ,92067-16361 REV.1940 781011 
      DIMENSION IBUF(16)
      COMMON /ACOM6 /LOC(6),IRN 
      COMMON /ACOM5/LOWUS,IHIGR 
      COMMON /ACOM1/NDCB(272),NBUF(256) 
      DATA IBUF / 16*0 /
      IBUF(1)=I 
      CALL ACDIR(2,IDIRN,IBUF,IERR) 
      RETURN
      END 
                                      