代码搜索：implicit

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

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

f90 sor.f90

SUBROUTINE sor(a,b,c,d,e,f,u,jmax,rjac) IMPLICIT real*8(a-h,o-z) DIMENSION a(jmax,jmax),b(jmax,jmax),c(jmax,jmax),& d(jmax,jmax),e(jmax,jmax),f(jmax,jmax),u(jmax,jmax) PARAMETER (maxits=1000,eps=
·
www.eeworm.com/read/176119/9515519

f90 sor.f90

SUBROUTINE sor(a,b,c,d,e,f,u,jmax,rjac) IMPLICIT real*8(a-h,o-z) DIMENSION a(jmax,jmax),b(jmax,jmax),c(jmax,jmax),& d(jmax,jmax),e(jmax,jmax),f(jmax,jmax),u(jmax,jmax) PARAMETER (maxits=1000,eps=
·
www.eeworm.com/read/469333/6973298

f90 二维传播.f90

program main ! TM mode 仅水平入射的情况 implicit none real,parameter::pi=3.1415927 real::Ez(-160:160,-160:160) ! Ez采样点 real::Hx(-160:160,-160:159) ! Hx采样点 real::Hy(-160:159,-160:160) ! Hy采样点 real:
·
www.eeworm.com/read/456699/7340574

txt grid.txt

program main implicit none !---------------- integer,parameter::nx=101,ny=51 real*8::p=0.3,q=0.3 real*8::dks=1.0,dat=1.0 real*8,dimension(nx,ny)::x=0,y=0,xp=0,yp=0 real*8,allocatable::xb0(:),yb
·
www.eeworm.com/read/445424/7595575

f90 tim_wilson.f90

subroutine TIM_Wilson() ! Purpose: Wilson-theta Method. use linear_operators use module_parameter use module_data use module_ioport implicit none integer i real :: c0, c1, c2, c3,
·
www.eeworm.com/read/439441/7708797

makefile

CC=gcc CFLAGS=-Wall -O2 LCFLAGS=-O2 LEX = flex YACC=bison LEXLIB = -lfl YAS=./yas all: yis yas hcl2c # These are implicit rules for making .yo files from .ys files. # E.g., make sum.yo .SUFFIXES: .
·
www.eeworm.com/read/307838/13714071

f90 fft.f90

Program fft use fml use fgl implicit none integer(4), parameter :: n = 1000, tmax = 10 type(mfArray) :: t, f, x1, x2, y1, y2 t = mfLinspace( 0, tmax, n ) f = mfLinspace( 0, n/tmax, n )
·
www.eeworm.com/read/232940/14176110

f90 text1.f90

IMPLICIT NONE INTEGER NMAX,N,I,J,P,Q PARAMETER(NMAX=50) REAL A(NMAX,NMAX),AMAX,TEMP,ZEMP,COO,SII,CO,SI,APP,AQQ,APQ,API,AQI REAL R(NMAX,NMAX),RIP,RIQ CHARACTER NAME*12,NAMEO*12,CHR*1 ! 从文件
·
www.eeworm.com/read/233448/4678826

f90 strarray_4.f90

program strarray_4 character(len=5), dimension(2) :: c c(1) = "Hello" c(2) = "World" call foo1(c) call foo2(c, 2) call foo3(c, 5, 2) contains subroutine foo1(a) implicit none chara
·
www.eeworm.com/read/233448/4678859

f90 intrinsic_dprod.f90

! Program to test DPROD intrinsic program intrinsic_dprod implicit none real r, s, t double precision dp ! 6d60 doesn't fit in a 4-byte real r = 2e30 s = 4e30 dp = dprod (r, s)
·