Changeset fdbf0c for pcp/src/init.c

Timestamp:

Sep 11, 2008, 1:27:26 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

5a78f5, c99adf

Parents:

4917ddd

Message:

pcp now only performs the wannier minimisation in the non-perturbative case only if explicitely s
tated in the config file: DoWannier

File:

• pcp/src/init.c (modified) (1 diff)

pcp/src/init.c

@@ -1587 +1587 @@
   if (R->UseAddGramSch > 2) R->UseAddGramSch = 2;
   if(P->Call.out[ReadOut]) fprintf(stderr,"(%i)UseAddGramSch = %i\n",me,R->UseAddGramSch);
+  if(!ParseForParameter(P->Call.out[ReadOut],file,"DoWannier", 0, 1, 1, int_type, &R->DoWannier, 1, optional)) {
+    R->DoWannier = 0;
+  } else {
+    if (R->DoWannier < 0) R->DoWannier = 0;
+    if (R->DoWannier > 1) R->DoWannier = 1;
+  }
   if(!ParseForParameter(P->Call.out[ReadOut],file,"CommonWannier", 0, 1, 1, int_type, &R->CommonWannier, 1, optional)) {
     R->CommonWannier = 0;