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

fixed travis

Browse Source
This commit is contained in:
Anthony Scemama 2017-08-15 18:40:28 +02:00
parent 631ef5b54c
commit f5f5c13264
2 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.travis.yml
View File

@ -13,11 +13,9 @@ addons:
packages:
- gfortran
- gcc
# - liblapack-dev
- libatlas-dev
- libblas-dev
- liblapack-dev
- graphviz
# - zlib1g-dev
# - libgmp3-dev
cache:
directories:

16
plugins/GPI2/broadcast.irp.f
View File

@ -41,7 +41,7 @@ end
subroutine broadcast_wf_put(energy)
implicit none
BEGIN_DOC
! Segment corresponding to the wave function. This is segment 0.
! Initiates the broadcast of the wave function
END_DOC
use bitmasks
use GASPI
@ -67,13 +67,13 @@ subroutine broadcast_wf_put(energy)
res = gaspi_segment_create(seg_id, seg_size(seg_id), GASPI_GROUP_ALL, &
GASPI_BLOCK, seg_alloc_policy)
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_create_segment failed"
write(*,*) "gaspi_create_segment failed", gaspi_rank, seg_id
stop -1
end if
res = gaspi_segment_ptr(seg_id, seg_ptr(seg_id))
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_segment_ptr failed"
write(*,*) "gaspi_segment_ptr failed", gaspi_rank
stop -1
end if
@ -84,7 +84,7 @@ subroutine broadcast_wf_put(energy)
res = gaspi_barrier(GASPI_GROUP_ALL, GASPI_BLOCK)
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_barrier failed"
write(*,*) "gaspi_barrier failed", gaspi_rank
stop -1
end if
@ -96,13 +96,13 @@ subroutine broadcast_wf_put(energy)
res = gaspi_segment_create(seg_id, seg_size(seg_id), GASPI_GROUP_ALL, &
GASPI_BLOCK, seg_alloc_policy)
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_create_segment failed"
write(*,*) "gaspi_create_segment failed", gaspi_rank, seg_id
stop -1
end if
res = gaspi_segment_ptr(seg_id, seg_ptr(seg_id))
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_segment_ptr failed"
write(*,*) "gaspi_segment_ptr failed", gaspi_rank
stop -1
end if
end do
@ -117,7 +117,7 @@ subroutine broadcast_wf_put(energy)
res = gaspi_barrier(GASPI_GROUP_ALL, GASPI_BLOCK)
if(res .ne. GASPI_SUCCESS) then
write(*,*) "gaspi_barrier failed"
write(*,*) "gaspi_barrier failed", gaspi_rank
stop -1
end if
@ -132,7 +132,7 @@ end
subroutine broadcast_wf_get(energy)
implicit none
BEGIN_DOC
! Segment corresponding to the wave function. This is segment 0.
! Gets the broadcasted wave function
END_DOC
use bitmasks
use GASPI