Create reducible_map_adjoint.f90