Put write_generic_gauge_info call under write_appl_gauge_info

arb_dirac_eigen/gauge_info.c

@@ -28,14 +28,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

arb_dirac_invert/gauge_info.c

@@ -28,14 +28,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

clover_dynamical/gauge_info.c

@@ -29,14 +29,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

clover_hybrids/gauge_info.c

@@ -28,13 +28,6 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
-
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
-
-  /* The rest are optional */
-
 }

clover_invert2/gauge_info.c

@@ -29,14 +29,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

dense_static_su3/gauge_info.c

@@ -28,12 +28,11 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
 

ext_src/gauge_info.c

@@ -29,7 +29,7 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
 }
 

file_utilities/gauge_info.c

@@ -38,12 +38,11 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   write_gauge_info_item(fp,"action.description","%s",

gluon_prop/gauge_info.c

@@ -29,19 +29,17 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   float gauge_fix_tol = GAUGE_FIX_TOL;
-
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
-
   Real myssplaq = g_ssplaq;  /* Precision conversion */
   Real mystplaq = g_stplaq;  /* Precision conversion */
   Real nersc_linktr = linktrsum.real/3.;  /* Convention and precision */
 
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
+
   /* The rest are optional */
   if(startlat_p != NULL)
     {

h_dibaryon/gauge_info.c

@@ -28,14 +28,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

heavy/gauge_info.c

@@ -28,13 +28,12 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(fixflag==COULOMB_GAUGE_FIX)

hqet_heavy_to_light/gauge_info.c

@@ -28,13 +28,12 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(fixflag==COULOMB_GAUGE_FIX)

hvy_qpot/gauge_info.c

@@ -28,15 +28,14 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
 
   char sums[20];
   Real ape_weight;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
 

ks_dynamical/gauge_info.c

@@ -28,12 +28,12 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
+
 
   /* The rest are optional */
 

ks_eigen/gauge_info.c

@@ -33,17 +33,9 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
-
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
-
-  /* The rest are optional */
-
   printf("write_appl_gauge_info: HEY, I'M NOT SUPPOSED TO BE USED HERE!\n");
-
 }
 
 /* Print string formatting with digits based on intended precision */

ks_hl_spectrum/gauge_info.c

@@ -28,14 +28,13 @@
 /* This routine writes the ASCII info file.  It is called from one of
    the lattice output routines in io_lat4.c.*/
 
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   char sums[20];
   double gauge_fix_tol = GAUGE_FIX_TOL;
 
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
   if(startlat_p != NULL)

ks_imp_dyn/gauge_info.c

@@ -35,21 +35,19 @@
 
 extern char gauge_action_description[128]; /* in gauge_stuff.c */
 extern int gauge_action_nloops,gauge_action_nreps;
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
-
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
-
   Real myssplaq = g_ssplaq;  /* Precision conversion */
   Real mystplaq = g_stplaq;  /* Precision conversion */
   Real nersc_linktr = linktrsum.real/3.;  /* Convention and precision */
 
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
+
   /* The rest are optional */
 
   write_gauge_info_item(fp,"action.description","%s",
-			"\"Gauge plus fermion (improved)\"",0,0);
+			"\"Gauge plus fermion\"",0,0);
 
   write_gauge_info_item(fp,"gauge.description","%s",
 			gauge_action_description,0,0);
@@ -90,33 +88,12 @@ char *create_MILC_info(){
   size_t bytes = 0;
   char *info = (char *)malloc(INFOSTRING_MAX);
   size_t max = INFOSTRING_MAX;
-  //  char begin[] = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><usqcdInfo><version>1.0</version>";
-  //  char begin_info[] = "<info>";
-  //  char end_info[] = "</info>";
-  //  char end[] = "</usqcdInfo>";
-  // char valstring[32];
   Real myssplaq = g_ssplaq;  /* Precision conversion */
   Real mystplaq = g_stplaq;  /* Precision conversion */
   Real nersc_linktr = linktrsum.real/3.;  /* Convention and precision */
 
-
-  //  snprintf(info+bytes, max-bytes,"%s",begin);
-  //  bytes = strlen(info);
-
-  // /* Currently we generate only single precision files */
-  // print_prec(valstring, 32, (myssplaq+mystplaq)/6., 1);
-  //  snprintf(info+bytes, max-bytes,"<plaq>%s</plaq>",valstring);
-  //  bytes = strlen(info);
-
-  //  print_prec(valstring, 32, nersc_linktr, 1);
-  //  snprintf(info+bytes, max-bytes,"<linktr>%s</linktr>",valstring);
-  //  bytes = strlen(info);
-
-  //  snprintf(info+bytes, max-bytes,"%s",begin_info);
-  //  bytes = strlen(info);
-
   sprint_gauge_info_item(info+bytes, max-bytes,"action.description","%s",
-			"\"Gauge plus fermion (improved)\"",0,0);
+			"\"Gauge plus fermion\"",0,0);
   bytes = strlen(info);
   sprint_gauge_info_item(info+bytes, max-bytes,"gauge.description","%s",
 			gauge_action_description,0,0);
@@ -171,11 +148,6 @@ char *create_MILC_info(){
   bytes = strlen(info);
 #endif  
 
-  //  snprintf(info+bytes, max-bytes,"%s",end_info);
-  //  bytes = strlen(info);
-
-  //  snprintf(info+bytes, max-bytes,"%s",end);
-
   return info;
 }
 

ks_imp_invert_multi/gauge_info.c

@@ -32,19 +32,17 @@
 
 extern char gauge_action_description[128]; /* in gauge_stuff.c */
 extern int gauge_action_nloops,gauge_action_nreps;
-void write_appl_gauge_info(FILE *fp)
+void write_appl_gauge_info(FILE *fp, gauge_file *gf)
 {
   Real gauge_fix_tol = GAUGE_FIX_TOL;
 
-
-  /* Note that the file has already been opened and
-     the required magic number, time stamp, and lattice
-     dimensions have already been written */
+  /* Write generic information */
+  write_generic_gauge_info(fp, gf);
 
   /* The rest are optional */
 
   write_gauge_info_item(fp,"action.description","%s",
-			"\"Gauge plus fermion (improved)\"",0,0);
+			"\"Gauge plus fermion\"",0,0);
 
   write_gauge_info_item(fp,"gauge.description","%s",
 			gauge_action_description,0,0);