代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716948
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/221868/14716950
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/221868/14716958
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
www.eeworm.com/read/221868/14716971
f90 ex0814.f90
program ex0814
implicit none
real a,b
common a,b ! 把浮点数a,b放在全局变量中
a = 1.0
b = 2.0
call ShowCommon()
stop
end
subroutine ShowCommon()
implicit none
real a(2)
common a ! 把数
www.eeworm.com/read/221868/14716972
f90 ex0818.f90
program ex0818
implicit none
character(len=20) :: str="Hello, Fortran 95."
call ShowString( str )
call ShowString( str(8:) )
stop
end
subroutine ShowString( str )
implicit none
www.eeworm.com/read/221868/14716974
f90 ex0838.f90
program ex0838
implicit none
call sub()
call mid()
stop
end
subroutine sub()
implicit none
write(*,*) "Hello."
entry mid()
write(*,*) "Good morning."
return
en
www.eeworm.com/read/221868/14716978
f90 ex0835.f90
module global
implicit none
integer, save :: a
end module
program ex0835
use global
implicit none
a = 10
call sub()
write(*,*) a
stop
end
subroutine sub()
use global
www.eeworm.com/read/221868/14716982
f90 ex0804.f90
program ex0804
implicit none
integer :: a = 1
integer :: b = 2
call add(a,b) ! 把变量a及b交给子程序add来处理
stop
end
subroutine add(first, second)
implicit none
integer :: first, second !
www.eeworm.com/read/221868/14716983
f90 ex0841.f90
program ex0841
implicit none
include 'ex0841.inc' ! 插入ex0841.inc的内容
a=1
b=2
call sub()
stop
end
subroutine sub()
implicit none
include 'ex0841.inc' ! 插入ex0841.inc的内容
www.eeworm.com/read/221868/14716987
f90 ex0826.f90
program ex0826
implicit none
interface
subroutine sub(a,b) ! 定义子程式sub的接口
implicit none
integer :: a
integer, optional :: b
end subroutine sub
end interface
call