From f5f5c13264cb39b73c05b70be153dc5a81692c00 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Tue, 15 Aug 2017 18:40:28 +0200
Subject: [PATCH] fixed travis

---
 .travis.yml                  |  6 ++----
 plugins/GPI2/broadcast.irp.f | 16 ++++++++--------
 2 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/.travis.yml b/.travis.yml
index fe8de634..5126a44c 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -13,11 +13,9 @@ addons:
     packages:
     - gfortran
     - gcc
-#    - liblapack-dev
-    - libatlas-dev
+    - libblas-dev
+    - liblapack-dev
     - graphviz
-#    - zlib1g-dev
-#    - libgmp3-dev
 
 cache:
   directories:
diff --git a/plugins/GPI2/broadcast.irp.f b/plugins/GPI2/broadcast.irp.f
index 7ebb1408..e9f421d8 100644
--- a/plugins/GPI2/broadcast.irp.f
+++ b/plugins/GPI2/broadcast.irp.f
@@ -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