#set the germanium model information
array set $Base {DiffModel {Switch 1 {Constant Fermi Pair React}}}
array set $Base {Charge {Switch 1 {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 {Fi {Double { [pdbGetDouble Si Ge I D0] + [pdbGetDouble Si Ge I Dp] / [pdbGetDouble Si Ge Dstar]}}}

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

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


#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 Fi Solubility Interstitial interstitial Interst interst inter Inter I Vacancy vacancy Vacan vacan V }

