代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335829
for ex0842s.for
SUBROUTINE SUB()
IMPLICIT NONE
WRITE(*,*) "This is subroutine"
RETURN
END
www.eeworm.com/read/360544/10088603
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/360542/10088662
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/360542/10088675
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/360542/10088682
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/358842/10178038
f90 ans0501.f90
program main
implicit none
integer money
real tax
write(*,*) "请输入月收入"
read(*,*) money
if ( money
www.eeworm.com/read/312691/13606231
for hello.for
PROGRAM MAIN
IMPLICIT NONE
WRITE(*,*) "Hello"
STOP
END
www.eeworm.com/read/312691/13606234
f90 hello.f90
program main
implicit none
write(*,*) "Hello"
stop
end program main
www.eeworm.com/read/152695/5669670
mk cl16.mk
#############################################################################
#
# SciTech Multi-platform Graphics Library
#
# =================================================================