源码文件
/*------------------------------------------------------------------------- * * multilev.h * multi level lock table consts/de…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
收录资源 343 份
全站深度检索
共匹配 343 份工程资源
· 第 25 / 35 页
源码文件
INTEGER :: nn(0:9), j CHARACTER(LEN=80):: cn CHARACTER(LEN=30):: fmt nn = (/ 1, 5, 12, 22, 28, 35, 48, 28, 10, 3 /) fmt='(1X, …
源码文件
PROGRAM main INTERFACE REAL FUNCTION trace(sqr) REAL,INTENT(IN) :: sqr(:,:) ! 迟型数组 END FUNCTION END INTERFACE …
源码文件
INTEGER :: n=0 CHARACTER(LEN=1) :: a,b,c a='A';b='B';c ='C' DO WHILE(n0) THEN CALL hanoi(i-1,x,z,y) PRINT '("第",I2,"个盘子：从",A1…
源码文件
subroutine BigRead( InputFile, InputConf, Nham, Nljgrs, Niongrs, Nsp, & MaxSp, MaxSteps, MaxBeads, MaxInt, MaxReal, MaxEE, &…
源码文件
subroutine e6interact( Nb, Xb, Yb, Zb, TYPEb, DAMP2b, DAMP3b, & Nmol, LENGTH, Nham, Nljgrs, & EPS, SIG, CP, ALP,…
源码文件
subroutine CenterOfMass( Length, X, Y, Z, TYPEg, Ngrs, MASS, xcom, ycom, zcom ) implicit none ! This routine calculates the …
源码文件
subroutine e6molecule( Nc, Xc, Yc, Zc, TYPEc, DAMP2c, DAMP3c, & Np, Xp, Yp, Zp, TYPEp, DAMP2p, DAMP3p, & Nham, N…
源码文件
subroutine Fourier_Setup( Kmax, Alpha, CONST, KX, KY, KZ, Nkvec ) implicit none ! This routine calculates the constant part …
源码文件
subroutine Sphere( xc, yc, zc, bondlength, xn, yn, zn, Seed ) implicit none ! This subroutine randomly places a bead on the …