/dports/math/lis/lis-2.0.30/src/fortran/amg/ |
H A D | lis_m_solver_AMGCG.F90 | 170 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 D | lis_m_solver_Gnumbering.F90 | 49 & 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 D | lis_m_count_time_mod.F90 | 40 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 D | lis_m_solver_SR2.F90 | 48 & 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 D | lis_m_data_creation_AMGCG.F90 | 181 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 D | lis_m_aggregate_mod.F90 | 354 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 D | lis_s_solver_AMGCG.F90 | 287 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 D | hecmw_adapt_stack_sr.f90 | 18 & 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 D | hecmw_adapt_item_sr.f90 | 20 & 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 D | hecmw_adapt_real_sr.f90 | 17 & 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 D | hecmw_adapt_int_sr.f90 | 17 & 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 D | hecmw_adapt_int_sr_rev.f90 | 17 & 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 D | hecmw_solver_SR_33.F90 | 45 & 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 D | hecmw_solver_SR_11.F90 | 18 & 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 D | hecmw_solver_SR_11i.F90 | 18 & 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 D | hecmw_solver_SR_22i.F90 | 19 & 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 D | hecmw_solver_SR_mm.F90 | 20 & 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 D | hecmw_solver_SR_mmi.F90 | 20 & 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 D | hecmw_solver_SR_22.F90 | 19 & 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 D | hecmw_solver_SR_33i.F90 | 19 & 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 D | hecmw_solver_SR_44i.F90 | 19 & 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 D | hecmw_solver_SR_44.F90 | 19 & 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 D | hecmw_solver_SR_66.F90 | 19 & 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 D | hecmw_solver_SR_66i.F90 | 19 & 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)
|