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