Create ftrn3.f95