代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/101082/6241557
f gpctst.f
integer getc, putc, fgetc, fputc, oer
character c
open(1,status='s')
write(*,*) "Go"
10 ier = getc(c)
if (ier .eq. 0) then
oer = fputc(1,c)
goto 10
else
call perror("end of getc/fput
www.eeworm.com/read/101082/6241558
f ertst.f
character*39 errno
character*32 gerror
external gerror
do 100 i = 0, 36
call serrno(i)
write(errno,'("[",i3,"] ",a,":")') ierrno(), gerror()
call perror(errno)
100 continue
do 200 i = 99,
www.eeworm.com/read/101082/6241559
f actst.f
integer access
write(*,*) "exist?", access("actst.f", " ")
write(*,*) "execute?", access("actst.f", "x")
write(*,*) "read?", access("actst.f", "r")
write(*,*) "write?", access("actst.f", "w")
wr
www.eeworm.com/read/101082/6241560
f gwdtst.f
character*50 path
integer getcwd, chdir
ier = getcwd(path)
write(*,*) ier, path
ier = chdir("..")
ier = getcwd(path)
write(*,*) ier, path
end
www.eeworm.com/read/101082/6241561
f bitst.f
logical bit
i = 0
call bis(30, i)
write(*,*) i, bit(30, i), bit(4, i)
call bic(30, i)
write(*,*) i, bit(0, i)
call bis(0, i)
write(*,*) i
end
www.eeworm.com/read/101082/6242825
makefile-f
#
# @(#)Makefile @(#)Makefile-f 1.2 (ULTRIX) 1/27/86
#
CFLAGS = -O -f
LIB = ${DESTROOT}/usr/lib
SRCDIR = ${DESTROOT}/usr/ucb
PASDIR = ${DESTROOT}/usr/src/ucb/pascal
INSTALL= install
LD= /bin/ld
R
www.eeworm.com/read/101082/6246798
1 f77.1
.\" SCCSID: @(#)f77.1 8.1 9/11/90
.TH f77 1 VAX "" Unsupported
.SH Name
f77 \- Fortran 77 compiler
.SH Syntax
.B f77
[\|\fIoption...\fR\|] \fIfile\fR...
.SH Description
.NXB "f77 compiler"
.NXA "f77