TIG焊接子程序求教

我现在正在研究叶轮叶片的TIG焊接，由于叶片底部焊接位置是一条空间曲线（由叶轮面与叶片柱面相交而成），在用ABAQUS的DFLUX子程序施加热源的过程中，子程序的编写成了最困难的问题，想向各位求教
TIG焊接热源：双椭球体热源
麻烦有懂的朋友们帮忙编写一下，或者给个三维双椭球体热源子程序的例子，不胜感激啊