Fixed set fault on multiple writes

Only one processor using write(*,*) now.  Multiple processors caused
seg fault using -O3 optimization.