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

1 操作系统 操作系统 Windows xp 32 位位 2 软件版本 软件版本 Adams 2013 32 位 位 Visual Studio 2010 专业版专业版 32 位位 3 编译软件 编译软件 Intel Visual Fortran 11 0 4 环境配置 环境配置 1 在操作系统环境变量 Path 中增加 Adams 启动文件 mdi bat 的路径 如 D MSC Software Adams 2013 common mdi bat 2 把 Fortran 安装路径 如 D IVF2011 Intel ComposerXE 2011 compiler lib ia32 3 把 libifcoremd lib libifcoremd lib libmmd lib libifportmd lib libirc lib svml dispmd lib 这 6 个库文件复制到 Adams 安装路径下 win32 文件夹下 5 编写用户子程序编写用户子程序 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 Vfosub Vfosub Note Use mixed case names for the Adams subroutine names when using the C style interface For the default subroutine name capitalize the first letter and have the remaining letters lower case Gfosub for example Doing this insures that Adams Solver correctly distinguishes a C style subroutine from Fortran and calls with the appropriate interface void Vfosub const struct sAdamsVforce vfo double time int dflag int iflag double result Assign readable variable names to passed parameters double c vfo PAR 0 int ipar 3 int vfo PAR 1 int vfo PAR 2 int vfo PAR 1 Local variables double vel 3 int nstates int errflg call SYSARY for translation velocities TVEL c sysary TVEL ipar 3 vel c errmes errflg Error calling SYSARY for TVEL vfo ID STOP Evaluate VFORCE components result 0 c vel 0 result 2 c vel 1 result 2 c vel 2 注意 因为代码中引用了 slv c utils h 复制时必须同时复制 slv c utils h 文件 否则编 译时会报错 6 编译操作编译操作 1 在开始菜单下 启动 Visual Studio 2010 命令提示工具 2 把工作路径设置到用户子程序文件所在路径 D Adams Matlab 输入指令 cd D Adams Matlab 并按回车 3 输入指令 D MSC Software Adams 2013 common mdi bat 并按回车 4 系统进入 Adams 环境中 5 输入 cr u 并按回车 6 进入编译子程序 这时系统提示是否在调试状态下连接 直接输入回车 7 输入 C 语言用户子程序的文件名 vfosub c 并回车 注意 该文件必须是以 c 为后缀名 不能以 cpp 为后缀名 并且该文件必须在当前路径下存在 8 系统提示输入下一个文件名称 这时直接点击回车 9 然后输入生成的 dll 文件的名称 这个文件名可不与 c 文件同名 比如输入 myvfosub dll 10 然后点击回车 系统进行编译 编