代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335328
f90 ex0713.f90
program ex0713
implicit none
integer i
integer :: a(5)
forall(i=1:5)
a(i)=5
end forall
! a(1)=a(2)=a(3)=a(4)=a(5)=5
write(*,*) a
forall(i=1:5)
a(i)=i
end forall
www.eeworm.com/read/376037/9335355
f90 sgldemo1.f90
program main
use sgl
implicit none
external display ! 声明display是个函数
! 设定当窗口需要重绘时,会调用子程序display
call sglDisplaySub(display)
! 打开窗口, 窗口左上角为(100,100), 长宽同为500
call sglCreateWindow(
www.eeworm.com/read/376037/9335377
f90 utility.f90
module UTILITY
implicit none
contains
! 把value限制到min到max之间
subroutine Bound(min,max,value)
integer min,max,value
if ( valuemax ) value=max
end subrout
www.eeworm.com/read/376037/9335385
f90 main.f90
program main
use GAME
implicit none
call sglDisplaySub(display)
call sglKeyDownSub(keydown)
call sglIdleSub(OnIdle)
call Init()
call sglCreateWindow(50,50,SX,SY,1)
call sgl
www.eeworm.com/read/376037/9335418
f90 main.f90
program main
use GAME
implicit none
call sglDisplaySub(display)
call sglMouseMoveSub(MouseMove)
call sglEnableReshape(0)
call sglCreateWindow(50,50,SX,SY,1)
call InitGame()
c
www.eeworm.com/read/376037/9335423
f90 ex0601.f90
program ex0601
implicit none
integer counter
integer, parameter :: lines=10
! counter
www.eeworm.com/read/376037/9335424
f90 ex0608.f90
program ex0608
implicit none
integer :: i,j
outter: do i=1,3
inner: do j=1,3
write(*, "('(',i2,',',i2,')')" ) i,j
end do inner
end do outter
stop
end
www.eeworm.com/read/376037/9335427
f90 ex0606.f90
program ex0606
implicit none
integer :: dest = 9
integer floor
do floor=1, dest
if ( floor==4 ) cycle
write(*,*) floor
end do
stop
end
www.eeworm.com/read/376037/9335432
f90 ex0603.f90
program ex0603
implicit none
integer i,j
do i=1, 3
do j=1, 3
write(*, "(I2,I2)") i,j
end do
write(*,*) "another circle"
end do
stop
end
www.eeworm.com/read/376037/9335434
f90 ex0602.f90
program ex0602
implicit none
integer, parameter :: limit=10 ! 计数器的上限
integer counter ! 计数器
integer :: ans = 0 ! 拿来累加使用
do counter=2, limit ,2
ans = ans + counter
end do