代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/216502/4890479
1 f77.1
.TH F77 1
.SH NAME
f77 \- Fortran 77 compiler
.SH SYNOPSIS
.B f77
[ option ] ... file ...
.SH DESCRIPTION
.I F77
is the UNIX Fortran 77 compiler.
It accepts several types of arguments:
.PP
Arguments w
www.eeworm.com/read/216502/4890793
f77
.de XX
.ne 3
.sp .3
.ti -1i
.ta 1i
\\$1 \c
..
.EQ
delim $$
.EN
.ND "1 August 1978"
.RP
.TL
A Portable Fortran 77 Compiler
.AU
S. I. Feldman
.AU
P. J. Weinberger
.AI
.MH
.AB
.LP
The Fortran language ha
www.eeworm.com/read/216499/4892727
s f.s
.globl .f
.globl succ
.globl seekchar,getword
.f:
mov (sp),r0
mov r0,6(sp)
mov 4(sp),r1
jsr pc,seekchar
jsr pc,getword
mov r0,(sp)
mov $-1,2(sp)
jmp succ
www.eeworm.com/read/216499/4892893
f tanh.f
function tanh(a)
b = exp(a)
c = 1.0/b
tanh = (b-c)/(b+c)
return
end
www.eeworm.com/read/216499/4892897
f csqrt.f
function csqrt(z1)
complex csqrt, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = cabs(z2)
c = sqrt(c)
b = atan2(b, a)/2.0
a = c*cos(b)
b = c*sin(b)
csqrt =
www.eeworm.com/read/216499/4892899
f csin.f
function csin(z1)
complex csin, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = exp(b)
d = 1.0/c
b = cos(a)*(c-d)/2.0
a = sin(a)*(c+d)/2.0
csin = z2
return
www.eeworm.com/read/216499/4892901
f dclog.f
function dclog(z1)
double complex z1, z2, dclog
double precision a,b,c
double precision dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2=z1
c=dcabs(z2)
b=datan2(b,a)
a=dlog(c)
dclog=z2
www.eeworm.com/read/216499/4892906
f dcsin.f
function dcsin(z1)
double complex dcsin, z1, z2
double precision dummy(2), a, b, c, d
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = dexp(b)
d = 1.0d0/c
b = dcos(a)*(c-d)/2.0d0
a = ds
www.eeworm.com/read/216499/4892922
f dcsqrt.f
function dcsqrt(z1)
double complex dcsqrt, z1, z2
double precision dummy(2), a, b, c
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = dcabs(z2)
c = dsqrt(c)
b = datan2(b, a)/2.0d0
a = c
www.eeworm.com/read/216499/4892924
f ccos.f
function ccos(z1)
complex ccos, z1, z2
dimension dummy(2)
equivalence (a,z2,dummy(1)), (b,dummy(2))
z2 = z1
c = exp(b)
d = 1.0/c
b = sin(a)*(d-c)/2.0
a = cos(a)*(c+d)/2.0
ccos = z2
return