代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/224473/14589363
txt guidao.txt
program main
implicit none
real(kind=8),parameter::gm=3.986005D14 !地球引力常数
!记录数据中的时间和对应的观测量:方位角和高度
real(kind=8)::t(0:17)
real(kind=8)::a(17)
real(kind=8)::h(17)
!飞船相对测站的位置矢量单位矢量在赤道坐标系中的三个分量
www.eeworm.com/read/369169/9660307
txt seismic avo.txt
program main
implicit none
real,dimension(1:200)::ra1,ta1,angleh1,angle1,y,x1,x2,r1,rangle1,r2,r,b
real,dimension(1:200)::ra2,ta2,angleh2,angle2
real,dimension(1:200)::wav
real,dimension(200,500)
www.eeworm.com/read/153743/12009335
f90 unmpiswitch_cent.f90
subroutine unmpiswitch_cent(j3,n1dfft,Jp2stf,J2stf,lot,max1,md1,m1,n1,md2proc,nd3proc,nproc,zw,zmpi1)
implicit real*8 (a-h,o-z)
dimension zmpi1(2,md1,md2proc,nd3proc,nproc),zw(
www.eeworm.com/read/153743/12009371
f90 scramble.f90
subroutine scramble(i1,j2,lot,n1dfft,md1,n3,md2proc,nnd3,zw,zmpi2)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zmpi2(2,md1,md2proc,nnd3)
do 100,i3=1,n3
do
www.eeworm.com/read/308778/13692191
for a37.for
SUBROUTINE THDCON
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /DIM/ N0,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
COMMON /DIMETC/ N01
www.eeworm.com/read/308778/13692218
for a36.for
SUBROUTINE TODCON
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /DIM/ N0,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15
COMMON /DIMETC/ N01
www.eeworm.com/read/153743/12009360
f90 mpiswitch_cent.f90
subroutine mpiswitch_cent(j3,n1dfft,Jp2stb,J2stb,lot,max1,md1,m1,n1,md2proc,nd3proc,nproc,zmpi1,zw)
implicit real*8 (a-h,o-z)
dimension zmpi1(2,md1,md2proc,nd3proc,nproc),zw(2,
www.eeworm.com/read/153743/12009265
f90 unscramble.f90
subroutine unscramble(i1,j2,lot,n1dfft,md1,n3,md2proc,nnd3,zmpi2,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zmpi2(2,md1,md2proc,nnd3)
do 100,i3=1,n3
do 100,i=0,n1dfft-1
www.eeworm.com/read/130326/14198071
f90 column.f90
program main
implicit none
integer i,c,s
real b,h,l_0,da_m_j,da_n_j,c_grade,s_grade,da_r_a,h_0,kersei,kersei_jg,&
da_a_g,da_r_g,da_r_g_pie,da_a_g_pie,da_e_h,da_e_g,e_0,alpha_e,da_i_h,eta,e,e_pie,
www.eeworm.com/read/153743/12009317
f90 initf.f90
subroutine initf(idat,m1,m2,m3,md1,md2,md3,iproc,nproc,zf)
implicit real*8 (a-h,o-z)
dimension zf(2,0:md1-1,0:md3-1,0:md2/nproc-1)
do 9766,jp2=0,md2/nproc-1
j2=iproc*(md2/nproc)+jp2
if (j2.le.