代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/378188/9242459
f gendat.f
Subroutine gendat( a, b, lda, m, n )
! ----------------------------------------------------------------------
! --- Routine 'gendat' generates matrix 'a' and vector 'b' for the
! matrix-vect
www.eeworm.com/read/378188/9242536
f nrm2.f
Function nrm2( n, x ) Result( sum )
! ---------------------------------------------------------------------
Use numerics
Use floptime
www.eeworm.com/read/378188/9242554
f log2.f
Integer Function log2( n )
! ---------------------------------------------------------------------
Use numerics
Implicit None
Integer
www.eeworm.com/read/378188/9242596
f ranfil.f
Subroutine ranfil( a, n, me, nprocs, x1, x2 )
! ----------------------------------------------------------------------
Use numerics
Implicit None
Integer ::
www.eeworm.com/read/378186/9242885
f log2.f
Integer Function log2( n )
! ---------------------------------------------------------------------
Use numerics
Implicit None
Integer
www.eeworm.com/read/378186/9243027
f gendat.f
Subroutine gendat( a, b, m, n )
! ----------------------------------------------------------------------
! --- Routine 'gendat' generates matrix 'a' and vector 'b' for the
! matrix-vector mu
www.eeworm.com/read/378186/9243096
f nrm2.f
Function nrm2( n, x ) Result( sum )
! ---------------------------------------------------------------------
Use numerics
Use floptime
www.eeworm.com/read/378186/9243207
f log2.f
Integer Function log2( n )
! ---------------------------------------------------------------------
Use numerics
Implicit None
Integer
www.eeworm.com/read/376037/9335257
f90 ssearch.f90
! 顺序查找法范例
! By Perng 1997/8/31
program SEQUENTIAL_SEARCH_DEMO
implicit none
integer, parameter :: N=10
integer :: A(N)=(/6,2,8,4,0,9,3,5,1,7/) ! 存放数据组的类型
integer KEY ! 记录所要找的
www.eeworm.com/read/376037/9335263
f90 shell_sort.f90
! 选择排序法范例
! By Perng 1997/8/29
program SHELL_SORT_DEMO
implicit none
integer, parameter :: N=10
integer :: A(N)=(/6,2,8,4,0,9,3,5,1,7/) ! 排序的数据
write(*,"('Source=>',10I3)") A
call S