1818 for j= 1 : Ly- 1
1919 if (_c (lt, (i,j), (i,j+ 1 )), ~ )
2020 INC (k)
21- apply_Gvb! (reg, (j, j+ 1 ), Js[k], REG_STACK)
21+ apply_Gvb! (reg, (@const ( j, j+ 1 ) ), Js[k], REG_STACK)
2222 end
2323 end
2424 for j= 1 : Ly
3131 for j= 1 : Ly
3232 # store the information in qubit `j` to ancilla `nbit-j%2`
3333 if (j!= Ly && _c (lt, (i,j), (i+ 1 ,j+ 1 )), ~ )
34- apply_Gcp! (reg, (j,nbit- j% 2 ), REG_STACK)
34+ apply_Gcp! (reg, (@const ( j,nbit- j% 2 ) ), REG_STACK)
3535 end
3636 # interact with j-1 th qubit (a)
37- if (j!= 1 && _c (lt, (i+ 1 ,j- 1 ), (i,j)), ~ )
37+ if (j!= 1 && _c (lt, (@const ( i+ 1 ,j- 1 ) ), (i,j)), ~ )
3838 INC (k)
39- apply_Gvb! (reg, (j- 1 , j), Js[k], REG_STACK)
39+ apply_Gvb! (reg, (@const ( j- 1 , j) ), Js[k], REG_STACK)
4040 end
4141 # onsite term (b)
4242 if (_c (lt, (i,j), (i+ 1 ,j)), ~ )
4848 if (j!= 1 && _c (lt, (i,j- 1 ), (i+ 1 ,j)), ~ )
4949 INC (k)
5050 # interact with cached j-1 th qubit (c)
51- apply_Gvb! (reg, (j,nbit- (j- 1 )% 2 ), Js[k], REG_STACK)
51+ apply_Gvb! (reg, (@const ( j,nbit- (j- 1 )% 2 ) ), Js[k], REG_STACK)
5252 # erease the information in previous ancilla `nbit-(j-1)%2`
53- apply_Gcut! (reg, nbit- (j- 1 )% 2 , REG_STACK)
53+ apply_Gcut! (reg, ( @const nbit- (j- 1 )% 2 ) , REG_STACK)
5454 end
5555 end
5656 end
9696 for j= 1 : Ly- 1
9797 if (_c (lt, (i,j), (i,j+ 1 )), ~ )
9898 INC (k)
99- apply_Gvb! (reg, (j, j+ 1 ), Js[k], A_STACK)
99+ apply_Gvb! (reg, (@const ( j, j+ 1 ) ), Js[k], A_STACK)
100100 end
101101 end
102102 for j= 1 : Ly
@@ -110,12 +110,12 @@ end
110110 for j= 1 : Ly
111111 # store the information in qubit `j` to ancilla `nbit-j%2`
112112 if (j!= Ly && _c (lt, (i,j), (i+ 1 ,j+ 1 )), ~ )
113- apply_Gcp! (reg, (j,nbit- j% 2 ), A_STACK)
113+ apply_Gcp! (reg, (@const ( j,nbit- j% 2 ) ), A_STACK)
114114 end
115115 # interact with j-1 th qubit (a)
116116 if (j!= 1 && _c (lt, (i+ 1 ,j- 1 ), (i,j)), ~ )
117117 INC (k)
118- apply_Gvb! (reg, (j- 1 , j), Js[k], A_STACK)
118+ apply_Gvb! (reg, (@const ( j- 1 , j) ), Js[k], A_STACK)
119119 end
120120 # onsite term (b)
121121 if (_c (lt, (i,j), (i+ 1 ,j)), ~ )
127127 if (j!= 1 && _c (lt, (i,j- 1 ), (i+ 1 ,j)), ~ )
128128 INC (k)
129129 # interact with cached j-1 th qubit (c)
130- apply_Gvb! (reg, (j,nbit- (j- 1 )% 2 ), Js[k], A_STACK)
130+ apply_Gvb! (reg, (@const ( j,nbit- (j- 1 )% 2 ) ), Js[k], A_STACK)
131131 # erease the information in previous ancilla `nbit-(j-1)%2`
132- apply_Gcut! (reg, nbit- (j- 1 )% 2 , A_STACK)
132+ apply_Gcut! (reg, ( @const nbit- (j- 1 )% 2 ) , A_STACK)
133133 end
134134 end
135135 end
0 commit comments