LCPQ
/
quantum_package
mirror of https://github.com/LCPQ/quantum_package
10
0
Fork 0
Code Issues Releases Wiki Activity

Better error messages

This commit is contained in:
Anthony Scemama 2017-11-23 21:12:41 +01:00
parent 077e140a9d
commit e09e270a01
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
plugins/MPI/broadcast.irp.f
View File

@ -15,7 +15,7 @@ subroutine broadcast_chunks_$double(A, LDA)
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (A(i), sze, MPI_$DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast chuks $double ', i
print *, irp_here//': Unable to broadcast chuks $double ', i
stop -1
endif
enddo
@ -47,21 +47,21 @@ subroutine mpi_bcast_psi(energy, size_energy)
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (N_states, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast N_states'
print *, irp_here//': Unable to broadcast N_states'
stop -1
endif
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (N_det, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast N_det'
print *, irp_here//': Unable to broadcast N_det'
stop -1
endif
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (psi_det_size, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast psi_det_size'
print *, irp_here//': Unable to broadcast psi_det_size'
stop -1
endif
@ -81,7 +81,7 @@ subroutine mpi_bcast_psi(energy, size_energy)
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (N_det_generators, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast N_det_generators'
print *, irp_here//': Unable to broadcast N_det_generators'
stop -1
endif
@ -92,7 +92,7 @@ subroutine mpi_bcast_psi(energy, size_energy)
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (N_det_selectors, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast N_det_selectors'
print *, irp_here//': Unable to broadcast N_det_selectors'
stop -1
endif
@ -103,7 +103,7 @@ subroutine mpi_bcast_psi(energy, size_energy)
! call MPI_BARRIER(MPI_COMM_WORLD)
call MPI_BCAST (energy, size(energy), MPI_DOUBLE_PRECISION, 0, MPI_COMM_WORLD, ierr)
if (ierr /= MPI_SUCCESS) then
print *, 'Unable to broadcast energy'
print *, irp_here//': Unable to broadcast energy'
stop -1
endif
! call MPI_BARRIER(MPI_COMM_WORLD)

2
src/Davidson/NEEDED_CHILDREN_MODULES
View File

@ -1 +1 @@
Determinants
Determinants MPI