mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2024-09-07 05:46:42 -04: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
|