Home
last modified time | relevance | path

Searched refs:proc_grid (Results 1 – 25 of 46) sorted by relevance

12

/dports/science/octopus/octopus-10.5/src/math/
H A Dmatrix_ops.F90164 type(blacs_proc_grid_t) :: proc_grid
193 call blacs_proc_grid_init(proc_grid, this%mpi_grp, procdim = (/np1, np2/))
196 nr1 = max(1, numroc(this%dim(1), nb1, proc_grid%myrow, 0, proc_grid%nprow))
197 nr2 = max(1, numroc(this%dim(2), nb2, proc_grid%mycol, 0, proc_grid%npcol))
199 call descinit(desc(1), this%dim(1), this%dim(2), nb1, nb2, 0, 0, proc_grid%context, nr1, info)
206 …call dto_submatrix(this, (/nb1, nb2/), (/proc_grid%myrow, proc_grid%mycol/), (/proc_grid%nprow, pr…
229 call dmatrix_gather(this, (/nb1, nb2/), proc_grid, devec)
239 …call zto_submatrix(this, (/nb1, nb2/), (/proc_grid%myrow, proc_grid%mycol/), (/proc_grid%nprow, pr…
268 call zmatrix_gather(this, (/nb1, nb2/), proc_grid, zevec)
280 call blacs_proc_grid_end(proc_grid)
H A Dmatrix_ops_inc.F9091 type(blacs_proc_grid_t), intent(in) :: proc_grid local
101 do ip1 = 1, proc_grid%nprow
102 do ip2 = 1, proc_grid%npcol
105 nr1r = numroc(this%dim(1), bsize(1), ip1 - 1, 0, proc_grid%nprow)
106 nr2r = numroc(this%dim(2), bsize(2), ip2 - 1, 0, proc_grid%npcol)
113 if(ip1 - 1 == proc_grid%myrow .and. ip2 - 1 == proc_grid%mycol) then
117 iproc = proc_grid%usermap(ip1, ip2)
124 …call X(from_submatrix)(this, bsize, (/ip1, ip2/) - 1, (/proc_grid%nprow, proc_grid%npcol/), submat…
/dports/science/octopus/octopus-10.5/src/hamiltonian/
H A Dscdm.F9097 …type(blacs_proc_grid_t) :: proc_grid !< blacs context for RRQR on transpose states with scalapack component
301 scdm%proc_grid%npcol = st%dom_st_proc_grid%nprow
302 scdm%proc_grid%nprow = st%dom_st_proc_grid%npcol
303 CALL blacs_get( -1, 0, scdm%proc_grid%context )
304 …CALL blacs_gridinit(scdm%proc_grid%context, 'Row-major', scdm%proc_grid%nprow, scdm%proc_grid%npco…
305 …CALL blacs_gridinfo(scdm%proc_grid%context,scdm%proc_grid%nprow,scdm%proc_grid%npcol,scdm%proc_gri…
/dports/devel/ga/ga-5.8/global/testing/
H A Dtestsolve.F52 integer ndim, dims(2), block(2), proc_grid(2), g1, g2
99 proc_grid(1) = g1
100 proc_grid(2) = g2
103 call ga_set_block_cyclic_proc_grid(g_a,block,proc_grid)
107 call ga_set_block_cyclic_proc_grid(g_b,block,proc_grid)
111 call ga_set_block_cyclic_proc_grid(g_c,block,proc_grid)
115 call ga_set_block_cyclic_proc_grid(g_d,block,proc_grid)
120 call ga_set_block_cyclic_proc_grid(g_e,block,proc_grid)
124 call ga_set_block_cyclic_proc_grid(g_f,block,proc_grid)
128 call ga_set_block_cyclic_proc_grid(g_g,block,proc_grid)
H A Dblktest.F42 integer chunk(7), ld(7), block(7), proc_grid(7)
95 proc_grid(1) = 2
96 proc_grid(2) = ga_nnodes()/2
98 proc_grid(1) = 1
99 proc_grid(2) = 1
107 call ga_set_block_cyclic_proc_grid(g_a, block, proc_grid)
109 call ga_set_tiled_proc_grid(g_a, block, proc_grid)
124 call ga_set_tiled_proc_grid(g_b, block, proc_grid)
145 call ga_set_tiled_proc_grid(g_d, block, proc_grid)
160 call ga_set_tiled_proc_grid(g_e, block, proc_grid)
[all …]
H A Dpatch.F95 integer block_size(2), proc_grid(2)
108 proc_grid(1) = 2
109 proc_grid(2) = nproc/2
136 call ga_set_tiled_proc_grid(g_a,block_size,proc_grid)
615 integer block_size(2), proc_grid(2)
628 proc_grid(1) = 2
629 proc_grid(2) = nproc/2
655 call ga_set_tiled_proc_grid(g_a,block_size,proc_grid)
1135 integer block_size(2), proc_grid(2)
1148 proc_grid(1) = 2
[all …]
H A Dtestspd.F240 integer dims(2), proc_grid(2), block(2)
298 proc_grid(1) = g1
299 proc_grid(2) = g2
303 call ga_set_block_cyclic_proc_grid(g_A,block,proc_grid)
309 call ga_set_block_cyclic_proc_grid(g_B,block,proc_grid)
315 call ga_set_block_cyclic_proc_grid(g_A1,block,proc_grid)
321 call ga_set_block_cyclic_proc_grid(g_X,block,proc_grid)
327 call ga_set_block_cyclic_proc_grid(g_X1,block,proc_grid)
350 call ga_set_block_cyclic_proc_grid(g_Y,block,proc_grid)
356 call ga_set_block_cyclic_proc_grid(g_Y1,block,proc_grid)
[all …]
H A Dtesteig.F63 integer dims(2), proc_grid(2), block(2)
101 proc_grid(1) = g1
102 proc_grid(2) = g2
109 call ga_set_block_cyclic_proc_grid(g_a,block,proc_grid)
115 call ga_set_block_cyclic_proc_grid(g_b,block,proc_grid)
121 call ga_set_block_cyclic_proc_grid(g_c,block,proc_grid)
127 call ga_set_block_cyclic_proc_grid(g_d,block,proc_grid)
H A Dtest.F276 integer block_size(2), proc_grid(2) local
304 proc_grid(1) = 2
305 proc_grid(2) = nproc/2
1868 proc_grid(1) = 2
1869 proc_grid(2) = nproc/2
2501 proc_grid(1) = 2
2502 proc_grid(2) = nproc/2
3043 proc_grid(1) = 2
3044 proc_grid(2) = nproc/2
4113 proc_grid(1) = px
[all …]
H A Dga_lu.c303 int proc_grid[2]; in ga_lu() local
313 int proc_grid[2]; in ga_lu() local
314 proc_grid[0] = 2; in ga_lu()
315 proc_grid[1] = nprocs/2; in ga_lu()
329 GA_Set_block_cyclic_proc_grid(g_a, block_size, proc_grid); in ga_lu()
339 GA_Set_block_cyclic_proc_grid(g_b, block_size, proc_grid); in ga_lu()
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/
H A Dproc_ptr_comp_47.f905 FUNCTION dist_map_blk_to_proc_func ( row, col, nrow_tot, ncol_tot, proc_grid ) RESULT( reslt )
7 INTEGER, DIMENSION( : ), INTENT( IN ) :: proc_grid local

12