摩擦子程序的二次开发问题求助!!!

xqyan1

紧急求助!!!本人做接触问题,用ADINA提供的摩擦子程序进行二次开发,增加一种摩擦模型.我的模型中摩擦系数是一个积分,被积函数是一个指数函数和法向接触压力(这个压力是积分区间内位置的函数)的乘积.用FORTRAN编程时,如何调用这个压力函数?接触点的压力值保存在哪里?请大家指教!