Update constants.f90

Include lattice constant (will eventually get moved into type(Formfac), when it becomes something more like type(Material))