代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/190666/5176120
f 5122.f
CHARACTER*20 PARTD(6)
INTEGER*2 L
DATA (PARTD(L),L=1,6)/'A','B','C','D','E','F'/
IF ( PARTD(1) .NE. 'A' .OR. PARTD(2) .NE. 'B'
, .OR. PARTD(3) .NE. 'C' .OR. PARTD(4)
www.eeworm.com/read/190666/5176125
f erfc.f
c============================================== test.f
real x, y
real*8 x1, y1
x=0.
y = erfc(x)
if (y .ne. 1.) call abort
x=1.1
y = erfc(x)
if (abs(y - .1197949) .ge. 1.
www.eeworm.com/read/190666/5176147
f 20001201.f
LOGICAL TF(5)
CHARACTER*60 LINE
NAMELIST /LIST/ TF,TT,FF,XYZ
DATA TF /5*.FALSE./
DATA LINE /'&LIST,TF=.T.,.F.,.T.,FF=33.,TT=23.,XYZ=-1234.55,/'/
OPEN(1,STATUS='SCRA
www.eeworm.com/read/190666/5176149
f claus.f
PROGRAM TEST
REAL AB(3)
do i=1,3
AB(i)=i
enddo
k=1
n=2
ind=k-n+2
if (ind /= 1) call abort
if (ab(ind) /= 1) call abort
if (k-n+2 /=
www.eeworm.com/read/190666/5176162
f 20010115.f
* GNATS PR Fortran/1636
PRINT 42, 'HELLO'
42 FORMAT(A)
CALL WORLD
END
SUBROUTINE WORLD
PRINT 42, 'WORLD'
42 FORMAT(A)
END
www.eeworm.com/read/190666/5176165
f 20000518.f
SUBROUTINE SORG2R( K, A, N, LDA )
* ICE in `verify_wide_reg_1', at flow.c:2605 at -O2
* g77 version 2.96 20000515 (experimental) on i686-pc-linux-gnu
*
* Originally derived from LAPACK 3.0 te
www.eeworm.com/read/190666/5176175
f 20010426.f
function f(c)
implicit none
real*8 c, f
f = sqrt(c)
return
end
www.eeworm.com/read/185765/5235390
java f.java
// Decompiled by DJ v3.9.9.91 Copyright 2005 Atanas Neshkov Date: 12/6/2006 9:55:35 AM
// Home Page : http://members.fortunecity.com/neshkov/dj.html - Check often for new version!
// Decompiler op