代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854883
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/258562/11854888
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/258562/11854891
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/258562/11854901
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/344877/11854909
f90 bri_tem_nonsnow.f90
subroutine BRI_TEM_NONSNOW(Ang,Fre,Co_deg,Co_len,Sv,Cv,Fv,&
Dz,Tss,Wliq,Wice,Tve,SinScaAlb,b,Lai,Tb)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
www.eeworm.com/read/258562/11854918
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/258562/11854922
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/258562/11854925
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/258562/11854934
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/258562/11854943
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 !