代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/378186/9242886
f analhr.f
Subroutine analhr( a, w, n, m )
! ---------------------------------------------------------------------
! --- 'analhr' does a 1-D Haar wavelet analysis on array 'a'.
! --------------------------
www.eeworm.com/read/378186/9242992
f ltrans.f
Subroutine ltrans ( n, m, a, t )
! ----------------------------------------------------
! --- 'ltrans' performs a local transpose. Input array
! is 'a', output array is 't'.
! --------------
www.eeworm.com/read/378186/9243056
f gendat.f
Subroutine gendat( a, b, m, l, n )
Use numerics
Implicit None
Integer :: m, l, n
Real(l_) :: a(m,l), b(l,n), c(m,n)
Integer :: i, j, rowc
! ---------
www.eeworm.com/read/378186/9243083
f fltimod.f
Module floptime
! ---------------------------------------------------------------------
! --- floptime components keep track of flopcounts and execution times
! for the program to be benchma
www.eeworm.com/read/378186/9243100
f dotpr.f
Function dotpr( n, x, y ) Result( sum )
Use numerics
Use floptime
Implicit None
Integer :: n
Real(l_) :: x(n), y(n)
www.eeworm.com/read/378186/9243109
f dcheck.f
Subroutine dcheck( data, num, ok )
! ---------------------------------------------------------------------
! --- 'dcheck' checks sort runs on Real*8 arrays.
! -----------------------------------
www.eeworm.com/read/378186/9243133
f icheck.f
Subroutine icheck( data, num, ok )
! ---------------------------------------------------------------------
! --- 'icheck' checks sort runs on Integer arrays.
! ----------------------------------
www.eeworm.com/read/376037/9335258
f90 bsearch.f90
!
! 折半查找法范例
! By Perng 1997/8/31
program BINARY_SEARCH_DEMO
implicit none
integer, parameter :: N=10 ! 类型的大小
integer :: A(N)=(/2,5,7,9,10,11,13,17,21,23/)
integer KEY
integer LO
www.eeworm.com/read/376037/9335265
f90 btree.f90
!
! 二元树排序范例
!
module typedef
implicit none
type :: data
integer :: n ! 存放的数据
integer :: repeat ! 数据重覆的次数
type(data), pointer :: left ! 左枝
type(data), pointer :: r
www.eeworm.com/read/376037/9335282
f90 bisect0.f90
! 二分法求解
! By Pon 1997/9/2
module NUMERICAL
implicit none
real, parameter :: zero = 0.00001
contains
real function bisect( A, B )
implicit none
real A,B ! 输入的猜值
real C ! 用来算(A+B)/