nn consosco fortran ma ci provo

codice:
void trisol ( /* bohhhhhhhh */ )
{
  int i, j;
  float temp;

  /*
    mancano definizioni
    REAL T(LDT,N), B(N)

    forse sono array dinamici :-? 
  */

  ifail = 0;
  i = 1;

  /*
    goto in c non andrebbe usato :)
  */

  _label10:
    if ( i > n || ifail != 0 )
      goto _label20;

    if ( t[i][i] == 0.0 )
      ifail = i;

    i++;
    goto _label10;

  _label20:
    if ( ifail == 0 )
    {
      for (j=1; j<30; j+=n)
      {
        b[j] /= t[j][j];
        temp = -b[j];

        for (i=j+1; i<40; i+=n)
          b += temp * t[i][j];
      }
    }

}

č come l'ho interpretato!!!
ciao :metallica