代码搜索:implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
www.eeworm.com/read/407116/11429194

f90 e_321_02.f90

implicit none integer :: i,n real :: y=0, term read *, n do i=1,n term=1./(i*(i+1)) y=y+term if(abs(term)
www.eeworm.com/read/258562/11853951

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/258562/11853964

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/258562/11853988

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)/
www.eeworm.com/read/258562/11853991

f90 newton.f90

module NUMERICAL implicit none real, parameter :: zero=0.00001 ! 小于zero的值会被当成0 contains ! 割线法的函数 real function newton(a,f,df) implicit none real :: a ! 起始的猜值 real, external :: f
www.eeworm.com/read/258562/11853995

f90 determinant.f90

module LinearAlgebra implicit none contains ! 求矩阵的Determinant值 real function Determinant(matrix) real :: matrix(:,:) real, allocatable :: ma(:,:) integer :: i,N N = size(matrix,1)
www.eeworm.com/read/258562/11853999

f90 bisect.f90

! 二分法求解 ! By Pon 1997/9/2 module NUMERICAL implicit none real, parameter :: zero = 0.00001 contains real function bisect( A, B, func ) implicit none real A,B ! 输入的猜值 real C ! 用来算
www.eeworm.com/read/258562/11854004

f90 secant.f90

module NUMERICAL implicit none real, parameter :: zero=0.00001 ! 小于zero的值会被当成0 contains ! 割线法的函数 real function secant(a,b,f) implicit none real :: a,b ! 起始的两个猜值 real :: c ! 新的解
www.eeworm.com/read/258562/11854005

f90 least_square.f90

module datas implicit none integer, parameter :: N=5 real :: temperature(N) = (/5.0,10.0,15.0,20.0,25.0/) ! 记录温度 real :: length(N) = (/1.047,1.112,1.1152,1.191,1.252/)! 记录不同温度下的长度 real
www.eeworm.com/read/258562/11854014

f90 upperlower.f90

module LinearAlgebra implicit none contains ! 输出矩阵的子程序 subroutine output(matrix) implicit none integer :: m,n real :: matrix(:,:) integer :: i character(len=20) :: for='(??(1x,