function add_table_index(fid)
% ADD_TABLE_INDEX: Adds entries on top of experiments index
%
%    GENERAL
%
%      add_table_index(fid)
%
%    INPUT/S
%
%      -
%           
%    OUTPUT/S
%
%      -.
%
%    PENDING WORK
%
%      -
%
%    KNOWN BUG/S
%
%      -
%
%    COMMENT/S
%
%      -
%
%    RELATED FUNCTION/S
%
%      
%
%    ABOUT
%
%      -Created:     April 27th , 2004
%      -Last update: April 27th , 2004
%      -Revision:    0.0.1
%      -Author:      R. S. Schestowitz, University of Manchester
% ==============================================================

fprintf(fid, ['<H2>Experiments sub-index</H2>For all indices, confer the <A HREF="../../index.htm">primary index</A>.<BR><BR>']);

if (strcmp(getenv('OS'), 'Linux')),
      fprintf(fid, ['\n<P><CENTER><TABLE WIDTH=100%% BORDER=BOX CELLPADDING=10 CELLSPACING=3 BACKGROUND="../../scbg.gif"><TD ALIGN=CENTER WIDTH=25%%><H3>Handle</H3></TD><TD ALIGN=CENTER WIDTH=25%%><H3>Completion Time</H3></TD><TD ALIGN=CENTER WIDTH=25%%>']);
      fprintf(fid, ['\n<H3>Description</H3></TD><TD ALIGN=CENTER WIDTH=25%%><H3>Figures</H3></TD></TABLE></CENTER></P>']);
else
      fprintf(fid, ['\n<P><CENTER><TABLE WIDTH=100%% BORDER=BOX CELLPADDING=10 CELLSPACING=3 BACKGROUND="../../scbg.gif"><TD ALIGN=CENTER WIDTH=33%%><H3>Handle</H3></TD><TD ALIGN=CENTER WIDTH=33%%>']);
      fprintf(fid, ['\n<H3>Description</H3></TD><TD ALIGN=CENTER WIDTH=33%%><H3>Figures</H3></TD></TABLE></CENTER></P>']);
end

