代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242565
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/208614/15242568
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/208614/15242569
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/208614/15242570
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/208614/15242571
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
www.eeworm.com/read/208614/15242576
f90 ex0832.f90
program ex0832
implicit none
integer, external :: func
write(*,*) func(2,3)
end program
pure integer function func(a,b)
implicit none
integer, intent(in) :: a,b
func = a+b
re
www.eeworm.com/read/208614/15242578
f90 ex0823.f90
program ex0823
implicit none
integer :: a=4
integer b
call div(a,b)
write(*,*) a,b
stop
end program
subroutine div(a,b)
implicit none
integer, intent(in) :: a ! 指定a是只读
www.eeworm.com/read/208614/15242583
f90 ex0436.f90
program ex0436
implicit none
real(kind=4) :: a
real(kind=8) :: b
a=1.0_4 ! 确定1.0这个数字是使用单精度
b=1.0_8 ! 确定1.0这个数字是使用双精度
write(*,*) a,b
stop
end
www.eeworm.com/read/208614/15242588
f90 ex0429.f90
program ex0429
implicit none
real pi
parameter(pi=3.14159)
write(*,"(F4.2)") sin(pi/6)
end
www.eeworm.com/read/208614/15242591
f90 ex0432.f90
program ex0432
implicit none
integer :: a=1
integer :: b=2
real :: c
c=real(a)/real(b) ! 经由库函数real把整数转换成浮点数
write(*,"(F5.2)") c
end