Apatite in felsic rocks; a model for the estimation of initial halogen concentrations in the Bishop Tuff (Long Valley) and Tuolumne Intrusive Suite (Sierra Nevada Batholith) magmas