<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">I defined the type matriceE as :<DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Monaco">type </FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> vecteurF = array of extended;</FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> matriceF = array of vecteurF;</FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> matriceE = record</FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> err :integer;</FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> x :matriceF;</FONT></DIV><DIV><FONT class="Apple-style-span" face="Monaco"> end;</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-style-span">If I define a <B>function</B> such as :</SPAN></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Monaco">function invM(A:matriceE):matriceE;</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>and when I call it such as :</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Monaco">invA := invM(A);</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>the matrix invA.x has zero dimension</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-style-span">If now, I replace this function by a <B>procedure</B> such as :</SPAN></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><FONT class="Apple-style-span" face="Monaco">procedure invM2(A:matriceE;var B matriceE);</FONT></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-style-span">the call <FONT class="Apple-style-span" face="Monaco">invM2(A,invA)</FONT> produces a matrix invA.x of correct dimension.</SPAN></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><SPAN class="Apple-style-span">I add that the <B>function</B> invM runs OK under Delphi 6.0.</SPAN></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Jean-Marie Cornuet</DIV><DIV><BR class="khtml-block-placeholder"></DIV></BODY></HTML>