代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183626/9147117
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/183626/9147121
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/183626/9147127
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/183626/9147134
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/183626/9147136
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/183626/9147141
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/183626/9147143
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/183626/9147157
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/183626/9147175
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/183626/9147178
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