/dports/science/octopus/octopus-10.5/src/math/ |
H A D | matrix_ops.F90 | 164 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 D | matrix_ops_inc.F90 | 91 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 D | scdm.F90 | 97 …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 D | testsolve.F | 52 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 D | blktest.F | 42 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 D | patch.F | 95 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 D | testspd.F | 240 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 D | testeig.F | 63 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 D | test.F | 276 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 D | ga_lu.c | 303 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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 D | proc_ptr_comp_47.f90 | 5 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
|