代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/378188/9242534
f ranmod.f
Module ran_module
! ----------------------------------------------------------------------
Use numerics
Integer, Parameter :: m1 = 259200, a1 = 7141, c1 = 54773,
www.eeworm.com/read/378188/9242562
f gendat.f
Subroutine gendat( a, n1, n2 )
! ---------------------------------------------------------------------
! --- Routine 'gendat' generates the data to be used in a 2-D Haar
! wavelet transform.
www.eeworm.com/read/378186/9242893
f gendat.f
Subroutine gendat( a, n1, n2 )
! ---------------------------------------------------------------------
! --- Routine 'gendat' generates the data to be used in a 2-D Haar
! wavelet transform.
www.eeworm.com/read/378186/9243094
f ranmod.f
Module ran_module
! ----------------------------------------------------------------------
Use numerics
Integer, Parameter :: m1 = 259200, a1 = 7141, c1 = 54773,
www.eeworm.com/read/376037/9335280
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/376037/9335391
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/376037/9335395
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
www.eeworm.com/read/376037/9335441
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/376037/9335470
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/376037/9335524
f90 gendata.f90
program gendata
implicit none
integer students
integer i
real r(5)
write(*,"(6A5)") "座号","中文","英文","数学","自然","社会"
call random_seed()
write(*,*) "How many students?"
read(