ANSYS与FORTRAN的相互调用

基于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产品特征代码。