代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335283
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/376037/9335284
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/376037/9335285
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/376037/9335288
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/376037/9335289
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/376037/9335293
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,
www.eeworm.com/read/376037/9335297
f90 inverse.f90
module LinearAlgebra
implicit none
contains
! 求逆矩阵
subroutine inverse(A,IA)
implicit none
real :: A(:,:), IA(:,:)
real, allocatable :: B(:,:)
integer :: i,j,N
N = size(A,1)
www.eeworm.com/read/376037/9335308
f90 ex0705.f90
program ex0705
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: matrix(row, col, 3)
integer m ! 用来指定第几个矩阵
integer r ! 用来指定row
integer c ! 用来指定col
www.eeworm.com/read/376037/9335309
f90 ex0709.f90
program ex0709
implicit none
integer, parameter :: row = 2
integer, parameter :: col = 2
integer :: a(2,2)=(/ 1,2,3,4 /)
! a(1,1)=1, a(2,1)=2, a(1,2)=3, a(2,2)=4
integer :: b(4)=(/ 5,6
www.eeworm.com/read/376037/9335310
f90 ex0701.f90
program ex0701
implicit none
integer, parameter :: students = 5
integer :: student(students)
integer i
do i=1, students
write(*,"('Number ',I2)") i
read(*,*) student(i)
end