Changeset 79290f for pcp/src/gramsch.c

Timestamp:

Jun 7, 2008, 1:13:29 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

02bc3c

Parents:

a97897

Message:

config.h is included in each and every file. After trying to compile on JUMP (with xlc).

File:

• pcp/src/gramsch.c (modified) (4 diffs)

pcp/src/gramsch.c

@@ -14 +14 @@
 */
 
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
 #include <stdlib.h>
 #include <stdio.h>
@@ -20 +24 @@
 
 // use double precision fft when we have it
-#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
 #ifdef HAVE_DFFTW_H
 #include "dfftw.h"
@@ -723 +723 @@
  * \param Type2test basically current minimisation type, see RunStruct#CurrentMin
  */
-void TestGramSch(struct Problem *P, struct LatticeLevel *Lev, struct Psis *Psi, int Type2test) {
+void TestGramSch(struct Problem *P, struct LatticeLevel *Lev, struct Psis *Psi, enum PsiTypeTag Type2test) {
   double LocalSP=0.0,PsiSP;
   int i,j,k,s,RecvSource;
@@ -872 +872 @@
   } while ((NotOk != 0) && (iter < max_GramSch_iter));
   if (P->Call.out[StepLeaderOut]) { // final check if there have been any un-orthogonal pairs
-    if (Type2test != -1) {
+    if (Type2test <= Extra) {
       if (NotOk == 0) {
         fprintf(stderr,"(%i)TestGramSchm on %s: Ok !\n",P->Par.my_color_comm_ST, P->R.MinimisationName[Type2test]);