与大家分享：ABAQUS应用FORTRAN常见问题小结

meir28 · 发表于 2007-7-1 11:02:21

3ks,楼主辛苦了

65986216 · 发表于 2007-7-1 12:50:26

感谢楼主，正想学这方面的知识呢！

maoaxwx · 发表于 2007-7-1 16:42:08

非常感谢。

chenxianglinyh · 发表于 2007-7-1 18:03:01

非常感谢楼主

mikejwg · 发表于 2007-7-1 23:10:21

不错，谢谢！
有帮助。

mikejwg · 发表于 2007-7-1 23:15:08

因为用了uel，abaqus不方便进行后处理，准备写到文件里用tecplot进行后处理，结果发现，文件应该是正确打开了，iostat返回0，但工作目录下没有生成目标文件，单独写一个fortran文件时可以实现，只是在uel下无法实现。
   write(*,*) 'open file'
   OPEN(UNIT=200,FILE='STRAIN.DAT',iostat=ier,
   &    STATUS='unknown',position='append')
   if (ier.ne.0.0)  write(*,*) 'cant creat strain.dat',ier
   OPEN(UNIT=201,FILE='STRESS.DAT',iostat=jer,
   &    STATUS='unknown')
   if (jer.ne.0.0)  write(*,*)'cant creat stress.dat',jer

write(*,*) 'write title'
   WRITE(200,*)'TITLE ="STRAIN"'
   WRITE(200,*)'VARIABLES ="X","Y", "Z",
   &          "E11","E22","E33","E12","E13","E23"'
   WRITE(200,*) 'ZONE N=',MNODE, ' E=', MELEM,
   & ' F=FEPOINT, ET=BRICK'

wathj · 发表于 2007-7-2 09:07:17

好东西，虽然现在还用不着，先收下了。

dzdragon · 发表于 2007-7-2 11:29:42

谢谢分享！

hzj007 · 发表于 2007-7-2 12:52:37

嗯，先谢再下

lejuan · 发表于 2007-7-18 09:49:22

正要学习这方面呢　谢了　！

bcpeng · 发表于 2007-7-18 10:12:40

支持，谢谢

gelcy · 发表于 2007-7-18 14:13:11

谢谢了谢谢了

newxinzhi · 发表于 2007-7-18 15:19:14

谢谢楼主

zzj936 · 发表于 2007-7-20 16:58:08

xiexie fenxiang

jsh06 · 发表于 2007-7-22 11:42:40

谢谢搂主，辛苦！

ton121212 · 发表于 2007-7-22 18:31:52

如果没有记错，这是我第二次说谢谢。

fgdong · 发表于 2007-7-25 15:57:20

谢谢楼主！

hubert · 发表于 2007-7-26 09:06:03

好东西！

lyzhuxiuyun · 发表于 2007-7-30 13:14:15

thanks!

yexingzhe2007 · 发表于 2007-7-31 05:08:27

thanks

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[二次开发] 与大家分享：ABAQUS应用FORTRAN常见问题小结

用户子程序写文件问题

回复 #1 godown 的帖子