用来计算正交各向异性基体损伤，达索提供的典型子程序。