IMPLICIT REAL*8(A-H,O-Z)
      character*14 drname
      logical FullList
      INCLUDE 'parameters.h'

!     Coordinates, velocities, and forces
      COMMON/XXX/ X(LPMX3),Q1(LPMX3),F(LPMX3)

!     Coordinates of the center of the computational cell
      COMMON/CENTR/ XCENTR,YCENTR,ZCENTR

!     Energies per atom (total, potential, and kinetic)
!     VW - kinetic energy at the previous step (used in quenching)
      COMMON/ENY/ EN(LPMX),POT(LPMX),QIN(LPMX),VW(LPMX)

!     Force and Energy tables for pair potentials
      COMMON/TTT/ FT(KPMX,NT),UT(KPMX,NT)

!     Index that defines type of the pair potential for two atoms
      COMMON/IND/ IJINDEX(KTMX,KTMX)

!     Cutoff distances for pair potentials and neighbor lists
      COMMON/CUT/ DXR(KPMX),RM(KPMX),RList(KPMX),RList2(KPMX),Rskin

!     Parameters for 3-body term of SW
      COMMON/SW/ SW_sig(KPMX),SW_lam(KPMX),SW_gam(KPMX),SW_eps(KPMX)

!     Neighbor lists arrays
      COMMON/NBR/ NNG(LPMX),NNNG(MAXNNB,LPMX),FullList

!     Characteristics of the atoms
      COMMON/KTP/ KTYPE(LPMX),KRIGID(LPMX),KHIST(LPMX),KTT(KTMX)

!     Masses of the atoms
      COMMON/MSS/ XMASS(KTMX),G1(KTMX)

!     Higher time derivatives of the coordinates and parameters for
!     Nordsieck integrator
      COMMON/NORD/ Q2(LPMX3),Q3(LPMX3),Q4(LPMX3),Q5(LPMX3), &
       C1,C2,C3,C4,C5

!     Sizes of the computational cell
      COMMON/CELL/ XL,XLHALF,YL,YLHALF,ZL,ZLHALF

!     Input parameters
      COMMON/NNN/ NAN,NAN3,NO1,NRIGID,NSTEP,LIDX,LIDY,LIDZ,KBOUND, &
       NDIM,NEWTAB,NEPRT,NWRITE,NPER,NTYPE,NPOTS,MOV,KFLAG,LGOT,KEYBS
      COMMON/ExF/ ExForce, ExTime
      COMMON/DDD/ TIME,QTEM,DELTA

!     Variables used to define names of input/output files
      COMMON/dr1/ LDR
      COMMON/dr2/ DRNAME

!     Seed for random number generator
      COMMON/RNDN/ ISEED(64), U1, U2

!     This variables can be used to create animations
      COMMON/MOV/ stmov, radius(100),rcolor(100),gcolor(100),bcolor(100)

!     It is convenient to have coordinates, velocities, and forces
!     in both two- and one dimensional arrays
      DIMENSION XD(3,LPMX), FD(3,LPMX), &
       Q1D(3,LPMX),Q2D(3,LPMX),Q3D(3,LPMX),Q4D(3,LPMX),Q5D(3,LPMX)
      EQUIVALENCE (X(1),XD(1,1)), (F(1),FD(1,1)), &
       (Q1(1),Q1D(1,1)),(Q2(1),Q2D(1,1)),(Q3(1),Q3D(1,1)), &
       (Q4(1),Q4D(1,1)),(Q5(1),Q5D(1,1))