哪位大神有Fortran的随机骨料投放的编程，求购可分别划分网格的脚本

在做混凝土细观模拟时，文献中除了金浏老师的编程可以给ITM单独划分网格，其他的都划不了。效率较低，而且网格映射做出来的结果不能变化网格，变化网格对承载力的影响较大。将骨料和界面区及砂浆分开划分网格会好很多。求购可分开划分网格的Fortran的随机骨料投放的编程，谢谢。