代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183623/9147382
f90 ex0501.f90
program ex0501
implicit none
real(kind=4) :: speed
write(*,*) "speed:"
read(*,*) speed
if ( speed > 100.0 ) then
! speed > 100 时才会执行下面这一行程序
write(*,*) "Slow down."
end if
www.eeworm.com/read/183622/9147418
f90 ex0436.f90
program ex0436
implicit none
real(kind=4) :: a
real(kind=8) :: b
a=1.0_4 ! 确定1.0这个数字是使用单精度
b=1.0_8 ! 确定1.0这个数字是使用双精度
write(*,*) a,b
stop
end
www.eeworm.com/read/183622/9147431
f90 ex0429.f90
program ex0429
implicit none
real pi
parameter(pi=3.14159)
write(*,"(F4.2)") sin(pi/6)
end
www.eeworm.com/read/183622/9147438
f90 ex0432.f90
program ex0432
implicit none
integer :: a=1
integer :: b=2
real :: c
c=real(a)/real(b) ! 经由库函数real把整数转换成浮点数
write(*,"(F5.2)") c
end
www.eeworm.com/read/183622/9147482
for ex0430.for
PROGRAM ex0430
IMPLICIT NONE
INTEGER A
REAL B
COMPLEX C
CHARACTER*(20) STR
DATA A,B,C,STR /1, 2.0, (1.0,2.0), 'FORTRAN 77'/
WRITE(*,*) A,B,C,STR
STOP
END
www.eeworm.com/read/183622/9147492
f90 ex0431.f90
program ex0431
implicit none
integer :: a=1
integer :: b=2
real :: c
c=a/b
! c=1/2=0, 虽然c是浮点数,但因为a,b是整数,计算a/b时会用整数去计算.
write(*,"(F5.2)") c
end
www.eeworm.com/read/380358/9151844
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/182789/9191259
txt snmpv2-smi.txt
SNMPv2-SMI DEFINITIONS ::= BEGIN
-- the path to the root
org OBJECT IDENTIFIER ::= { iso 3 } -- "iso" = 1
dod OBJECT IDENTIFIER ::= { org 6 }
internet OBJECT IDEN
www.eeworm.com/read/378383/9233152
m cgsolve.m
% cgsolve.m
%
% Solve a symmetric positive definite system Ax = b via conjugate gradients.
%
% Usage: [x, res, iter] = cgsolve(A, b, tol, maxiter, verbose)
%
% A - Either an NxN matrix, or a function
www.eeworm.com/read/378188/9242265
f argx.f
Subroutine argx( a, b, n, x )
! ----------------------------------------------------------------------
! --- n random numbers in interval (a,b) are stored in array x
! in ascending order.
!