110format(5x,'< BZKMESH > : creating k-mesh,',' write to file kpoints',/)
120format(8x,'number of different k-meshes :',i2,/,8x,'the direct lattice',i3,' symmetries will be used',/,/,8x,35('-'),/,8x,'k-mesh NofKs N kx N ky N kz vol BZ',&
120format(8x,'number of different k-meshes :',i2,/,8x,'the direct lattice',i3,' symmetries will be used',/,/,8x,35('-'),/,8x,'k-mesh NofKs N kx N ky N kz vol BZ',&