代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/395499/8170611
for p-r.for
FUNCTION InitialF(alpha,beta,pi,x,y)
implicit double precision(a-z)
InitialF=sin(pi*alpha*x)*sin(beta*pi*y)
END
FUNCTION BoundX0(y,t)
implicit double precision
www.eeworm.com/read/367631/9739330
f90 solver.f90
!求解方程组AX=B,其中A已经经过LU分解,结果存在数组B中
SUBROUTINE SOLVER(A,B,N)
IMPLICIT NONE
INTEGER N,I,K
DOUBLE PRECISION S,A(N,N),B(N)
DO I=2,N
S=0
DO K=1,I-1
S=S+A(I,K)*B(K)
END DO
B(I)=B(I)-S
E
www.eeworm.com/read/367631/9739340
f90 area.f90
FUNCTION AREA(X1,Y1,X2,Y2,X3,Y3)
IMPLICIT NONE
DOUBLE PRECISION AREA,X1,X2,X3,Y1,Y2,Y3
AREA=ABS(X1*Y2-Y1*X2+X2*Y3-X3*Y2+X3*Y1-X1*Y3)
area=area/2.0
END FUNCTION AREA
www.eeworm.com/read/367628/9739375
f90 laxwendroff.f90
module define
implicit none
integer,parameter::Nmax=200
real::dx,dt
contains
subroutine initial(u,x)
implicit none
real::u(0:Nmax),x(0:Nmax)
integer::j
do j=0,Nmax
www.eeworm.com/read/367407/9751747
cs convertdemo.cs
class clsConvertDemo
{
static void Main()
{
float fltValue;
double dblValue = 0.1234567890;
int intValue = 77;
long lngValue;
lngValue = intValue; // Implicit
fltValue
www.eeworm.com/read/367274/9763690
asm expimp.asm
;Testname=O0; Arguments=-O0 -fbin -oexpimp.bin; Files=stdout stderr expimp.bin
;Testname=O1; Arguments=-O1 -fbin -oexpimp.bin; Files=stdout stderr expimp.bin
;Testname=O2; Arguments=-O2 -fbin -oexpi
www.eeworm.com/read/237003/13983563
f90 daxpyf90-2.f90
! Fortran 90 DAXPY using arrays
SUBROUTINE f90daxpy(a, x, y, n, iters)
IMPLICIT NONE
INTEGER, INTENT( IN ) :: n, iters
DOUBLE PRECISION, DIMENSION (n) :: x, y
DOUBLE PRECISION, INTENT( IN ) ::
www.eeworm.com/read/237003/13983589
f90 stencilf90.f90
SUBROUTINE stencilf90(A, B, n, iters)
IMPLICIT NONE
INTEGER, INTENT( IN ) :: n, iters
DOUBLE PRECISION, DIMENSION (n,n,n) :: A, B
DOUBLE PRECISION :: c
INTEGER :: count
c = 1
www.eeworm.com/read/133875/14020068
src dydzzy.src
DYDZZY:=proc(f)
# DYDZZY(f) is used to get the derivate of
# an implicit function
local Eq,deq,imderiv;
Eq:='Eq';
Eq:=f;
deq:=diff(Eq,x);
readlib(isolate);
imderiv:=isolate(deq,diff(y(x),