Monthly Archives: February 2018

How to write output values to the standard output without carriage return: program tstNoadv integer :: i do i = 1, 10 write(*,”(A1,I6.4,$)”) char(13), i call system(“sleep 1”) end do write(*,*) “Done” stop end program