Adams2013編譯C語言用戶子程序生成dll超詳細(xì)教程

操作系統(tǒng)：Windowsxp32位軟件版本：Adams201332位、VisualStudio2010專業(yè)版32位編譯軟件：IntelVisualFortran11.0環(huán)境配置：⑴在操作系統(tǒng)環(huán)境變量Path中增加Adams啟動(dòng)文件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個(gè)庫文件復(fù)制到Adams安裝路徑下Win32文件夾下編寫用戶子程序Adams安裝程序D:\MSC.Software\Adams\2013\solver\c_usersubs文件夾下有C語言編寫的常用的用戶子程序，其中slv_c_utils.h文件是用戶子程序的頭文件。編寫用戶子程序時(shí)，在這些程序的基礎(chǔ)上進(jìn)行更改會(huì)有事半功倍的效果。本文以編寫VForce用戶子程序?yàn)槔瑢ζ渚帉?、編譯操作過程進(jìn)行說明。復(fù)制vfosub.c和slv_c_utils.h兩個(gè)文件到個(gè)人工作文件夾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];}注意：因?yàn)榇a中引用了slv_c_utils.h,復(fù)制時(shí)必須同時(shí)復(fù)制slv_c_utils.h文件，否則編譯時(shí)會(huì)報(bào)錯(cuò)。編譯操作⑴在開始菜單下，啟動(dòng)VisualStudio2010命令提示工具。(2)把工作路徑設(shè)置到用戶子程序文件所在路徑D:\Adams_Matlab，輸入指令cdD:\Adams_Matlab并按回車。(3)輸入指令D:\MSC.Software\Adams\2013\common\mdi.bat并按回車，

⑷系統(tǒng)進(jìn)入Adams環(huán)境中⑸輸入cr-u并按回車，(6)進(jìn)入編譯子程序，這時(shí)系統(tǒng)提示是否在調(diào)試狀態(tài)下連接，直接輸入回車。(7)輸入C語言用戶子程序的文件名vfosub.c并回車(注意：該文件必須是以.c為后綴名，不能以.cpp為后綴名，并且該文件必須在當(dāng)前路徑下存在)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系統(tǒng)提示輸入下一個(gè)文件名稱，這時(shí)直接點(diǎn)擊回車;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文件的名稱，這個(gè)文件名可不與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