基于ANSYS57和Visual Fortran 6.1先詳細講一下ANSYS調用FORTRAN的步驟：

1. 首先，安裝ANSYS時選擇custom安裝；

2. 建立一個新的用戶目錄, 如upf，把customuserintel目錄下的anscust.bat，makefile和user01.f (當然也可以用你自己的fortran文件啦)這三個文件拷貝到upf下；

3. 打開makefile文件，在第一行指定ANSYS的安裝路徑，如：

ANSYS57_DIR=d:ANSYS57 保存退出；

對于ANSYS7.0：

ANSYS70_DIR=d:ansys7v70ANSYS

4. 復制 dfport.lib，dformd.lib, dfconcol.lib(這三個文件在fortran安裝目錄下的df98lib目錄中可以找到，注意不要用ANSYS自己所帶的，因為ANSYS自己所帶的版本可能不夠高，而導致連接失敗)和ansysex.def(在customuserintel中)到upf57目錄中，以避免連接時找不到這幾個文件；

5. 準備工作已經完成，運行“anscust.bat”進行編譯連接。要確信你的Visual Fortran 與ANSYS版本的兼容性，如果編譯連接不成功，出現諸如“Fatal error link 1120: 8 unresolved externals”的錯誤，則表示你的Fortran版本需要升級。

如用Vfor6.1 編譯連接ansys7.0，就會出現這樣的錯誤信息。解決的方法是安裝Vfor6.6B。

對于你自己寫的FORTRAN程序，先用FORTRAN編譯一遍，保證沒有錯誤。編譯連接成功之后，在upf目錄下會生成ansys.exe；

6. 現在你就可以運行這個新的ANSYS了。有兩個方法：

第一個方法，就象“二次開發培訓練習題”中所說：

在dos命令行，先敲入 ansys -p ansysul，指定ansys產品特征代碼運行ansys, 然后OK， 接著 /show,win32和/menu,on啟動ANSYS;

第二個方法，干脆用新生成的ansys.exe 代替ANSYS安裝目錄(如d:ansys57binintel)中的原ansys.exe，建議將原ansys.exe改名或備份，然后就象你平常啟動ANSYS那樣(如用Ansys Interactive 方式)啟動ANSYS。

7. 啟動并進入ANSYS交互界面之后，在命令輸入行輸入命令usr1(或者用/ucdm定義為你指定的名稱, 如 /ucmd, aaa,1)就實現了ANSYS對Fortran程序user01.f的調用。

二 將ANSYS作為子程序調用

對于優化或參數化設計，可以在VC或FORTRAN中將ANSYS作為子程序調用。具體調用方法如下：

1.在VC中調用ANSYS

VC調用ANSYS的示例程序。

//Test.cpp

#include "stdio.h"

#include"process.h"

void main()

{

int result;

printf("Solving...");

result=system("d:/ANSYS57/BIN/INTEL/ANSYS57 -b -p ansysul -i test.txt -o test.out");

printf("Solution finished...");

}

2.在FORTRAN中調用ANSYS

LOGICAL(4) result

RESULT=SYSTEMQQ('d:ANSYS57BININTELANSYS57 -b -p

ansys_product_feature -i input_file -o output_file')

3.說明

1和2中，input_file為用APDL語言編寫的ANSYS輸入文件。

ansys_product_feature為你的ANSYS產品特征代碼。