krantz.cls

%% I made change on line 354 and 359, according to: https://github.com/rstudio/bookdown/blob/main/inst/examples/krantz.cls
%% This is file `Krantz.cls'
%%% Created by Shashi Kumar / ITC [August 2008]


\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesClass{krantz}
              [2005/09/16 v1.4f
 Standard LaTeX document class]
\newcommand\@ptsize{}
\newif\if@restonecol
\newif\if@titlepage
\@titlepagetrue
\newif\if@openright
\newif\if@mainmatter \@mainmattertrue
\if@compatibility\else
\DeclareOption{a4paper}
   {\setlength\paperheight {297mm}%
    \setlength\paperwidth  {210mm}}
\DeclareOption{a5paper}
   {\setlength\paperheight {210mm}%
    \setlength\paperwidth  {148mm}}
\DeclareOption{b5paper}
   {\setlength\paperheight {250mm}%
    \setlength\paperwidth  {176mm}}
\DeclareOption{letterpaper}
   {\setlength\paperheight {11in}%
    \setlength\paperwidth  {8.5in}}
\DeclareOption{legalpaper}
   {\setlength\paperheight {14in}%
    \setlength\paperwidth  {8.5in}}
\DeclareOption{executivepaper}
   {\setlength\paperheight {10.5in}%
    \setlength\paperwidth  {7.25in}}
\DeclareOption{landscape}
   {\setlength\@tempdima   {\paperheight}%
    \setlength\paperheight {\paperwidth}%
    \setlength\paperwidth  {\@tempdima}}
\fi
\if@compatibility
  \renewcommand\@ptsize{0}
\else
\DeclareOption{10pt}{\renewcommand\@ptsize{0}}
\fi
\DeclareOption{11pt}{\renewcommand\@ptsize{1}}
\DeclareOption{12pt}{\renewcommand\@ptsize{2}}
\if@compatibility\else
\DeclareOption{oneside}{\@twosidefalse \@mparswitchfalse}
\fi
\DeclareOption{twoside}{\@twosidetrue  \@mparswitchtrue}
\DeclareOption{draft}{\setlength\overfullrule{5pt}}
\if@compatibility\else
\DeclareOption{final}{\setlength\overfullrule{0pt}}
\fi
\DeclareOption{titlepage}{\@titlepagetrue}
\if@compatibility\else
\DeclareOption{notitlepage}{\@titlepagefalse}
\fi
\if@compatibility
\@openrighttrue
\else
\DeclareOption{openright}{\@openrighttrue}
\DeclareOption{openany}{\@openrightfalse}
\fi
\if@compatibility\else
\DeclareOption{onecolumn}{\@twocolumnfalse}
\fi
\DeclareOption{twocolumn}{\@twocolumntrue}
\DeclareOption{leqno}{\input{leqno.clo}}
\DeclareOption{fleqn}{\input{fleqn.clo}}
\DeclareOption{openbib}{%
  \AtEndOfPackage{%
   \renewcommand\@openbib@code{%
      \advance\leftmargin\bibindent
      \itemindent -\bibindent
      \listparindent \itemindent
      \parsep \z@
      }%
   \renewcommand\newblock{\par}}%
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newif\if@numbysec
\DeclareOption{numbysec}{\@numbysectrue}
\newif\if@numberinsequence
\DeclareOption{numberinsequence}{\@numberinsequencetrue}
\newif\if@nocaptionbreak
\DeclareOption{NoCaptionBreak}{\@nocaptionbreaktrue}
\newif\if@sevenbyten
\DeclareOption{sevenbyten}{\@sevenbytentrue}
\newif\if@cip
\DeclareOption{cip}{\@ciptrue}
\newif\if@times
\DeclareOption{times}{\@timestrue}
\newif\if@chapnumonly
\DeclareOption{chapnumonly}{\@chapnumonlytrue}
\newif\if@ChapterResetsPage
\DeclareOption{ChapterResetsPage}{\@ChapterResetsPagetrue}
\newif\if@ChapterTOCs
\DeclareOption{ChapterTOCs}{\@ChapterTOCstrue}
\newif\if@EOCRefs
\DeclareOption{EOCRefs}{\@EOCRefstrue}%
\newif\if@SuperscriptCites
\DeclareOption{SuperscriptCites}{\@SuperscriptCitestrue}%
\newif\if@UnnumberedReferences
\DeclareOption{UnnumberedReferences}{\@UnnumberedReferencestrue}%
\newif\if@pdf
\DeclareOption{pdf}{\@pdftrue}
\DeclareOption{krantz1}{\@krantzatrue}
\newif\if@krantza
\DeclareOption{krantz2}{\@krantzbtrue}
\newif\if@krantzb
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\ExecuteOptions{letterpaper,10pt,twoside,onecolumn,final,openright}
\ProcessOptions

%%%%%%%%%%%%%%%%%%%

\def\helv@scale{.82}
%
\DeclareFontFamily{T1}{helvetica}{}%
\DeclareFontShape{T1}{helvetica}{m}{n}{<->s*[\helv@scale]phvr8t}{}%
\DeclareFontShape{T1}{helvetica}{m}{it}{<->s*[\helv@scale]phvro8t}{}%
\DeclareFontShape{T1}{helvetica}{m}{sc}{<->s*[\helv@scale]phvrc8t}{}%
\DeclareFontShape{T1}{helvetica}{b}{n}{<->s*[\helv@scale]phvb8t}{}%
\DeclareFontShape{T1}{helvetica}{b}{it}{<->s*[\helv@scale]phvbo8t}{}%
\DeclareFontShape{T1}{helvetica}{m}{sl}{<->s*[\helv@scale]phvro8t}{}%
\DeclareFontShape{T1}{helvetica}{b}{sc}{<->s*[\helv@scale]phvbc8t}{}%
\DeclareFontShape{T1}{helvetica}{b}{sl}{<->s*[\helv@scale]phvbo8t}{}%
\DeclareFontShape{T1}{helvetica}{bx}{n}{<->s*[\helv@scale]phvb8t}{}%
\DeclareFontShape{T1}{helvetica}{bx}{it}{<->s*[\helv@scale]phvbo8t}{}%
\DeclareFontShape{T1}{helvetica}{bx}{sc}{<->s*[\helv@scale]phvbc8t}{}%
\DeclareFontShape{T1}{helvetica}{bx}{sl}{<->ssub * helvetica/b/it}{}%

\DeclareFontFamily{OT1}{helvetica}{}%
\DeclareFontShape{OT1}{helvetica}{m}{n}{<->s*[\helv@scale]phvr7t}{}%
\DeclareFontShape{OT1}{helvetica}{m}{it}{<->s*[\helv@scale]phvro7t}{}%
\DeclareFontShape{OT1}{helvetica}{m}{sc}{<->s*[\helv@scale]phvrc7t}{}%
\DeclareFontShape{OT1}{helvetica}{b}{n}{<->s*[\helv@scale]phvb7t}{}%
\DeclareFontShape{OT1}{helvetica}{b}{it}{<->s*[\helv@scale]phvbo7t}{}%
\DeclareFontShape{OT1}{helvetica}{m}{sl}{<->s*[\helv@scale]phvro7t}{}%
\DeclareFontShape{OT1}{helvetica}{b}{sc}{<->s*[\helv@scale]phvbc8t}{}%
\DeclareFontShape{OT1}{helvetica}{b}{sl}{<->s*[\helv@scale]phvbo7t}{}%
\DeclareFontShape{OT1}{helvetica}{bx}{n}{<->s*[\helv@scale]phvb7t}{}%
\DeclareFontShape{OT1}{helvetica}{bx}{it}{<->s*[\helv@scale]phvbo7t}{}%
\DeclareFontShape{OT1}{helvetica}{bx}{sc}{<->s*[\helv@scale]phvbc8t}{}%
\DeclareFontShape{OT1}{helvetica}{bx}{sl}{<->s*[\helv@scale]phvbo7t}{}%

%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%%% Font Defined %%%%%%%%%%%%%%%%%

 \def\@xipt{11}
  \def\@xviiipt{18}
 \def\@xxivpt{24}


\newcommand\ContributorAffiliationFont{\reset@font\fontsize{10}{12}\raggedright\selectfont}
\newcommand\ContributorNameFont{\reset@font\fontsize{10}{12}\bfseries\raggedright\selectfont}

\newcommand\TitlePageTitleFont{\fontsize{24}{28}\slshape\bfseries\selectfont}
\newcommand\PageNumFont{\reset@font\fontsize{10}{12}\selectfont}
\newcommand\ChapNumFont{\reset@font\fontsize{24}{24}\bfseries\selectfont}
\newcommand\ChapTitleFont{\reset@font\fontsize{18}{20}\slshape\selectfont}
\newcommand\SectionHeadFont{\fontsize{12}{14}\bfseries\selectfont}
\newcommand\SubsectionHeadFont{\fontsize{11}{13}\bfseries\selectfont}
\newcommand\SubsubsectionHeadFont{\fontsize{10}{12}\bfseries\selectfont}
\newcommand\ParagraphHeadFont{\fontsize{10}{12}\itshape\selectfont}
\newcommand\SubParagraphHeadFont{\fontsize{10}{12}\itshape\selectfont}
\newcommand\FMHeadFont{\reset@font\fontsize{18}{20}\slshape\bfseries\selectfont}
\newcommand\RunningHeadFont{\fontsize{10}{12}\itshape\selectfont}
\newcommand\NameFont{\fontsize{10}{12}\itshape\selectfont}
\newcommand\AffiliationFont{\fontsize{8}{10}\selectfont}
\newcommand\FigCapFont{\fontsize{10}{12}\bfseries\selectfont}
\newcommand\FigCapBIFont{\fontsize{10}{12}\bfseries\itshape\selectfont}
\newcommand\TableColHeadFont{\fontsize{10}{12}\bfseries\selectfont}
\newcommand\TableTitleFont{\fontsize{10}{12}\selectfont}
\newcommand\TableNumberFont{\fontsize{11}{13}\bfseries\selectfont}
\newcommand\TableBodyFont{\reset@font\fontsize{9}{11}\selectfont}
\newcommand\TableSubheadFont{\reset@font\fontsize{9}{11}\selectfont}
\newcommand\TableFootnoteFont{\reset@font\fontsize{8}{10}\selectfont}
\newcommand\CAPlusOneFont{\fontsize{10}{12}\bfseries\selectfont}
\newcommand\CAAPlusOneFont{\fontsize{10}{12}\itshape\selectfont}
\newcommand\tocfont{\fontsize{10}{12}\selectfont}
\newcommand\extraFont{\fontsize{24}{28}\selectfont}
\newcommand\VfFont{\fontsize{10}{12}\selectfont}

%%%%%%%%%%%%%%%%%

\input{bk1\@ptsize.clo}
\setlength\lineskip{1\p@}
\setlength\normallineskip{1\p@}
\renewcommand\baselinestretch{}
\setlength\parskip{0\p@ \@plus \p@}
\@lowpenalty   51
\@medpenalty  151
\@highpenalty 301
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty
%
\clubpenalty=0         % 'Club line'  at bottom of page.
\widowpenalty=10000    % 'Widow line' at top of page.
\setcounter{topnumber}{2}
\renewcommand\topfraction{.7}
\setcounter{bottomnumber}{1}
\renewcommand\bottomfraction{.3}
\setcounter{totalnumber}{3}
\renewcommand\textfraction{.2}
\renewcommand\floatpagefraction{.5}
\setcounter{dbltopnumber}{2}
\renewcommand\dbltopfraction{.7}
\renewcommand\dblfloatpagefraction{.5}

%  ****************************************
%  *            PAGE LAYOUT               *
%  ****************************************
%
% All margin dimensions measured from a point one inch from top and side
% of page.
%
% SIDE MARGINS:
%
\oddsidemargin  6pc %5pc
\evensidemargin 5.7pc %5pc
\marginparwidth 4pc
\marginparsep   1pc
\topmargin  12pt %0pt
\headheight 12pt
\headsep    12pt
\footskip   2pc
%
% DIMENSION OF TEXT:
\newdimen\trimheight
\newdimen\trimwidth
\newdimen\normaltextheight
\newdimen\tempa
\newdimen\tempdimen
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  Parameter Initializaton %%%%%%%%%%%%%%%%%%%%%%%%%%
% 
\newdimen\htrim
\newdimen\vtrimtop
\newdimen\vtrimbot

\setlength\trimheight{9in}
\setlength\trimwidth{6in}
%
%
\if@krantza
\textheight = 45pc
  %\advance\textheight by \topskip
\addtolength\textheight{3pt}
  \textwidth 28pc
\addtolength\textwidth{.5pt}
  \topmargin0in
  \oddsidemargin1.1875in
  \evensidemargin1.1875in
  \htrim.7365in
  \vtrimtop1.068in
  \vtrimbot1.068in
  \hoffset-15pt
  \voffset39pt
\let\normaltextheight\textheight
\else\if@krantzb
  \textheight = 51pc
%  \advance\textheight by \topskip
  \textwidth 33pc
  \topmargin0in
  \oddsidemargin.5in
  \evensidemargin.5in
  \htrim.75in
  \vtrimtop.8607in
  \vtrimbot1.027in
  \hoffset-.1in
  \voffset-.15in%.04in
\let\normaltextheight\textheight
\else
%%%Uncomment to get 6x9 trim
%%%%\textheight = 43pc
%%%%  %\advance\textheight by \topskip
%%%%\addtolength\textheight{3pt}
%%%%  \textwidth 26pc
%%%%\addtolength\textwidth{.5pt}
%%%% \topmargin0in
%%%%  \oddsidemargin1.1875in
%%%%  \evensidemargin1.1875in
%%%%  \htrim5.05pc
%%%%  \vtrimtop7.7pc
%%%%  \vtrimbot5.44pc
%%%%%  \hoffset-5pt
%%%%  \voffset45pt
%%%%\let\normaltextheight\textheight
\textheight = 45pc
  %\advance\textheight by \topskip
\addtolength\textheight{3pt}
  \textwidth 28pc
\addtolength\textwidth{.5pt}
  \topmargin0in
  \oddsidemargin1.1875in
  \evensidemargin1.1875in
  \htrim.7365in
  \vtrimtop1.068in
  \vtrimbot1.068in
  \hoffset-15pt
  \voffset39pt
\let\normaltextheight\textheight

  \fi
\fi
%
\columnsep 1pc
\columnseprule 0pt
%
% FOOTNOTES
%
\footnotesep 6.65pt
\skip\footins 12pt plus 3pt minus 1.5pt
%

%%%%  Trim marks %%%%%%%%%%%
\newsavebox\ul@box
\newsavebox\ur@box
\newsavebox\ll@box
\newsavebox\lr@box
\def\top@cornermarks{%
  \hskip-\htrim
  \vbox to 0\p@{\vskip-\vtrimtop\llap{\copy\ul@box}\vss}%
  \vbox to 0\p@{\vskip-\vtrimtop\rlap{\hskip\textwidth\hskip2\htrim\copy\ur@box}\vss}%
  \vbox to 0\p@{\vskip\textheight\vskip\vtrimbot\llap{\copy\ll@box}\vss}%
  \vbox to 0\p@{\vskip\textheight\vskip\vtrimbot\rlap{\hskip\textwidth\hskip2\htrim\copy\lr@box}\vss}%
  \hskip\htrim}
\def\make@cornermarks{%
  \sbox\ul@box{\rule{18\p@}{.25\p@}\hskip8\p@\hbox to.25\p@{\vbox to26\p@{\noindent\rule{.25\p@}{18\p@}}}}%
  \sbox\ur@box{\hbox to.25\p@{\vbox to26\p@{\noindent\rule{.25\p@}{18\p@}}}\hskip8\p@\rule{18\p@}{.25\p@}}%
  \sbox\ll@box{\rule{18\p@}{.25\p@}\hskip8\p@\lower34\p@\hbox to.25\p@{\vbox to26\p@{\noindent\rule{.25\p@}{18\p@}}}}%
  \sbox\lr@box{\lower34\p@\hbox to.25\p@{\vbox to26\p@{\noindent\rule{.25\p@}{18\p@}}}\hskip8\p@\rule{18\p@}{.25\p@}}}

%%%%%%%%%%%%%%%%%%%%  End Trim Marks %%%%%%%%%%%%


\def\ps@plain{\let\@mkboth\@gobbletwo
     \let\@oddhead\top@cornermarks%\@empty
     \def\@oddfoot{\reset@font\hfil\thepage
     \hfil}\let\@evenhead\@empty\let\@evenfoot\@oddfoot}



\def\even@head{%
\top@cornermarks
  {\@the@page\RunningHeadFont
    \hfill
\if@mainmatter\ifnum\value{chapter}>0 \thechapter\enspace\fi\fi\leftmark
    }}
\def\odd@head{%
\top@cornermarks
  \hfil{\RunningHeadFont
\if@mainmatter\ifnum\value{section}>0 \thesection\enspace\fi\fi\rightmark
    }
\hfill
    \@the@page
  }
\def\@the@page{{\PageNumFont\thepage}}


\if@twoside
\def\ps@headings{%
  \let\@mkboth\@gobbletwo
  \if@pdf
    \let\@evenhead\@empty
    \let\@oddhead\@empty
    \def\@oddfoot{\@cip\hfil}%
    \def\@evenfoot{\@cip\hfil}%
  \else
\let\@oddfoot\@empty
\let\@evenfoot\@empty
    \let\@evenhead\even@head
    \let\@oddhead\odd@head
  \fi
  }
\else
  \def\ps@headings{\let\@mkboth\@gobbletwo%
\if@pdf
    \let\@evenhead\@empty
    \let\@oddhead\@empty
    \def\@oddfoot{\@cip\hfil}%
    \def\@evenfoot{\@cip\hfil}%
  \else
\let\@oddfoot\@empty
\let\@evenfoot\@empty
    \let\@evenhead\even@head
    \let\@oddhead\odd@head
  \fi
}
\fi
\def\ps@myheadings{%
    \let\@oddfoot\@empty\let\@evenfoot\@empty
    \def\@evenhead{\thepage\hfil\slshape\leftmark}%
    \def\@oddhead{{\slshape\rightmark}\hfil\thepage}%
    \let\@mkboth\@gobbletwo
    \let\chaptermark\@gobble
    \let\sectionmark\@gobble
    }
\def\ps@empty{%
  \let\@mkboth\@gobbletwo
  \if@pdf
    \let\@evenhead\@empty
    \let\@oddhead\@empty
    \def\@oddfoot{\@cip\hfil}%
    \def\@evenfoot{\@cip\hfil}%
  \else
    \make@cornermarks
    \let\@oddhead\top@cornermarks
    \let\@evenhead\top@cornermarks
    \let\@oddfoot\@empty
    \let\@evenfoot\@empty
  \fi
  }
\def\ps@folio{%
  \let\@mkboth\@gobbletwo
  \if@pdf
    \let\@evenhead\@empty
    \let\@oddhead\@empty
    \def\@oddfoot{\@cip\hfil}%
    \def\@evenfoot{\@cip\hfil}%
  \else
\let\@oddhead\top@cornermarks
    \def\@oddfoot{%
      \parindent\z@
      \baselineskip7\p@
      \hbox{%
        \textwidth\@ciprulewidth
        \vbox{%
          \if@cip\rule{\@ciprulewidth}{.25pt}\par
            \hbox{\vbox{\noindent\copy\@cipboxa\par\noindent\copy\@cipboxb}}\fi}}
      \hfill\@the@page}
    \let\@evenhead\top@cornermarks%\odd@head
    \let\@evenfoot\@oddfoot
  \fi
  }
\newcommand\HeadingsBookChapter{%
  \def\chaptermark##1{%
    \markboth{\@title}{%
      ##1}}%
  \def\sectionmark##1{}}
\def\HeadingsChapterSection{%
  \def\chaptermark##1{%
    \markboth{%
      ##1}{}}%
  \def\sectionmark##1{%
    \markright{%
      ##1}}}
\def\pdfon{\@pdftrue}
\def\pdfoff{\@pdffalse}
\if@pdf
  \def\@cip{{\fontsize{6\p@}{8\p@}\selectfont\copyright 2001 by CRC Press LLC}}
\else
  \newsavebox\@cipboxa
  \newsavebox\@cipboxb
  \newdimen\@ciprulewidth
  \def\@cip#1#2{%
    \sbox\@cipboxa{\fontsize{6\p@}{8\p@}\selectfont #1}%
    \sbox\@cipboxb{\fontsize{6\p@}{8\p@}\selectfont #2}%
    \@ciprulewidth\wd\@cipboxa
    \ifnum\@ciprulewidth<\wd\@cipboxb\@ciprulewidth\wd\@cipboxb\fi}%
\fi
\if@pdf
\else
  \AtBeginDocument{%
    \@cip{\rule{0pt}{9pt}0-8493-0052-5/00/\$0.00+\$.50}%
      {\copyright\ \ 2001 by CRC Press LLC}}%
\fi
  \if@titlepage
  \newcommand\maketitle{\begin{titlepage}%
  \let\footnotesize\small
  \let\footnoterule\relax
  \let \footnote \thanks
{\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -7bp
    {\baselineskip 10bp\lineskip 10bp\NameFont\uppercase{\@author}\par}
    \vskip 6bp
    \AffiliationFont \@affiliation
    \vskip -2bp
    \crcrule
    \vskip 22bp
    {\baselineskip 24bp\lineskip 24bp\TitlePageTitleFont\@title\par}}}
  \@thanks
  \vfil\null
  \end{titlepage}%
  \setcounter{footnote}{0}%
  \global\let\thanks\relax
  \global\let\maketitle\relax
  \global\let\@thanks\@empty
  \global\let\@author\@empty
  \global\let\@date\@empty
%  \global\let\@title\@empty
  \global\let\title\relax
  \global\let\author\relax
  \global\let\date\relax
  \global\let\and\relax
}
\else
\newcommand\maketitle{\par
  \begingroup
    \renewcommand\thefootnote{\@fnsymbol\c@footnote}%
    \def\@makefnmark{\rlap{\@textsuperscript{\normalfont\@thefnmark}}}%
    \long\def\@makefntext##1{\parindent 1em\noindent
            \hb@xt@1.8em{%
                \hss\@textsuperscript{\normalfont\@thefnmark}}##1}%
    \if@twocolumn
      \ifnum \col@number=\@ne
        \@maketitle
      \else
        \twocolumn[\@maketitle]%
      \fi
    \else
      \newpage
      \global\@topnum\z@   % Prevents figures from going at top of page.
      \@maketitle
    \fi
    \thispagestyle{empty}\@thanks
  \endgroup
  \setcounter{footnote}{0}%
  \global\let\thanks\relax
  \global\let\maketitle\relax
  \global\let\@maketitle\relax
  \global\let\@thanks\@empty
  \global\let\@author\@empty
  \global\let\@date\@empty
  \global\let\@title\@empty
  \global\let\title\relax
  \global\let\author\relax
  \global\let\date\relax
  \global\let\and\relax
}
\def\@maketitle{%
  \newpage
  \null
  \vskip 2em%
{\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -7bp
    {\baselineskip 10bp\lineskip 10bp\NameFont\uppercase{\@author}\par}
    \vskip 6bp
    \AffiliationFont \@affiliation
    \vskip 10bp
    \crcrule
    \vskip 26bp
    {\baselineskip 24bp\lineskip 24bp\TitlePageTitleFont\@title\par}}}
  \par
  \vskip 1.5em}
\fi


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\newcommand*\chaptermark[1]{}
\setcounter{secnumdepth}{3}
\newcounter {part}
\newcounter {chapter}
\newcounter {section}[chapter]
\newcounter {subsection}[section]
\newcounter {subsubsection}[subsection]
\newcounter {paragraph}[subsubsection]
\newcounter {subparagraph}[paragraph]
\renewcommand \thepart {\@Roman\c@part}
\renewcommand \thechapter {\@arabic\c@chapter}
\renewcommand \thesection {\thechapter.\@arabic\c@section}
\renewcommand\thesubsection   {\thesection.\@arabic\c@subsection}
\renewcommand\thesubsubsection{\thesubsection .\@arabic\c@subsubsection}
\renewcommand\theparagraph    {\thesubsubsection.\@arabic\c@paragraph}
\renewcommand\thesubparagraph {\theparagraph.\@arabic\c@subparagraph}
\newcommand\@chapapp{\chaptername}
\newcommand\frontmatter{%
    \cleardoublepage
  \@mainmatterfalse
  \pagenumbering{roman}}
\newcommand\mainmatter{%
    \cleardoublepage
  \@mainmattertrue
  \pagenumbering{arabic}}
\newcommand\backmatter{%
  \if@openright
    \cleardoublepage
  \else
    \clearpage
  \fi
  \@mainmatterfalse}
\newcommand\part{\make@cornermarks%
  \if@openright
    \cleardoublepage
  \else
    \clearpage
  \fi
  \thispagestyle{empty}%
  \if@twocolumn
    \onecolumn
    \@tempswatrue
  \else
    \@tempswafalse
  \fi
  \null\vfil
  \secdef\@part\@spart}

\def\@part[#1]#2{%
    \ifnum \c@secnumdepth >-2\relax
      \refstepcounter{part}%
      \addcontentsline{toc}{part}{\thepart\hspace{1em}#1}%
    \else
      \addcontentsline{toc}{part}{#1}%
    \fi
    \markboth{}{}%
    {\centering
     \interlinepenalty \@M
     \normalfont
     \ifnum \c@secnumdepth >-2\relax
       \huge\bfseries \partname\nobreakspace\thepart
       \par
       \vskip 20\p@
     \fi
     \Huge \bfseries #2\par}%
    \@endpart}
\def\@spart#1{%
    {\centering
     \interlinepenalty \@M
     \normalfont
     \Huge \bfseries #1\par}%
    \@endpart}
\def\@endpart{\vfil\newpage
              \if@twoside
               \if@openright
                \null
                \thispagestyle{empty}%
                \newpage
               \fi
              \fi
              \if@tempswa
                \twocolumn
              \fi}

\if@ChapterTOCs
  \newwrite\@chaptoc
   \def\secnumwidth{21pt}\def\subsecnumwidth{30pt}\def\ssubsecnumwidth{36pt}\def\subsubsecnumwidth{66pt}\fi
\long\def\@trplarg#1{\@ifnextchar[{\@xtrplarg{#1}}{\@ztrplarg{#1}}}
\long\def\@xtrplarg#1[#2]{\@ifnextchar[{#1[#2]}{\@ytrplarg{#1}[{#2}]}}
\long\def\@ytrplarg#1[#2]#3{#1[{#2}][{#2}]{#3}}
\long\def\@ztrplarg#1#2{#1[{#2}][{#2}]{#2}}

\def\halftitle{\cleardoublepage\thispagestyle{empty}%
  {\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -2\p@
    \ChapNumFont
%    \thechapter
    \vskip -15\p@
    \chap@rule
    \vskip 6\p@
    {\baselineskip 20\p@\lineskip 20\p@\ChapTitleFont Half Title\par\vskip-15pt}%
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip28\p@}
            \if@ChapterTOCs
      \make@chaptoc
    \else
\fi
    \vskip 19.3\p@}
    }%

\def\booktitle{\cleardoublepage\thispagestyle{empty}%
  {\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -2\p@
    \ChapNumFont
%    \thechapter
    \vskip -15\p@
    \chap@rule
    \vskip 6\p@
    {\baselineskip 20\p@\lineskip 20\p@\ChapTitleFont Title Page\par\vskip-15pt}%
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip28\p@}
            \if@ChapterTOCs
      \make@chaptoc
    \else
\fi
    \vskip 19.3\p@}
    }%

\def\locpage{\clearpage\thispagestyle{empty}%
  {\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -2\p@
    \ChapNumFont
%    \thechapter
    \vskip -15\p@
    \chap@rule
    \vskip 6\p@
    {\baselineskip 20\p@\lineskip 20\p@\ChapTitleFont LOC Page\par\vskip-15pt}%
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip28\p@}
            \if@ChapterTOCs
      \make@chaptoc
    \else
\fi
    \vskip 19.3\p@}
}%


\newcommand\chapter{\if@openright\cleardoublepage\else\clearpage\fi
  \make@cornermarks
  \cleardoublepage
  \if@ChapterTOCs\if@filesw\immediate\closeout\@chaptoc\fi\fi
  \pagestyle{headings}%
  \thispagestyle{folio}%
\if@ChapterResetsPage\global\c@page\@ne\fi
                    \global\@topnum\z@
                      \gdef\chapterauthor{\@ca}%
  \gdef\endchapterauthors{\end@cas}%
                    \@afterindentfalse
                    \secdef\@chapter\@schapter
%%%                     \@ifstar{\@schapter}{\@trplarg{\@chapter}}
                     }


\def\@chapter[#1]#2{%
  \ifnum\c@secnumdepth>\m@ne
    \if@mainmatter
      \refstepcounter{chapter}%
      \typeout{\@chapapp\space\thechapter.}%
      \addcontentsline{toc}{chapter}{\protect\numberline{\thechapter}#1}%
    \else
      \addcontentsline{toc}{chapter}{#1}\fi
  \else
    \addcontentsline{toc}{chapter}{#1}\fi
  \chaptermark{%
    #2}%
  \addtocontents{lof}{\protect\addvspace{10\p@}}%
  \addtocontents{lot}{\protect\addvspace{10\p@}}%
  \if@twocolumn
    \@topnewpage[\@makechapterhead{#2}]%
  \else
    \@makechapterhead{#2}%
    \@afterheading\fi
  \if@ChapterTOCs\if@filesw\immediate\openout\@chaptoc\thechapter.toc\fi\fi
}
\def\@makechapterhead#1{%
  {\parindent \z@ \raggedright \baselineskip \z@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip -2\p@
    \ChapNumFont
%Remove comment if "Chapter"  word required before Number
%\if@chapnumonly\else
%    \@chapapp\
%\fi
    \thechapter
    \vskip -15\p@
    \chap@rule
    \vskip 6\p@
    {\baselineskip 20\p@\lineskip 20\p@\ChapTitleFont #1\par\vskip-15pt}%
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip28\p@}
            \if@ChapterTOCs
      \make@chaptoc
    \else
\fi
    \vskip 19.3\p@}
    \def\theequation{\thechapter.\arabic{equation}}}%


\def\@schapter#1{\if@twocolumn
                   \@topnewpage[\@makeschapterhead{#1}]%
                 \else
                   \@makeschapterhead{#1}%
                   \addcontentsline{toc}{fm}{#1}
                   \markboth{#1}{#1}
                   \@afterheading
                 \fi}
                 
\def\@makeschapterhead#1{%
  {\parindent \z@ \raggedright \baselineskip 6\p@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip 22\p@
    \unnumchap@rule
    \vskip 5\p@
    \FMHeadFont #1\par\vskip-12pt
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip 41\p@}}%
  \def\theequation{\thechapter.\arabic{equation}}}

%%%\def\@startsection#1#2#3#4#5#6{%
%%%  \if@noskipsec\leavevmode\fi
%%%  \par
%%%  \@tempskipa #4\relax
%%%  \@afterindenttrue
%%%  \ifdim \@tempskipa <\z@
%%%    \@tempskipa -\@tempskipa \@afterindentfalse
%%%  \fi
%%%  \if@nobreak
%%%    \everypar{}%
%%%  \else
%%%    \addpenalty\@secpenalty\addvspace\@tempskipa
%%%  \fi
%%%  \@ifstar
%%%    {\@ssect{#1}{#3}{#4}{#5}{#6}}%
%%%    {\@trplarg{\@sect{#1}{#2}{#3}{#4}{#5}{#6}}}}
%%%\def\@ssect#1#2#3#4#5#6{%
%%%  \@tempskipa #4\relax
%%%  \ifdim \@tempskipa>\z@
%%%    \begingroup
%%%      #5{%
%%%        \@hangfrom{\hskip #2}%
%%%          \interlinepenalty \@M #6\@@par}%
%%%    \endgroup
%%%    \csname #1mark\endcsname{#6}%
%%%  \else
%%%    \def\@svsechd{#5{\hskip #2\relax #6}\csname #1mark\endcsname{#6}}%
%%%  \fi
%%%  \@xsect{#4}}
%%%\def\@sect#1#2#3#4#5#6[#7][#8]#9{%
%%%  \ifnum #2>\c@secnumdepth
%%%    \let\@svsec\@empty
%%%  \else
%%%    \refstepcounter{#1}%
%%%\protected@edef\@svsec{\@seccntformat{#1}\relax}%
%%%  \fi
%%%  \@tempskipa #5\relax
%%%  \ifdim \@tempskipa>\z@
%%%    \begingroup
%%%      #6{%
%%%\@hangfrom{\hskip #3\relax\@svsec}\interlinepenalty \@M %
%%%          #9\@@par}%
%%%    \endgroup
%%%    \csname #1mark\endcsname{%
%%%      #8}%
%%%    \addcontentsline{toc}{#1}{%
%%%      \ifnum #2>\c@secnumdepth \else
%%%        \protect\numberline{\csname the#1\endcsname}%
%%%      \fi
%%%      #7}%
%%%  \else
%%%    \def\@svsechd{%
%%%      #6{\hskip #3\relax
%%%      \@svsec #9}%
%%%      \csname #1mark\endcsname{%
%%%        #8}%
%%%      \addcontentsline{toc}{#1}{%
%%%        \ifnum #2>\c@secnumdepth \else
%%%          \protect\numberline{\csname the#1\endcsname}%
%%%        \fi
%%%        #7}}%
%%%  \fi
%%%  \@xsect{#5}}

%%Change mydotted also
\newdimen\secwd
\newdimen\subsecwd
\newdimen\subsubsecwd

\def\secwd{31pt}
\def\subsecwd{36pt}
\def\subsubsecwd{46pt}


\def\ssubnumberline#1{\@hangfrom{\hbox to \secwd{#1\hfill}}}
\def\subnumberline#1{\@hangfrom{\hskip\subsecnumwidth\hbox to \subsecwd{#1\hfill}}}
\def\subsubnumberline#1{\@hangfrom{\hskip\subsubsecnumwidth\hbox to \subsubsecwd{#1\hfill}}}


\newcommand\section{%
  \gdef\chapterauthor{\@caplusone}%
  \gdef\endchapterauthors{\end@casplusone}%
  \@ifstar{\@ssection}{\@trplarg{\@section}}}
\def\@ssection#1{%
  \if@ChapterTOCs
    \myaddcontentsline{\@chaptoc}{chapsection}{\string\makebox[\secnumwidth][l]{}#1}\fi
  \@startsection{section}{1}{\z@}{-30\p@}{6\p@}{\sec@rule\nopagebreak\vskip9.5\p@\nopagebreak\SectionHeadFont}*{#1}}
\def\@section[#1][#2]#3{%
  \if@ChapterTOCs
    \addtocounter{section}{1}%
        \myaddcontentsline{\@chaptoc}{chapsection}{\protect\ssubnumberline{\thesection}#1}%
    \addtocounter{section}{-1}\fi
  \@startsection{section}{1}{\z@}{-30\p@}{6\p@}{\sec@rule\nopagebreak\vskip9.5\p@\nopagebreak\SectionHeadFont}[#2]{#3}}
\def\sectionauthor#1{\hfill{\ChapTOCAuthorFont #1}}

\newcommand\subsection{\@ifstar{\@ssubsection}{\@trplarg{\@subsection}}}
\def\@ssubsection#1{%
  \if@ChapterTOCs
    \myaddcontentsline{\@chaptoc}{chapsubsection}{\string\makebox[\subsecnumwidth][l]{}#1}\fi
  \@startsection{subsection}{2}{\z@}{-18\p@}{6\p@}{%
    \SubsectionHeadFont}*{#1}}
\def\@subsection[#1][#2]#3{%
  \if@ChapterTOCs
    \addtocounter{subsection}{1}%
        \myaddcontentsline{\@chaptoc}{chapsubsection}{\protect\subnumberline{\thesubsection}#1}%
    \addtocounter{subsection}{-1}\fi
  \@startsection{subsection}{2}{\z@}{-18\p@}{6\p@}{%
    \SubsectionHeadFont}[#2]{#3}}

\newcommand\subsubsection{\@ifstar{\@ssubsubsection}{\@trplarg{\@subsubsection}}}
\def\@ssubsubsection#1{%
  \if@ChapterTOCs
    \myaddcontentsline{\@chaptoc}{chapsubsubsection}{\string\makebox[\subsecnumwidth][l]{}#1}\fi
  \@startsection{subsubsection}{3}{\z@}{-12\p@}{6\p@}{%
    \SubsubsectionHeadFont}*{#1}}
\def\@subsubsection[#1][#2]#3{%
  \if@ChapterTOCs
    \addtocounter{subsubsection}{1}%
        \myaddcontentsline{\@chaptoc}{chapsubsubsection}{\protect\subsubnumberline{\thesubsubsection}#1}%
    \addtocounter{subsubsection}{-1}\fi
  \@startsection{subsubsection}{3}{\z@}{-12\p@}{6\p@}{%
    \SubsubsectionHeadFont}[#2]{#3}}

\newcommand\paragraph{\@startsection{paragraph}{4}{\z@}%
{-12\p@}{6\p@}{\ParagraphHeadFont}}

\newcommand\subparagraph{\@startsection{subparagraph}{5}{\parindent}%
{-12\p@}{6\p@}{\SubParagraphHeadFont}}


\if@twocolumn
  \setlength\leftmargini  {2em}
\else
  \setlength\leftmargini  {2.5em}
\fi
\leftmargin  \leftmargini
\setlength\leftmarginii  {2.2em}
\setlength\leftmarginiii {1.87em}
\setlength\leftmarginiv  {1.7em}
\if@twocolumn
  \setlength\leftmarginv  {.5em}
  \setlength\leftmarginvi {.5em}
\else
  \setlength\leftmarginv  {1em}
  \setlength\leftmarginvi {1em}
\fi
\setlength  \labelsep  {.5em}
\setlength  \labelwidth{\leftmargini}
\addtolength\labelwidth{-\labelsep}
\@beginparpenalty -\@lowpenalty
\@endparpenalty   -\@lowpenalty
\@itempenalty     -\@lowpenalty
\renewcommand\theenumi{\@arabic\c@enumi}
\renewcommand\theenumii{\@alph\c@enumii}
\renewcommand\theenumiii{\@roman\c@enumiii}
\renewcommand\theenumiv{\@Alph\c@enumiv}
\newcommand\labelenumi{\theenumi.}
\newcommand\labelenumii{(\theenumii)}
\newcommand\labelenumiii{\theenumiii.}
\newcommand\labelenumiv{\theenumiv.}
\renewcommand\p@enumii{\theenumi}
\renewcommand\p@enumiii{\theenumi(\theenumii)}
\renewcommand\p@enumiv{\p@enumiii\theenumiii}
\newcommand\labelitemi{\textbullet}
\newcommand\labelitemii{\normalfont\bfseries \textendash}
\newcommand\labelitemiii{\textasteriskcentered}
\newcommand\labelitemiv{\textperiodcentered}
\newenvironment{description}
               {\list{}{\labelwidth\z@ \itemindent-\leftmargin
                        \let\makelabel\descriptionlabel}}
               {\endlist}
\newcommand*\descriptionlabel[1]{\hspace\labelsep
                                \normalfont\bfseries #1}
\newenvironment{verse}
               {\let\\\@centercr
                \list{}{\itemsep      \z@
                        \itemindent   -1.5em%
                        \listparindent\itemindent
                        \rightmargin  \leftmargin
                        \advance\leftmargin 1.5em}%
                \item\relax}
               {\endlist}
\newenvironment{quotation}
               {\list{}{\listparindent 1.5em%
                        \itemindent    \listparindent
                        \rightmargin   \leftmargin
                        \parsep        \z@ \@plus\p@}%
                \item\relax}
               {\endlist}
\newenvironment{quote}
               {\list{}{\rightmargin\leftmargin}%
                \item\relax}
               {\endlist}
\if@compatibility
\newenvironment{titlepage}
    {%
      \cleardoublepage
      \if@twocolumn
        \@restonecoltrue\onecolumn
      \else
        \@restonecolfalse\newpage
      \fi
      \thispagestyle{empty}%
      \setcounter{page}\z@
    }%
    {\if@restonecol\twocolumn \else \newpage \fi
    }
\else
\newenvironment{titlepage}
    {%
      \cleardoublepage
      \if@twocolumn
        \@restonecoltrue\onecolumn
      \else
        \@restonecolfalse\newpage
      \fi
      \thispagestyle{empty}%
      \setcounter{page}\@ne
    }%
    {\if@restonecol\twocolumn \else \newpage \fi
     \if@twoside\else
        \setcounter{page}\@ne
     \fi
    }
\fi
\newcommand\appendix{\par
  \setcounter{chapter}{0}%
  \setcounter{section}{0}%
  \gdef\@chapapp{\appendixname}%
  \gdef\thechapter{\@Alph\c@chapter}}
\setlength\arraycolsep{5\p@}
\setlength\tabcolsep{6\p@}
\setlength\arrayrulewidth{.4\p@}
\setlength\doublerulesep{2\p@}
\setlength\tabbingsep{\labelsep}
\skip\@mpfootins = \skip\footins
\setlength\fboxsep{3\p@}
\setlength\fboxrule{.4\p@}
\@addtoreset {equation}{chapter}
\renewcommand\theequation
  {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@equation}
\newcounter{figure}[chapter]
\renewcommand \thefigure
     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@figure}
\def\fps@figure{tbp}
\def\ftype@figure{1}
\def\ext@figure{lof}
\def\fnum@figure{\figurename\nobreakspace\thefigure}
\newenvironment{figure}
               {\@float{figure}}
               {\end@float}
\newenvironment{figure*}
               {\@dblfloat{figure}}
               {\end@dblfloat}
\newcounter{table}[chapter]
\renewcommand \thetable
     {\ifnum \c@chapter>\z@ \thechapter.\fi \@arabic\c@table}
\def\fps@table{tbp}
\def\ftype@table{2}
\def\ext@table{lot}
\def\fnum@table{\tablename\nobreakspace\thetable}
\newenvironment{table}
               {\@float{table}}
               {\end@float}
\newenvironment{table*}
               {\@dblfloat{table}}
               {\end@dblfloat}
\newlength\abovecaptionskip
\newlength\belowcaptionskip
\setlength\abovecaptionskip{10\p@}
\setlength\belowcaptionskip{0\p@}
\long\def\@makecaption#1#2{%
  \vskip\abovecaptionskip
  \sbox\@tempboxa{#1: #2}%
  \ifdim \wd\@tempboxa >\hsize
    {\FigCapFont #1}\par #2\par
  \else
    \global \@minipagefalse
%    \hb@xt@\hsize{\hfil\box\@tempboxa\hfil}%
    {\FigCapFont #1}\par #2\par
  \fi
  \vskip\belowcaptionskip}
\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm}
\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf}
\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt}
\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf}
\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit}
\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl}
\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc}
\DeclareRobustCommand*\cal{\@fontswitch\relax\mathcal}
\DeclareRobustCommand*\mit{\@fontswitch\relax\mathnormal}
\newcommand\@pnumwidth{1.55em}
\newcommand\@tocrmarg{2.55em}
\newcommand\@dotsep{4.5}
\setcounter{tocdepth}{3}


\newcounter{numauthors}
\newif\if@break
\newif\if@firstauthor
\newcommand\tableofcontents{\cleardoublepage\markboth{Contents}{Contents}%
  \make@cornermarks
    \gdef\chapterauthor{\@caplusone}%
  \gdef\endchapterauthors{\end@casplusone}%
    \if@twocolumn
      \@restonecoltrue\onecolumn
    \else
      \@restonecolfalse
    \fi
      {\parindent \z@ \raggedright \baselineskip 6\p@ \lineskip \z@ \parskip \z@
    \vbox{
    \vskip 22\p@
    \unnumchap@rule
    \vskip 5\p@
    \FMHeadFont \contentsname\par\vskip-12pt
    \noindent\hbox{\vrule height.5pt width84pt}
    \vskip 41\p@}}
%%%    \chapter*{\contentsname
%%%        \@mkboth{%
%%%           \MakeUppercase\contentsname}{\MakeUppercase\contentsname}}%
           \pagestyle{headings}\thispagestyle{folio}
             {\let\break\space
    \let\author\toc@author
    \reset@authors
    \let\toc@draw\relax
    \@starttoc{toc}
%%    \toc@draw. %% MY CHANGE
    }
    \if@restonecol\twocolumn\fi
    }
    


\newcommand*\l@part[2]{%
  \ifnum \c@tocdepth >-2\relax
    \addpenalty{-\@highpenalty}%
    \addvspace{2.25em \@plus\p@}%
    \setlength\@tempdima{3em}%
    \begingroup
      \parindent \z@ \rightskip \@pnumwidth
      \parfillskip -\@pnumwidth
      {\leavevmode
       \large \bfseries #1\hfil
       \hb@xt@\@pnumwidth{\hss #2%
                          \kern-\p@\kern\p@}}\par
       \nobreak
         \global\@nobreaktrue
         \everypar{\global\@nobreakfalse\everypar{}}%
    \endgroup
  \fi}

  
%%\def\draw@part#1#2{%
%%  \addpenalty{-\@highpenalty}%
%%  \vskip1em plus\p@
%%  \@tempdima1.5em
%%  \begingroup
%%    \parindent\z@\rightskip\@pnumwidth
%%    \parfillskip-\rightskip
%%    \bfseries
%%    \leavevmode
%%    \advance\leftskip\@tempdima
%%    \hskip-\leftskip
%%    {#1\hfil}\nobreak
%%      \if@pdf
%%      \else
%%        \hfil\nobreak\hb@xt@\@pnumwidth{\hss #2}%
%%\fi
%%    \par
%%    \penalty\@highpenalty\endgroup}
%%
%%\let\toc@draw\relax
%%%
%%\def\l@part#1#2{% 
%%\toc@draw
%% \gdef\toc@draw{\draw@part{\large #1}{\large #2}}}

%%\def\l@fm#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@fm{#1}{#2}}}
%%\def\@pnumwidth{1.8em}
%%\def\draw@fm#1#2{%
%%  \addpenalty{-\@highpenalty}%
%%  \vskip1em plus\p@
%%  \@tempdima1.5em
%%  \begingroup
%%    \parindent\z@\rightskip\@pnumwidth
%%    \parfillskip-\rightskip
%%    \bfseries
%%    \leavevmode
%%    \advance\leftskip\@tempdima
%%    \hskip-\leftskip
%%    {#1\hfil}\nobreak
%%      \if@pdf
%%      \else
%%        \hfil\nobreak\hb@xt@\@pnumwidth{\hss #2}%
%%\fi
%%    \par
%%    \penalty\@highpenalty\endgroup}

\newcommand*\l@fm[2]{%
  \ifnum \c@tocdepth >\m@ne
    \addpenalty{-\@highpenalty}%
    \vskip 1.0em \@plus\p@
    \setlength\@tempdima{1.5em}%
    \begingroup
      \parindent \z@ \rightskip \@pnumwidth
      \parfillskip -\@pnumwidth
      \leavevmode \bfseries
      \advance\leftskip\@tempdima
      \hskip -\leftskip
      #1\nobreak\hfil
      \nobreak\hb@xt@\@pnumwidth{\hss #2%
                                 \kern-\p@\kern\p@}\par
      \penalty\@highpenalty
    \endgroup
  \fi}    

\newcommand*\l@chapter[2]{%
  \ifnum \c@tocdepth >\m@ne
    \addpenalty{-\@highpenalty}%
    \vskip 1.0em \@plus\p@
    \setlength\@tempdima{1.5em}%
    \begingroup
      \parindent \z@ \rightskip \@pnumwidth
      \parfillskip -\@pnumwidth
      \leavevmode \bfseries
      \advance\leftskip\@tempdima
      \hskip -\leftskip
      #1\nobreak\hfil
      \nobreak\hb@xt@\@pnumwidth{\hss #2%
                                 \kern-\p@\kern\p@}\par
\if@ChapterTOCs {\it\draw@authors}\fi%
      \penalty\@highpenalty
    \endgroup
  \fi}


%%  \def\l@chapter#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@chapter{#1}{#2}}}
%%\def\@pnumwidth{1.8em}
%%\def\draw@chapter#1#2{%
%%  \addpenalty{-\@highpenalty}%
%%  \vskip1em plus\p@
%%  \@tempdima1.5em
%%  \begingroup
%%    \parindent\z@\rightskip\@pnumwidth
%%    \parfillskip-\rightskip
%%    \bfseries
%%    \leavevmode
%%    \advance\leftskip\@tempdima
%%    \hskip-\leftskip
%%    {#1\hfil}\nobreak
%%      \if@pdf
%%      \else
%%        \hfil\nobreak\hb@xt@\@pnumwidth{\hss #2}%
%%\fi
%%    \par
%%    {\it\draw@authors}%
%%    \penalty\@highpenalty\endgroup}
\def\toc@author#1#2{%
  \if@firstauthor
    \@firstauthorfalse
  \else
    \ifx\@authors\@empty
      \xdef\@authors{\last@author}%
    \else
      \@cons{\@authors}{, \last@author}\fi\fi
  \stepcounter{numauthors}%
%%%%%%% commented and deleted below the second part to aviod inaccessible error % shashi % September-2008
%%  \gdef\last@author{#1 {\rm\fontsize{9\p@}{11\p@}\selectfont #2}}
\gdef\last@author{#1}
}
\def\draw@authors{%
  \let\@t\@authors
  \ifx\@t\@empty
    \let\@t\last@author\fi
  \ifx\@t\@empty\else
    \hskip\leftskip
    \ifx\@authors\@empty
    \else
      \@authors
      \ifnum\c@numauthors>2,\fi
      \if@break\break\fi
      \ and \fi
    \last@author\break\fi
  \reset@authors}
\def\reset@authors{%
  \gdef\@authors{}%
  \gdef\last@author{}%
  \@firstauthortrue
  \setcounter{numauthors}{0}}
%%\newlength\section@toc@skip
%%\section@toc@skip1.5em
%%\newlength\SectionTOCWidth
%%\SectionTOCWidth2.3em
%%\def\l@section#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@section{#1}{#2}}}
%%\def\draw@section#1#2{%
%%  \@dottedtocline{1}{\section@toc@skip}{\SectionTOCWidth}{#1 }{{
%%\tocfont #2}}}
%%\newlength\subsection@toc@skip
%%\subsection@toc@skip\section@toc@skip
%%\advance\subsection@toc@skip\SectionTOCWidth
%%\newlength\SubSectionTOCWidth
%%\SubSectionTOCWidth3.2em
%%\def\l@subsection#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@subsection{#1}{#2}}}
%%\def\draw@subsection#1#2{%
%%  \@dottedtocline{2}{\subsection@toc@skip}{\SubSectionTOCWidth}{#1}{{
%%\tocfont #2}}}
%%\newlength\subsubsection@toc@skip
%%\subsubsection@toc@skip\subsection@toc@skip
%%\advance\subsubsection@toc@skip\SubSectionTOCWidth
%%\newlength\SubSubSectionTOCWidth
%%\SubSubSectionTOCWidth4.1em
%%\def\l@subsubsection#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@subsubsection{#1}{#2}}}
%%\def\draw@subsubsection#1#2{%
%%  \@dottedtocline{3}{\subsubsection@toc@skip}{\SubSubSectionTOCWidth}{#1}{{
%%\tocfont #2}}}
%%\newlength\paragraph@toc@skip
%%\paragraph@toc@skip\subsubsection@toc@skip
%%\advance\paragraph@toc@skip\SubSubSectionTOCWidth
%%\newlength\ParagraphTOCWidth
%%\ParagraphTOCWidth4.1em
%%\def\l@paragraph#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@paragraph{#1}{#2}}}
%%\def\draw@paragraph#1#2{%
%%  \@dottedtocline{4}{\paragraph@toc@skip}{\ParagraphTOCWidth}{#1}{{
%%\tocfont #2}}}
%%\newlength\subparagraph@toc@skip
%%\subparagraph@toc@skip\paragraph@toc@skip
%%\advance\subparagraph@toc@skip\ParagraphTOCWidth
%%\def\l@subparagraph#1#2{%
%%  \toc@draw
%%  \gdef\toc@draw{\draw@subparagraph{#1}{#2}}}
%%\def\draw@subparagraph#1#2{%
%%  \@dottedtocline{5}{\subparagraph@toc@skip}{6em}{#1}{{
%%\tocfont #2}}}

\newcommand*\l@section{\@dottedtocline{1}{1.5em}{2.8em}}
\newcommand*\l@subsection{\@dottedtocline{2}{3.8em}{3.2em}}
\newcommand*\l@subsubsection{\@dottedtocline{3}{7.0em}{4.1em}}
\newcommand*\l@paragraph{\@dottedtocline{4}{10em}{5em}}
\newcommand*\l@subparagraph{\@dottedtocline{5}{12em}{6em}}

\def\@dottedtocline#1#2#3#4#5{%
  \ifnum #1>\c@tocdepth
  \else
    \vskip \z@ \@plus.2\p@
    {\leftskip #2\relax\rightskip\@tocrmarg\parfillskip-\rightskip
      \parindent #2\relax\@afterindenttrue
      \interlinepenalty\@M
      \leavevmode
      \@tempdima #3\relax
      \advance\leftskip\@tempdima\null\hskip-\leftskip
      {#4\hfil}\nobreak
      \if@pdf
      \else
        \leaders\hbox{$\m@th\mkern\@dotsep mu\hbox{.}\mkern\@dotsep mu$}\hfill
        \nobreak
        \hb@xt@\@pnumwidth{\hfil\normalfont\normalcolor #5}%
\fi
      \par}\fi}
      
\newcommand\chapterauthors{%
  \def\break{\string\break\ }%
  \def\protect##1{\string ##1 }}
\def\end@cas{}
\def\end@casplusone{\vskip4pt\@doendpe}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
\def\make@chaptoc{% chapter author 
  {\parindent\z@
  \newcommand\FolioBoldFont{}%
  \let\@b\bullet
  \def\bullet{\raisebox{2pt}{$\scriptscriptstyle\@b$}}%
  \let\SubsectionItalicFont\it
%\ifx\chapter@author\@empty\else
{\rm\fontsize{10\p@}{10\p@}\bfseries\selectfont
%\the\c@numauthors
    \ifnum\c@numauthors=1
        \chapter@authorone\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationone}\vskip12\p@
            \fi
        \ifnum\c@numauthors=2
                    \chapter@authorone\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationone}\vskip12\p@
                        \chapter@authortwo\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationtwo}
                            \fi
                                \ifnum\c@numauthors=3
                                    \chapter@authorone\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationone}\vskip12\p@
                                        \chapter@authortwo\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationtwo}\vskip12\p@
                                            \chapter@authorthree\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationthree}
                                                \fi
                                                    \ifnum\c@numauthors=4
                                                        \chapter@authorone\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationone}\vskip12\p@
                                                            \chapter@authortwo\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationtwo}\vskip12\p@
                                                                \chapter@authorthree\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationthree}\vskip12\p@
                                                                    \chapter@authorfour\vskip6\p@
        {\it\fontsize{10\p@}{10\p@}\selectfont\chapter@affiliationfour}
                                                                        \fi
}
 \gdef\chapter@authorone{}\gdef\chapter@affiliationone{}%
 \gdef\chapter@authortwo{}\gdef\chapter@affiliationtwo{}%
 \gdef\chapter@authorthree{}\gdef\chapter@affiliationthree{}%
 \gdef\chapter@authorfour{}\gdef\chapter@affiliationfour{}%
  \vskip 14.6\p@
{\leftskip\secnumwidth\def\author##1##2{}\vskip14pt\hbox{\leftskip0pt\SubsectionHeadFont CONTENTS}\vskip6pt\par\@input{\thechapter.toc}\par}%
  }
\reset@authors}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newif\iffinishedfromone
\global\finishedfromonefalse
%
\newif\iffinishedfromtwo
\global\finishedfromtwofalse
%
\newif\iffinishedfromthree
\global\finishedfromthreefalse
%
\newif\iffinishedfromfour
\global\finishedfromfourfalse
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
\newcommand\singleauthorchapter{\finishedfromonetrue}
\newcommand\twoauthorchapter{\finishedfromtwotrue}
\newcommand\threeauthorchapter{\finishedfromthreetrue}
\newcommand\fourauthorchapter{\finishedfromfourtrue}
%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newif\iffinish
\global\finishfalse
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newsavebox\@AUonebox
\newsavebox\@AUtwobox
\newsavebox\@AUthreebox
\newsavebox\@AUfourbox
%
\newsavebox\@AUaffonebox
\newsavebox\@AUafftwobox
\newsavebox\@AUaffthreebox
\newsavebox\@AUafffourbox
%
\newsavebox\@finalAUboxfromone
\newsavebox\@finalAUboxfromtwo
\newsavebox\@finalAUboxfromthree
\newsavebox\@finalAUboxfromfour
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\@ca#1#2{%
%  \def\chapter@author{#1}%
%  \def\chapter@affiliation{#2}%
  \if@filesw%
    \write\@auxout{%
\string\@writefile{toc}{\string\author{#1}{}}%
}%
  \fi
%%%%%%%%%%%%%%%

\ifnum\c@numauthors>4
    \resetcounter{numauthors}
\fi 
\stepcounter{numauthors}
%%\the\c@numauthors
\ifnum\c@numauthors=1 % 
    \sbox\@AUonebox{\CAPlusOneFont#1}
    \sbox\@AUaffonebox{\vbox{\hsize\textwidth\CAAPlusOneFont\noindent #2\par}}
    \sbox\@finalAUboxfromone{\copy\@AUonebox}
    \def\chapter@authorone{\copy\@finalAUboxfromone}
    \def\chapter@affiliationone{\copy\@AUaffonebox}
\fi \ifnum\c@numauthors=2
    \sbox\@AUtwobox{\CAPlusOneFont#1}
    \sbox\@AUafftwobox{\vbox{\hsize\textwidth\CAAPlusOneFont\noindent #2\par}}
    \sbox\@finalAUboxfromtwo{\copy\@AUtwobox}
    \def\chapter@authortwo{\copy\@finalAUboxfromtwo}
    \def\chapter@affiliationtwo{\copy\@AUafftwobox}
\fi \ifnum\c@numauthors=3
    \sbox\@AUthreebox{\CAPlusOneFont#1}
    \sbox\@AUaffthreebox{\vbox{\hsize\textwidth\CAAPlusOneFont\noindent #2\par}}
    \sbox\@finalAUboxfromthree{\copy\@AUthreebox}
    \def\chapter@authorthree{\copy\@finalAUboxfromthree}
    \def\chapter@affiliationthree{\copy\@AUaffthreebox}
\fi \ifnum\c@numauthors=4
    \sbox\@AUfourbox{\CAPlusOneFont#1}
    \sbox\@AUafffourbox{\vbox{\hsize\textwidth\CAAPlusOneFont\noindent #2\par}}
    \sbox\@finalAUboxfromfour{\copy\@AUfourbox}
    \def\chapter@authorfour{\copy\@finalAUboxfromfour}
    \def\chapter@affiliationfour{\copy\@AUafffourbox}
\fi}


\def\@caplusone{\@ifstar{\@scaplusone}{\@ifnextchar[{\@xcaplusone}{\@xcaplusone[]}}}
\def\@xcaplusone[#1]#2#3{%
  \def\@@empty{#1}\ifx\@empty\@@empty\@ca{#2}{#3}\else\@ca{#2}{#1}\fi\@scaplusone{#2}{#3}}
\def\@scaplusone#1#2{%
  \ifhmode\vskip-12pt\fi
%%Shashi Commented
%%%  \noindent\hskip3pc{\CAPlusOneFont\baselineskip14pt #1\def\@t{#2}\ifx\@t\@empty\else,\fi}\hskip6pt{\CAAPlusOneFont #2}\par
}

\def\chapterauthoronly#1#2{\@ca{#1}{}\@scaplusone{#1}{#2}}
\def\myaddcontentsline#1#2#3{%
  \if@filesw
    \begingroup
    \let\label\@gobble\let\index\@gobble\let\glossary\@gobble
    \def\break{\ }%
    \def\protect##1{\string ##1 }%
    \@temptokena{\thepage}%
    \edef\@tempa{\write#1{\string\chapcontentsline{#2}{\string\raggedright\space #3}{\the\@temptokena}}}\@tempa
    \if@nobreak\ifvmode\nobreak\fi\fi
    \endgroup
  \fi}
\def\chapcontentsline#1{\csname l@#1\endcsname}
\def\l@chapsection{\@mydottedtocline{1}{\z@}{6pt}}
\def\l@chapsubsection{\@mydottedtocline{2}{\secnumwidth}{6pt}}
\def\l@chapsubsubsection{\@mydottedtocline{3}{\subsecnumwidth}{36pt}}
\newcount\c@chaptocdepth
\setcounter{chaptocdepth}{3}
\def\@mytocline#1#2#3#4#5{%
  \ifnum #1>\c@chaptocdepth
  \else
    \vskip 2pt plus.2\p@
    \ifnum #1=1\ifnum\c@chaptocdepth>1\addvspace{12pt}\fi\fi
    {\leftskip #2\relax% \rightskip \@tocrmarg \parfillskip -\rightskip
      \interlinepenalty\@M
      \leavevmode
      \@tempdima #3\relax
      \rightskip\z@
      \vbox{\ChapTOCFont #4\nobreak}%
      \par}\fi}
\def\@mydottedtocline#1#2#3#4#5{%
  \ifnum #1>\c@chaptocdepth
  \else
\fontsize{10}{12}\selectfont
{\leftskip #2\relax \rightskip \@tocrmarg \parfillskip -\rightskip
     % \parindent #2\relax\@afterindenttrue
      \interlinepenalty\@M
      \leavevmode
      \def\@dotsep{1.2}%
      \@tempdima #3\relax
      \rightskip\z@
%      \advance\hsize-\secnumwidth
%      \hskip-\secnumwidth
\if@sevenbyten
\hangindent\secnumwidth\hsize372pt\else\hangindent\secnumwidth\hsize312pt\fi 
#4
        \if@pdf
          \hfill
        \else
          \nobreak\leaders\hbox{$\m@th\mkern\@dotsep mu.\mkern\@dotsep mu$}\hfill\nobreak
          \hbox to24\p@{\hfil #5}\fi
      \par}\fi}      

\newcommand\listoffigures{%
    \if@twocolumn
      \@restonecoltrue\onecolumn
    \else
      \@restonecolfalse
    \fi
    \chapter*{\listfigurename}%
      \@mkboth{\MakeUppercase\listfigurename}%
              {\MakeUppercase\listfigurename}%
    \@starttoc{lof}%
    \if@restonecol\twocolumn\fi
    }
\newcommand*\l@figure{\@dottedtocline{1}{1.5em}{2.8em}}
\newcommand\listoftables{%
    \if@twocolumn
      \@restonecoltrue\onecolumn
    \else
      \@restonecolfalse
    \fi
    \chapter*{\listtablename}%
      \@mkboth{%
          \MakeUppercase\listtablename}%
         {\MakeUppercase\listtablename}%
    \@starttoc{lot}%
    \if@restonecol\twocolumn\fi
    }
\let\l@table\l@figure
\newdimen\bibindent
\setlength\bibindent{1.5em}
\newenvironment{thebibliography}[1]
     {\chapter*{\bibname}%
      \@mkboth{\MakeUppercase\bibname}{\MakeUppercase\bibname}%
%       \addcontentsline{toc}{chapter}{\bibname}
      \list{\@biblabel{\@arabic\c@enumiv}}%
           {\settowidth\labelwidth{\@biblabel{#1}}%
            \leftmargin\labelwidth
            \advance\leftmargin\labelsep
            \@openbib@code
            \usecounter{enumiv}%
            \let\p@enumiv\@empty
            \renewcommand\theenumiv{\@arabic\c@enumiv}}%
      \sloppy
      \clubpenalty4000
      \@clubpenalty \clubpenalty
      \widowpenalty4000%
      \sfcode`\.\@m}
     {\def\@noitemerr
       {\@latex@warning{Empty `thebibliography' environment}}%
      \endlist}
\newcommand\newblock{\hskip .11em\@plus.33em\@minus.07em}
\let\@openbib@code\@empty
\newcommand\indexname{Index}  %%% MY CHANGE
\newenvironment{theindex}
               {\cleardoublepage\if@twocolumn
                  \@restonecolfalse
                \else
                  \@restonecoltrue
                \fi
                \twocolumn[\@makeschapterhead{\indexname}]%
                \@mkboth{\MakeUppercase\indexname}%
                        {\MakeUppercase\indexname}%
                        \pagestyle{headings}
                        \addcontentsline{toc}{chapter}{\indexname}
\addcontentsline{toc}{section}{}                         %% ADDED
                \thispagestyle{folio}\parindent\z@\markboth{\indexname}{\indexname} %% CHANGED
                \parskip\z@ \@plus .3\p@\relax\raggedright
                \columnseprule \z@
                \columnsep 35\p@
                \let\item\@idxitem}
               {\if@restonecol\onecolumn\else\clearpage\fi}
\newcommand\@idxitem{\par\hangindent 40\p@}
\newcommand\subitem{\@idxitem \hspace*{20\p@}}
\newcommand\subsubitem{\@idxitem \hspace*{30\p@}}
\newcommand\indexspace{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
\renewcommand\footnoterule{%
  \kern-3\p@
  \hrule\@width.4\columnwidth
  \kern2.6\p@}
\@addtoreset{footnote}{chapter}
\newcommand\@makefntext[1]{%
    \parindent 1em%
    \noindent
    \hb@xt@1.8em{\hss\@makefnmark}#1}
\newcommand\contentsname{Contents}
\newcommand\listfigurename{List of Figures}
\newcommand\listtablename{List of Tables}
\newcommand\bibname{Bibliography}
%% \newcommand\indexname{Index}. %% CHANGED
\newcommand\figurename{FIGURE}
\newcommand\tablename{TABLE}
\newcommand\partname{Part}
\newcommand\chaptername{Chapter}
\newcommand\appendixname{Appendix}
\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}
\setlength\columnsep{10\p@}
\setlength\columnseprule{0\p@}
\pagestyle{headings}
\pagenumbering{arabic}
\if@twoside
\else
  \raggedbottom
\fi
\if@twocolumn
  \twocolumn
  \sloppy
  \flushbottom
\else
  \onecolumn
\fi
\newcommand\unnumcrcrule{\hbox to\textwidth{\rlap{\rule[-3.5\p@]{84\p@}{4\p@}}}}
\newcommand\unnumchap@rule{\unnumcrcrule}
\newcommand\crcrule{\hbox to\textwidth{\rlap{\rule[-3.5\p@]{84\p@}{4\p@}}\rule{\textwidth}{.5\p@}}}
\newcommand\chap@rule{\crcrule}
\newcommand\sec@rule{\crcrule}
\def\@affiliate[#1]{\gdef\@affiliation{#1}}
\def\@affiliation{}

\def\def@theequation{%
  \if@numberinsequence
    \def\theequation{%
\if@numbysec\thesection\else\thechapter\fi.%
\@arabic\c@shared}%
  \else
    \def\theequation{%
\if@numbysec\thesection\else\thechapter\fi.%
\@arabic\c@equation}\fi}

\def\affiliation#1{{\AffiliationFont\noindent #1\vskip 36bp}}
\newbox\tempbox

\newdimen\nomenwidth

\newenvironment{symbollist}[1]{%
\addvspace{12pt}
			\setbox\tempbox\hbox{#1\hskip1em}%
   \global\nomenwidth\wd\tempbox
   %\section*{Sumbol Description}
\noindent{\SectionHeadFont Symbol Description}\vskip6pt
\begin{multicols}{2}}{%
		\end{multicols}\par\addvspace{12pt}}
\def\symbolentry#1#2{\par\noindent\@hangfrom{\hbox to \nomenwidth{#1\hss}}#2\par}


\tabcolsep 5pt
\arrayrulewidth .5pt
\doublerulesep 1pt
%\newcounter{subtable}[table]
\newif\if@tablerules\@tablerulestrue
\newif\if@centertable\@centertabletrue
\newif\if@centertabletitle\@centertabletitletrue
\newbox\@tablebox
\newbox\@tabletitlebox
\newdimen\@tablewidth
\newdimen\@tabletitlewidth
\newdimen\max@tablewidth
\newcommand\automaticrules{\@tablerulestrue}
\newcommand\noautomaticrules{\@tablerulesfalse}
\def\thetable{%
\thechapter.%
\@arabic\c@table}
\def\thesubtable{%
\thechapter.%
\@arabic\c@table\alph{subtable}}
\def\resettableletter{\setcounter{subtable}{0}}
\def\@Tabletitle{}
\newcommand\tabletitle{\@ifnextchar[{\@xtabletitle}{\@tabletitlewidth\z@\@ytabletitle}}
\def\@@tabletitle{}
\newif\ifshorttabletitle
\global\shorttabletitlefalse
%\def\@xtabletitle#1{\@tabletitlewidth#1\@ytabletitle}
%
\def\@xtabletitle[#1]#2{%
  \gdef\@@tabletitle{#1}%
  \gdef\@tabletitle{#2}%
  \let\@Tabletitle\@TableTitle
  \refstepcounter{table}%
  {\let\footnotemark\@empty
    \let\footnote\@gobble
    \addcontentsline{\ext@table}{table}{\protect\numberline{\thetable}{\@@tabletitle}}}}
%%%%
%\long\def\@xtabletitle[#1]#2{%
%  \setbox\@ttbox\hbox{#1}\global\shorttabletitletrue
%  \def\@@tabletitle{\ifx\@ttbox\@empty\else#1\fi}%
%  \def\@tabletitle{#2}%
%  \let\@Tabletitle\@TableTitle
%  \refstepcounter{table}%
%  {\let\footnotemark\@empty
%    \let\footnote\@gobble
%    \addcontentsline{\ext@table}{table}{\protect\numberline{\thetable}{%
%\ifshorttabletitle\@@tabletitle\else\@tabletitle\fi}}}}

%%%
%
\long\def\@ytabletitle#1{%
  \def\@tabletitle{#1}%
  \let\@Tabletitle\@TableTitle
  \refstepcounter{table}%
  {\let\footnotemark\@empty
    \let\footnote\@gobble
    \addcontentsline{\ext@table}{table}{\protect\numberline{\thetable}{\@tabletitle}}}}
\def\tabletitlelet{\@ifnextchar[{\@xtabletitlelet}{\@tabletitlewidth\z@\@ytabletitlelet}}
\def\@xtabletitlelet[#1]{\@tabletitlewidth#1\@ytabletitlelet}
\long\def\@ytabletitlelet#1{%
  \def\@tabletitle{#1}%
  \let\@Tabletitle\@TableTitle
  \ifnum\c@subtable=0\stepcounter{table}\fi
  \let\@currentlabel\thesubtable
  {\let\footnotemark\@empty
    \let\footnote\@gobble
    \addcontentsline{\ext@table}{table}{\protect\numberline{\thetable}{\@tabletitle}}}}
\def\@TableTitle{%
  \noindent
  {%
    \vbox{{\TableNumberFont TABLE\ \thetable}}\par\TableTitleFont\@tabletitle}}
\def\table{%
  %\long\def\caption##1{\tabletitle{##1}\@TableTitle\par}%
  \@float{table}}
\@namedef{table*}{%
  \long\def\caption##1{\tabletitle{##1}\@TableTitle\par}%
  \@dblfloat{table}}


%% CHANGES BELOW BY ME
\def\endtabular{\crcr\egroup\egroup $\egroup}
\expandafter \let \csname endtabular*\endcsname = \endtabular
\def\tabular{\let\@halignto\@empty\@tabular}
\@namedef{tabular*}#1{%
 \setlength\dimen@{#1}%
   \edef\@halignto{to\the\dimen@}\@tabular}
   
% \def\@tabular{%
%   \leavevmode
%   \if@centertable\hfil\fi
%   \vbox\bgroup
%   \setbox\@tablebox\hbox\bgroup
%   \baselineskip11pt
%   \global\let\@fn\@empty
%   \def\footnote##1{\footnotemark\gdef\@fn{##1}}
%   \renewcommand{\arraystretch}{.916666666667}%
%   $\let\@acol\@tabacol
%   \let\@classz\@tabclassz
%   \let\@classiv\@tabclassiv
%   \let\\\@tabularcr
%   \@tabarray}
% \def\endtabular{%
%   \crcr\egroup\egroup $\egroup
%   \@tablewidth\wd\@tablebox
%   \ifnum\@tabletitlewidth>0
%     {\hsize\@tabletitlewidth\raggedright\global\setbox\@tabletitlebox\vbox{\@Tabletitle}}%
%   \else
%     \setbox\@tabletitlebox\hbox{\@Tabletitle}%
%     \ifnum\wd\@tabletitlebox>\@tablewidth
%       {\hsize\@tablewidth\raggedright\global\setbox\@tabletitlebox\vbox{\@Tabletitle}}\fi
%     \@tabletitlewidth\wd\@tabletitlebox\fi
%   \ifnum\@tabletitlewidth>0
%     \ifnum\@tabletitlewidth>\@tablewidth\@tablewidth\@tabletitlewidth\fi
%     \hbox to\@tabletitlewidth{\if@centertabletitle\hfil\fi\box\@tabletitlebox\hfil}\par\fi
%   \max@tablewidth\@tablewidth
%   \ifnum\@tabletitlewidth>\max@tablewidth\max@tablewidth\@tabletitlewidth\fi
%   \if@tablerules
%     \ifnum\@tabletitlewidth>0\vskip-6pt\fi
%     \hbox to\max@tablewidth{\if@centertable\hfil\fi\rule{\@tablewidth}{1pt}\hfil}\par\fi
%   \hbox to\max@tablewidth{\if@centertable\hfil\fi\box\@tablebox\hfil}\vskip1pt
%   \if@tablerules\hbox to\max@tablewidth{\if@centertable\hfil\fi\rule{\@tablewidth}{1pt}\hfil}\par\fi
%   \ifx\@fn\@empty\else\FootnoteFont\parindent\z@\noindent\@makefnmark\@fn\par\fi
%   \egroup\hfil
%   \vskip 0pt plus 12pt
%   \gdef\@Tabletitle{}}

\def\tch#1{\TableColHeadFont #1\llstrut\hfill}
\def\tsh#1{\TableSubheadFont #1\hfill}
\newcommand\llstrut{\rule[-6pt]{0pt}{14pt}}
\newcommand\flstrut{\rule{0pt}{10pt}}
\newcommand\tabletitlestrut{\rule{0pt}{20pt}}

\def\Boxhead#1{\par\addvspace{3pt plus2pt}\noindent{\centering\bfseries#1\par}\vskip3pt}


\newbox\tempbox%
\newdimen\tempdimen%


% \newenvironment{shortbox}{\par\addvspace{12pt plus2pt}%
% \if@krantza
% \setbox\tempbox\vbox\bgroup\hsize27pc%
% \else\if@krantzb
% \setbox\tempbox\vbox\bgroup\hsize32pc%
% \else
% \setbox\tempbox\vbox\bgroup\hsize25pc%
% \fi\fi
% }{%
% \egroup%
% \noindent\fboxsep6pt\fboxrule.5pt\hspace*{0pt}\fbox{\box\tempbox}
% \par\addvspace{12pt plus2pt}}%



\def\grayink{\special{color cmyk 0 0 0 0.2}}
\def\blackink{\special{color cmyk 0 0 0 1.0}} %  
\def\whiteink{\special{color cmyk 0 0 0 0}} % 0%

\usepackage{color}
\usepackage{framed}

\definecolor{shadecolor}{cmyk}{0, 0, 0, 0.2}

\newenvironment{shadebox}{
\begin{shaded*}
}{\end{shaded*}}

\newenvironment{shortbox}{
\begin{framed}}{\end{framed}}


%%\newenvironment{shadebox}{%
%%\setbox\tempbox\hbox\bgroup\vbox\bgroup\leftskip12pt\rightskip\leftskip}{\par\addvspace{12pt}
%%\egroup\egroup\par\addvspace{25pt} 
%%\tempdimen\ht\tempbox
%%\advance\tempdimen by 1pc
%%\noindent{\hbox to \wd\tempbox{\vbox to \ht\tempbox{\hsize\textwidth{\special{color push}\grayink\vspace*{-12pt}\noindent\vrule height\tempdimen width\textwidth 
%%\special{color pop}\blackink}}}}%
%%\llap{\unhbox\tempbox}\par\addvspace{12pt}}

%%%%%%%%%% Note %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newbox\tempbox
\newdimen\notewidth
\newenvironment{notelist}[1]{%
\addvspace{6pt}
			\setbox\tempbox\hbox{#1\hskip.57em}%
   \global\notewidth\wd\tempbox
}{%
		\par\addvspace{6pt}}

\def\notes#1#2{\par\noindent\@hangfrom{\hbox to \notewidth{\bf #1\hss}}#2\par}
%%%%%%%%%%%%%%%% wherelist %%%%%%%%%%%%%%%%
\newbox\wherebox
\newdimen\wherewidth
\newenvironment{wherelist}[1]{\leftskip10pt%
\addvspace{6pt}
			\setbox\wherebox\hbox{#1\hskip1em}%
   \global\wherewidth\wd\wherebox
\noindent\hspace*{-14pt} where
}{%
\par\addvspace{6pt}}
\def\whereentry#1#2#3{\par\noindent\@hangfrom{\hbox to \wherewidth{#1\hss}#2\hskip6pt}#3\par}
%%%%%%%%%%%%
\newenvironment{unnumlist}{%
  \ifnum \@enumdepth >3 \@toodeep\else
    \advance\@enumdepth\@ne
    \list{}{%
\leftmargini27.5pt \leftmarginii17.5pt\leftmarginiv17.5pt
%    \leftmargin\parindent
    \advance\leftmargin-.2em
    \advance\leftmarginii.2em
    \advance\leftmarginiii.1em
    \advance\leftmarginiv.2em
    \def\makelabel##1{\hss\llap{##1}}}
    \fi%
}{%
  \endlist}
  %
\newenvironment{extract}{%
		\par\addvspace{11.5pt minus2pt}%
  \leftskip2em\rightskip\leftskip
 \noindent\ignorespaces
}{%
		\par\addvspace{11.5pt minus2pt}%
  \@endparenv}
%
%
\def\VA#1#2{\addvspace{12pt}\raggedleft #1\rightskip3em\par #2\rightskip3em}
%
\newenvironment{VF}{\VfFont%
		\par\addvspace{12pt minus2pt}%
\noindent{\vrule height2pt width\textwidth}\par\vskip7.3pt
  \leftskip3em\rightskip\leftskip
 \noindent\ignorespaces
}{%
\par\vskip6pt\leftskip0pt\noindent{{\vrule height2pt width\textwidth}}\par\addvspace{12pt minus2pt}%
  \@endparenv}
%
\def\VTA#1#2{\addvspace{12pt}\raggedleft #1\rightskip3em\par {\it #2}\rightskip3em}
%
%
\def\VT{\par\addvspace{3.5pt}\noindent}

\def\VH#1{{\normalfont\fontsize{12.5}{14.5}\itshape\centering\selectfont #1\par}\addvspace{5.5pt}}
%
\newenvironment{VT1}{\VfFont%
		\par\addvspace{12pt minus2pt}%
\noindent{\vrule height2pt width\textwidth}\par\vskip7.5pt
  \leftskip3em\rightskip\leftskip
%\@afterheading
\parindent0pt
 \noindent\ignorespaces
}{%
\par\vskip6pt\leftskip0pt\noindent{{\vrule height2pt width\textwidth}}\par\addvspace{10pt minus2pt}%
  \@endparenv}
%
%%%%%%%%%%%% Glossary %%%%%%%%%%%%%%%%%%%%%%%
\newenvironment{Glossary}
               {\list{}{\labelwidth\z@\leftmargin18pt \itemindent-18pt
                        \let\makelabel\glosslabel}}
               {\endlist}
\newcommand\glosslabel[1]{\hspace\labelsep\normalfont\bfseries #1:}

%%%%%%%%%%%%
\newif\iffnalpha
\global\fnalphafalse

\newskip\listtextleftmargin\listtextleftmargin 20pt%24pt
\newskip\listtextleftmarginii\listtextleftmarginii0pt% 24pt
\newskip\listtextleftmarginiii\listtextleftmarginiii0pt% 24pt

\newskip\listtextrightmargin\listtextrightmargin12pt%.5pc
\newskip\listlabelleftskip \listlabelleftskip4pt%3.3pt
\newskip\listlabelleftskipii \listlabelleftskipii0pt%3.3pt
\newskip\listlabelleftskipiii \listlabelleftskipiii0pt%3.3pt

\newskip\abovelistskipi\abovelistskipi6pt plus2pt
\newskip\belowlistskipi\belowlistskipi6pt plus2pt
\newskip\abovelistskipii\abovelistskipii0pt plus2pt
\newskip\belowlistskipii\belowlistskipii0pt plus2pt
\newskip\abovelistskipiii\abovelistskipiii0pt plus2pt
\newskip\belowlistskipiii\belowlistskipiii0pt plus2pt

\newskip\labelsepi \labelsepi6pt
\newskip\labelsepii \labelsepii6pt
\newskip\labelsepiii \labelsepiii6pt%\z@

\newskip\itemsepi \itemsepi0pt%10pt
\newskip\itemsepii \itemsepii0pt
\newskip\itemsepiii \itemsepiii0pt


\newdimen\enumdimwd
\newif\iflabelrightalign\labelrightaligntrue
\newdimen\enumdim%
%
\def\enummax#1{%
  \labelsep\csname labelsep\romannumeral\the\@enumdepth\endcsname
  \ifdim\listtextleftmargin>\z@\labelsepi0pt\fi
  \ifdim\listtextleftmarginii>\z@\labelsepii0pt\fi
  \ifdim\listtextleftmarginiii>\z@\labelsepiii0pt\fi
  \setbox\tempbox\hbox{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname#1\hskip\labelsep}%
  \enumdim\wd\tempbox
  \setbox\tempbox\hbox{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname#1}%
  \enumdimwd\wd\tempbox
  \expandafter\global\csname leftmargin\romannumeral\the\@enumdepth\endcsname\enumdim
  \ifdim\listtextleftmargin>\z@
     \leftmargini\listtextleftmargin
     \ifdim\listlabelleftskip>\z@
        \advance\leftmargini-\listlabelleftskip
     \fi  
  \fi
  \ifdim\listtextleftmarginii>\z@
     \leftmarginii\listtextleftmarginii
     \ifdim\listlabelleftskipii>\z@
        \advance\leftmarginii-\listlabelleftskipii
     \fi  
  \fi
  \ifdim\listtextleftmarginiii>\z@
     \leftmarginiii\listtextleftmarginiii
     \ifdim\listlabelleftskipiii>\z@
        \advance\leftmarginiii-\listlabelleftskipiii
     \fi  
  \fi
}
%
\enummax{1.}
%
\def\enumerate{\@ifnextchar[{\@enumerate}{\@enumerate[\csname label\@enumctr\endcsname]}}%% 
%

\def\@enumerate[#1]{\par
      \ifnum \@enumdepth >3 \@toodeep
      \else
         \advance\@enumdepth\@ne
         \edef\@enumctr{enum\romannumeral\the\@enumdepth}%
         \setcounter{\@enumctr}{1}\enummax{#1}%
         \list
            {\csname label\@enumctr\endcsname}{\usecounter{\@enumctr}%
         \topsep\csname abovelistskip\romannumeral\the\@enumdepth\endcsname
         \itemsep\csname itemsep\romannumeral\the\@enumdepth\endcsname
%         \listfont %\listparindent18.25pt
         \ifnum \@enumdepth=1 \leftmargin32.7pt
            \rightmargin\listtextrightmargin
            \advance\rightmargin\rightskip
            \advance\leftmargin\leftskip
            \tempdimen\leftmargini
            \advance\tempdimen-\labelsep
           %%%%%%%%%%% 
           \iffnalpha 
            \def\makelabel##1{{\hskip\listlabelleftskip{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname{\iflabelrightalign\hss\fi\textlistlabel##1}}}}%
            \global\fnalphafalse
           \else
            \def\makelabel##1{\hbox to \tempdimen{\hskip\listlabelleftskip{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname\hbox to \enumdimwd{\iflabelrightalign\hss\fi\textlistlabel##1}}\blackink}}%
           \fi 
           %%%%%%%%%%%%%%%%%%%%%%%%%%%
         \else
            \ifnum \@enumdepth=2
               \tempdimen\leftmarginii
               \advance\tempdimen-\labelsep
               \def\makelabel##1{\hbox to \tempdimen{\hskip\listlabelleftskipii{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname\hbox to \enumdimwd{\iflabelrightalign\hss\fi##1}\blackink}}}%
            \else
               \ifnum \@enumdepth=3
                  \tempdimen\leftmarginiii
                  \advance\tempdimen-\labelsep
                  \def\makelabel##1{\hbox to \tempdimen{\hskip\listlabelleftskipiii{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname\hbox to \enumdimwd{\iflabelrightalign\hss\fi##1}\blackink}}}%
              \else
                                       \def\makelabel##1{\hss\llap{\csname listdevicefont\romannumeral\the\@enumdepth\endcsname##1}}%
                                    \fi   
                                 \fi   
         \fi}
      \fi}
%
\def\endenumerate{\@topsepadd\csname belowlistskip\romannumeral\the\@enumdepth\endcsname\endlist}%
%

\def\textlistlabel{}

%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newdimen\concolwidth
\newbox\stempbox
\def\contributor#1#2#3{\addvspace{10pt}{%
\setbox\stempbox\hbox{\ContributorAffiliationFont #2}
\concolwidth\wd\stempbox
  \noindent{\ContributorNameFont #1}\par
  \ifdim\concolwidth>\columnwidth \vspace*{3pt} \else \fi
  \noindent{\vbox{\hangindent12pt\ContributorAffiliationFont #2}}\vskip-1\p@
  \noindent{\vbox{\hangindent12pt\ContributorAffiliationFont #3}}}}

%%\def\contributors{%
%%  \twocolumn[\contributorshead]
%%  \pagestyle{empty}
%%  \leftskip1pc
%%  \parindent-1pc}
%%\def\contributorshead{%
%%  \vbox{}\vskip2pc
%%  {\centering\HeadFont CONTRIBUTORS\vskip2\p@}
%%  \noindent\rule{\textwidth}{1\p@}\vskip25\p@}

\newenvironment{contributorlist}
               {\cleardoublepage\if@twocolumn
                  \@restonecolfalse
                \else
                  \@restonecoltrue
                \fi
                \twocolumn[\@makeschapterhead{Contributors}]%
                \@mkboth{\MakeUppercase\indexname}%
                        {\MakeUppercase\indexname}%
                        \markboth{Contributors}{Contributors}
                        \pagestyle{headings}
                        \addcontentsline{toc}{fm}{Contributors}
                \thispagestyle{folio}\parindent\z@\raggedright
                \parskip\z@ \@plus .3\p@\relax
                \columnseprule \z@
                \columnsep 35\p@
                \let\contau\@conitem}
               {\if@restonecol\onecolumn\else\clearpage\fi}
\newcommand\@conitem{\par\addvspace{10pt}\bf\hangindent 40\p@}
\newcommand\contaff{\par\normalfont\hangindent 12\p@}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\cleardoublepage{\clearpage\if@twoside \ifodd\c@page\else
    \hbox{}\thispagestyle{empty}\newpage\if@twocolumn\hbox{}\newpage\fi\fi\fi}
    
\frenchspacing
\tolerance=5000    
\raggedbottom

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\@centertabletitlefalse
%\HeadingsBookChapter
\HeadingsChapterSection
\endinput
%%
%% End of file `krantz.cls'.