OPENQASM 3.0;
include "stdgates.inc";

// RRMS-1740-BRIDGE-001 · Twin-320 Dense Rail CIRC (640Q = 628 HKUST-1 Unit-Cell Sites + 12 P3Q Tail Watchers)
// Authority: Joshua L. Lopez — DCGP AI LLC — USPTO 19/555,951 · 19/567,678 · 19/569,785 · 19/850,925 · 64/020,705 · 64/095,091
qubit[640] q;
bit[12] syn_tail;
bit[628] c_crystal;

for int i in [0:313] {
    h q[i];
    cx q[i], q[i + 320];
}

for int bank in [0:1] {
    int b = 320 * bank;
    for int cu in [0:23] { s q[b + cu]; }
    for int d in [0:11] { cz q[b + 2 * d], q[b + 2 * d + 1]; }
    for int ox in [24:119] { rx(0.62831853072) q[b + ox]; }
    for int cb in [120:263] { t q[b + cb]; }
    for int hy in [264:311] { z q[b + hy]; }
    ry(1.94161103873) q[b + 312];
    rz(1.25663706144) q[b + 312];
    ry(1.33247886499) q[b + 313];
    cz q[b + 312], q[b + 313];
}

for int w in [0:5] {
    h q[314 + w];
    h q[634 + w];
}

for int bank in [0:1] {
    int b = 320 * bank;
    for int k in [0:5] { cz q[b + 4 * k], q[b + 314]; }
    for int k in [0:5] { cz q[b + 24 + 8 * k], q[b + 315]; }
    for int k in [0:5] { cz q[b + 72 + 8 * k], q[b + 316]; }
    for int k in [0:5] { cz q[b + 120 + 24 * k], q[b + 317]; }
    for int k in [0:5] { cz q[b + 264 + 8 * k], q[b + 318]; }
    cz q[b + 312], q[b + 319];
    cz q[b + 313], q[b + 319];
    rz(1.25663706144) q[b + 319];
}

for int w in [0:5] {
    h q[314 + w];
    h q[634 + w];
    cx q[314 + w], q[634 + w];
    syn_tail[w] = measure q[314 + w];
    syn_tail[6 + w] = measure q[634 + w];
}

if (syn_tail[5] == 1) {
    x q[319];
    ry(0.62831853072) q[312];
    ry(-0.62831853072) q[632];
}
if (syn_tail[11] == 1) {
    x q[639];
    rz(-1.25663706144) q[632];
}

for int i in [0:313] {
    c_crystal[i] = measure q[i];
    c_crystal[314 + i] = measure q[320 + i];
}