代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/288222/4008753
f shupdn.f
subroutine shupdn(s,saa)
implicit none
complex*16 s(2), saa(2,2)
complex*16 tmp
tmp = saa(1,1)*s(1) + saa(1,2)*s(2)
s(2) = saa(2,1)*s(1) + saa(2,2)*s(2)
s(1) = tmp
return
end
www.eeworm.com/read/288222/4008754
f srclay.f
subroutine srclay(depth,lmax,dph)
implicit none
real depth, dph
integer lmax
integer LER, LIN, LOT
parameter (LER=0, LIN=5, LOT=6)
integer NL
parameter(NL=100)
common/timodel/D(NL),TA(NL),TC(
www.eeworm.com/read/288222/4008755
f normc.f
subroutine normc(e,ex,xnorm)
implicit none
complex*16 e(*)
real*8 ex, xnorm
common/lwater/lfluid
logical lfluid
real*8 test,testt,x,y,fac
real*8 DREAL
integer i, IUP
test = 0.0D+00
testt
www.eeworm.com/read/288222/4008759
f svupdn.f
subroutine svupdn(s,haa)
implicit none
complex*16 s(4), haa(4,4)
complex*16 t(4), tmp
integer i, j
do 100 i=1,4
tmp = dcmplx(0.0d+00,0.0d+00)
do 101 j=1,4
tmp = tmp + haa(i,j)*s(j)
101
www.eeworm.com/read/288222/4008760
f hskl.f
subroutine hskl(cossh,rsinsh,sinshr,TL,iwat,hl,atnb)
implicit none
complex*16 cossh, rsinsh, sinshr
real TL
integer iwat
complex*16 hl(2,2)
complex*16 atnb
if(iwat.eq.0)then
hl(1,1) = cossh
www.eeworm.com/read/288222/4008762
f getabc.f
subroutine getabc(m,omg,wvn,a,b,c,d,e,f)
implicit none
integer m
COMPLEX*16 omg,wvn
COMPLEX*16 a, b, c, d, e, f
integer NL
parameter (NL=100)
common/timodel/H(NL),TA(NL),TC(NL),TL(NL),TN(NL),T
www.eeworm.com/read/288222/4008763
f rnormc.f
subroutine rnormc(e,ex,xnorm)
common/lwater/lfluid
logical lfluid
real*8 ex
real*8 DREAL
real *8 test,testt,x,y,fac,xnorm
complex*16 e(5,5)
test = 0.0D+00
testt = 0.0D+00
if(lfluid)then
IU
www.eeworm.com/read/288222/4008764
f shupdn.f
subroutine shupdn(s,saa)
complex*16 s(2), saa(2,2)
complex*16 tmp
tmp = saa(1,1)*s(1) + saa(1,2)*s(2)
s(2) = saa(2,1)*s(1) + saa(2,2)*s(2)
s(1) = tmp
return
end
www.eeworm.com/read/288222/4008765
f srclay.f
subroutine srclay(depth,lmax,dph)
parameter (LER=0, LIN=5, LOT=6)
parameter(NL=100)
common/timodel/D(NL),TA(NL),TC(NL),TL(NL),TN(NL),TF(NL),
1 TRho(NL),
2 qa(NL),qb(NL),etap(NL),etas(N
www.eeworm.com/read/288222/4008766
f normc.f
subroutine normc(e,ex,xnorm)
complex*16 e(*)
real*8 ex, xnorm
common/lwater/lfluid
logical lfluid
real*8 test,testt,x,y,fac
real*8 DREAL
integer i, IUP
test = 0.0D+00
testt = 0.0D+00
if(lf