代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/101082/6241545
f ttnam.f
program ttnam
character*19 ttynam
write(*,*) ttynam(6), ":", ttynam(1), ":"
end
www.eeworm.com/read/101082/6241546
f rngtst.f
double precision dflmax, dflmin
write(*,*) flmax(), flmin(), inmax(), dflmax(), dflmin()
end
www.eeworm.com/read/101082/6241548
f timtst.f
character*24 ctime, fdate
integer time, tl(9), tgm(9)
write(*,*) ctime(time()), fdate()
call ltime(time(), tl)
call gmtime(time(), tgm)
write(*,*) tl, tgm
end
www.eeworm.com/read/101082/6241549
f rnmtst.f
program rnmtst
integer rename
external rename
open(1, file="abc")
close(1)
call system ("ls -l abc def")
write(*,*) "rename:", rename("abc", "def")
call system ("ls -l abc def")
end
www.eeworm.com/read/101082/6241550
f loctst.f
common/blah/i,j,k
double precision d
equivalence (d,i),(x,i)
write(*,*) loc(i), loc(d), loc(x), loc(z)
end
www.eeworm.com/read/101082/6241552
f fktst.f
common/sig/whoami
character*6 whoami
integer fork, getpid, wait, tick
external trap
call signal(2, trap, -1)
call signal(3, trap, -1)
call signal(6, trap, -1)
call signal(8, trap, -1)
call s
www.eeworm.com/read/101082/6241553
f sigtrtst.f
integer signal
external trap
isav = signal(8, 0, 1)
write(*,*) "1", signal(8, 0, 0)
write(*,*) "0", signal(8, trap, -1)
write(*,*) "addr", signal(8, 0, isav)
write(*,*) isav, signal(8, trap, -1
www.eeworm.com/read/101082/6241554
f sigfpe.f
subroutine sigfpe()
call signal(8, sigfpe, -1)
return
end
www.eeworm.com/read/101082/6241555
f statst.f
character*24 ctime
integer stata(11), statb(11), i1, i2
open(1, file='statst.f')
i1 = stat('statst.f', stata)
i2 = fstat(1, statb)
write(*,*) i1, i2, ierrno()
write(*,'(8r,2i12)') (stata(i),sta