LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-01-05 11:00:10 +01:00
Code Issues Releases Wiki Activity

Fix MPI

Browse Source
This commit is contained in:
Anthony Scemama 2017-12-19 11:54:20 +01:00
parent 17e0518410
commit d031148512
1 changed files with 52 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/Nuclei/nuclei.irp.f
View File

@ -146,7 +146,6 @@ BEGIN_PROVIDER [ double precision, nuclear_repulsion ]
END_DOC END_DOC
PROVIDE mpi_master nucl_coord nucl_charge nucl_num PROVIDE mpi_master nucl_coord nucl_charge nucl_num
if (mpi_master) then
if (disk_access_nuclear_repulsion.EQ.'Read') then if (disk_access_nuclear_repulsion.EQ.'Read') then
logical :: has logical :: has
@ -201,20 +200,6 @@ BEGIN_PROVIDER [ double precision, nuclear_repulsion ]
endif endif
endif endif
endif
IRP_IF MPI
include 'mpif.h'
integer :: ierr
call MPI_BCAST( element_name, size(element_name)*4, MPI_CHARACTER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
stop 'Unable to read element_name with MPI'
endif
call MPI_BCAST( element_mass, size(element_mass), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
stop 'Unable to read element_name with MPI'
endif
IRP_ENDIF
END_PROVIDER END_PROVIDER