mirror of
https://github.com/LCPQ/quantum_package
synced 2024-12-22 20:35:19 +01:00
mpif.h
This commit is contained in:
parent
4243595a17
commit
fc5f0b9745
@ -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 ]
|
||||||
|
Loading…
Reference in New Issue
Block a user