Home
last modified time | relevance | path

Searched refs:SOLVER_COMM (Results 1 – 24 of 24) sorted by relevance

/dports/math/lis/lis-2.0.30/src/fortran/amg/
H A Dlis_m_solver_AMGCG.F90170 INTEGER(kind=kint), intent(in) :: SOLVER_COMM local
264 CALL count_time(1,SOLVER_COMM,my_rank,8)
270 CALL count_time(2,SOLVER_COMM,my_rank,8)
376 CALL count_time(1,SOLVER_COMM,my_rank,8)
382 CALL count_time(2,SOLVER_COMM,my_rank,8)
552 CALL count_time(1,SOLVER_COMM,my_rank,8)
557 CALL count_time(2,SOLVER_COMM,my_rank,8)
974 & WR, D , SOLVER_COMM, my_rank)
1035 call MPI_BARRIER (SOLVER_COMM, ierr)
1055 call count_time(2,SOLVER_COMM,my_rank,9)
[all …]
H A Dlis_m_solver_Gnumbering.F9049 & WS, WR, X, SOLVER_COMM,my_rank,time_kind) argument
68 INTEGER(kind=kint), INTENT(in) :: SOLVER_COMM local
253 & NEIBPE(neib),0, SOLVER_COMM, req1(neib), ierr )
259 & NEIBPE(neib),0, SOLVER_COMM, req2(neib), ierr )
269 & NEIBPE(neib),0, SOLVER_COMM, req1(neib), ierr )
275 & NEIBPE(neib),0, SOLVER_COMM, req2(neib), ierr )
358 INTEGER(kind=kint ), INTENT(in) :: SOLVER_COMM local
694 INTEGER(kind=kint), INTENT(in) :: SOLVER_COMM local
774 INTEGER(kind=kint) ,INTENT(in) :: SOLVER_COMM local
940 INTEGER(kind=kint), INTENT(in) :: SOLVER_COMM local
[all …]
H A Dlis_m_count_time_mod.F9040 SUBROUTINE count_time(op, SOLVER_COMM, my_rank, time_kind) argument
81 CALL MPI_REDUCE(send_time, recv_time, 1, MPI_DOUBLE_PRECISION, MPI_SUM, 0, SOLVER_COMM, ierr)
82 CALL MPI_COMM_SIZE(SOLVER_COMM, NPROCS, ierr)
89 CALL MPI_COMM_SIZE(SOLVER_COMM, NPROCS, ierr)
102 … CALL MPI_REDUCE(send_time, recv_time, 1, MPI_DOUBLE_PRECISION, MPI_SUM, 0, SOLVER_COMM, ierr)
H A Dlis_m_solver_SR2.F9048 & WS, WR, X, SOLVER_COMM, my_rank) argument
70 integer(kind=kint ), intent(in) :: SOLVER_COMM local
112 & NEIBPE(neib), 13, SOLVER_COMM, &
122 & NEIBPE(neib), 13, SOLVER_COMM, &
144 & WS, WR, X, SOLVER_COMM, my_rank) argument
168 integer(kind=kint), intent(in) :: SOLVER_COMM local
215 & NEIBPE(neib), 0, SOLVER_COMM, req1(neib), ierr)
226 & NEIBPE(neib), 0, SOLVER_COMM, req2(neib), ierr)
H A Dlis_m_data_creation_AMGCG.F90181 INTEGER, INTENT(in) :: SOLVER_COMM local
615 & SOLVER_COMM, my_rank)
639 & SOLVER_COMM, my_rank)
691 & SOLVER_COMM)
829 CALL mpi_barrier(SOLVER_COMM, ierr)
2855 & SOLVER_COMM, ierr)
3201 & SOLVER_COMM, ierr)
3316 & NP, N, gbase, SOLVER_COMM) argument
3426 & pspcommf,SOLVER_COMM)
4361 & SOLVER_COMM, req1(i), ierr)
[all …]
H A Dlis_m_aggregate_mod.F90354 INTEGER(kind=kint), INTENT(in) :: SOLVER_COMM local
622 & SOLVER_COMM,req2(k),ierr)
628 & SOLVER_COMM,req1(l),ierr)
656 & SOLVER_COMM,req2(k),ierr)
662 & SOLVER_COMM,req1(l),ierr)
815 & des_PE,0,SOLVER_COMM,req1(l),ierr)
884 & SOLVER_COMM,req2(i),ierr)
1015 & des_PE,0,SOLVER_COMM,req1(l),ierr)
1106 INTEGER(kind=kint),intent(in) :: SOLVER_COMM local
1429 & dest,0,SOLVER_COMM,req1(i),ierr)
[all …]
H A Dlis_s_solver_AMGCG.F90287 SUBROUTINE matrix_counting(LEVEL_NUM,SOLVER_COMM,my_rank) argument
291 integer(kind=kint) ,intent(in) :: LEVEL_NUM,SOLVER_COMM,my_rank local
415 INTEGER(kind=kint ) :: NPROCS,SOLVER_COMM local
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/adaptation/
H A Dhecmw_adapt_stack_sr.f9018 & SOLVER_COMM,my_rank) argument
27 integer(kind=kint ) :: SOLVER_COMM, my_rank local
52 & SOLVER_COMM, req1(neib), ierr)
59 & NEIBPE(neib), 0, SOLVER_COMM, req2(neib), ierr)
H A Dhecmw_adapt_item_sr.f9020 & WS, WR, SOLVER_COMM, my_rank, NTAB) argument
31 integer(kind=kint ), :: SOLVER_COMM, my_rank
64 & NEIBPE(neib), 0, SOLVER_COMM, &
75 & NEIBPE(neib), 0, SOLVER_COMM, &
H A Dhecmw_adapt_real_sr.f9017 & WS, WR, X, SOLVER_COMM,my_rank, NB, m) argument
32 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
67 & NEIBPE(neib), 0, SOLVER_COMM, req1(neib), ierr)
76 & NEIBPE(neib), 0, SOLVER_COMM, req2(neib), ierr)
H A Dhecmw_adapt_int_sr.f9017 & WS, WR, X, SOLVER_COMM,my_rank, NB, m) argument
32 integer(kind=kint) , intent(in) ::SOLVER_COMM local
66 & NEIBPE(neib), 0, SOLVER_COMM, req1(neib), ierr)
75 & NEIBPE(neib), 0, SOLVER_COMM, req2(neib), ierr)
H A Dhecmw_adapt_int_sr_rev.f9017 & WS, WR, X, SOLVER_COMM,my_rank, NB, m) argument
32 integer(kind=kint) , intent(in) ::SOLVER_COMM local
66 & NEIBPE(neib), 0, SOLVER_COMM, req1(neib), ierr)
75 & NEIBPE(neib), 0, SOLVER_COMM, req2(neib), ierr)
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/communication/
H A Dhecmw_solver_SR_33.F9045 & WS, WR, X, SOLVER_COMM,my_rank) argument
59 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
93 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
105 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
132 & X, SOLVER_COMM,my_rank,ireq) argument
142 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
174 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
185 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_11.F9018 & WS, WR, X, SOLVER_COMM,my_rank) argument
35 integer(kind=kint) , intent(in) ::SOLVER_COMM local
71 & NEIBPE(neib), 0, SOLVER_COMM, &
85 & NEIBPE(neib), 0, SOLVER_COMM, &
H A Dhecmw_solver_SR_11i.F9018 & WS, WR, X, SOLVER_COMM,my_rank) argument
35 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
70 & NEIBPE(neib), 0, SOLVER_COMM, &
84 & NEIBPE(neib), 0, SOLVER_COMM, &
H A Dhecmw_solver_SR_22i.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
72 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
84 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_mm.F9020 & SOLVER_COMM,my_rank) argument
37 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
73 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
85 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_mmi.F9020 & SOLVER_COMM,my_rank) argument
37 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
73 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
85 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_22.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
72 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
84 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_33i.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
73 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
85 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_44i.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
74 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
86 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_44.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
74 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
86 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_66.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
76 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
88 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)
H A Dhecmw_solver_SR_66i.F9019 & WS, WR, X, SOLVER_COMM,my_rank) argument
36 integer(kind=kint ) , intent(in) ::SOLVER_COMM local
76 & NEIBPE(neib), 0, SOLVER_COMM, req1(nreq1), ierr)
88 & NEIBPE(neib), 0, SOLVER_COMM, req2(nreq2), ierr)