Index: tools/ga-5-3/global/src/scalapack.F
===================================================================
--- tools/ga-5-3/global/src/scalapack.F	(revision 10506)
+++ tools/ga-5-3/global/src/scalapack.F	(working copy)
@@ -3642,6 +3642,7 @@
 c     
          call ga_to_SL2(g_a, dimA1, dimA2, nb, nb,
      $        dbl_mb(adrA), lda, mpA, nqA)
+         call ga_sync()
 c     
 c***  fill SCALAPACK matrix descriptors
 c     
@@ -3664,10 +3665,11 @@
      V        elpa_comm_rows, elpa_comm_cols)
  
 
-         call solve_evp_real(n, mout4, 
+         if(.not.solve_evp_real(n, mout4, 
      A        dbl_mb(adra), lda, 
      E        eval, dbl_mb(adrb), ldb, nb, 
-     A        elpa_comm_rows, elpa_comm_cols)
+     A        elpa_comm_rows, elpa_comm_cols))
+     E   call ga_error(' solve_evp_real failed',0)
 
          if(iam.eq.0.and.mout4.ne.n) 
      W        write(6,*) ' computed eval ',mout,' out of ',
@@ -3699,6 +3701,7 @@
      A     'ga-evp_real: mpicommfree failed ',mpierr)
 c     
       endif
+      call ga_sync()
       if(maxproc.lt.nnodes.or.dima1.le.nb) then
 c     broadcast evals
          dblsize=ma_sizeof(MT_DBL,1,MT_BYTE)*dima1