Wrote the pcs_constant() function to calculate the pseudocontact shift constant.
Authored by: bugman 2008-08-11
Parent: [r7147]
Child: [r7149]
