C**************************************************************    
C*                                                            *
C*           A C N D A T A . C D E                            *
C*                                                            *    
C**************************************************************    
C---             
C--- This file contains common blocks with the informations 
C--- coming from ACNET events.
C---
C--- *********************************************************
C---
C---     NEEDS TO BE REWRITTEN    
C---
C--- *********************************************************
      INTEGER SANPTS,SAHRMNO
      PARAMETER (SANPTS=166)

      LOGICAL ACDTERR(20)
      REAL XPOFFT,ACDAT(10)
      REAL*8 ACRFRQ,SAPKFRQ,SAFRQ(5),ACBFIELD,ACTIME,ACORBL(2)
      REAL DBPM(6,6),BPM(2,2)
      REAL ACPBEAM,ACECM,ACETA
      REAL S1PBEAM,ACEBEAM,S1EBEAM,S1ECM
      REAL SAS1FRQ,SAS2FRQ,SAPTLOG(SANPTS),SAPTLIN(SANPTS)      
      INTEGER*2 ACHEADER,BPMCHK,SAHEADER,ACORBNO
      COMMON/ACNET/ACHEADER,XPOFFT,ACRFRQ,ACDAT,ACBFIELD,ACTIME
     +            ,BPMCHK,DBPM,BPM,ACORBNO,ACORBL
     +            ,SAHEADER,SAHRMNO,SAFRQ
     +            ,SAPKFRQ,SAS1FRQ,SAS2FRQ
     +            ,SAPTLIN,SAPTLOG
     +            ,ACPBEAM,ACECM,ACETA
     +            ,ACEBEAM,S1EBEAM,S1PBEAM,S1ECM
     +            ,ACDTERR