Просто используйте одну из существующих языковых оболочек для LAPACK (которая сама написана на фортране).
В частности, попробуйте lapwrapc .
Имеет интерфейс C к DTRTRI, определенный в src / lapack_dtrtri.c
void lapack_dtrtri( const enum lapack_uplo_type uplo,
const enum lapack_diag_type diag,
const int n,
double * a,
const int lda,
int * info )