代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/101082/6248231
c rtprot.c
#ifndef lint
static char *sccsid = "@(#)rtprot.c 4.1 (ULTRIX) 7/2/90";
#endif lint
/************************************************************************
*
www.eeworm.com/read/101082/6248246
c arwcid.c
#ifndef lint
static char *sccsid = "@(#)arwcid.c 4.1 (ULTRIX) 7/2/90";
#endif lint
/************************************************************************
*
www.eeworm.com/read/477762/6733850
f materials.f
subroutine dielectric(w)
implicit none
real*8 w
integer nsurf
complex*16 eps(10,2),eps1,eps2
common/diel/eps
common/surf/nsurf
eps(1,1)=(1.d0,0.d0)
eps(1,2)=eps1(w)
eps(2,1)=eps2(w)
eps(2,2
www.eeworm.com/read/476406/6760829
for hello.for
PROGRAM MAIN
IMPLICIT NONE
WRITE(*,*) "Hello"
STOP
END
www.eeworm.com/read/476406/6760830
f90 hello.f90
program main
implicit none
print *,"Hello"
stop
end program main
www.eeworm.com/read/476406/6760959
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/476406/6761031
f90 ex0506.f90
program ex0506
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
if ( score>100 ) then
grade='?'
else if ( score>=90 ) then ! 会执行到此, 代表scor
www.eeworm.com/read/476406/6761035
f90 ex0507.f90
program ex0507
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
if ( score>=90 .and. score=80 .and. score
www.eeworm.com/read/476406/6761037
f90 ex0508.f90
program ex0508
implicit none
real x,y
integer ans
write(*,*) "Input (x,y)"
read(*,*) x,y
if ( x>0 ) then
if ( y>0 ) then ! x>0,y>0
ans=1
else if ( y0, y
www.eeworm.com/read/476406/6761044
f90 ex0840s.f90
subroutine sub()
implicit none
write(*,*) "Hello."
return
end subroutine