代码搜索：F
找到约 10,000 项符合「F」的源代码
代码结果 10,000
www.eeworm.com/read/440906/1778417
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/440906/1778418
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/440906/1778419
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/440906/1778420
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/440906/1778426
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/440906/1778428
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/440906/1778434
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/440906/1778436
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/440906/1778450
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