Create ftrn4.f95