Changeset 1200 for trunk/AGRIF/LIB/WriteInFile.c

Timestamp:

2008-09-24T15:05:20+02:00 (16 years ago)

Author:

rblod

Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:

• trunk/AGRIF/LIB/WriteInFile.c (modified) (3 diffs)

trunk/AGRIF/LIB/WriteInFile.c

@@ -52 +52 @@
   if (strlen (s) <= 60)
     {
-      if ( returnlineornot == 0 ) fprintf (filout, "     & %s", s);
-      else if ( returnlineornot == 2 ) fprintf (filout, "& %s", s);
-      else if ( returnlineornot == 3 ) fprintf (filout, "& %s\n", s);
-      else                             fprintf (filout, "     & %s\n", s);
+      if ( returnlineornot == 0 ) fprintf (filout, "     &%s", s);
+      else if ( returnlineornot == 2 ) fprintf (filout, "&%s", s);
+      else if ( returnlineornot == 3 ) fprintf (filout, "&%s\n", s);
+      else                             fprintf (filout, "     &%s\n", s);
       if ( returnlineornot == 0 ||
            returnlineornot == 2 ) colnum=colnum+strlen(s)+6;
@@ -95 +95 @@
       strcpy (&temp[60-size], "\0");
 
-      if ( retour77 == 0 ) fprintf (filout, "     & %s  &\n", temp);
-      else fprintf (filout, "     & %s  \n", temp);
+      if ( retour77 == 0 ) fprintf (filout, "     &%s&\n", temp);
+      else fprintf (filout, "     &%s\n", temp);
       colnum=0;
       tofich_reste (filout, (char *) &s[60-size],returnlineornot);
@@ -159 +159 @@
       strcpy (&temp[60-size], "\0");
 
-      if ( retour77 == 0 ) fprintf (filout, "      %s  &\n", temp);
-      else fprintf (filout, "      %s  \n", temp);
+      if ( retour77 == 0 ) fprintf (filout, "      %s&\n", temp);
+      else fprintf (filout, "      %s\n", temp);
       colnum=0;
       tofich_reste (filout, (char *) &s[60-size], returnlineornot);