 mat=!line 1 to -2 of $wims_read_parm
 vec=!line -1 of $wims_read_parm
 !for i=1 to $dim
  v=!item $i of $varlist
  !if $i=1
   eqhtml=<tr><td rowspan=$dim>$m_sigma$(m_leftpar$dim)\
    <td align=center>$v<td rowspan=$dim>$(m_rightpar$dim)&nbsp;=&nbsp;$(m_leftpar$dim)
  !else
   eqhtml=$eqhtml<tr><td align=center>$v
  !endif
  m=!line $i of $mat
  t=!item $i of $vec
  t=!htmlmath -$t
  !for j=1 to $dim
   v=!item $j of $varlist
   e=!item $j of $m
   s=!char 1 of $e
   !if $s=-
    e=!char 2 to -1 of $e
   !else
    !if $j>1
     s=+
    !else
     s=
    !endif
   !endif
   !if / isin $e
    e=($e)
   !endif
   !ifval $e!=0
    !if $e=1
     e=
    !endif
    eqhtml=$eqhtml<td align=right>$s$e$v</td>
   !else
    eqhtml=$eqhtml<td>
   !endif
  !next j
  !if $nature=affine
   !ifval $t!=0
    eqhtml=$eqhtml<td>$t</td>
   !else
    eqhtml=$eqhtml<td>
   !endif
  !endif
  !if $i=1
   eqhtml=$eqhtml<td rowspan=$dim>$(m_rightpar$dim)</td>
  !endif
 !next i
