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-18389 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACGTU- ROUTINE TO GET A USER'S ACCOUNT ENTRY
C 
C     CALLING SEQUENCE:  CALL ACGTU (IUSER,IGRP,IBUF,IOFST,IERR)
C                WHERE
C                        IUSER = 5-WD BUFFER CONTAINING USER NAME,
C                                PADDED WITH BLANKS 
C                        IGRP  = 5-WD BUFFER CONTAINING GROUP NAME, 
C                                PADDED WITH BLANKS 
C                        IBUF  = 128-WD BUFFER WHERE ACCOUNT ENTRY
C                                IS RETURNED
C                        IOFST = RETURNED AS 0 IF ACCT STARTS AT 1ST WD,
C                                64 IF STARTS AT 65TH WD OF BUFFER
C                        IERR  = ACERR RETURN WORD
C 
C     ACERRS:             -200 = ACCOUNT NOT FOUND
C                          FMP ACERR (READF,READF IN ACFDA) 
C 
C 
      SUBROUTINE ACGTU (IUSER,IGRP,IBUF,IOFST,IERR) 
     1 ,92067-16361 REV.1940 781024 
      DIMENSION IUSER(5),IGRP(5),IBUF(128),IRECU(2),IRECG(2)
      COMMON /ACOM1/NDCB(272) 
C 
C     GET RECORD NUMBER OF ACCOUNT ENTRY
C 
      CALL ACFDA(IUSER,IGRP,IDIRN,IRECU,IRECG,IERR) 
      IF(IERR.LT.0) RETURN
      IOFST=IRECU(2)
C 
C     READ THE ACCOUNT ENTRY INTO THE RETURN BUFFER 
C 
      CALL READF(NDCB,IERR,IBUF,128,LEN,IRECU)
      RETURN
      END 
                                                                                                                                                                                        