From 388d02aa0821d107154f76c50ab9775473062164 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 1 Dec 2004 14:05:25 +0000
Subject: [PATCH] Define first array bounds, then the array (some compilers may
 complain)

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

diff --git a/PW/para.f90 b/PW/para.f90
index ef602e4f6..65573e9d8 100644
--- a/PW/para.f90
+++ b/PW/para.f90
@@ -768,8 +768,8 @@ SUBROUTINE poolrecover( vec, length, nkstot, nks )
   !
   IMPLICIT NONE
   !
-  REAL (KIND=DP) :: vec(length,nkstot)
   INTEGER        :: length, nks, nkstot
+  REAL (KIND=DP) :: vec(length,nkstot)
   !
 #if defined (__PARA)  
   !
@@ -843,8 +843,8 @@ SUBROUTINE ipoolrecover( ivec, length, nkstot, nks )
   !
   IMPLICIT NONE
   !
-  INTEGER :: ivec(length,nkstot)
   INTEGER :: length, nks, nkstot
+  INTEGER :: ivec(length,nkstot)
   !
 #if defined (__PARA)  
   !