rename frank_matrix_f_function.f90