testtag.xm

来自「一个很好的分子动力学程序」· XM 代码 · 共 22 行

#
#  Test new WRITE COR TAG command
#
box 4 4 4
fill particle 2
1  1/4 1/4 1/4
2  3/4 3/4 3/4
fill go
select box 0 0 0 2 4 4
tag 4
select box 2 0 0 4 4 4
tag 5
write cor test.cor
write cor tag testtag.cor
#  
#  Read and print cor files
#
cor test.cor
write particle
cor testtag.cor
write particle