代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/208614/15242505
f90 setcolor.f90
!
! 对话窗的示范之二
! By Perng 1997/09/26
program main
use DFLIB
implicit none
integer :: i,ix,iy
call ClearScreen($GCLEARSCREEN)
do while(.true.)
i = waitonmouseevent(MOUSE$LBUTTONDOWN,
www.eeworm.com/read/208614/15242540
f90 gdemo1.f90
program gdemo1
use TextGraphLib
implicit none
call SetScreen( 10, 10 ) ! 设定分辨率为10x10
call DrawLine( 1, 1, 10, 10 ) ! 在(1,1)到(10,10)这两点间画一条线
call UpdateScreen() ! 显示绘图
www.eeworm.com/read/208614/15242553
f90 ex0809.f90
program ex0809
implicit none
integer, parameter :: players = 5
real :: angle(players) = (/ 30.0, 45.0, 35.0, 50.0, 40.0 /)
real :: speed(players) = (/ 25.0, 20.0, 21.0, 27.0, 22.0 /)
real
www.eeworm.com/read/208614/15242554
f90 ex0836.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/208614/15242559
f90 ex0806.f90
program ex0806
implicit none
integer, parameter :: players = 5
real :: angle(players) = (/ 30.0, 45.0, 35.0, 50.0, 40.0 /)
real :: speed(players) = (/ 25.0, 20.0, 21.0, 27.0, 22.0 /)
real
www.eeworm.com/read/208614/15242561
f90 ex0802.f90
program ex0802
implicit none
call sub1()
call sub2()
stop
end program ex0802
subroutine sub1()
implicit none
write(*,*) "This is sub1"
call sub2()
return
end subroutine sub1
www.eeworm.com/read/208614/15242566
f90 ex0824.f90
program ex0824
implicit none
integer, parameter :: players = 5
real :: angle(players) = (/ 30.0, 45.0, 35.0, 50.0, 40.0 /)
real :: speed(players) = (/ 25.0, 20.0, 21.0, 27.0, 22.0 /)
real
www.eeworm.com/read/205779/15307193
acf console_rpc.acf
[implicit_handle (handle_t console_rpc_IfHandle)
] interface console_rpc
{
}
www.eeworm.com/read/168845/5430021
jamfile
project test
: requirements src1
;
exe a
: x.foo a.cpp a_c.c
;
exe b
: b.cpp
;
# Because of , c.cpp will be compiled to differe
www.eeworm.com/read/166404/5475347
use bug0009.use
model foobar
class foo
attributes
bar_attr : Integer
operations
bar_op() : Integer = bar_attr + 1
constraints
inv OK1 : 0