#set the phosphorus model information
array set $Base {DiffModel {Switch 1 {Constant Fermi Pair React}}}
array set $Base {Charge {Switch 2 {Neutral Acceptor Donor}}}
array set $Base {ActiveModel {Switch 1 {None Solid Precipitation}}}
array set $Base {Discrete {Switch 2 {linear log s2 s4}}}

#set the error bounds for the dopant
array set $Base {Abs.Error {Double 1.0e10}}

array set $Base {Defects {String Int}}

array set $Base {Fi {Double { 1.0 }}}
array set $Base {Dstar {Double {[pdbGetDouble Si P I D0]+[pdbGetDouble Si P I Dn]+[pdbGetDouble Si P I Dnn]+[pdbGetDouble Si P V D0]+[pdbGetDouble Si P V Dn]+[pdbGetDouble Si P V Dnn]}}}
array set $Base {D0 {Double {[pdbGetDouble Si P I D0]}}}
array set $Base {Dn {Double {[pdbGetDouble Si P I Dn]}}}
array set $Base {Dnn {Double {[pdbGetDouble Si P I Dnn]}}}

#solubility data as a function of temperature ... this needs to be sorted!
array set $Base {Solubility {Double { [Arrhenius 3.89e21 0.265] }}}

#array parameters for defect interactions
array set $Base {Interstitial Interstitial}
array set $Base {interstitial Interstitial}
array set $Base {Interst Interstitial}
array set $Base {interst Interstitial}
array set $Base {inter Interstitial}
array set $Base {Inter Interstitial}
array set $Base {Int Interstitial}
array set $Base {I Interstitial}

return { DiffModel Charge ActiveModel Discrete Abs.Error Defects Fi Dstar D0 Dn Dnn Solubility Interstitial interstitial Interst interst inter Inter I }

