PACF(IT) = PACF(IT) + STORA(J1,I) * STORA(J2,I)
:                   + STORB(J1,I) * STORB(J2,I)
:                   + STORC(J1,I) * STORC(J2,I)
:                   + STORD(J1,I) * STORD(J2,I)
:                   + STORE(J1,I) * STORE(J2,I)
:                   + STORF(J1,I) * STORF(J2,I)
:                   + STORG(J1,I) * STORG(J2,I)
:                   + STORH(J1,I) * STORH(J2,I)
:                   + STORI(J1,I) * STORI(J2,I)