代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716870
f90 ex0512.f90
program ex0512
implicit none
integer score
character grade
write(*,*) "Score:"
read(*,*) score
select case(score)
case(90:100) ! 90到100分之间
grade='A'
case(80:89) ! 80到89
www.eeworm.com/read/221868/14716880
f90 ex0504.f90
program ex0504
implicit none
integer rain, windspeed
logical r,w
write(*,*) "Rain:"
read(*,*) rain
write(*,*) "Wind:"
read(*,*) windspeed
r = (rain>=500) ! 如果rain>=150, r
www.eeworm.com/read/221868/14716889
f90 ex0503.f90
program ex0503
implicit none
integer rain, windspeed
write(*,*) "Rain:"
read(*,*) rain
write(*,*) "Wind:"
read(*,*) windspeed
if ( rain>=500 .or. windspeed >=10 ) then
writ
www.eeworm.com/read/221868/14716896
f90 ex0501.f90
program ex0501
implicit none
real(kind=4) :: speed
write(*,*) "speed:"
read(*,*) speed
if ( speed > 100.0 ) then
! speed > 100 时才会执行下面这一行程序
write(*,*) "Slow down."
end if
www.eeworm.com/read/221868/14716923
f90 ex0820.f90
program ex0820
implicit none
call sub()
call sub()
call sub()
stop
end program
subroutine sub()
implicit none
integer :: count = 1
save count ! 指定count变量会永远活着, 不会忘记它的
www.eeworm.com/read/221868/14716929
f90 ex0801.f90
program ex0801
implicit none
call message() ! 调用子程序message
call message()
stop
end
! 子程序message
subroutine message()
implicit none
write(*,*) "Hello."
return
end
www.eeworm.com/read/221868/14716931
f90 ex0833.f90
program ex0833
implicit none
interface ! 说明函数func的使用接口
elemental real function func(num)
implicit none
real, intent(in) :: num
end function
end interface
integer i
re
www.eeworm.com/read/221868/14716936
for ex0830.for
PROGRAM ex0830
IMPLICIT NONE
INTEGER N
INTEGER fact
WRITE(*,*) 'N='
READ (*,*) n
WRITE(*, "(I2,'! = ',I8)" ) n, fact(n)
STOP
END
INTEGER FUNCTION ifact(n)
IMPLICIT NONE
www.eeworm.com/read/221868/14716942
f90 ex0805.f90
program ex0805
implicit none
integer :: a = 1
integer :: b = 2
write(*,*) a,b
call add(a)
call add(b)
write(*,*) a,b
stop
end
subroutine add(num)
implicit none
integer :
www.eeworm.com/read/221868/14716944
f90 ex0815.f90
program ex0815
implicit none
real :: a=1.0
call ShowInteger(a)
call ShowReal(a)
stop
end
subroutine ShowInteger(num)
implicit none
integer :: num
write(*,*) num
return
end