代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/308778/13692204
for a20.for
SUBROUTINE EL3D10
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /EL/ IND,ICOUNT,NPAR(20),NUMEG,NEGL,NEGNL,IMASS,IDAMP,ISTAT
1 ,NDOF,K
www.eeworm.com/read/308778/13692210
for a10.for
SUBROUTINE EL2D10
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /EL/ IND,ICOUNT,NPAR(20),NUMEG,NEGL,NEGNL,IMASS,IDAMP,ISTAT
1 ,NDOF,K
www.eeworm.com/read/308778/13692224
for a05.for
SUBROUTINE ELT2D3
C
C
C
C
C
IMPLICIT DOUBLE PRECISION ( A-H,O-Z )
C***END:DPR***
COMMON /EL/ IND,ICOUNT,NPAR(20),NUMEG,NEGL,NEGNL,IMASS,IDAMP,ISTAT
1 ,NDOF,K
www.eeworm.com/read/113559/6127589
mak dirsrc.mak
# -*- Makefile -*- Time-stamp:
# $Id: dirsrc.mak,v 1.1 2003/11/14 19:58:28 ptr Exp $
# Some trick to build implicit rules for sources in some different
# subdirectories. I rem
www.eeworm.com/read/440990/6307446
f90 shock_tube.f90
PROGRAM RIEMANN
IMPLICIT NONE
REAL*8,PARAMETER :: T=0.3,DX=0.002,GAMA=1.4,CFL=0.5
INTEGER,PARAMETER :: SN=500,TMAX=900
REAL*8 U(-SN:SN,0:TMAX,3),U1(-SN:SN,0:TMAX,3),&
www.eeworm.com/read/492438/6423110
f90 data.f90
MODULE CtrlData
!........
! 模块内容:
! 本模块包含程序运算过程中的所有控制参数,并负责对它们初始化。
!........
IMPLICIT DOUBLE PRECISION( a-h, o-z )
CHARACTER * 70 title
INTEGER n
www.eeworm.com/read/476406/6760811
f90 sgldraw3.f90
module sgl_util
use sgl
implicit none
contains
subroutine Display()
call sglClearBuffer()
call sglColor3f(1.0,0,0)
call sglRectV(-0.6, -0.6, 0.6, 0.6)
call sglColor3i(0,255,0
www.eeworm.com/read/476406/6760859
f90 rline.f90
program main
use IMSL
implicit none
integer, parameter :: NOBS = 5
real XDATA(NOBS), YDATA(NOBS)
real B0, B1
real STAT(12)
real xinc, xp, value
real F,X
F(X) = 2*X + 3
in
www.eeworm.com/read/409260/11338593
f90 sgldraw3.f90
module sgl_util
use sgl
implicit none
contains
subroutine Display()
call sglClearBuffer()
call sglColor3f(1.0,0,0)
call sglRectV(-0.6, -0.6, 0.6, 0.6)
call sglColor3i(0,255,0
www.eeworm.com/read/409260/11338671
f90 rline.f90
program main
use IMSL
implicit none
integer, parameter :: NOBS = 5
real XDATA(NOBS), YDATA(NOBS)
real B0, B1
real STAT(12)
real xinc, xp, value
real F,X
F(X) = 2*X + 3
in