Create reducible_map.f90