[KLOE] [Offline Doc] [TRK Files] Track Reconstruction Library bcs.inc

C  DEC/CMS REPLACEMENT HISTORY, Element BCS.CIN
C  *1    18-JUN-1991 19:30:37 FLAVIA "Main YBOS array"
C  DEC/CMS REPLACEMENT HISTORY, Element BCS.CIN
C===Include File: C$INC:BCS.INC
C
C	This file includes the common BCS which contains the primary
C	YBOS array IW used in the CDF offline package.  Offline package
C	subroutines which need access to the IW array should include this
C	file.  Offline driver programs which initialize YBOS (via BOS77)
C	should NOT include this file.  Instead they should explicitly
C	include the BCS common with the array IW dimensioned appropriately
C	for that application.
C
	INTEGER          IW
	REAL             RW(200)
	DOUBLE PRECISION DW(100)
$$IF FTN77
	EQUIVALENCE (IW,RW,DW)
$$ELSE
        CHARACTER*4      AW(200)
	INTEGER*2        IW2(400)
	EQUIVALENCE (IW,IW2,RW,DW)
        EQUIVALENCE (IW,AW)
$$ENDIF
	COMMON /BCS/ IW(200)
C
C===End of include file C$INC:BCS.INC