Loading src/cluster/cluster.cpp +0 −20 Original line number Diff line number Diff line Loading @@ -896,26 +896,6 @@ int cluster_jxi488_cycle( { magma_cms(vec_am, cid->c1, cid->proc_device); // Initialize uninverted matrix on GPU /* // DEBUG STEP #pragma omp target update from(vec_am[0:ndit*ndit]) device(cid->proc_device) message = "c_magma_cms_jxi_" + to_string(jxi488) + ".ppm"; write_matrix_as_ppm(cid->am[0], ndit, ndit, message, "MAG", 1, 1); { VirtualAsciiFile *outam1 = new VirtualAsciiFile(); string outam1_name = output_path + "/c_MAGMA_AM1_JXI" + to_string(jxi488) + ".txt"; sprintf(virtual_line, " AM matrix after CMS before LUCIN\n"); outam1->append_line(virtual_line); sprintf(virtual_line, " %d\n", ndit); outam1->append_line(virtual_line); sprintf(virtual_line, " I1+1 I2+1 Real Imag\n"); outam1->append_line(virtual_line); write_dcomplex_matrix(outam1, cid->am, ndit, ndit, " %5d %5d (%17.8lE,%17.8lE)\n", 1); outam1->write_to_disk(outam1_name); delete outam1; } */ #pragma omp target data use_device_ptr(vec_am) device(cid->proc_device) { magma_zinvert_resident(vec_am, (magma_int_t)ndit, jer, queue, cid->proc_device, rs); Loading Loading
src/cluster/cluster.cpp +0 −20 Original line number Diff line number Diff line Loading @@ -896,26 +896,6 @@ int cluster_jxi488_cycle( { magma_cms(vec_am, cid->c1, cid->proc_device); // Initialize uninverted matrix on GPU /* // DEBUG STEP #pragma omp target update from(vec_am[0:ndit*ndit]) device(cid->proc_device) message = "c_magma_cms_jxi_" + to_string(jxi488) + ".ppm"; write_matrix_as_ppm(cid->am[0], ndit, ndit, message, "MAG", 1, 1); { VirtualAsciiFile *outam1 = new VirtualAsciiFile(); string outam1_name = output_path + "/c_MAGMA_AM1_JXI" + to_string(jxi488) + ".txt"; sprintf(virtual_line, " AM matrix after CMS before LUCIN\n"); outam1->append_line(virtual_line); sprintf(virtual_line, " %d\n", ndit); outam1->append_line(virtual_line); sprintf(virtual_line, " I1+1 I2+1 Real Imag\n"); outam1->append_line(virtual_line); write_dcomplex_matrix(outam1, cid->am, ndit, ndit, " %5d %5d (%17.8lE,%17.8lE)\n", 1); outam1->write_to_disk(outam1_name); delete outam1; } */ #pragma omp target data use_device_ptr(vec_am) device(cid->proc_device) { magma_zinvert_resident(vec_am, (magma_int_t)ndit, jer, queue, cid->proc_device, rs); Loading