Tracer diffusion in granitic melts: Experimental results for NA, K, RB, CS, CA, SR, BA, CE, EU to 1300°C and a model of calculation