вот такую строчку генерирует f2c при переводе фортрановского исходника на сишный:

было: D1=ABS(A(LI(I1),K))

стало: d1 = ( d__1 = a[ l i[ i1 - 1 ] + k * a_dim1], abs(d__1) );

Однако прикольно