added fourtestingfile.f