Added a check for rank=0 to the write_stream2 routine. This check
was missing, leading to all nodes writing out the data!!!!