Update fwd_parser_singleton.f90