Adams2013编译C语言用户子程序生成dll超详细教程

操作系统：Windowsxp32位软件版本：Adams201332位、VisualStudio2010专业版32位编译软件：IntelVisualFortran11.0环境配置：⑴在操作系统环境变量Path中增加Adams启动文件mdi.bat的路径，如D:\MSC.Software\Adams\2013\common\mdi.bat把Fortran安装路径，如D:\IVF2011\Intel\ComposerXE-2011\compiler\lib\ia32把libifcoremd.lib、libifcoremd.lib、libmmd.lib、libifportmd.lib、libirc.lib、svml_dispmd.lib这6个库文件复制到Adams安装路径下Win32文件夹下编写用户子程序Adams安装程序D:\MSC.Software\Adams\2013\solver\c_usersubs文件夹下有C语言编写的常用的用户子程序，其中slv_c_utils.h文件是用户子程序的头文件。编写用户子程序时，在这些程序的基础上进行更改会有事半功倍的效果。本文以编写VForce用户子程序为例，对其编写、编译操作过程进行说明。复制vfosub.c和slv_c_utils.h两个文件到个人工作文件夹Adams_Matlab，本文直接使用vfosub.c的原始代码，其代码为：#include"slv_c_utils.h”adams_c_VfosubVfosub;/*Note:UsemixedcasenamesfortheAdamssubroutinenameswhenusingtheCstyleinterface.Forthedefaultsubroutinenamecapitalizethefirstletterandhavetheremainingletterslowercase;Gfosubforexample.DoingthisinsuresthatAdamsSolvercorrectlydistinguishesaCstylesubroutinefromFortranandcallswiththeappropriateinterface.**/voidVfosub(conststructsAdamsVforce*vfo,doubletime,intdflag,intiflag,double*result){/*Assignreadablevariablenamestopassedparameters*/doublec=vfo->PAR[0];intipar[3]={(int)vfo->PAR[1],(int)vfo->PAR[2],(int)vfo->PAR[1]};/*Localvariables*/doublevel[3];int nstates;int errflg;/*callSYSARYfortranslationvelocitiesTVEL*/c_sysary("TVEL”,ipar,3,vel,&nstates,&errflg);c_errmes(errflg,"ErrorcallingSYSARYforTVEL”,vfo->ID,"STOP");/* EvaluateVFORCEcomponents */result[0]=-c*vel[0];

result[2]=-c*vel[1];result[2]=-c*vel[2];}注意：因为代码中引用了slv_c_utils.h,复制时必须同时复制slv_c_utils.h文件，否则编译时会报错。编译操作⑴在开始菜单下，启动VisualStudio2010命令提示工具。(2)把工作路径设置到用户子程序文件所在路径D:\Adams_Matlab，输入指令cdD:\Adams_Matlab并按回车。(3)输入指令D:\MSC.Software\Adams\2013\common\mdi.bat并按回车，

⑷系统进入Adams环境中⑸输入cr-u并按回车，(6)进入编译子程序，这时系统提示是否在调试状态下连接，直接输入回车。(7)输入C语言用户子程序的文件名vfosub.c并回车(注意：该文件必须是以.c为后缀名，不能以.cpp为后缀名，并且该文件必须在当前路径下存在)1>Voumayenteranobjectfilecompileduith：<IntelFortranXE2011>ifort/c/auto/0b2/MD/Gmxxx.for<MicrosoftUisualStudio2010>cl/c/Ox/MD/EHscxxx.c2>Voumai/enterthenameofthe.f,.cor.cxxsourcefile3>Voum叫usealistfile<Psub_list.lst>EnternameoffirstuserobjectorsourcefileorEXIT：ufosub.cEnternameofnextuserobjectorsourcefile<<CR>=none>,orEXIT系统提示输入下一个文件名称，这时直接点击回车;1>Voumaijenteranobjectfilecompileduith：<IntelFortranXE2011>ifortZc/auto/0b2/MD/Gmxxx.f□r<MicrosoftUisualStudio2010>cl/c/Ox/MD/EHscxxx.c2>Voumaijenterthename□£the.F,.cor.cxxsourcefile3>Voummyusealistfile<Psub_list.lst>EnternameoffirstuserobjectorsourceFileorEXIT：fosub.cEnternameofnextuserobjectorsourcefile<<CR>=none>,orEXITEnternameofyourADAMS/SoluerUser-DLLorEXIT：然后输入生成的dll文件的名称，这个文件名可不与c文件同名，比如输入myvfosub.dll，1>Voumapenteranobjectfilecompileduith：<IntelFortranXE2011>ifort/c/auto/0b2/MD/Gmxxx.for<MicrosoftUisualStudio2010>cl/c/Ox/MD/EHscxxx.c2〉Voumapenterthenameofthe.f,.cor.cxxsourcefile3>Voumaspusealistfile<(?sub_list.lst>EnternameoffirstuserobjectorsourcefileorEXIT：ufosub.cEntername□£nextuserobjectorsourceFile<<CR>=none>,orEXITEnterna