% electrical power and energy systems formats

\Refstd\Citesuper %set general formats for reference list and citations
\def\Citefont{\sevenrm} %override default definition (smaller superscripts)
\expandafter\ifx\csname{sevenrm}  %LaTeX fix for \sevenrm
          \endcsname\relax\def\sevenrm{\scriptsize\rm}\fi
\def\Authfont{\bf}\def\Tomefont{\sl}\def\Flagfont{\bf}\def\Initper{\ }
\def\Flagstyle#1{\hangindent\parindent\indent\hbox to0pt{\hss{\Flagfont#1}\kern.5em}}%flag style

\def\journalarticleformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }\fi%
        \if\Ttest\present\Comma\bgroup`\Titlefont\Tstr\egroup\def\Comma{' }\fi%
         \if\etest\present\if\Ttest\present{'}\fi\ (\bgroup\estr\egroup)\def\Comma{\ }\fi%
          \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{\ }\fi%
           \if\Vtest\present\if\Jtest\present\ \else\Comma\fi\bgroup\Volfont\Vstr\egroup\def\Comma{\ }\fi%
            \if\Dtest\present\ (\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
             \if\Ptest\present\Comma\bgroup \Pstr\egroup\def\Comma{\ }\fi%
              \if\ttest\present\Comma\bgroup`\Titlefont\tstr\egroup\def\Comma{' }\fi%
               \if\jtest\present\Comma\bgroup\Tomefont\jstr\/\egroup\def\Comma{\ }\fi%
                \if\vtest\present\if\jtest\present\ \else\Comma\fi\bgroup\Volfont\vstr\egroup\def\Comma{\ }\fi%
                 \if\dtest\present\ (\bgroup\dstr\egroup)\def\Comma{\ }\fi%
                  \if\ptest\present\bgroup \pstr\egroup\def\Comma{\ }\fi%
                   \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{\ }\fi%
                    \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
                     \vskip3ptplus1ptminus1pt}%\smallskip

\def\conferencereportformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }\fi%
        \if\Ttest\present\Comma\bgroup`\Titlefont\Tstr\egroup\def\Comma{' }\fi%
         \if\Jtest\present\Comma\bgroup\Tomefont\Jstr\/\egroup\def\Comma{\ }\fi%
          \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{\ }\fi%
           \if\Dtest\present\ (\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
            \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
             \vskip3ptplus1ptminus1pt}%\smallskip

\def\bookarticleformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }\fi%
        \if\Ttest\present\Comma\bgroup`\Titlefont\Tstr\egroup\def\Comma{' }\fi%
         \if\etest\present\if\Ttest\present'\fi\ (\bgroup\estr\egroup)\def\Comma{\ }\fi%
          \if\Btest\present\Comma in \bgroup\Tomefont\Bstr\/\egroup\def\Comma{\ }\fi%
           \if\otest\present\ \bgroup\ostr\egroup\def\Comma{\ }\fi%
            \if\Etest\present, \bgroup\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{\ }\fi%
             \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{\ }\fi%
              \if\Vtest\present\bgroup\ \Volfont\Vstr\egroup\def\Comma{\ }\fi%
               \if\Ntest\present\bgroup\ \Volfont\Nstr\egroup\def\Comma{\ }\fi%
                \if\Itest\present\Comma\bgroup\Istr\egroup\def\Comma{\ }\fi%
                 \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{\ }\fi%
                  \if\Dtest\present\Comma(\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
                   \if\Ptest\present\Comma\Pstr\def\Comma{\ }\fi%
                    \if\ttest\present\Comma\bgroup`\Titlefont\tstr\egroup\def\Comma{' }\fi%
                     \if\btest\present\Comma in \bgroup\Tomefont\bstr\egroup\def\Comma{\ }\fi%
                       \if\atest\present, \bgroup\astr\egroup\unskip, \if\acnt\present eds.\else ed.\fi\def\Comma{\ }\fi%
                        \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{\ }\fi%
                         \if\vtest\present\bgroup\ \Volfont\vstr\egroup\def\Comma{\ }\fi%
                          \if\ntest\present\bgroup\ \Volfont\nstr\egroup\def\Comma{\ }\fi%
                           \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{\ }\fi%
                            \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{\ }\fi%
                             \if\dtest\present\Comma(\bgroup\dstr\egroup)\def\Comma{\ }\fi%
                              \if\ptest\present\Comma\pstr\def\Comma{\ }\fi%
                               \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{\ }\fi%
                                \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
                                 \vskip3ptplus1ptminus1pt}%\smallskip

\def\bookformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }%
            \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{\ }%
                  \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{\ }\fi\fi\fi%
          \if\Ttest\present\Comma\bgroup\Tomefont\Tstr\/\egroup\def\Comma{\ }%
                \else\if\Btest\present\Comma\bgroup\Tomefont\Bstr\/\egroup\def\Comma{\ }\fi\fi%
            \if\otest\present\ \bgroup\ostr\egroup\def\Comma{\ }\fi%
             \if\etest\present\ (\bgroup\estr\egroup)\def\Comma{\ }\fi%
              \if\Stest\present\Comma\bgroup\Sstr\egroup\def\Comma{\ }\fi%
               \if\Vtest\present\bgroup\ \Volfont\Vstr\egroup\def\Comma{\ }\fi%
                \if\Ntest\present\bgroup\ \Volfont\Nstr\egroup\def\Comma{\ }\fi%
                 \if\Atest\present\if\Itest\present
                         \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi%
                      \else\if\Etest\present\if\Itest\present
                              \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi\fi\fi%
                     \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{\ }\fi%
                      \if\Dtest\present\Comma(\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
                       \if\ttest\present\Comma\bgroup\Tomefont\tstr\egroup\def\Comma{\ }%
                             \else\if\btest\present\Comma\bgroup\Tomefont\bstr\egroup\def\Comma{\ }\fi\fi%
                          \if\stest\present\Comma\bgroup\sstr\egroup\def\Comma{\ }\fi%
                           \if\vtest\present\bgroup\ \Volfont\vstr\egroup\def\Comma{\ }\fi%
                            \if\ntest\present\bgroup\ \Volfont\nstr\egroup\def\Comma{\ }\fi%
                             \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{\ }\fi%
                              \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{\ }\fi%
                               \if\dtest\present\Comma(\bgroup\dstr\egroup)\def\Comma{\ }\fi%
                                \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{\ }\fi%
                                 \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
                                  \vskip3ptplus1ptminus1pt}%\smallskip

\def\technicalreportformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }%
            \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{\ }%
                  \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{\ }\fi\fi\fi%
          \if\Ttest\present\Comma\bgroup`\Titlefont\Tstr\egroup\def\Comma{' }\fi%
           \if\Atest\present\if\Itest\present
                   \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi%
                \else\if\Etest\present\if\Itest\present
                        \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi\fi\fi%
            \if\Rtest\present\Comma\bgroup\Rstr\egroup\def\Comma{\ }\fi%
             \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{\ }\fi%
              \if\Dtest\present\Comma(\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
               \if\ttest\present\Comma\bgroup`\Titlefont\tstr\egroup\def\Comma{' }\fi%
                \if\itest\present\Comma\bgroup\istr\egroup\def\Comma{\ }\fi%
                 \if\rtest\present\Comma\bgroup\rstr\egroup\def\Comma{\ }\fi%
                  \if\ctest\present\Comma\bgroup\cstr\egroup\def\Comma{\ }\fi%
                   \if\dtest\present\Comma(\bgroup\dstr\egroup)\def\Comma{\ }\fi%
                    \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{\ }\fi%
                     \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
                      \vskip3ptplus1ptminus1pt}%\smallskip

\def\otherformat{\Reffont\let\uchyph=1\parindent=1.25pc\def\Comma{}%
                \sfcode`\.=1000\sfcode`\?=1000\sfcode`\!=1000\sfcode`\:=1000\sfcode`\;=1000\sfcode`\,=1000%\frenchspacing
                \par\vfil\penalty-200\vfilneg%\filbreak
      \if\Ftest\present\Flagstyle\Fstr\fi%
       \if\Atest\present\bgroup\Authfont\Astr\egroup\def\Comma{\ }%
            \else\if\Etest\present\bgroup\def\Eand{\Aand}\def\Eandd{\Aandd}\Authfont\Estr\egroup\unskip, \ifnum\Ecnt>1eds.\else ed.\fi\def\Comma{\ }%
                  \else\if\Itest\present\bgroup\Authfont\Istr\egroup\def\Comma{\ }\fi\fi\fi%
          \if\Ttest\present\Comma\bgroup`\Titlefont\Tstr\egroup\def\Comma{' }\fi%
            \if\Atest\present\if\Itest\present
                    \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi%
                 \else\if\Etest\present\if\Itest\present
                         \Comma\bgroup\Istr\egroup\def\Comma{\ }\fi\fi\fi%
                 \if\Ctest\present\Comma\bgroup\Cstr\egroup\def\Comma{\ }\fi%
                  \if\Dtest\present\Comma(\bgroup\Dstr\egroup)\def\Comma{\ }\fi%
                   \if\Gtest\present{\Comma Gov't ordering no. }\bgroup\Gstr\egroup\def\Comma{\ }\fi%
                    \if\Otest\present{\Comma\bgroup\Ostr\egroup}\fi%
                     \vskip3ptplus1ptminus1pt}%\smallskip