WSJT-X/flushqqq.f90

11 lines
108 B
Fortran

subroutine flushqqq(lu)
#ifdef CVF
use dfport
#endif
call flush(lu)
return
end subroutine flushqqq