想法：用abaqus建立一个100*100*100的立方体模型，划分好网格后，利用fortran在材料内部随机确定晶粒的核心，然后在晶粒核心周围扩展，找到相应的单元，生成任意形状的颗粒。求助高手，谁有类似的程序代码，或者是思路。