C     COMMON VARIABLES OF TERSOFF.F
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (MMA=4,MML=3,MMH=(2*MML+1)**3,NM=MMH*MMA,NX=60)
      PARAMETER (PI=3.14159265358979323846D0)
      COMMON /DOUBLE/ TAU(MMA,3,),SX(NM),SY(NM),SZ(NM),H(3,3),
     A                HI(3,3),EP(NM),AA,VOLUME,POTE,
     A                PA(2),PB(2),PL1(2),PL2(2),PBT(2),PN(2),
     A                PC(2),PWR2(2),PD(2),PH(2),PR(2),PS(2), 
     A                C2D2(2),PWR(2),PWR1(2),CHIJ(NX),RLM1(NX),
     A                RLM2(NX),CA(NX),CB(NX),CR(NX),CS(NX),PM(2),
     A                CHI_SI_C,PRSIC,PSSIC,RCUT,CUBE0,AVO,BOLZ,
     A                HBAR,UENERGY_IN_JOULE,ULENGTH_IN_METER,
      COMMON /INT/ N,NTYPE(NM),LIST(NM,NX),IDX(NM)
      COMMON /CHAR/ BUF,NAME
      CHARACTER*70  BUF,NAME
      DATA LP /25/