c...................... common-initi.f .................

      implicit double precision (a-h,o-z)
      character flattice*80, nsim*15,numchar*15, strdate*26
      character title*80, fname*80, fnumchar*10
      character titlem*200 
      character*200 titlemm(20)
      character micromapversion*10
      character nameele*40, labelele*40

      parameter(micromapversion="12.12.2007")

      include'parameter-settings.f'

c.....   PI definition
      parameter(PI       = 3.14159265358979312d0)
c.....   Charge of the electron (UNIT [C])
      parameter(QELE     = 1.60217733D-19)
c.....   Permettivity of free space (UNIT [C*C/JM])
      parameter(EPS0     = 8.854187D-12  )
c.....   Speed of light in vacuum  (UNIT [M/S])
      parameter(CLIGHT   = 2.99792458D8  )
c.....   Mass of the proton  (UNIT [Kg])
      parameter(PROTMASS = 1.6605656D-27 )
c.....   1/(4d0*PI*EPS0) IT'S FOR COULOMB'S LAW
      parameter(U4PE0    = 8987552617.30384254d0) 
c.....   Classical radius of the proton
c        RPROT =  QELE*QELE/(4D0*PI*EPS0*PROTMASS*CLIGHT*CLIGHT)
      parameter(RPROT    = 0.154584223219324816D-17) 



 
Mon Jul 17 08:57:52 CEST 2017