代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/183624/9147295
f90 ex0613.f90
program ex0613
implicit none
integer i
integer strlen
integer, parameter :: key = 2
character(len=20) :: string
write(*,*) "Encoded string:"
read(*,*) string
strlen = len_trim(
www.eeworm.com/read/183624/9147322
f90 ex0612.f90
program ex0612
implicit none
integer i
integer strlen
integer, parameter :: key = 2
character(len=20) :: string
write(*,*) "String:"
read(*,*) string
strlen = len_trim(string)
www.eeworm.com/read/183622/9147466
f90 ex0433.f90
program ex0433
implicit none
integer :: a=1
real :: b=2
real :: c
c=a ! 整数赋值给浮点数的操作会自动转换
write(*,"(F5.2)") c
c=a/b ! 因为除数跟被除数类型不同, 计算的结果会以浮点数来表示.
write(*,"(F5.2)") c
end
www.eeworm.com/read/380356/9151854
f90 gauss2.f90
! 三带宽矩阵求解
! By Perng 1997/9/2
program main
implicit none
integer, parameter :: Width=3
integer, parameter :: Row=5 ! Size of Matrix
real :: A(Row,Width)=(/0,2,3,4,1,&
www.eeworm.com/read/182789/9191222
txt rfc1155-smi.txt
RFC1155-SMI DEFINITIONS ::= BEGIN
EXPORTS -- EVERYTHING
internet, directory, mgmt,
experimental, private, enterprises,
OBJECT-TYPE, ObjectName, ObjectSyntax, SimpleSyntax
www.eeworm.com/read/378188/9242263
f argy.f
Subroutine argy( a, b, n, y )
! ----------------------------------------------------------------------
! --- n random numbers in interval (a,b) are stored in array y
! not sorted.
! ------
www.eeworm.com/read/378188/9242366
f checkreg.f
Subroutine checkreg( n1, n2, n3, a, b, x, maxdf, mindf )
! ----------------------------------------------------------------------
Use numerics
Implicit None
Integer ::
www.eeworm.com/read/378188/9242390
f ranfil.f
Subroutine ranfil( a, n )
! ----------------------------------------------------------------------
Use numerics
Implicit None
Integer :: n
Real(l_) :: a(n)
www.eeworm.com/read/378188/9242398
f nrm2.f
Function nrm2( n, x ) Result( sum )
! ---------------------------------------------------------------------
Use numerics
Use floptime
www.eeworm.com/read/378188/9242402
f rinit.f
Subroutine rinit
! ----------------------------------------------------------------------
Use numerics
Use ran_module
Implicit None
Integer :: i
! --