mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-12-21 19:13:29 +01:00
minor modif
This commit is contained in:
parent
2ef05d01c9
commit
8c2f6c9485
@ -63,7 +63,6 @@
|
|||||||
IRP_ENDIF
|
IRP_ENDIF
|
||||||
|
|
||||||
IRP_IF MPI
|
IRP_IF MPI
|
||||||
include 'mpif.h'
|
|
||||||
call MPI_BCAST(j1b_pen_coef, (nucl_num), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
|
call MPI_BCAST(j1b_pen_coef, (nucl_num), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
|
||||||
if (ierr /= MPI_SUCCESS) then
|
if (ierr /= MPI_SUCCESS) then
|
||||||
stop 'Unable to read j1b_pen_coef with MPI'
|
stop 'Unable to read j1b_pen_coef with MPI'
|
||||||
|
Loading…
Reference in New Issue
Block a user