代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/227241/14436203
jsf fortran.jsf
# JOE syntax highlight file for FORTRAN
# Heavily improved by: Malte Thoma (thoma@uni-muenster.de)
# Bugs:
# in: 4. eq. -- does not recognize the .eq.
# needs more intrinsics.
=Idle
=Comment
www.eeworm.com/read/227241/14436303
in fortran.jsf.in
# JOE syntax highlight file for FORTRAN
# Heavily improved by: Malte Thoma (thoma@uni-muenster.de)
# Bugs:
# in: 4. eq. -- does not recognize the .eq.
# needs more intrinsics.
=Idle
=Comment
www.eeworm.com/read/125390/14495937
err ethernet.err
"ethernet.c", line 120: Warning: implicit cast (to 'short') overflow
"ethernet.c", line 270: Warning: variable 'data' declared but not used
ethernet.c: 2 warnings, 0 errors, 0 serious errors
www.eeworm.com/read/123754/14613882
for usere_eigensn.for
!For User
! to prescribe hydrostatic EIGENSTRAIN for each body
! eij=e0*dij
!It may be a function of loading step.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!
www.eeworm.com/read/221870/14716501
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/221870/14716505
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/221870/14716508
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/221870/14716511
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/221870/14716521
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/221870/14716525
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