|
|
发表于 2004-6-5 16:51:17
|
显示全部楼层
如何用数据文件在tecplot作图
[这个贴子最后由kuangtq在 2004/06/05 04:58pm 第 1 次编辑]
以下为我编写的写TECPLOT接口文件Fortran子程序,绝对可用。
SUBROUTINE WRITE_FILE(FL_ID)! 写TECPLOT接口文件,利用TECPLOT进行后置处理
USE DATA_MODULE
INTEGER FL_ID
WRITE (FL_ID, FMT='(A)') 'TITLE="TITLE"'! 接口信息
WRITE (FL_ID, FMT='(A)') 'VARIABLES="X", "Y", " ", "F", "VISCOS", "U_X", "U_Y"'
WRITE (FL_ID, "('ZONE F=FEPOINT, ET=TRIANGLE, N=', I4, 5X, 'E=', I4)") NNODE, NELEM
WRITE (FL_ID, FMT="(7F15.5)", IOSTAT=IV) ((ND_XY(1, I), ND_XY(2, I), P(I), F(1, I), VISCOS(I), U_X(I), U_Y(I)), I=1, NNODE)! 节点坐标及其变量值
WRITE (FL_ID, *)
WRITE (FL_ID, FMT="(3I4)") ((EL_NODE(I, J), I=1, 3), J=1, NELEM)! 单元组成节点信息
END
[sound]http://[/sound] |
|