代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14716952
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/221868/14716954
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/221868/14716956
f90 ex0840m.f90
program ex0840m
implicit none
call sub()
stop
end
include 'ex0840s.f90'
www.eeworm.com/read/221868/14716964
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/221868/14716991
for ex0842m.for
PROGRAM ex0842m
IMPLICIT NONE
CALL SUB()
STOP
END
www.eeworm.com/read/221868/14717055
f90 ex0433.f90
program ex0433
implicit none
integer :: a=1
real :: b=2
real :: c
c=a ! 整数赋值给浮点数的操作会自动转换
write(*,"(F5.2)") c
c=a/b ! 因为除数跟被除数类型不同, 计算的结果会以浮点数来表示.
write(*,"(F5.2)") c
end
www.eeworm.com/read/118993/14845384
asm expimp.asm
;
; Test of explicitly and implicitly sized operands
;
add esi,2 ; Implicit
add esi,123456h ; Implicit
add esi,byte 2 ; Explicit
add esi,dword 2 ; Explicit
add esi,dword 123456h ;
www.eeworm.com/read/216987/14983312
f90 limiter.f90
!------------------------------------------------------------------------------!
! MODULE : LIMITER Auteur : J. Gressier
! Date : Nov 2
www.eeworm.com/read/216987/14983372
f90 deffield.f90
!------------------------------------------------------------------------------!
! MODULE : DEFFIELD Auteur : J. Gressier
! Date : Octob
www.eeworm.com/read/216987/14983377
f90 mgrid.f90
!------------------------------------------------------------------------------!
! MODULE : MGRID Auteur : J. Gressier
! Date : Mars