Calcium Shell Model Ion Charge Of Barium