代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/216987/14983585
f90 connectivity.f90
!------------------------------------------------------------------------------!
! MODULE : CONNECTIVITY Auteur : J. Gressier
! Date : Juill
www.eeworm.com/read/209853/15213143
cpp implicitcast.cpp
//: C05:ImplicitCast.cpp
// From "Thinking in C++, Volume 2", by Bruce Eckel & Chuck Allison.
// (c) 1995-2004 MindView, Inc. All Rights Reserved.
// See source code use permissions stated in the f
www.eeworm.com/read/208614/15242227
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/208614/15242231
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/208614/15242248
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/208614/15242249
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/208614/15242250
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/208614/15242277
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
www.eeworm.com/read/208614/15242281
f90 sglfont1.f90
module SGL_UTIL
use SGL
implicit none
contains
subroutine display()
call sglClearBuffer()
call sglColor3i(255,255,255)
call sglTextOut( 100, 100, "HELLO" )
call sglUpdateBuffer()
www.eeworm.com/read/208614/15242294
f90 sglfont2.f90
module SGL_UTIL
use SGL
implicit none
contains
subroutine display()
call sglClearColor3i(255,255,255)
call sglClearBuffer()
call sglColor3i(0,0,0)
call sglTextOut(50,50,"大家好")