代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/409260/11339073
for ex0842m.for
PROGRAM ex0842m
IMPLICIT NONE
CALL SUB()
STOP
END
www.eeworm.com/read/409260/11339129
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/263642/11351802
f90 step-rk4.f90
!!!!!!!!!!!!!!!!!!!!!!!!!
!!! 阶跃单波方程 !!!
!!!!!!!!!!!!!!!!!!!!!!!!!
program step
implicit none
!!! 输入网格点数
integer,parameter::N=301
!!! 输入迭代步数
integer,parameter::M=300
real k1(N),k2(N),k
www.eeworm.com/read/404871/11476779
f compare.f
PROGRAM COMPARE
IMPLICIT NONE
INTEGER I, I1, I2
DOUBLE PRECISION EXPL,IMPL
OPEN(90,FILE='EXPL.OUT')
OPEN(91,FILE='IMPL.OUT')
www.eeworm.com/read/258562/11853947
f90 ssearch.f90
! 顺序查找法范例
! By Perng 1997/8/31
program SEQUENTIAL_SEARCH_DEMO
implicit none
integer, parameter :: N=10
integer :: A(N)=(/6,2,8,4,0,9,3,5,1,7/) ! 存放数据组的类型
integer KEY ! 记录所要找的
www.eeworm.com/read/258562/11853960
f90 shell_sort.f90
! 选择排序法范例
! By Perng 1997/8/29
program SHELL_SORT_DEMO
implicit none
integer, parameter :: N=10
integer :: A(N)=(/6,2,8,4,0,9,3,5,1,7/) ! 排序的数据
write(*,"('Source=>',10I3)") A
call S
www.eeworm.com/read/258562/11854008
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/258562/11854010
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/258562/11854012
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/258562/11854085
f90 sglbad.f90
module sgl_util
use sgl
implicit none
contains
subroutine display()
integer, parameter :: size = 200
real, parameter :: rinc = 0.002
real, save :: radian = 0.0
integer :: x,y
x