Parameter (LPMX = 5000)            !Maximum number of particles
      Parameter (LPMX3 = LPMX*3)         !
      Parameter (KTMX = 3)               !Maximum number of particle types
      Parameter (KPMX = KTMX*(KTMX+1)/2) !Maximum number of potential types
      Parameter (MAXNNB = 150)           !Max. number of neighbour pairs
      Parameter (NT = 2000)              !Points in the energy & force tables

!---- Fundamental constants ----------------------------------------------
      Parameter (PI = 3.1415926535897932D+00) !
      Parameter (EVTOJOU = 1.60219D-19)       !J/eV
      Parameter (AMUTOKG = 1.6605402D-27)     !kg/amu
      Parameter (BK = 8.617385D-05)           !Boltzman constant, eV/K
      Parameter (XJOUTOEV = 1.d0/EVTOJOU)     !eV/J
      Parameter (CSPEED = 2.99792458D+08)     !speed of light in m/s
      Parameter (HPLANCK = 6.6260755D-34)     !planck's constant in J*s
!-------------------------------------------------------------------------

!---- Transfer to program units ------------------------------------------
      Parameter (ENUNIT = AMUTOKG*1.d4*XJOUTOEV)  !eV/pr.u.
!-------------------------------------------------------------------------