Aiuto qualcuno me la traduce in C????
codice:
SUBROUTINE TRISOL(T,LDT,N,B,IFAIL)
       INTEGER LDT, N, IFAIL
       REAL T(LDT,N), B(N) 
       INTEGER I, J
       REAL TEMP
         IFAIL=0
         I=1
10  IF(I .GT. N .OR. IFAIL .NE. 0) GOTO 20
      IF(T(I,I) .EQ. 0.E0) THEN
        IFAIL=I
      ENDIF
     I=I+1
     GOTO 10
20  CONTINUE
    IF(IFAIL .EQ. 0) THEN
      DO 30 J=1,N
        B(J) = B(J)/T(J,J)
        TEMP=-B(J)
      DO 40 I=J+1,N
        B(I)=B(I)+TEMP*T(I,J)
40    CONTINUE
30   CONTINUE
    ENDIF
  RETURN
END