double ALPHA2
A2_CAL[I] = ALPHA2[I]

Can you spot the problem?