EPW FLUSH (no pun intended)
CALL flush() in EPW replaced by FLUSH(), as in the rest of the code (should be the standard; not sure about the NAG case)
CALL flush() in EPW replaced by FLUSH(), as in the rest of the code (should be the standard; not sure about the NAG case)