代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/153743/12009313
f90 unswitchreal.f90
subroutine unswitchreal(n1dfft,n2,n2eff,lot,n1zt,lzt,zw,zt)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1zt)
! Decompose symmetric and antisymmetric parts
do j=1,n1df
www.eeworm.com/read/208614/15242346
f90 ivmrk.f90
! IMSL IVMRK范例
! 求解Y1'(t)=-5*Y1(t) + 2*Y2(t)
! Y2'(t)=13*Y1(t) - 0.5*Y2(t)
! initial condition Y1(0)=1, Y2(0)=1
program main
use IMSL
implicit none
integer, parameter :: MXPARM = 50
www.eeworm.com/read/293809/8271489
f90 main.f90
program main
implicit none
real*8 lef,rig,f,h,no,t0,i,x0,y0,z0,x1,y1,z1
integer n
!parameter(theta=10,r=24.74,b=8/3)
lef=0 !left of []
rig=20 !rigth of []
no=1.0e4 !number of steps
h=a
www.eeworm.com/read/202630/15377492
f heat2.f
! 二维热传导方程：Peaceman-Rachford 格式，分块流水线算法
IMPLICIT DOUBLE PRECISION (A-H,O-Z)
INCLUDE 'mpif.h'
PARAMETER(DW=2.D0, DH=3.D0) ! 问题求解区域沿 X、Y 方向的大小
PARAMETER(DT=.05D0) ! 时间步长
www.eeworm.com/read/198623/7920634
s f17.s
/
/
/ f17 -- implicit statement
.globl simpl
.globl getype
.globl chrtab
.globl error
simpl:
jsr r5,getype
br 9f
mov r2,r1
mov r0,-(sp)
movb (r1)+,r0
cmp r0,$'(
beq 1f
cmpb r0,$'/
bne 8f
www.eeworm.com/read/347161/11687028
f geomview_out.f
subroutine geomview_out(rval,notus1,nd1)
c
implicit none
c
integer notus1,nd1,ndc,ndc1
c
parameter (ndc=96,ndc1=ndc-1)
c
real rval(0:nd1,0:notus1),atgc(0:ndc1,0:notus1)
www.eeworm.com/read/153743/12009290
f90 switch.f90
subroutine switch(n1dfft,n2,lot,n1,lzt,zt,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n2),zt(2,lzt,n1)
do 200,j=1,n1dfft
do 100,i=1,n2
zw(1,j,i)=z
www.eeworm.com/read/153743/12009319
f90 rnorm.f90
subroutine rnorm(n1,n2,n3,nd1,nd2,nd3,iproc,nproc,rho,sum)
implicit real*8 (a-h,o-z)
dimension rho(nd1,nd2,nd3/nproc)
sum=0.d0
do 9766,jp3=1,nd3/nproc
www.eeworm.com/read/153743/12009374
f90 fnorm.f90
subroutine fnorm(ndat,m1,m2,m3,md1,md2,md3,iproc,nproc,zf,sum)
implicit real*8 (a-h,o-z)
dimension zf(2,md1,md3,md2/nproc,ndat)
sum=0.d0
do 9766,idat=1,ndat
www.eeworm.com/read/338854/12277008
f90 qiebi xuefu.f90
PROGRAM QIE_BXF !PRN卫星号,N几皆拟合,X还是Y坐标
implicit none
integer prn,nian,yue,ri,i,nj,k,toc,shi,fen,WN,J
integer::status=0,NHS=3,PRN1,NN,OT
REAL*8 wpian,wpiao,wpsu,iode,crs,on,m0,cuc,e,cus,sqrta,toe,c