common /diploc/ AEA(2,2,2),AEAderg(2,2,2),AEAderx(2,2,3,5,2,2),
& EAEA(2,2,2), EAEAderg(2,2,2,2), EAEAderx(2,2,3,5,2,2),
& AECA(2,2,2),AECAderg(2,2,2),AECAderx(2,2,3,5,2,2),
common /diploc/ AEA(2,2,2),AEAderg(2,2,2),AEAderx(2,2,3,5,2,2),
& EAEA(2,2,2), EAEAderg(2,2,2,2), EAEAderx(2,2,3,5,2,2),
& AECA(2,2,2),AECAderg(2,2,2),AECAderx(2,2,3,5,2,2),