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	mocchiut	1.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