C     COMMON VARIABLES OF defect.f
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      PARAMETER (NM=8*8**3+10,NX=30,MOP=3*NM+6)
      PARAMETER (PI=3.14159265358979323846D0)
      COMMON /BLOCK1/ FX(NM),FY(NM),FZ(NM),EP(NM),EPH,EP0,
     A                SX(NM),SY(NM),SZ(NM),X(NM),Y(NM),Z(NM),
     A                H0(3,3),H(3,3),HI(3,3),SOUT(3,3),
     A                STRESS(3,3),VOLUME,POTE,SEED,RPRINT 
      
      COMMON /BLOCK2/ 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,
     A                UMASS_IN_KG,USTRESS_IN_MBAR,NAME_ATOM(2)
      CHARACTER *2 NAME_ATOM
      
      COMMON /INT/ OPTION,N,NOLD,NTYPE(NM),LIST(NM,NX),IDX(NM),
     A             LIST2(NX),IATOM
      INTEGER OPTION,IATOM
      
      COMMON/BOOLEAN/ CONST_H,CONST_S,PRINT_ATOM,USE_DEFAULT
      LOGICAL CONST_H,CONST_S,PRINT_ATOM,USE_DEFAULT

      COMMON /CHAR/ BUF,NAME,NAME_READ,NAME_WRITE
      CHARACTER*70  BUF,NAME,NAME_READ,NAME_WRITE
      
      DATA LP_CONFIG,LP_XYZ,LP_PDB /25,26,27/