From 7841e1f9647d7f567971d9a3abbed61be27c3380 Mon Sep 17 00:00:00 2001
From: sbraccia <sbraccia@c92efa57-630b-4861-b058-cf58834340f0>
Date: Fri, 7 May 2004 15:48:50 +0000
Subject: [PATCH] Variable nimage was not initialized. C.S.

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

diff --git a/PW/startup.f90 b/PW/startup.f90
index a6db856d5..9ac779d12 100644
--- a/PW/startup.f90
+++ b/PW/startup.f90
@@ -111,7 +111,8 @@ SUBROUTINE startup( nd_nmbr, code, version )
      !
      ! ... How many parallel images ?
      !
-     nargs = iargc() 
+     nimage = 1
+     nargs  = iargc() 
      !
      DO iiarg = 1, ( nargs - 1 )
         !