LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2025-04-16 05:29:35 +02: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: packages:
- gfortran - gfortran
- gcc - gcc
# - liblapack-dev - libblas-dev
- libatlas-dev - liblapack-dev
- graphviz - graphviz
# - zlib1g-dev
# - libgmp3-dev
cache: cache:
directories: directories:

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

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