代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/221868/14717073
f90 ex0431.f90
program ex0431
implicit none
integer :: a=1
integer :: b=2
real :: c
c=a/b
! c=1/2=0, 虽然c是浮点数,但因为a,b是整数,计算a/b时会用整数去计算.
write(*,"(F5.2)") c
end
www.eeworm.com/read/121515/14754503
makefile
include ../Makefile.h
all::
PROGS = max adl implicit inject lazy
OUTPROGS = funcoverload
funcoverload.ctt: funcoverload.hpp
www.eeworm.com/read/216987/14983381
f90 basefield.f90
!------------------------------------------------------------------------------!
! MODULE : BASEFIELD Auteur : J. Gressier
! Date : Octo
www.eeworm.com/read/216987/14983578
f90 ustmesh.f90
!------------------------------------------------------------------------------!
! MODULE : USTMESH Auteur : J. Gressier
! Date : Octob
www.eeworm.com/read/216987/14983637
f90 string.f90
module STRING
implicit none
! -- Variables globales du module -------------------------------------------
integer, parameter :: iposamin = iachar('a')
integer, parameter :: iposzmin = iachar('z')
i
www.eeworm.com/read/216898/14987712
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/216898/14987744
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/114372/15056099
makefile
include ../Makefile.h
all::
PROGS = max adl implicit inject lazy
OUTPROGS = funcoverload
funcoverload.ctt: funcoverload.hpp
www.eeworm.com/read/212376/15157020
m dyzzy.src.m
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),
www.eeworm.com/read/212376/15157321
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),