New routine with fix

New routine with fix