| 查看: 1079 | 回复: 0 | ||
ghcky新虫 (初入文坛)
|
[求助]
如何把存储好的二维数组输出到文件里面去
|
|
现在需要通过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循环挨行输出到文件里面去 |
回复此楼» 猜你喜欢
关于filecode，很负责任的告诉大家
已经有5人回复
-
关于豆爷回答的JTJC与%2F数量
已经有7人回复
-
2026国自然放榜时间
已经有3人回复
-
国基金的申报应该改成非等额制，评价高的钱多评价低的钱少，但是增加资助率
已经有7人回复
-
好奇怪的filecode
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有5人回复
100