Home
last modified time | relevance | path

Searched refs:my_prow (Results 1 – 25 of 125) sorted by relevance

12345

/dports/math/elpa/elpa-2019.05.002/src/elpa_generalized/
H A Dcannon_forw_template.c112 if((my_prow == 0)&&(my_pcol == 0)) in cannons_reduction_impl()
148 if(my_prow <= last_proc_row) in cannons_reduction_impl()
153 if(my_prow < last_proc_row) in cannons_reduction_impl()
223 if(my_prow > 0) in cannons_reduction_impl()
259 if(my_pcol >= my_prow ) in cannons_reduction_impl()
290 if(where_to_send_U != my_prow) in cannons_reduction_impl()
460 if(my_prow <= proc_row_curr) in cannons_reduction_impl()
631 if(my_prow > 0) in cannons_reduction_impl()
753 if(my_prow < owner) in cannons_reduction_impl()
870 if(my_prow < owner) in cannons_reduction_impl()
[all …]
H A Dcannon_back_template.c131 if(my_prow <= last_proc_row_B) in cannons_triang_rectangular_impl()
136 if(my_prow < last_proc_row_B) in cannons_triang_rectangular_impl()
138 else if(my_prow > last_proc_row_B) in cannons_triang_rectangular_impl()
177 if(my_pcol >= my_prow ) in cannons_triang_rectangular_impl()
278 if(from_where_to_receive_U >= my_prow) in cannons_triang_rectangular_impl()
300 if(my_prow > 0) in cannons_triang_rectangular_impl()
353 where_to_send_B = (my_prow - 1 + np_rows)%np_rows; in cannons_triang_rectangular_impl()
393 if (col_of_origin_U >= my_prow) in cannons_triang_rectangular_impl()
442 if (col_of_origin_U >= my_prow) in cannons_triang_rectangular_impl()
481 int my_prow, my_pcol, np_rows, np_cols; in cannons_triang_rectangular_c_impl() local
[all …]
/dports/math/elpa/elpa-2019.05.002/test/shared/
H A Dtest_prepare_matrix_template.F90182 & (na, myid, sc_desc, a, z, as, nblk, np_rows, np_cols, my_prow, my_pcol) argument
189 integer, intent(in) :: nblk, np_rows, np_cols, my_prow, my_pcol
258 integer(kind=c_int) , value :: nblk, np_rows, np_cols, my_prow, my_pcol
263 & (na, myid, sc_desc, a, z, as, nblk, np_rows, np_cols, my_prow, my_pcol)
274 nblk, np_rows, np_cols, my_prow, my_pcol) argument
279 integer, intent(in) :: na, nblk, np_rows, np_cols, my_prow, my_pcol local
320 nblk, np_rows, np_cols, my_prow, my_pcol) argument
324 nblk, np_rows, np_cols, my_prow, my_pcol)
329 integer, intent(in) :: na, nblk, np_rows, np_cols, my_prow, my_pcol
373 & (na, a, z, as, nblk, np_rows, np_cols, my_prow, my_pcol) argument
[all …]
H A Dtest_blacs_infrastructure.F9051 my_blacs_ctxt, my_prow, my_pcol) bind(C, name="set_up_blacsgrid_f") argument
58 integer(kind=c_int), intent(out) :: my_blacs_ctxt, my_prow, my_pcol local
72 call BLACS_Gridinfo(my_blacs_ctxt, np_rows_, np_cols_, my_prow, my_pcol)
82 my_prow = 0
87 subroutine set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, & argument
95 integer(kind=ik), intent(in) :: na, nblk, my_prow, my_pcol, np_rows, & local
108 na_rows = numroc(na, nblk, my_prow, 0, np_rows)
141 subroutine set_up_blacs_descriptor_f(na, nblk, my_prow, my_pcol, & argument
151 integer(kind=c_int), value :: na, nblk, my_prow, my_pcol, np_rows, &
155 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, &
/dports/math/elpa/elpa-2019.05.002/test_project_C/src/
H A Dtest_blacs_infrastructure.F9055 my_blacs_ctxt, my_prow, my_pcol) bind(C, name="set_up_blacsgrid_f") argument
62 integer(kind=c_int), intent(out) :: my_blacs_ctxt, my_prow, my_pcol local
76 call BLACS_Gridinfo(my_blacs_ctxt, np_rows_, np_cols_, my_prow, my_pcol)
86 my_prow = 0
91 subroutine set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, & argument
99 integer(kind=ik), intent(in) :: na, nblk, my_prow, my_pcol, np_rows, & local
113 na_rows = numroc(na, nblk, my_prow, 0, np_rows)
146 subroutine set_up_blacs_descriptor_f(na, nblk, my_prow, my_pcol, & argument
156 integer(kind=c_int), value :: na, nblk, my_prow, my_pcol, np_rows, &
160 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, &
/dports/math/elpa/elpa-2019.05.002/test/Fortran/
H A Dtest_multiple_objs.F90108 …integer :: my_prow, my_pcol ! local MPI task position (my_prow, my_pcol) in t…
166 my_blacs_ctxt, my_prow, my_pcol)
168 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, np_rows, np_cols, &
180 …call prepare_matrix_analytic(na, a, nblk, myid, np_rows, np_cols, my_prow, my_pcol, print_times=.f…
186 call set_basic_params(e1, na, nev, na_rows, na_cols, my_prow, my_pcol)
212 call set_basic_params(e2, na, nev, na_rows, na_cols, my_prow, my_pcol)
269 …status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol…
313 …status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol…
335 subroutine set_basic_params(elpa, na, nev, na_rows, na_cols, my_prow, my_pcol) argument
338 integer, intent(in) :: na, nev, na_rows, na_cols, my_prow, my_pcol local
[all …]
H A Dtest.F90284 my_blacs_ctxt, my_prow, my_pcol)
286 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, np_rows, np_cols, &
348 nblk, np_rows, np_cols, my_prow, my_pcol)
358 nblk, np_rows, np_cols, my_prow, my_pcol)
378 call prepare_matrix_analytic(na, a, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
424 np_cols, my_prow, my_pcol)
457 call prepare_matrix_frank(na, a, z, as, nblk, np_rows, np_cols, my_prow, my_pcol)
469 call prepare_matrix_frank(na, a, z, as, nblk, np_rows, np_cols, my_prow, my_pcol)
559 call mpi_comm_split(MPI_COMM_WORLD,my_pcol,my_prow,mpi_comm_rows,mpierr)
566 call mpi_comm_split(MPI_COMM_WORLD,my_prow,my_pcol,mpi_comm_cols, mpierr)
[all …]
H A Dtest_split_comm.F90109 …integer :: my_prow, my_pcol ! local MPI task position (my_prow, my_pcol) in t…
216 my_blacs_ctxt, my_prow, my_pcol)
218 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, np_rows, np_cols, &
235 call set_basic_params(e, na, nev, na_rows, na_cols, mpi_sub_comm, my_prow, my_pcol)
261 np_rows,np_cols, my_prow, my_pcol)
286 subroutine set_basic_params(elpa, na, nev, na_rows, na_cols, communicator, my_prow, my_pcol) argument
289 integer, intent(in) :: na, nev, na_rows, na_cols, my_prow, my_pcol, communicator local
305 call elpa%set("process_row", my_prow, error)
H A Dtest_autotune.F90108 …integer :: my_prow, my_pcol ! local MPI task position (my_prow, my_pcol) in t…
165 my_blacs_ctxt, my_prow, my_pcol)
167 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, np_rows, np_cols, &
179 …call prepare_matrix_analytic(na, a, nblk, myid, np_rows, np_cols, my_prow, my_pcol, print_times=.f…
199 call e%set("process_row", my_prow, error)
237 …status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol…
269 …status = check_correctness_analytic(na, nev, ev, z, nblk, myid, np_rows, np_cols, my_prow, my_pcol…
/dports/science/openmx/openmx3.8/source/
H A Dsolve_evp_complex.f9050 integer my_prow, my_pcol, np_rows, np_cols, mpierr local
56 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
61 l_rows = local_index(na, my_prow, np_rows, nblk, -1) ! Local rows of a and q
72 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time tridiag_complex :',ttt1-ttt0
78 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time solve_tridi :',ttt1-ttt0
86 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time trans_ev_complex:',ttt1-ttt0
H A Delpa1.f90186 if(my_prow==prow(istep-1)) then
206 if(my_prow==prow(istep-1)) then
451 if(my_prow==prow(ic-1)) then
1006 if(my_prow==prow(1)) then
1126 if(my_prow == prow(1)) then
1639 integer my_prow, np_rows, mpierr local
1713 if(my_prow < ndiv) then
2912 if(my_prow==prow(n)) then
3060 if(my_prow==prow(n)) then
3222 if(my_prow==prow(n)) then
[all …]
H A Dsolve_evp_real.f9049 integer my_prow, my_pcol, mpierr, i,j local
53 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
61 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time tridiag_real :',ttt1-ttt0
67 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time solve_tridi :',ttt1-ttt0
73 if(my_prow==0 .and. my_pcol==0 .and. elpa_print_times) print *,'Time trans_ev_real:',ttt1-ttt0
/dports/math/elpa/elpa-2019.05.002/src/elpa2/
H A Delpa2_trans_ev_tridi_to_band_template.F90622 if (my_prow == ip) then
628 if (src < my_prow) then
702 elseif (src == my_prow) then
789 else if (my_prow < ip) then
795 if (src == my_prow) then
808 do i=limits(my_prow)+1,limits(my_prow+1)
1163 next_n_start = limits(my_prow)
1164 next_n_end = limits(my_prow+1)
1827 if (my_prow > 0) then
1929 if (my_prow == 0) then
[all …]
/dports/math/elpa/elpa-2019.05.002/test/Fortran/elpa1/legacy_interface/
H A Dlegacy_toeplitz.F9084 integer(kind=ik) :: myid, nprocs, my_prow, my_pcol, mpi_comm_rows, mpi_comm_cols variable
156 my_blacs_ctxt, my_prow, my_pcol)
165 mpierr = elpa_get_communicators(mpi_comm_world, my_prow, my_pcol, &
172 call set_up_blacs_descriptor(na ,nblk, my_prow, my_pcol, np_rows, np_cols, &
203 …rray_index_to_local_index(i, i, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
209 …ay_index_to_local_index(i, i+1, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
215 …ay_index_to_local_index(i, i-1, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
330 …_evp_numeric_residuals(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
H A Dlegacy_single_toeplitz.F9085 integer(kind=ik) :: myid, nprocs, my_prow, my_pcol, mpi_comm_rows, mpi_comm_cols variable
157 my_blacs_ctxt, my_prow, my_pcol)
166 mpierr = elpa_get_communicators(mpi_comm_world, my_prow, my_pcol, &
173 call set_up_blacs_descriptor(na ,nblk, my_prow, my_pcol, np_rows, np_cols, &
204 …rray_index_to_local_index(i, i, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
210 …ay_index_to_local_index(i, i+1, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
216 …ay_index_to_local_index(i, i-1, rowLocal, colLocal, nblk, np_rows, np_cols, my_prow, my_pcol)) then
329 …_evp_numeric_residuals(na, nev, as, a, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
/dports/math/elpa/elpa-2019.05.002/test/C/
H A Dtest_multiple_objs.c88 …ers(elpa_t *handle, int na, int nev, int na_rows, int na_cols, int nblk, int my_prow, int my_pcol){ in set_basic_parameters() argument
109 elpa_set(*handle, "process_row", my_prow, &error); in set_basic_parameters()
126 int my_prow, my_pcol; in main() local
181 set_up_blacsgrid_f(mpi_comm, np_rows, np_cols, 'C', &my_blacs_ctxt, &my_prow, &my_pcol); in main()
182 …set_up_blacs_descriptor_f(na, nblk, my_prow, my_pcol, np_rows, np_cols, &na_rows, &na_cols, sc_des… in main()
212 set_basic_parameters(&elpa_handle_1, na, nev, na_rows, na_cols, nblk, my_prow, my_pcol); in main()
240 set_basic_parameters(&elpa_handle_2, na, nev, na_rows, na_cols, nblk, my_prow, my_pcol); in main()
292 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
297 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
303 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
[all …]
H A Dtest_autotune.c97 int my_prow, my_pcol; in main() local
149 set_up_blacsgrid_f(mpi_comm, np_rows, np_cols, 'C', &my_blacs_ctxt, &my_prow, &my_pcol); in main()
150 …set_up_blacs_descriptor_f(na, nblk, my_prow, my_pcol, np_rows, np_cols, &na_rows, &na_cols, sc_des… in main()
208 elpa_set(handle, "process_row", my_prow, &error); in main()
252 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
257 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
263 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
267 sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol); in main()
/dports/math/elpa/elpa-2019.05.002/test/Fortran/elpa2/
H A Ddouble_instance.F9064 …integer :: my_prow, my_pcol ! local MPI task position (my_prow, my_pcol) in the grid (0..np_cols … variable
102 my_prow = mod(myid, np_cols)
106 my_blacs_ctxt, my_prow, my_pcol)
108 call set_up_blacs_descriptor(na, nblk, my_prow, my_pcol, np_rows, np_cols, &
151 call e1%set("process_row", my_prow, success)
182 call e2%set("process_row", my_prow, success)
206 …p_numeric_residuals(na, nev, as1, z1, ev1, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
213 …p_numeric_residuals(na, nev, as2, z2, ev2, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
H A Dreal_2stage_banded.F90108 integer(kind=ik) :: myid, nprocs, my_prow, my_pcol, mpi_comm_rows, mpi_comm_cols variable
173 my_blacs_ctxt, my_prow, my_pcol)
179 call set_up_blacs_descriptor(na ,nblk, my_prow, my_pcol, np_rows, np_cols, &
200 global_row = index_l2g( local_row, nblk, my_prow, np_rows )
231 call e%set("process_row", my_prow, success)
259 …_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
H A Dsingle_real_2stage_banded.F90108 integer(kind=ik) :: myid, nprocs, my_prow, my_pcol, mpi_comm_rows, mpi_comm_cols variable
172 my_blacs_ctxt, my_prow, my_pcol)
178 call set_up_blacs_descriptor(na ,nblk, my_prow, my_pcol, np_rows, np_cols, &
199 global_row = index_l2g( local_row, nblk, my_prow, np_rows )
230 call e%set("process_row", my_prow, success)
257 …_evp_numeric_residuals(na, nev, as, z, ev, sc_desc, nblk, myid, np_rows, np_cols, my_prow, my_pcol)
/dports/math/elpa/elpa-2019.05.002/src/elpa2/legacy_interface/
H A Delpa2_template.F9089 integer(kind=c_int) :: my_prow, my_pcol, mpierr
95 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
258 if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
267 if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
280 if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
290 if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
300 if (my_prow==0 .and. my_pcol==0 .and. elpa_print_times) &
/dports/math/elpa/elpa-2019.05.002/src/helpers/
H A Dmatrix_plot.F9024 …subroutine prmat(na, useGpu, a_mat, a_dev, lda, matrixCols, nblk, my_prow, my_pcol, np_rows, np_co… argument
34 …integer(kind=ik), intent(in) :: na, lda, nblk, matrixCols, my_prow, my_pcol, np_r… local
45 mpi_rank = np_rows * my_pcol + my_prow
52 … write(out_unit, "(9I5)") na, nblk, lda, matrixCols, my_prow, my_pcol, np_rows, np_cols, iteration
68 … write(out_unit, "(9I5)") na, nblk, lda, matrixCols, my_prow, my_pcol, np_rows, np_cols, iteration
/dports/math/elpa/elpa-2019.05.002/src/elpa1/
H A Delpa_cholesky_template.F9062 integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
121 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
136 l_rows = local_index(na, my_prow, np_rows, nblk, -1) ! Local rows of a
180 l_row1 = local_index(n, my_prow, np_rows, nblk, +1)
183 l_rowx = local_index(n+nblk, my_prow, np_rows, nblk, +1)
191 if (my_prow==prow(n, nblk, np_rows) .and. my_pcol==pcol(n, nblk, np_cols)) then
280 if (my_prow==prow(n, nblk, np_rows)) tmatc(l_colx:l_cols,i) = a(l_row1+i-1,l_colx:l_cols)
283 … if (my_prow==prow(n, nblk, np_rows)) tmatc(l_colx:l_cols,i) = conjg(a(l_row1+i-1,l_colx:l_cols))
335 l_row1 = local_index(i+1, my_prow, np_rows, nblk, +1) ! first row below diagonal
H A Delpa_multiply_a_b.F9075 integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
116 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
121 l_rows = local_index(na, my_prow, np_rows, nblk, -1) ! Local rows of a and b
209 if (a_lower) lrs = local_index(gcol, my_prow, np_rows, nblk, +1)
210 if (a_upper) lre = local_index(gcol, my_prow, np_rows, nblk, -1)
259 if (a_lower) lrs = local_index(gcol_min, my_prow, np_rows, nblk, +1)
260 if (a_upper) lre = local_index(gcol, my_prow, np_rows, nblk, -1)
292 if (my_prow==np) c(nr_done+1:nr_done+nstor,lcs:lce) = tmp2(1:nstor,lcs:lce)
297 if (my_prow==np) c(nr_done+1:nr_done+nstor,lcs:lce) = tmp1(1:nstor,lcs:lce)
H A Delpa_invert_trm.F9070 integer(kind=ik) :: my_prow, my_pcol, np_rows, np_cols, mpierr
112 call mpi_comm_rank(mpi_comm_rows,my_prow,mpierr)
119 l_rows = local_index(na, my_prow, np_rows, nblk, -1) ! Local rows of a
165 l_row1 = local_index(n, my_prow, np_rows, nblk, +1)
171 l_rowx = local_index(n+nb, my_prow, np_rows, nblk, +1)
174 if (my_prow==prow(n, nblk, np_rows)) then

12345