代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/233448/4681506
f90 dfloat_1.f90
! { dg-do run }
! Progam to test the dfloat intrinsic.
program dfloat_1
implicit none
integer(2) i2
integer(4) i4
integer(8) i8
i2 = -4_2
i4 = 4_4
i8 = 10_8
if (dfloat(i2) /= -
www.eeworm.com/read/366702/2873354
f pr32663.f
SUBROUTINE DIMOID(DEN,RLMO,SSQU,STRI,ATMU,IATM,IWHI,MAPT,INAT,
* IATB,L1,L2,M1,M2,NATS,NOSI,NCAT,NSWE)
C
IMPLICIT DOUBLE PRECISION(A-H,O-Z)
C
DIMENSION RLMO(L1,L1),SSQU(L1,L1)
www.eeworm.com/read/366702/2876046
f90 dfloat_1.f90
! { dg-do run }
! Progam to test the dfloat intrinsic.
program dfloat_1
implicit none
integer(2) i2
integer(4) i4
integer(8) i8
i2 = -4_2
i4 = 4_4
i8 = 10_8
if (dfloat(i2) /= -
www.eeworm.com/read/429076/8820053
f90 fdm0308.f90
PROGRAM FDM
!***************************************************************!
!说明：U0为磁场初值 A为系数矩阵 B为右端项 JS 解方程组中的工作数组
!共六行 九列 总节点数：6*9=54
IMPLICIT NONE
INTEGER I,L
REAL U0(6,9),A(54,54),B(54
www.eeworm.com/read/186691/8915708
f90 fencha.f90
program main
use DFLIB
implicit none
integer Nmax,n,dummy
real*8 c,x0,y0,z0,x1,y1,z1,deta_t,x_max,temp
OPEN (UNIT=1, FILE ='date.dat')
Nmax=10000000
x_max=-1000
deta_t=
www.eeworm.com/read/376037/9335457
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/476406/6760857
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/409260/11338668
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/258562/11854326
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/153743/12009268
f90 fill_cent.f90
subroutine fill_cent(md1,md3,lot,n1dfft,max3,m3,n3,zf,zw)
implicit real*8 (a-h,o-z)
dimension zw(2,lot,n3),zf(2,md1,md3)
! Here, zero and positive frequencies
do