LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-31 16:45:54 +01:00
Code Issues Releases Wiki Activity

Better error messages

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

2
src/Davidson/NEEDED_CHILDREN_MODULES
View File

@ -1 +1 @@
Determinants Determinants MPI