\batchmode
\documentstyle{article}
\makeatletter


\makeatother
\newenvironment{tex2html_wrap}{}{}
\newwrite\lthtmlwrite
\def\lthtmltypeout#1{{\let\protect\string\immediate\write\lthtmlwrite{#1}}}%
\newbox\sizebox
\begin{document}
\pagestyle{empty}
\stepcounter{paragraph}
\stepcounter{paragraph}
{\newpage
\clearpage
\samepage \setbox\sizebox=\hbox{$\times$}\lthtmltypeout{latex2htmlSize :tex2html_wrap_inline86: \the\ht\sizebox::\the\dp\sizebox.}\box\sizebox
}

\stepcounter{paragraph}
\stepcounter{paragraph}
\stepcounter{paragraph}
{\newpage
\clearpage
\samepage \begin{figure}[bt]
\footnotesize
\begin{verbatim}  Procs1 p = new Procs1(P) ;
  on(p) {
    Range x = new CyclicRange(N, p.dim(0));

    float [[,#]] a = new float [[N, x]] ;
    float [[]]   b = new float [[N]] ;  // buffer

    Location l ;
    Index m ;

    for(int k = 0 ; k < N - 1 ; k++) {

      at(l = x [k]) {
        float d =  Math.sqrt(a [k, l]) ;

        a [k, l] = d ;
        for(int s = k + 1 ; s < N ; s++)
          a [s, l] /= d ;
      }

      HPJlib.remap(b [[k + 1 : ]], a [[k + 1 : , k]]);

      over(m = x | k + 1 : )
        for(int i = x.idx(m) ; i < N ; i++)
          a [i, m] -= b [i] * b [x.idx(m)] ;
    }

    at(l = x [N - 1])
      a [N - 1, l] = Math.sqrt(a [N - 1, l]) ;
  }\end{verbatim}
\normalsize

\end{figure}
}

\stepcounter{paragraph}
\stepcounter{paragraph}
\stepcounter{paragraph}

\end{document}
