代码搜索结果
找到约 10,000 项符合
0 的代码
smdsam0.for
SUBROUTINE SMDSAM(K,DDT,X,Y,Z,VX,VY,VZ)
INCLUDE 'dsmc0.h'
*--SMSMCSS(N,M,L) sampled info. on the molecules striking the boundaries
*----M is the code number of the element; L is the species
*-
init0.for
* INIT0.FOR
*
SUBROUTINE INIT0
*
include 'dsmc0.h'
*
*--set constants
*
PI=3.141592654
SPI=SQRT(PI)
BOLTZ=1.3806D-23
*
CALL DATA0
NPR=0
*
*
sampi0.for
* SAMPI0.FOR
*
SUBROUTINE SAMPI0
*
*--initialises all the sampling variables
*
INCLUDE 'dsmc0.h'
*
NCOL=0
NSMP=0
MOVT=0.
SELT=0.
SEPT=0.