root2paw/inc/ACINT.TXT

      IMPLICIT NONE     
*     
      INTEGER HITMAP, HITSTATUS
      INTEGER TRIGGER
      INTEGER STATUS
      REAL OBT,EVFILE,HEADC
c     
      COMMON /aclev1/obt,evfile,headc,
     &  status(2),hitmap(2),hitstatus(2),
     &  trigger(2)
      SAVE /aclev1/
 
1	IMPLICIT NONE
2	*
3	INTEGER HITMAP, HITSTATUS
4	INTEGER TRIGGER
5	INTEGER STATUS
6	REAL OBT,EVFILE,HEADC
7	c
8	COMMON /aclev1/obt,evfile,headc,
9	& status(2),hitmap(2),hitstatus(2),
10	& trigger(2)
11	SAVE /aclev1/
12