#set the boron 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 "Vac"}}

array set $Base {Fi {Double { [pdbGetDouble Si Sb I D0] + [pdbGetDouble Si Sb I Dn] / [pdbGetDouble Si Sb Dstar]}}}

array set $Base {Dstar {Double { [pdbGetDouble Si Sb I D0] + [pdbGetDouble Si Sb I Dn] + [pdbGetDouble Si Sb V D0] + [pdbGetDouble Si Sb V Dn] }}}

array set $Base {D0 {Double { [pdbGetDouble Si Sb I D0] + [pdbGetDouble Si Sb V D0]}}}

array set $Base {Dn {Double { [pdbGetDouble Si Sb I Dn] + [pdbGetDouble Si Sb V Dn]}}}

#solubility data as a function of temperature ... this needs to be sorted!
#700C is an estimate -Aaron 3/26/97
array set $Base {Solubility {Double { [Arrhenius 4.8e20 0.274]}}}

#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 {I Interstitial}
array set $Base {Int Interstitial}
array set $Base {Vacancy Vacancy}
array set $Base {vacancy Vacancy}
array set $Base {Vacan Vacancy}
array set $Base {vacan Vacancy}
array set $Base {V Vacancy}
array set $Base {Vac Vacancy}

return { DiffModel Charge ActiveModel Discrete Abs.Error Defects Fi Dstar D0 Dn Solubility Interstitial interstitial Interst interst inter Inter I Vacancy vacancy Vacan vacan V }

