C UNNAMED COMMON
C     AMAT(550,6,27) - EACH ELEMENT ON INPUT HAS A MATRIX COMPUTED
C FOR IT. IT WILL TAKE ONE OF THE 6X27 LEVELS - EACH ELEMENT HAS A 6X27
C MATRIX ASSOCIATED WITH IT.
C NORLST2500) - THE ORDER LIST OF THE ELEMENTS
C     XPEL(550) - HORIZONTAL BOUNDARIES FOR THE ELEMENTS
C     YPEL(550) - VERTICAL BOUNDARIES FOR THE ELEMENTS
C EXPEL - EXPULSION FACTOR
C N - NUMBER OF CURRENT ELEMENT BEING PROCESSED.
C LOGPAR((550) - LOGICAL VALUES TO INDICATE WHETHER PARTICLES
C ARE LOST OR NOT IN CERTAIN OPERATIONS
C
	LOGICAL LOGPAR
      COMMON AMAT(550,6,27),NORLST(2500),
     1XPEL(550),YPEL(550),
     1EXPEL,N,LOGPAR(550)
C
C COMMON/INPUTT/
C KODE(550) - CODES OF THE MACHINE ELEMENTS
C NAME(550,4) - 4 CHARACTER NAMES OF THE MACHINE ELEMENTS
C IADR(550) - POINTER INTO ELDAT FOR PARAMETERS OF THE
C MACHINE ELEMENTS
C ELDAT(5000) - PARAMETERS FOR THE MACHINE ELEMENTS
C MADR(550) - LEVEL IN AMAT(I,6,27) WHICH THE ELEMENT
C MATRIX RESIDES.
C KCOUNT - KICK COUNT
C
      COMMON /INPUTT/ KODE(550),NAME(550,4),IADR(550),ELDAT(5000)
     +,MADR(550),KCOUNT,NA
	common /eleatstart/eldat0(5000)
C
C COMMON/LENGTH/ TLENG - TOTAL LENGTH OF MACHINE
C
C     ALENG(550) - BUFFER TO RECORD THE LENGTHS OF EACH ELEMENT
      COMMON/LENGTH/TLENG,ALENG(550),ACLENG(2500)
C