10
0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-22 20:35:19 +01:00
This commit is contained in:
Anthony Scemama 2017-11-27 09:58:48 +01:00
parent 4243595a17
commit fc5f0b9745

View File

@ -1,11 +1,11 @@
BEGIN_PROVIDER [ integer, mpi_bit_kind ] BEGIN_PROVIDER [ integer, mpi_bit_kind ]
use bitmasks use bitmasks
include 'mpif.h'
implicit none implicit none
BEGIN_DOC BEGIN_DOC
! MPI bit kind type ! MPI bit kind type
END_DOC END_DOC
IRP_IF MPI IRP_IF MPI
include 'mpif.h'
if (bit_kind == 4) then if (bit_kind == 4) then
mpi_bit_kind = MPI_INTEGER4 mpi_bit_kind = MPI_INTEGER4
else if (bit_kind == 8) then else if (bit_kind == 8) then
@ -89,10 +89,11 @@ subroutine broadcast_chunks_$double(A, LDA)
integer, intent(in) :: LDA integer, intent(in) :: LDA
$type, intent(inout) :: A(LDA) $type, intent(inout) :: A(LDA)
use bitmasks use bitmasks
include 'mpif.h'
BEGIN_DOC BEGIN_DOC
! Broadcast with chunks of ~2GB ! Broadcast with chunks of ~2GB
END_DOC END_DOC
IRP_IF MPI
include 'mpif.h'
integer :: i, sze, ierr integer :: i, sze, ierr
do i=1,LDA,200000000/$8 do i=1,LDA,200000000/$8
sze = min(LDA-i+1, 200000000/$8) sze = min(LDA-i+1, 200000000/$8)
@ -102,7 +103,7 @@ subroutine broadcast_chunks_$double(A, LDA)
stop -1 stop -1
endif endif
enddo enddo
IRP_ENDIF
end end
SUBST [ double, type, 8, DOUBLE_PRECISION ] SUBST [ double, type, 8, DOUBLE_PRECISION ]