转换成C代码 KKL1=IIDBX2KK1 KKL2=IIDBX2KK2 KKL3=IIDBX2KK3 KKL4=IIDBX2KK4 NN6=3 IFKKL3EQKKL4 THEN DO 1108 IK2=13 KKL1=KKLIK2 NN5=0 D

int KKL[4]; KKL[0] = IIDBX2(KK, 1); KKL[1] = IIDBX2(KK, 2); KKL[2] = IIDBX2(KK, 3); KKL[3] = IIDBX2(KK, 4); int NN6 = 3; if (KKL[2] == KKL[3]) { for (int IK2 = 1; IK2 <= 3; IK2++) { int KKL1 = KKL[IK2]; int NN5 = 0; for (int IKK = 1; IKK <= 3; IKK++) { int IKK1 = NN4 + IKK; if (LIDB[IKK1] == KKL1) { FIDB[IKK1] = FIDB[IKK1] + FORCE2; } if (LIDB[IKK1] != KKL1) { NN5 = NN5 + 1; } } if (NN5 == 3) { NN6 = NN6 + 1; FIDB[NN4 + NN6] = FIDB[NN4 + NN6] + FORCE2; LIDB[NN4 + NN6] = KKL1; if (IXXX[KKL1] == 1 || IXXX[KKL1] == 2) { IXXX[KKL1] = 5; } if (IXXX[KKL1] == 3) { IXXX[KKL1] = 4; } } }