求教子程序

请问精通子程序的朋友能帮我写一个子程序吗？我需要写一个面热源在长方体工件表面移动。工件如图。长7.5mm，宽5mm。高1.5mm。面热源就是在上表面，长2.0mm，宽5mm，热通量是6*e6 w/(m^2),速度是50mm/s。请问用dflux如何写？十分感谢！！另外INCLUDE 'ABA_PARAM.INC'在vs2008编译不通过，怎么回事？十分感谢