updated gpmap.f