WSJT-X/fstatqqq.f90

15 lines
181 B
Fortran
Raw Normal View History

subroutine fstatqqq(lu,istat,ierr)
#ifdef Win32
use dfport
#endif
#ifdef Win32
ierr=fstat(lu,istat)
#else
call fstat(lu,istat,ierr)
#endif
return
end subroutine fstatqqq