代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335824
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/376037/9335827
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/376037/9335833
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/376037/9335835
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/376037/9335836
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/376037/9335839
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
www.eeworm.com/read/376037/9335845
f90 ex0825.f90
program ex0825
implicit none
interface ! 定义函数func的接口
function random10(lbound, ubound)
implicit none
real :: lbound, ubound
real :: random10(10) ! 传回值是个数组
end function
end interfac
www.eeworm.com/read/376037/9335847
f90 ex0813.f90
program ex0813
implicit none
real a
common a ! 把浮点数a放在全局变量中
a = 1.0
call ShowCommon()
stop
end
subroutine ShowCommon()
implicit none
integer a
common a ! 把整数a放在全局变量中
writ
www.eeworm.com/read/376037/9335850
f90 ex0808.f90
program ex0808
implicit none
real :: a = 1
real :: b
real add
add(a,b) = a+b ! 直接把函数写在里面
write(*,*) add(a,3.0)
stop
end
www.eeworm.com/read/376037/9335852
f90 ex0829.f90
program ex0829
implicit none
integer :: n
integer, external :: fact
write(*,*) 'N='
read(*,*) n
write(*, "(I2,'! = ',I8)" ) n, fact(n)
stop
end
recursive integer function fac