      fprintf(textfile,"      if (%s_filename != NULL)\n",nameval);
      fprintf(textfile,"      {\n",nameval);
      fprintf(textfile,"         free(%s_filename);\n",nameval);
      fprintf(textfile,"      }\n",nameval);
      fprintf(textfile,"      %s_filename = lcl_value;\n",nameval);
