代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/305566/3773003
f fio.f
parameter(nx=100,ny=50,nz=40)
real v(nx,ny)
ireclv = nx * ny * 4
ivdisk = 30
open(ivdisk,file="/f0/data/stgpzli/vtest.data",
1 form="unformatted",iostat=ios,
2
www.eeworm.com/read/305566/3773249
f fhicut.f
subroutine <mark>f</mark>higint(<mark>f</mark>0,d<mark>f</mark>,n<mark>f</mark>,<mark>f</mark>taper,dt,i<mark>f</mark>cut,ltaper,
2 wsave,nsave,n<mark>f</mark><mark>f</mark>t)
real wsave(nsave)
integer i<mark>f</mark>cut(n<mark>f</mark>),ltaper(n<mark>f</mark>),n<mark>f</mark>
real <mark>f</mark>taper,<mark>f</mark>0,d<mark>f</mark>,dt
real s<mark>f</mark><mark>f</mark>t
integer nsave ...
www.eeworm.com/read/305566/3773251
f vm.f
subroutine vr22vi2(vr2,vi2,ntau)
real vr2(ntau),vi2(ntau)
integer ntau,i
vi2(1) = vr2(1)
do i=2,ntau
vi2(i) = i*vr2(i)-(i-1)*vr2(i-1)
end do
return
end
subroutine vi22vq4(vi2,vq4,ntau)
www.eeworm.com/read/305566/3773254
f fhicut.f
subroutine <mark>f</mark>higint(<mark>f</mark>0,d<mark>f</mark>,n<mark>f</mark>,<mark>f</mark>taper,dt,i<mark>f</mark>cut,ltaper,
2 wsave,nsave,n<mark>f</mark><mark>f</mark>t)
real wsave(nsave)
integer i<mark>f</mark>cut(n<mark>f</mark>),ltaper(n<mark>f</mark>),n<mark>f</mark>
real <mark>f</mark>taper,<mark>f</mark>0,d<mark>f</mark>,dt
real s<mark>f</mark><mark>f</mark>t
integer nsave ...
www.eeworm.com/read/305566/3773256
f vm.f
subroutine vr22vi2(vr2,vi2,ntau)
real vr2(ntau),vi2(ntau)
integer ntau,i
vi2(1) = vr2(1)
do i=2,ntau
vi2(i) = i*vr2(i)-(i-1)*vr2(i-1)
end do
return
end
subroutine vi22vq4(vi2,vq4,ntau)
www.eeworm.com/read/305566/3773258
f fhicut.f
subroutine <mark>f</mark>higint(<mark>f</mark>0,d<mark>f</mark>,n<mark>f</mark>,<mark>f</mark>taper,dt,i<mark>f</mark>cut,ltaper,
2 wsave,nsave,n<mark>f</mark><mark>f</mark>t)
real wsave(nsave)
integer i<mark>f</mark>cut(n<mark>f</mark>),ltaper(n<mark>f</mark>),n<mark>f</mark>
real <mark>f</mark>taper,<mark>f</mark>0,d<mark>f</mark>,dt
real s<mark>f</mark><mark>f</mark>t
integer nsave ...
www.eeworm.com/read/305566/3773260
f vm.f
subroutine vr22vi2(vr2,vi2,ntau)
real vr2(ntau),vi2(ntau)
integer ntau,i
vi2(1) = vr2(1)
do i=2,ntau
vi2(i) = i*vr2(i)-(i-1)*vr2(i-1)
end do
return
end
subroutine vi22vq4(vi2,vq4,ntau)
www.eeworm.com/read/305566/3773262
f fhicut.f
subroutine <mark>f</mark>higint(<mark>f</mark>0,d<mark>f</mark>,n<mark>f</mark>,<mark>f</mark>taper,dt,i<mark>f</mark>cut,ltaper,
2 wsave,nsave,n<mark>f</mark><mark>f</mark>t)
real wsave(nsave)
integer i<mark>f</mark>cut(n<mark>f</mark>),ltaper(n<mark>f</mark>),n<mark>f</mark>
real <mark>f</mark>taper,<mark>f</mark>0,d<mark>f</mark>,dt
real s<mark>f</mark><mark>f</mark>t
integer nsave ...
www.eeworm.com/read/305566/3773264
f vm.f
subroutine vr22vi2(vr2,vi2,ntau)
real vr2(ntau),vi2(ntau)
integer ntau,i
vi2(1) = vr2(1)
do i=2,ntau
vi2(i) = i*vr2(i)-(i-1)*vr2(i-1)
end do
return
end
subroutine vi22vq4(vi2,vq4,ntau)
www.eeworm.com/read/305566/3773271
f hz.f
real hz(201,51)
dy = 100
dx = 20
yo = 2500
xo = 2000
nx = 201
ny = 51
do iy=1,ny
y = (iy-1)*dy
do ix=1,nx
x = (ix-1)*dx
dd = (x-xo)**2 + (y-yo)**2
dd = dd/(2000*20