代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/240162/4583476
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/240162/4583480
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/240162/4583481
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/240162/4583484
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/240162/4583485
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/240162/4583486
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
www.eeworm.com/read/240162/4583487
f 20010430.f
REAL DAT(2,5)
DO I = 1, 5
DAT(1,I) = I*1.6356-NINT(I*1.6356)
DAT(2,I) = I
ENDDO
DO I = 1, 4
DO J = I+1, 5
IF (DAT(1,J) - DAT(1,I) .LT. 0.
www.eeworm.com/read/240162/4583493
f 1832.f
character*120 file
character*5 string
file = "c:/dos/adir/bdir/cdir/text.doc"
write(string, *) "a ", file
if (string .ne. ' a') call abort
C-- The leading space is norm
www.eeworm.com/read/240162/4583495
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)