代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183623/9147373
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/183623/9147386
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/183623/9147397
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/376037/9335420
for hello.for
PROGRAM MAIN
IMPLICIT NONE
WRITE(*,*) "Hello"
STOP
END
www.eeworm.com/read/376037/9335422
f90 hello.f90
program main
implicit none
print *,"Hello"
stop
end program main
www.eeworm.com/read/376037/9335632
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/376037/9335754
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/376037/9335762
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/376037/9335766
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/376037/9335779
f90 ex0840s.f90
subroutine sub()
implicit none
write(*,*) "Hello."
return
end subroutine