update code macierz.f95