added tentestingfile.f