mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-11-19 10:32:02 -05:00
15 lines
181 B
Fortran
15 lines
181 B
Fortran
|
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
|