This is the Fortran code about fundamental physics about dynamical lattice