代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/240162/4583501
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/240162/4583503
f 6367.f
program testnl
character*80 line
dimension a(10),b(10)
namelist /nl/ a
data a / 10 * 0.0 /
data b / 0., 1., 1., 1., 2., 2., 3., 3., 3., 0. /
data lin
www.eeworm.com/read/240162/4583518
f 10197.f
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FO
www.eeworm.com/read/240162/4583527
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/240162/4583529
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/240162/4583536
f 9263.f
PARAMETER (Q=1)
PARAMETER (P=10)
INTEGER C(10),D(10),E(10),F(10)
DATA (C(I),I=1,P) /10*10/ ! TERMINAL NOT INTEGER
DATA (D(I),I=Q,10) /10*10/ ! START NOT INTEGE
www.eeworm.com/read/240162/4583544
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/240162/4583547
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/240162/4583554
f 13060.f
subroutine geo2()
implicit none
integer ms,n,ne(2)
ne(1) = 1
ne(2) = 2
ms = 1
call call_me(ne(1)*ne(1))
n = ne(ms)
end