TECPLOT画二维矢量图的FORTRAN源程序

zjj04640451 · 发表于 2009-4-3 08:56

参加完活动积分就差不多够了

[ 本帖最后由 zjj04640451 于 2009-4-3 08:57 编辑 ]

欧阳中华 · 发表于 2009-5-10 19:48

.
      SUBROUTINE PLTOUT(FILENAME)
      CHARACTER *18 FILENAME
      CHARACTER *70 HEAD
      INTEGER I,J,K
      HEAD='VARIABLES="X","Y","U","V"'
   OPEN(15,FILE=filename,STATUS='UNKNOWN')
      WRITE(15,'(A70)') HEAD
      WRITE(15,102) M,N
102 FORMAT('zone I=', I2, ' J=', I2, ' f=point')
   DO 10 J=2,N+1
   DO 10 I=2,M+1
   WRITE(15,30) x,y,U,V !对应各网格点的x,y坐标及u,v速度分量
10 CONTINUE
30 FORMAT(2(f8.4,1x),2(1X,e11.4))
   CLOSE(15)
   RETURN
   END

5623728 · 发表于 2009-5-29 11:33

积分不够
看不了
呵呵

sunjie6891 · 发表于 2009-6-13 11:00

很想看，可惜看不到:@Q

hunter_009 · 发表于 2009-6-13 12:08

请问一下，TECPLOT是什么

yiqguan · 发表于 2010-4-13 21:31

怎么挣积分啊？:@Q

欧阳中华 · 发表于 2010-4-14 19:39

.
就是我上面转贴出来的那几行. . .

yiqguan · 发表于 2010-4-14 23:03

谢谢楼主找了好久了

dayu2005 · 发表于 2010-7-14 17:57

积分有点高了

唯有时光 · 发表于 2010-9-22 00:51

积分不够啊。。。郁闷~

Happy99 · 发表于 2010-9-22 12:07

17F後还在叫的, 都应该惭愧!
源程序欧阳教授已经贴出了, 到底有没看帖!
总是如此怎能提升!?

w3w3w3 · 发表于 2011-8-27 17:05

说实话啊，这里规则不太明白呢！

w3w3w3 · 发表于 2011-8-27 17:06

对新手是不是照顾一下啊，送个启动分呗！

296687300 · 发表于 2015-2-8 20:06

积分不够啊

296687300 · 发表于 2015-2-8 21:20

还是不够

账号		自动登录	找回密码
密码			我要加入

[Fortran] TECPLOT画二维矢量图的FORTRAN源程序