代码搜索：implicit

找到约 5,250 项符合「implicit」的源代码

代码结果 5,250
热门代码： main.c GPIO I2C SPI UART timer interrupt ADC PWM LED
www.eeworm.com/read/476406/6760759

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/476406/6760760

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/476406/6760761

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/476406/6760788

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/476406/6760792

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/476406/6760805

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,"大家好")
·
www.eeworm.com/read/476406/6760806

f90 sgltimer.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/476406/6760809

f90 sglidle.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/476406/6760828

f90 sglimg1.f90

module sgl_util use sgl implicit none integer(1), save :: buffer(3*512*512) integer(4), save :: buffer4(3*512*512/4) equivalence(buffer,buffer4) contains subroutine display() i
·
www.eeworm.com/read/476406/6760835

f90 ex0607.f90

program ex0607 implicit none real, parameter :: weight=45.0 real, parameter :: error=0.0001 real :: guess = 0.0 do while( .true. ) write(*,*) "weight:" read(*,*) guess i
·