Lines Matching refs:index
91 const int index = boundary - 1; in update_3rdm_operators() local
115 … if ( orb_k < index-1 ){ // All processes own Fx/Sx[ index - 1 ][ k - j ][ index - 1 - k == 0 ] in update_3rdm_operators()
118 …if ( MPIRANK != own_F_jk ){ F0tensors[index-1][cnt1][index-orb_k-1] = new TensorF0( index, irrjk, … in update_3rdm_operators()
119 … F1tensors[index-1][cnt1][index-orb_k-1] = new TensorF1( index, irrjk, true, denBK ); } in update_3rdm_operators()
120 …if ( MPIRANK != own_S_jk ){ S0tensors[index-1][cnt1][index-orb_k-1] = new TensorS0( index, irrjk, … in update_3rdm_operators()
121 …if ( cnt1 > 0 ){ S1tensors[index-1][cnt1][index-orb_k-1] = new TensorS1( index, irrjk, true, denBK… in update_3rdm_operators()
122 … MPIchemps2::broadcast_tensor( F0tensors[index-1][cnt1][index-orb_k-1], own_F_jk ); in update_3rdm_operators()
123 … MPIchemps2::broadcast_tensor( F1tensors[index-1][cnt1][index-orb_k-1], own_F_jk ); in update_3rdm_operators()
124 … MPIchemps2::broadcast_tensor( S0tensors[index-1][cnt1][index-orb_k-1], own_S_jk ); in update_3rdm_operators()
125 …if ( cnt1 > 0 ){ MPIchemps2::broadcast_tensor( S1tensors[index-1][cnt1][index-orb_k-1], own_S_jk )… in update_3rdm_operators()
132 const int cnt3 = index - orb_l; in update_3rdm_operators()
148 const int cnt3 = index - orb_l; in update_3rdm_operators()
155 …tensor_3rdm_a_J0_doublet[index][cnt1][cnt2][0]->a1(S0tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
156 …if (cnt1>0){ tensor_3rdm_a_J1_doublet[index][cnt1][cnt2][0]->a1(S1tensors[index-1][cnt1][cnt2-1], … in update_3rdm_operators()
157 …tensor_3rdm_a_J1_quartet[index][cnt1][cnt2][0]->a1(S1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
158 …tensor_3rdm_b_J0_doublet[index][cnt1][cnt2][0]->b1(S0tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
159 …if (cnt1>0){ tensor_3rdm_b_J1_doublet[index][cnt1][cnt2][0]->b1(S1tensors[index-1][cnt1][cnt2-1], … in update_3rdm_operators()
160 …tensor_3rdm_b_J1_quartet[index][cnt1][cnt2][0]->b1(S1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
161 …tensor_3rdm_c_J0_doublet[index][cnt1][cnt2][0]->c1(F0tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
162 …tensor_3rdm_c_J1_doublet[index][cnt1][cnt2][0]->c1(F1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
163 …tensor_3rdm_c_J1_quartet[index][cnt1][cnt2][0]->c1(F1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
164 …tensor_3rdm_d_J0_doublet[index][cnt1][cnt2][0]->d1(F0tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
165 …tensor_3rdm_d_J1_doublet[index][cnt1][cnt2][0]->d1(F1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
166 …tensor_3rdm_d_J1_quartet[index][cnt1][cnt2][0]->d1(F1tensors[index-1][cnt1][cnt2-1], MPS[index], w… in update_3rdm_operators()
169 …tensor_3rdm_a_J0_doublet[index][cnt1][0][0]->extra2(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
170 …tensor_3rdm_a_J1_doublet[index][cnt1][0][0]->extra2(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
171 …tensor_3rdm_c_J0_doublet[index][cnt1][0][0]->extra4(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
172 …tensor_3rdm_c_J1_doublet[index][cnt1][0][0]->extra4(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
173 …tensor_3rdm_c_J1_quartet[index][cnt1][0][0]->extra4(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
174 …tensor_3rdm_d_J0_doublet[index][cnt1][0][0]->extra3(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
175 …tensor_3rdm_d_J1_doublet[index][cnt1][0][0]->extra3(Ltensors[index-1][cnt1-1], MPS[index], workmem… in update_3rdm_operators()
177 tensor_3rdm_d_J0_doublet[index][0][0][0]->extra1(MPS[index]); in update_3rdm_operators()
178 tensor_3rdm_d_J1_doublet[index][0][0][0]->extra1(MPS[index]); in update_3rdm_operators()
182 …sor_3rdm_a_J0_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_a_J0_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
183 …sor_3rdm_a_J1_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_a_J1_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
184 …sor_3rdm_a_J1_quartet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_a_J1_quartet[index-1][cnt1][cnt… in update_3rdm_operators()
185 …sor_3rdm_b_J0_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_b_J0_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
186 …sor_3rdm_b_J1_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_b_J1_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
187 …sor_3rdm_b_J1_quartet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_b_J1_quartet[index-1][cnt1][cnt… in update_3rdm_operators()
188 …sor_3rdm_c_J0_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_c_J0_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
189 …sor_3rdm_c_J1_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_c_J1_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
190 …sor_3rdm_c_J1_quartet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_c_J1_quartet[index-1][cnt1][cnt… in update_3rdm_operators()
191 …sor_3rdm_d_J0_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_d_J0_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
192 …sor_3rdm_d_J1_doublet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_d_J1_doublet[index-1][cnt1][cnt… in update_3rdm_operators()
193 …sor_3rdm_d_J1_quartet[index][cnt1][cnt2][cnt3]->update(tensor_3rdm_d_J1_quartet[index-1][cnt1][cnt… in update_3rdm_operators()
202 … if ( orb_k < index - 1 ){ // All processes own Fx/Sx[ index - 1 ][ k - j ][ index - 1 - k == 0 ] in update_3rdm_operators()
205 …if ( MPIRANK != own_F_jk ){ delete F0tensors[index-1][cnt1][index-orb_k-1]; F0tensors[index-1][cnt… in update_3rdm_operators()
206 … delete F1tensors[index-1][cnt1][index-orb_k-1]; F1tensors[index-1][cnt1][index-orb_k-1] = NULL; } in update_3rdm_operators()
207 …if ( MPIRANK != own_S_jk ){ delete S0tensors[index-1][cnt1][index-orb_k-1]; S0tensors[index-1][cnt… in update_3rdm_operators()
208 …if ( cnt1 > 0 ){ delete S1tensors[index-1][cnt1][index-orb_k-1]; S1tensors[index-1][cnt1][index-or… in update_3rdm_operators()
235 const int index = boundary - 1; in allocate_3rdm_operators() local
237 tensor_3rdm_a_J0_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
238 tensor_3rdm_a_J1_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
239 tensor_3rdm_a_J1_quartet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
240 tensor_3rdm_b_J0_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
241 tensor_3rdm_b_J1_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
242 tensor_3rdm_b_J1_quartet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
243 tensor_3rdm_c_J0_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
244 tensor_3rdm_c_J1_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
245 tensor_3rdm_c_J1_quartet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
246 tensor_3rdm_d_J0_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
247 tensor_3rdm_d_J1_doublet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
248 tensor_3rdm_d_J1_quartet[ index ] = new Tensor3RDM***[ boundary ]; in allocate_3rdm_operators()
252 tensor_3rdm_a_J0_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
253 tensor_3rdm_a_J1_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
254 tensor_3rdm_a_J1_quartet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
255 tensor_3rdm_b_J0_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
256 tensor_3rdm_b_J1_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
257 tensor_3rdm_b_J1_quartet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
258 tensor_3rdm_c_J0_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
259 tensor_3rdm_c_J1_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
260 tensor_3rdm_c_J1_quartet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
261 tensor_3rdm_d_J0_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
262 tensor_3rdm_d_J1_doublet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
263 tensor_3rdm_d_J1_quartet[ index ][ cnt1 ] = new Tensor3RDM**[ boundary - cnt1 ]; in allocate_3rdm_operators()
267 … tensor_3rdm_a_J0_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
268 … tensor_3rdm_a_J1_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
269 … tensor_3rdm_a_J1_quartet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
270 … tensor_3rdm_b_J0_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
271 … tensor_3rdm_b_J1_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
272 … tensor_3rdm_b_J1_quartet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
273 … tensor_3rdm_c_J0_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
274 … tensor_3rdm_c_J1_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
275 … tensor_3rdm_c_J1_quartet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
276 … tensor_3rdm_d_J0_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
277 … tensor_3rdm_d_J1_doublet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
278 … tensor_3rdm_d_J1_quartet[ index ][ cnt1 ][ cnt2 ] = new Tensor3RDM*[ boundary - cnt1 - cnt2 ]; in allocate_3rdm_operators()
290 …tensor_3rdm_a_J0_doublet[index][cnt1][cnt2][cnt3] = (cnt1+cnt2>0) ? new Tensor3RDM(boundary, 0, 1,… in allocate_3rdm_operators()
291 …tensor_3rdm_a_J1_doublet[index][cnt1][cnt2][cnt3] = (cnt1>0) ? new Tensor3RDM(boundary, 2, 1,… in allocate_3rdm_operators()
292 …tensor_3rdm_a_J1_quartet[index][cnt1][cnt2][cnt3] = (cnt1*cnt2>0) ? new Tensor3RDM(boundary, 2, 3,… in allocate_3rdm_operators()
293 …tensor_3rdm_b_J0_doublet[index][cnt1][cnt2][cnt3] = (cnt2>0) ? new Tensor3RDM(boundary, 0, 1,… in allocate_3rdm_operators()
294 …tensor_3rdm_b_J1_doublet[index][cnt1][cnt2][cnt3] = (cnt1*cnt2>0) ? new Tensor3RDM(boundary, 2, 1,… in allocate_3rdm_operators()
295 …tensor_3rdm_b_J1_quartet[index][cnt1][cnt2][cnt3] = (cnt1*cnt2>0) ? new Tensor3RDM(boundary, 2, 3,… in allocate_3rdm_operators()
296 …tensor_3rdm_c_J0_doublet[index][cnt1][cnt2][cnt3] = (cnt1+cnt2>0) ? new Tensor3RDM(boundary, 0, 1,… in allocate_3rdm_operators()
297 …tensor_3rdm_c_J1_doublet[index][cnt1][cnt2][cnt3] = (cnt1+cnt2>0) ? new Tensor3RDM(boundary, 2, 1,… in allocate_3rdm_operators()
298 …tensor_3rdm_c_J1_quartet[index][cnt1][cnt2][cnt3] = (cnt1+cnt2>0) ? new Tensor3RDM(boundary, 2, 3,… in allocate_3rdm_operators()
299 …tensor_3rdm_d_J0_doublet[index][cnt1][cnt2][cnt3] = new Tensor3RDM(boundary, 0, 1,… in allocate_3rdm_operators()
300 …tensor_3rdm_d_J1_doublet[index][cnt1][cnt2][cnt3] = new Tensor3RDM(boundary, 2, 1,… in allocate_3rdm_operators()
301 …tensor_3rdm_d_J1_quartet[index][cnt1][cnt2][cnt3] = (cnt2>0) ? new Tensor3RDM(boundary, 2, 3,… in allocate_3rdm_operators()
304 tensor_3rdm_a_J0_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
305 tensor_3rdm_a_J1_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
306 tensor_3rdm_a_J1_quartet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
307 tensor_3rdm_b_J0_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
308 tensor_3rdm_b_J1_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
309 tensor_3rdm_b_J1_quartet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
310 tensor_3rdm_c_J0_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
311 tensor_3rdm_c_J1_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
312 tensor_3rdm_c_J1_quartet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
313 tensor_3rdm_d_J0_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
314 tensor_3rdm_d_J1_doublet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
315 tensor_3rdm_d_J1_quartet[index][cnt1][cnt2][cnt3] = NULL; in allocate_3rdm_operators()
336 const int index = boundary - 1; in delete_3rdm_operators() local
352 if (cnt1+cnt2>0){ delete tensor_3rdm_a_J0_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
353 if (cnt1>0) { delete tensor_3rdm_a_J1_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
354 if (cnt1*cnt2>0){ delete tensor_3rdm_a_J1_quartet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
355 if (cnt2>0) { delete tensor_3rdm_b_J0_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
356 if (cnt1*cnt2>0){ delete tensor_3rdm_b_J1_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
357 if (cnt1*cnt2>0){ delete tensor_3rdm_b_J1_quartet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
358 if (cnt1+cnt2>0){ delete tensor_3rdm_c_J0_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
359 if (cnt1+cnt2>0){ delete tensor_3rdm_c_J1_doublet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
360 if (cnt1+cnt2>0){ delete tensor_3rdm_c_J1_quartet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
361 delete tensor_3rdm_d_J0_doublet[index][cnt1][cnt2][cnt3]; in delete_3rdm_operators()
362 delete tensor_3rdm_d_J1_doublet[index][cnt1][cnt2][cnt3]; in delete_3rdm_operators()
363 if (cnt2>0) { delete tensor_3rdm_d_J1_quartet[index][cnt1][cnt2][cnt3]; } in delete_3rdm_operators()
367 delete [] tensor_3rdm_a_J0_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
368 delete [] tensor_3rdm_a_J1_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
369 delete [] tensor_3rdm_a_J1_quartet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
370 delete [] tensor_3rdm_b_J0_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
371 delete [] tensor_3rdm_b_J1_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
372 delete [] tensor_3rdm_b_J1_quartet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
373 delete [] tensor_3rdm_c_J0_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
374 delete [] tensor_3rdm_c_J1_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
375 delete [] tensor_3rdm_c_J1_quartet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
376 delete [] tensor_3rdm_d_J0_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
377 delete [] tensor_3rdm_d_J1_doublet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
378 delete [] tensor_3rdm_d_J1_quartet[ index ][ cnt1 ][ cnt2 ]; in delete_3rdm_operators()
382 delete [] tensor_3rdm_a_J0_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
383 delete [] tensor_3rdm_a_J1_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
384 delete [] tensor_3rdm_a_J1_quartet[ index ][ cnt1 ]; in delete_3rdm_operators()
385 delete [] tensor_3rdm_b_J0_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
386 delete [] tensor_3rdm_b_J1_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
387 delete [] tensor_3rdm_b_J1_quartet[ index ][ cnt1 ]; in delete_3rdm_operators()
388 delete [] tensor_3rdm_c_J0_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
389 delete [] tensor_3rdm_c_J1_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
390 delete [] tensor_3rdm_c_J1_quartet[ index ][ cnt1 ]; in delete_3rdm_operators()
391 delete [] tensor_3rdm_d_J0_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
392 delete [] tensor_3rdm_d_J1_doublet[ index ][ cnt1 ]; in delete_3rdm_operators()
393 delete [] tensor_3rdm_d_J1_quartet[ index ][ cnt1 ]; in delete_3rdm_operators()
397 delete [] tensor_3rdm_a_J0_doublet[ index ]; in delete_3rdm_operators()
398 delete [] tensor_3rdm_a_J1_doublet[ index ]; in delete_3rdm_operators()
399 delete [] tensor_3rdm_a_J1_quartet[ index ]; in delete_3rdm_operators()
400 delete [] tensor_3rdm_b_J0_doublet[ index ]; in delete_3rdm_operators()
401 delete [] tensor_3rdm_b_J1_doublet[ index ]; in delete_3rdm_operators()
402 delete [] tensor_3rdm_b_J1_quartet[ index ]; in delete_3rdm_operators()
403 delete [] tensor_3rdm_c_J0_doublet[ index ]; in delete_3rdm_operators()
404 delete [] tensor_3rdm_c_J1_doublet[ index ]; in delete_3rdm_operators()
405 delete [] tensor_3rdm_c_J1_quartet[ index ]; in delete_3rdm_operators()
406 delete [] tensor_3rdm_d_J0_doublet[ index ]; in delete_3rdm_operators()
407 delete [] tensor_3rdm_d_J1_doublet[ index ]; in delete_3rdm_operators()
408 delete [] tensor_3rdm_d_J1_quartet[ index ]; in delete_3rdm_operators()