fixed frank_function_array.F90