求教用FORTRAN语言写umat

我要在abaqus中宏观模拟混凝土，想自定义材料的属性，主要是定义本构关系。利用umat定义材料属性，然后在调用。用Fortran语言写umat子程序，主要是关于混凝土损伤本构模型。