代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11339053
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/409260/11339055
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
real
www.eeworm.com/read/409260/11339061
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/409260/11339064
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/409260/11339072
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/407616/11413475
f90 e_121_03.f90
PROGRAM Radioactive_Decay
!--------------------------------------------------------
! 给定放射性元素的初量值和半衰期，计算一定时间后的剩余量
! 变量名：
! InitialAmount : 放射性元素的初量值(mg)
! RemainingAmount : 放射性
www.eeworm.com/read/407116/11429215
f90 e_121_03.f90
PROGRAM Radioactive_Decay
!--------------------------------------------------------
! 给定放射性元素的初量值和半衰期，计算一定时间后的剩余量
! 变量名：
! InitialAmount : 放射性元素的初量值(mg)
! RemainingAmount : 放射性
www.eeworm.com/read/258562/11853983
f90 quick_sort.f90
! 快速排序法范例
! By Perng 1997/8/30
program QuickSort_Demo
implicit none
integer, parameter :: N=10
real :: B(N)
integer :: A(N)
! 用随机数来产生数列
call random_seed()
call random_number(B
www.eeworm.com/read/258562/11854152
f90 sglimg2.f90
module sgl_util
use sgl
implicit none
integer(1), save :: buffer(3*512*512)
integer(4), save :: buffer4(3*512*512/4)
equivalence(buffer,buffer4)
contains
subroutine display()
c
www.eeworm.com/read/258562/11854159
f90 sglimg.f90
module sgl_util
use sgl
implicit none
integer(1), save :: buffer(3*512*512)
integer(4), save :: buffer4(3*512*512/4)
equivalence(buffer,buffer4)
contains
subroutine display()
c