From 3649fd5ac875da7b9ce7609c5a747d4a43590ab5 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 5 Feb 2009 16:17:45 +0000
Subject: [PATCH] Last commit broke metadynamics - should be fixed now. Anybody
 knowing what the option 'phase_space' is supposed to do, and whether it can
 be used independently of metadynamics?

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

diff --git a/PW/input.f90 b/PW/input.f90
index c647a0f3b..8094682e9 100644
--- a/PW/input.f90
+++ b/PW/input.f90
@@ -492,9 +492,8 @@ SUBROUTINE iosys()
      !
   CASE( 'metadyn' )
      !
-     lscf           = .TRUE.
-     lmetadyn       = .TRUE.
-     lcoarsegrained = .TRUE.
+     lscf    = .TRUE.
+     lmetadyn= .TRUE.
      !
   CASE DEFAULT
      !
@@ -879,18 +878,6 @@ SUBROUTINE iosys()
   !
   ethr = diago_thr_init
   !
-  SELECT CASE( TRIM( phase_space ) )
-  CASE( 'full' )
-     !
-     lcoarsegrained  = .FALSE.
-     !
-  CASE ( 'coarse-grained' )
-     !
-     lcoarsegrained  = .TRUE.
-     !
-  END SELECT
-  !
-  !
   IF ( startingpot /= 'atomic' .AND. startingpot /= 'file' ) THEN
      !
      CALL infomsg( 'iosys', 'wrong startingpot: use default (1)' )
@@ -1004,6 +991,8 @@ SUBROUTINE iosys()
      !
   END SELECT
   !
+  lcoarsegrained  = lmetadyn .OR. ( TRIM( phase_space ) == 'coarse-grained' )
+  !
   IF ( lcoarsegrained ) THEN
      !
      lmd = .TRUE.