代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/474238/1394977
c f.c
/*
* (c) Copyright 1993, Silicon Graphics, Inc.
* ALL RIGHTS RESERVED
* Permission to use, copy, modify, and distribute this software for
* any purpose and without fee is hereby granted, provide
www.eeworm.com/read/472355/1411289
lua ¿f++.lua
CreateCha(186, 125893, 302956, 145, 60)
CreateCha(186, 126482, 302466, 145, 60)
CreateCha(186, 126719, 302096, 145, 60)
CreateCha(186, 129134, 301664, 145, 60)
CreateCha(186, 129515, 301425, 145,
www.eeworm.com/read/470720/1448322
f 20010610.f
DO I = 0, 255
IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
ENDDO
END
www.eeworm.com/read/470720/1448327
f le.f
program fool
real foo
integer n
logical t
foo = 2.5
n = 5
t = (n > foo)
if (t .neqv. .true.) call abort
t = (n >= foo)
if (t .neqv.
www.eeworm.com/read/470720/1448331
f 947.f
DIMENSION A(-5:5)
INTEGER*1 IM5, IZ, IP5
INTEGER*2 IM1, IP1
PARAMETER (IM5=-5, IM1=-1, IZ=0, IP1=1, IP5=5)
DATA A(IM5) /-5./, A(IM1) /-1./
DATA A(IZ) /0./
DA
www.eeworm.com/read/470720/1448332
f 20001111.f
DOUBLE PRECISION VALUE(2), TOLD, BK
DATA VALUE /0D0, 1D0/
DATA TOLD /0D0/
DO I=1, 2
BK = VALUE(I)
IF(BK .GT. TOLD) GOTO 10
ENDDO
WRITE(*,*)'Error:
www.eeworm.com/read/470720/1448335
f cpp.f
! Some versions of cpp will delete "//'World' as a C++ comment.
character*40 title
title = 'Hello '//'World'
if (title .ne. 'Hello World') call abort
end
www.eeworm.com/read/470720/1448336
f cabs.f
program cabs_1
complex z0
real r0
complex*16 z1
real*8 r1
z0 = cmplx(3.,4.)
r0 = cabs(z0)
if (r0 .ne. 5.) call abort
z1 = d
www.eeworm.com/read/470720/1448337
f dcomplex.f
program foo
complex*16 z0, z1, z2
z0 = dcmplx(0.,.5)
z1 = 1./z0
if (z1 .ne. dcmplx(0.,-2)) call abort
z0 = 10.*z0
if (z0 .ne. dcmplx(0.,5.)) call abort