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-18387 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
C 
C     ACGSP SCHEDULES GASP WITH THE PASSED
C      COMMAND PLACED AHEAD OF CUURENT USER.GROUP 
C 
C     CALLING SEQUENCE: 
C      CALL ACGSP(NAME,IERR,TYPE) 
C 
C 
      SUBROUTINE ACGSP(NAME,IERR,TYPE)
     1 ,92067-16361 REV.1940 790124 
      DIMENSION NAME(11),ISTRG(15),INAME(3),IBUF(5) 
      EQUIVALENCE (STRG,ISTRG(2)) 
      DATA ISTRG/ 2H,,,0,0,2H,,,0,0,0,0,0,2H .,0,0,0,0,0 /
      DATA INAME /2HGA,2HSP,2H   /
      IERR=0
      IF(KSPCR(IDUM).EQ.0) RETURN 
      DO 10 I=2,6 
   10 ISTRG(I+3)=IAND(77777B,NAME(I)) 
      DO 20 I=7,11
   20 ISTRG(I+4)=IAND(77777B,NAME(I)) 
      STRG=TYPE 
C 
C     SCHEDULE GASP WITH REQUEST
C 
      DO 50 I=1,100 
      CALL EXEC(100011B,INAME,-63,0,0,0,0,ISTRG,15) 
      GO TO 40
   25 CALL RMPAR(IBUF)
      IERR=IBUF(1)
      RETURN
C 
C     WAIT FOR 1 SEC
C 
   40 CALL EXEC(12,0,1,0,-100)
   50 CONTINUE
      IERR=-3 
      RETURN
      END 
                                        