代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854228
f90 hello.f90
program main
implicit none
print *,"Hello"
stop
end program main
www.eeworm.com/read/258562/11854639
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/258562/11854822
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/258562/11854834
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/258562/11854839
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/258562/11854855
f90 ex0840s.f90
subroutine sub()
implicit none
write(*,*) "Hello."
return
end subroutine
www.eeworm.com/read/258562/11854929
for ex0842s.for
SUBROUTINE SUB()
IMPLICIT NONE
WRITE(*,*) "This is subroutine"
RETURN
END
www.eeworm.com/read/221870/14716646
f90 ex1205f.f90
subroutine sub(a)
implicit none
integer :: a
write(*,*) a
return
end subroutine
www.eeworm.com/read/221868/14716709
for hello.for
PROGRAM MAIN
IMPLICIT NONE
WRITE(*,*) "Hello"
STOP
END
www.eeworm.com/read/221868/14716711
f90 hello.f90
program main
implicit none
print *,"Hello"
stop
end program main