Create gdtha.f