Rename ffopen and ffclose to gmx_ff*.

[alexxy/gromacs.git] / src / contrib / gen_table.c

diff --git a/src/contrib/gen_table.c b/src/contrib/gen_table.c
index 7c6508c2aec63ad6485b8689c61d5e2e699d14c4..a0942f7cb883a2aeab75e9bb09a8be2637cf379f 100644 (file)
--- a/src/contrib/gen_table.c
+++ b/src/contrib/gen_table.c
@@ -453,7 +453,7 @@ static void do_guillot2001a(const char *file,int eel,int pts_nm,double rc,double
          ((strcmp(atype[j],"OW") == 0) && (strcmp(atype[k],"HW") == 0)) ||
          ((strcmp(atype[j],"OW") == 0) && (strcmp(atype[k],"OW") == 0))) {
 
-       fp = ffopen(buf,"w");
+       fp = gmx_ffopen(buf,"w");
   
        imax = 3*pts_nm;
        for(i=0; (i<=imax); i++) {
@@ -473,7 +473,7 @@ static void do_guillot2001a(const char *file,int eel,int pts_nm,double rc,double
                  r,vc,fc,vd,fd,vr,fr);
          
        }
-       ffclose(fp);
+       gmx_ffclose(fp);
      
        /* Guillot eqn 4 and 5 */
       } else if (((strcmp(atype[j],"HWd") == 0) && (strcmp(atype[k],"HW") == 0)) ||
@@ -481,7 +481,7 @@ static void do_guillot2001a(const char *file,int eel,int pts_nm,double rc,double
                 ((strcmp(atype[j],"OWd") == 0) && (strcmp(atype[k],"HW") == 0)) ||
                 ((strcmp(atype[j],"OWd") == 0) && (strcmp(atype[k],"OW") == 0))) {
        
-       fp = ffopen(buf,"w");
+       fp = gmx_ffopen(buf,"w");
   
        imax = 3*pts_nm;
        for(i=0; (i<=imax); i++) {
@@ -501,14 +501,14 @@ static void do_guillot2001a(const char *file,int eel,int pts_nm,double rc,double
                  r,vc,fc,vd,fd,vr,fr);
          
        }
-       ffclose(fp);
+       gmx_ffclose(fp);
 
        /* Guillot2001a eqn 3 */
       } else if (((strcmp(atype[j],"HWd") == 0) && (strcmp(atype[k],"HWd") == 0)) ||
                 ((strcmp(atype[j],"OWd") == 0) && (strcmp(atype[k],"HWd") == 0)) ||
                 ((strcmp(atype[j],"OWd") == 0) && (strcmp(atype[k],"OWd") == 0))) {
 
-       fp = ffopen(buf,"w");
+       fp = gmx_ffopen(buf,"w");
   
        imax = 3*pts_nm;
        for(i=0; (i<=imax); i++) {
@@ -528,7 +528,7 @@ static void do_guillot2001a(const char *file,int eel,int pts_nm,double rc,double
                  r,vc,fc,vd,fd,vr,fr);
          
        }
-       ffclose(fp);
+       gmx_ffclose(fp);
 
       } else 
        gmx_fatal(FARGS,"Invalid atom type: %s %s", atype[j], atype[k]);
@@ -795,7 +795,7 @@ int main(int argc,char *argv[])
     
   fn = opt2fn("-o",NFILE,fnm);
   if ((m != mGuillot2001a)) 
-    fp = ffopen(fn,"w");
+    fp = gmx_ffopen(fn,"w");
   switch (m) {
   case mGuillot2001a:
     do_guillot2001a(fn,eel,pts_nm,rc,rtol,xi,xir);
@@ -840,7 +840,7 @@ int main(int argc,char *argv[])
     gmx_fatal(FARGS,"Model %s not supported yet",model[0]);
   }  
   if ((m != mGuillot2001a)) 
-    ffclose(fp);
+    gmx_ffclose(fp);
   
   gmx_thanx(stdout);