代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/476406/6761034
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/476406/6761043
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/476406/6761046
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/476406/6761047
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/476406/6761049
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/476406/6761052
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/476406/6761053
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
www.eeworm.com/read/476406/6761055
f90 ex0807.f90
program ex0807
implicit none
real :: a=1
real :: b=2
real, external :: add
write(*,*) add(a,b)
stop
end
function add(a,b)
implicit none
real :: a,b ! 传入的参数
real :: add
www.eeworm.com/read/476406/6761056
f90 ex0834.f90
module global
implicit none
integer a,b
common a,b
end module
program ex0834
use global
implicit none
a=1
b=2
call sub()
end program
subroutine sub()
use global
www.eeworm.com/read/476406/6761060
f90 ex0821.f90
program ex0821
implicit none声明func是个自定义函数
real, intrinsic :: sin ! 声明sin是库函数
call ExecFunc(func)
call ExecFunc(sin)
stop
end program
subroutine ExecFunc(f)
implicit none