Amphibole fractionation in calc-alkaline magma genesis