/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | rpa_gw_ic.F | 505 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 506 num_entries_rec = 0 537 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 545 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 551 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) 612 DO i_index = 1, num_entries_rec(imepos) 742 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 743 num_entries_rec = 0 797 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 803 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) [all …]
|
H A D | bse.F | 495 num_entries_rec, num_entries_send local 521 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 540 num_entries_rec = 0 555 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 563 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 569 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) 608 …CALL communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, buffer_send, req_… 615 DO i_entry = 1, num_entries_rec(imepos) 640 DEALLOCATE (num_entries_send, num_entries_rec)
|
H A D | rpa_gw_im_time_util.F | 380 num_blocks_rec, num_blocks_send, num_entries_rec, num_entries_send, sizes_rec, sizes_send local 493 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 497 num_entries_rec = 0 534 num_entries_rec(imepos) = sizes_rec(2*imepos) 542 num_entries_rec(0) = num_entries_send(0) 550 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 603 …CALL communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, buffer_send, req_… 647 DEALLOCATE (num_entries_rec)
|
H A D | mp2_ri_2c.F | 1148 INTEGER, ALLOCATABLE, DIMENSION(:) :: entry_counter, num_entries_rec, & local 1171 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 1174 num_entries_rec(:) = 0 1202 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 1215 ALLOCATE (buffer_rec(iproc)%msg(num_entries_rec(iproc))) 1237 ALLOCATE (buffer_rec(iproc)%indx(num_entries_rec(iproc), 2)) 1293 CALL communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, & 1305 DO i_entry_rec = 1, num_entries_rec(iproc) 1344 DEALLOCATE (num_entries_rec, num_entries_send)
|
H A D | rpa_communication.F | 986 …SUBROUTINE communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, buffer_send… argument 990 INTEGER, ALLOCATABLE, DIMENSION(:), INTENT(IN) :: num_entries_rec, num_entries_send local 1015 IF (num_entries_rec(imepos) > 0) THEN
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | bse.F | 495 num_entries_rec, num_entries_send local 521 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 540 num_entries_rec = 0 555 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 563 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 569 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) 608 …CALL communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, buffer_send, req_… 615 DO i_entry = 1, num_entries_rec(imepos) 640 DEALLOCATE (num_entries_send, num_entries_rec)
|
H A D | rpa_gw_ic.F | 830 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 831 num_entries_rec = 0 862 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 870 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 876 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) 937 DO i_index = 1, num_entries_rec(imepos) 1067 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 1068 num_entries_rec = 0 1122 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 1128 ALLOCATE (buffer_rec(imepos)%indx(num_entries_rec(imepos), 3)) [all …]
|
H A D | rpa_gw_im_time_util.F | 712 entry_counter, num_blocks_rec, num_blocks_send, num_entries_rec, num_entries_send, & local 772 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 788 num_entries_rec(imepos) = sizes_rec(2*imepos) 796 num_entries_rec(0) = num_entries_send(0) 811 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) 1492 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 1496 num_entries_rec = 0 1533 num_entries_rec(imepos) = sizes_rec(2*imepos) 1541 num_entries_rec(0) = num_entries_send(0) 1549 ALLOCATE (buffer_rec(imepos)%msg(num_entries_rec(imepos))) [all …]
|
H A D | mp2_ri_2c.F | 1150 INTEGER, ALLOCATABLE, DIMENSION(:) :: entry_counter, num_entries_rec, & local 1173 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 1176 num_entries_rec(:) = 0 1204 CALL mp_alltoall(num_entries_send, num_entries_rec, 1, para_env%group) 1217 ALLOCATE (buffer_rec(iproc)%msg(num_entries_rec(iproc))) 1239 ALLOCATE (buffer_rec(iproc)%indx(num_entries_rec(iproc), 2)) 1295 CALL communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, & 1307 DO i_entry_rec = 1, num_entries_rec(iproc) 1346 DEALLOCATE (num_entries_rec, num_entries_send)
|
H A D | rpa_im_time.F | 1740 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 1744 num_entries_rec = 0 1783 num_entries_rec(imepos) = sizes_rec(2*imepos) 1791 num_entries_rec(0) = num_entries_send(0) 1865 IF (num_entries_rec(imepos) > 0) THEN 1869 IF (num_entries_rec(imepos) > 0) THEN 2933 ALLOCATE (num_entries_rec(0:para_env%num_pe - 1)) 2957 num_entries_rec(0) = num_entries_send(0) 3246 IF (num_entries_rec(imepos) > 0) THEN 3250 IF (num_entries_rec(imepos) > 0) THEN [all …]
|
H A D | rpa_communication.F | 986 …SUBROUTINE communicate_buffer(para_env, num_entries_rec, num_entries_send, buffer_rec, buffer_send… argument 990 INTEGER, ALLOCATABLE, DIMENSION(:), INTENT(IN) :: num_entries_rec, num_entries_send local 1015 IF (num_entries_rec(imepos) > 0) THEN
|