代码搜索：implicit

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

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

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/258562/11854142

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/258562/11854146

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/258562/11854155

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/258562/11854219

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/258562/11854243

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
·
www.eeworm.com/read/258562/11854251

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/258562/11854271

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/258562/11854411

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
·
www.eeworm.com/read/258562/11854432

f90 ex1013.f90

module typedef implicit none type :: datalink integer :: i type(datalink), pointer :: prev ! 指向上一条数据 type(datalink), pointer :: next ! 指向下一条数据 end type datalink end module typ
·