From fbd2274ce0fc8cb86e4ffbf3d5a747223a3b6f0e Mon Sep 17 00:00:00 2001
From: dalcorso <dalcorso@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 8 Jun 2006 15:44:38 +0000
Subject: [PATCH] Added missing bcast.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3169 c92efa57-630b-4861-b058-cf58834340f0
---
 Modules/xml_io_base.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Modules/xml_io_base.f90 b/Modules/xml_io_base.f90
index 9b1937a7b..507df5bab 100644
--- a/Modules/xml_io_base.f90
+++ b/Modules/xml_io_base.f90
@@ -270,6 +270,8 @@ MODULE xml_io_base
       IF ( ionode ) &
          CALL iotk_open_read( iunpun, FILE = filename, IERR = ierr )
       !
+      CALL mp_bcast ( ierr, ionode_id, intra_image_comm )
+      !
       CALL errore( 'pp_check_file', 'file ' // &
                  & TRIM( dirname ) // ' not found', ierr )
       !