change write(*,*) to write(*,"(A)") in the gnuplot() subroutine