<p><b>duda</b> 2010-05-05 14:23:45 -0600 (Wed, 05 May 2010)</p><p>BRANCH COMMIT<br>
<br>
Eliminate redundant code in registry program<br>
<br>
M    src/registry/gen_inc.c<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cam_coupling/src/registry/gen_inc.c
===================================================================
--- branches/mpas_cam_coupling/src/registry/gen_inc.c        2010-05-05 20:11:28 UTC (rev 252)
+++ branches/mpas_cam_coupling/src/registry/gen_inc.c        2010-05-05 20:23:45 UTC (rev 253)
@@ -425,39 +425,23 @@
                }
                fortprintf(fd, &quot;))</font>
<font color="red">&quot;);
    
-               if (var_ptr-&gt;iostreams &amp; INPUT0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-   
-               if (var_ptr-&gt;iostreams &amp; RESTART0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-   
-               if (var_ptr-&gt;iostreams &amp; OUTPUT0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               fortprintf(fd, &quot;</font>
<font color="red">&quot;);
             }
-            else { 
-               if (var_ptr-&gt;iostreams &amp; INPUT0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-   
-               if (var_ptr-&gt;iostreams &amp; RESTART0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-   
-               if (var_ptr-&gt;iostreams &amp; OUTPUT0) 
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .true.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               else
-                  fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .false.</font>
<font color="red">&quot;, var_ptr-&gt;name_in_code);
-               fortprintf(fd, &quot;</font>
<font color="red">&quot;);
-            }
+            if (var_ptr-&gt;iostreams &amp; INPUT0) 
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .true.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+            else
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% input = .false.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+
+            if (var_ptr-&gt;iostreams &amp; RESTART0) 
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .true.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+            else
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% restart = .false.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+
+            if (var_ptr-&gt;iostreams &amp; OUTPUT0) 
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .true.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+            else
+               fortprintf(fd, &quot;      g %% %s %% ioinfo %% output = .false.</font>
<font color="blue">&quot;, var_ptr-&gt;name_in_code);
+            fortprintf(fd, &quot;</font>
<font color="blue">&quot;);
+
             var_ptr = var_ptr-&gt;next;
          }
       }

</font>
</pre>