subroutine IntraBend( X, Y, Z, kbend, theta_eq, Uintra ) implicit none ! X, Y, Z contain the coordinates of the existing bea…
intent 源代码
汇集 intent 相关的电路原理图、PCB工程文件、单片机/FPGA源代码、数据手册与应用设计方案。
Subroutine Grow( NSteps, STEPSTART, STEPLENGTH, NTRIALS, lenlj, lenion, & MaxBeads, METHOD, MaxInt, MaxReal, INTPARAM, REA…
subroutine StoreConf( Istore, FinalConf, Nsp, MaxSp, Nmol, NAMEsp, & Conf, DXYZ, DROT, MaxMol, Ubins, Umin, Umax, & …
subroutine alpha_ch( MaxSp, MaxMol, MaxBeads, MaxEE, Nmol, & Nlj, Nion, Xlj, Ylj, Zlj, & TYPElj, DAMPlj2, DAMPlj3, &…
module typedef implicit none type vector2f real x,y end type type line type(vector2f) :: a,b type(ve…
module time_util implicit none type :: time integer :: hour,minute end type time interface operator(+) ! 让type(…
program ex0832 implicit none integer, external :: func write(*,*) func(2,3) end program pure integer function func(a…
program ex0823 implicit none integer :: a=4 integer b call div(a,b) write(*,*) a,b stop end program subrouti…
This directory contains the library files that do *not* #include unp.h. The intent is that these functions can stand alone, withou…
module vlib contains subroutine analy4(kma,coord,e,v) ! ! analytical stiffness of a …