Function LOF(il,jl)
! Locul in front al elementului (il,jl)
common n, LIM

II =(il-1)*(2*LIM -il +2)/2
ll = jl - il +1
LOF =II +ll

END Function LOF
