24小时热门版块排行榜

返回列表

ghcky

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 403.2
散金: 20
帖子: 12
在线: 6.3小时
虫号: 4656771
注册: 2016-05-04
性别: GG
专业: 岩土力学与岩土工程

[求助] 如何把存储好的二维数组输出到文件里面去

现在需要通过Fortran编程把一个ansys文件转换成另外一个软件可读的格式，现在我只把文件数据存储到数组里面，不知道该怎么在把数组的数据输出到文件里面
具体程序及文件数据如下
LIST ALL SELECTED ELEMENTS.  (LIST NODES)
NODE       X                Y                Z
   1 -2.50000000000    -2.50000000000    0.00000000000
   2    2.50000000000    -2.50000000000    0.00000000000
   3 -1.50000000000    -2.50000000000    0.00000000000
   4 -0.500000000000    -2.50000000000    0.00000000000
   5 0.500000000000    -2.50000000000    0.00000000000
   6    1.50000000000    -2.50000000000    0.00000000000
   7    2.50000000000    2.50000000000    0.00000000000
   8    2.50000000000    -1.50000000000    0.00000000000
   9    2.50000000000    -0.500000000000    0.00000000000
   10    2.50000000000    0.500000000000    0.00000000000
   11    2.50000000000    1.50000000000    0.00000000000
   12 -2.50000000000    2.50000000000    0.00000000000
   13    1.50000000000    2.50000000000    0.00000000000
   14 0.500000000000    2.50000000000    0.00000000000
   15 -0.500000000000    2.50000000000    0.00000000000
   16 -1.50000000000    2.50000000000    0.00000000000
   17 -2.50000000000    1.50000000000    0.00000000000
   18 -2.50000000000    0.500000000000    0.00000000000
   19 -2.50000000000    -0.500000000000    0.00000000000
   20 -2.50000000000    -1.50000000000    0.00000000000

ELEM MAT TYP REL ESY SEC       NODES

   1 1 1 1 0 1    1    3 21 20 77 81 153 149
   2 1 1 1 0 1    3    4 25 21 81 85 169 153
   3 1 1 1 0 1    4    5 29 25 85 89 185 169
   4 1 1 1 0 1    5    6 33 29 89 93 201 185
   5 1 1 1 0 1    6    2    8 33 93 73 101 201
   6 1 1 1 0 1    20 21 22 19 149 153 157 145
   7 1 1 1 0 1    21 25 26 22 153 169 173 157
   8 1 1 1 0 1    25 29 30 26 169 185 189 173
   9 1 1 1 0 1    29 33 34 30 185 201 205 189
   10 1 1 1 0 1    33    8    9 34 201 101 105 205
   11 1 1 1 0 1    19 22 23 18 145 157 161 141
   12 1 1 1 0 1    22 26 27 23 157 173 177 161
   13 1 1 1 0 1    26 30 31 27 173 189 193 177
   14 1 1 1 0 1    30 34 35 31 189 205 209 193
   15 1 1 1 0 1    34    9 10 35 205 105 109 209
   16 1 1 1 0 1    18 23 24 17 141 161 165 137
   17 1 1 1 0 1    23 27 28 24 161 177 181 165
   18 1 1 1 0 1    27 31 32 28 177 193 197 181
   19 1 1 1 0 1    31 35 36 32 193 209 213 197
   20 1 1 1 0 1    35 10 11 36 209 109 113 213
文件不全
程序如下
PROGRAM READBoundaryE
INTEGER ELEM,MAT,TYP,REL,ESY,SEC,F,T,K,L,M,N,O,P
INTEGER VBCD(100000),ABCD(100000),ENode(100000,8)
INTEGER node
REAL x,y,z,NodeXYZ(100000,3)
OPEN(15,FILE='ELIST.LIS',STATUS='OLD')
MAXELO=O
50  DO
      READ(15,*,ERR=50,END=100)ELEM,MAT,TYP,REL,ESY,SEC,F,T,K,L,M,N,O,P
      MAXELO=MAXELO+1
      VBCD(MAXELO)=ELEM
      ENode(MAXELO,1)=F
      ENode(MAXELO,2)=T
      ENode(MAXELO,3)=K
      ENode(MAXELO,4)=L
      ENode(MAXELO,5)=M
      ENode(MAXELO,6)=N
      ENode(MAXELO,7)=O
      ENode(MAXELO,8)=P
ENDDO
100 CLOSE(15)
OPEN(18,FILE='NLIST.LIS',STATUS='OLD')
MAXEL1=0
130 DO
      READ(18,*,ERR=130,END=150)X,Y,Z
      MAXEL1=MAXEL1+1
      ABCD(MAXEL1)=NODE
      NodeXYZ(MAXEL1,1)=X
      NodeXYZ(MAXEL1,2)=Y
      NodeXYZ(MAXEL1,3)=Z
ENDDO
150 CLOSE(18)
END
不知道下面该怎么通过do循环挨行输出到文件里面去

回复此楼

» 猜你喜欢

1楼2017-10-31 21:58:09

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 ghcky 的主题更新

返回列表