代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/258562/11854958
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/149989/12326785
acf console_rpc.acf
[implicit_handle (handle_t console_rpc_IfHandle)
] interface console_rpc
{
}
www.eeworm.com/read/123754/14613900
for userh_ekcohes.for
!For User
! to prescribe COHESIVE SPRING STIFFNESS for each group of elements,
! which only applies to elements of crack and interface.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
www.eeworm.com/read/221870/14716549
f90 ex1104.f90
module MA
implicit none
interface show ! 虚拟的函数名称show
module procedure show_int ! 等待选择的函数show_int
module procedure show_character ! 等待选择的函数show_character
end interface
con
www.eeworm.com/read/221868/14716730
f90 ex0609.f90
program ex0609
implicit none
integer :: i,j
loop1: do i=1,3
loop2: do j=1,3
if ( i==3 ) exit loop1 ! 跳离loop1循环
if ( j==2 ) cycle loop2 ! 重做loop2循环
write(*, "('
www.eeworm.com/read/221868/14716769
f90 gendata.f90
program gendata
implicit none
integer students
integer i
real r(5)
write(*,"(6A5)") "座号","中文","英文","数学","自然","社会"
call random_seed()
write(*,*) "How many students?"
read(
www.eeworm.com/read/221868/14716940
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/221868/14716966
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/221868/14716968
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/221868/14716977
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