代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/376037/9335806
f90 ex0803.f90
program ex0803
implicit none
integer :: a = 1
call sub1()
write(*,"('a =',I2)") a
stop
end program ex0803
subroutine sub1()
implicit none
integer :: a=2
write(*,"('a =',I
www.eeworm.com/read/376037/9335808
f90 ex0840m.f90
program ex0840m
implicit none
call sub()
stop
end
include 'ex0840s.f90'
www.eeworm.com/read/376037/9335815
f90 ex0810.f90
program ex0810
implicit none
integer :: a,b
common a,b ! 定义a,b是全局变量中的第1及第2个变量
a=1
b=2
call ShowCommon()
stop
end
subroutine ShowCommon()
implicit none
integer :: num1, num2
www.eeworm.com/read/376037/9335843
for ex0842m.for
PROGRAM ex0842m
IMPLICIT NONE
CALL SUB()
STOP
END
www.eeworm.com/read/376037/9335903
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/362266/10008455
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/360545/10088508
f90 gauss_jordan.f90
module LinearAlgebra
implicit none
contains
! Gauss_Jordan法
subroutine Gauss_Jordan(A,S,ANS)
implicit none
real :: A(:,:)
real :: S(:)
real :: ANS(:)
real, allocatable ::
www.eeworm.com/read/360545/10088509
f90 trape.f90
module INTEGRAL
implicit none
real, parameter :: PI=3.14159
contains
! 产生数列
subroutine GenerateData(datas, width, func)
real datas(:), width
real, external :: func
real r
integer
www.eeworm.com/read/360545/10088510
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/360543/10088631
f90 ex1103.f90
module MA
implicit none
real a,b
contains
subroutine getx()
write(*,"('x=',F5.2)") -b/a
return
end subroutine
end module
module MB
use MA
implicit none
real c
contain