Cut and paste bug fix for the alignment tensor diagonalisation function calc_A_diag().
Authored by: bugman 2009-12-04
Parent: [r10056]
Child: [r10058]
