代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/305566/3773305
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/3773320
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
www.eeworm.com/read/305566/3773321
f test.f
real dz, dzo
real fz, fzo
real zi
integer nz, nzo
fz = 0.
fzo = 0.
dz = 50.
dzo = 5.
nz = 50
nzo = 590
do i=1,nzo
zi = (fzo+(i-1)*dzo-fz)/dz+1.0
iz = aint(zi)
write(*,*) 'i=',i,'iz=
www.eeworm.com/read/303435/3813285
f vzestsubf.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
subroutine forsub(iflag, nbufmax, buf)
implicit none
integer iflag
integer nbufmax
real
www.eeworm.com/read/303435/3813447
f graphsubs.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
subroutine initgraph()
*
* initializes graphics operations
*
return
end
subroutine endgraph()
*
* ends graphics operations
www.eeworm.com/read/303435/3813448
f trisubs.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
*****************************************************************
* *
* Trisubs: Routines for TRISO *
* *
* Au
www.eeworm.com/read/303435/3813451
f getparms.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
subroutine getarray()
*
*
* reads array parameters
*
* OUTPUT VARIABLES:
*
* block "array" source-receiver par
www.eeworm.com/read/303435/3813460
f gplib.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
* These routines are from the gplib library as revised by K. Araya
* and Sebastien Geoltrain
*
* We went in and quickly trapped
www.eeworm.com/read/303435/3813461
f triso.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
*********************************************************
* *
* TRISO: Ray Tracing over Tabular Transversely *
* I
www.eeworm.com/read/303435/3813588
f fftpack.f
* Copyright (c) Colorado School of Mines, 2006.
* All rights reserved.
**
* Center for Wave Phenomena:
* $Revision: 1.1 $ $Date: 1997/01/28 19:53:49 $
* $Source: /usr/local/cwp/src/prop/released/Cla