Create ftgwr.f