代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183626/9147101
f90 ex0817.f90
program ex0817
implicit none
integer, parameter :: size = 5
integer :: s = size
integer :: a(size) = (/ 1,2,3,4,5 /)
call UseArray1(a,size) ! 把常数size传入做数组大小
call UseArray1(a,s) ! 把一
www.eeworm.com/read/183626/9147115
f90 gdemo2.f90
program gdemo2
use TextGraphLib
implicit none
call SetScreen( 20, 20 )
call SetCurrentChar('o') ! 改用o来作为填充字符
call DrawCircle( 8, 4 , 3, 4) ! 画圆
call SetCurrentChar('#')
www.eeworm.com/read/183626/9147130
f90 ex0837.f90
module constant
implicit none
real, parameter :: PI = 3.14159
real, parameter :: G = 9.81
end module
module typedef
implicit none
type player
real :: angle
real :: speed
www.eeworm.com/read/183626/9147138
f90 ex0842m.f90
program ex0842m
implicit none
call sub()
stop
end
www.eeworm.com/read/183626/9147146
f90 ex0816.f90
program ex0816
implicit none
integer :: a(5) = (/ 1,2,3,4,5 /)
call ShowOne(a) ! 传入a, 也就是传入数组a第1个元素的内存地址
call ShowArray5(a)
call ShowArray3(a)
call ShowArray3( a(2) ) ! 传入a(2), 也
www.eeworm.com/read/183626/9147150
f90 ex0803.f90
program ex0803
implicit none
integer :: a = 1
call sub1()
write(*,"('a =',I2)") a
stop
end program ex0803
subroutine sub1()
implicit none
integer :: a=2
write(*,"('a =',I
www.eeworm.com/read/183626/9147153
f90 ex0840m.f90
program ex0840m
implicit none
call sub()
stop
end
include 'ex0840s.f90'
www.eeworm.com/read/183626/9147166
f90 ex0810.f90
program ex0810
implicit none
integer :: a,b
common a,b ! 定义a,b是全局变量中的第1及第2个变量
a=1
b=2
call ShowCommon()
stop
end
subroutine ShowCommon()
implicit none
integer :: num1, num2
www.eeworm.com/read/183626/9147202
for ex0842m.for
PROGRAM ex0842m
IMPLICIT NONE
CALL SUB()
STOP
END
www.eeworm.com/read/183624/9147281
f90 ex0607.f90
program ex0607
implicit none
real, parameter :: weight=45.0
real, parameter :: error=0.0001
real :: guess = 0.0
do while( .true. )
write(*,*) "weight:"
read(*,*) guess
i