Fortran Coder
标题:
fortran代码中，输出文件数据重复
[打印本页]
作者:
zhangvup
时间:
2020-5-7 15:14
标题:
fortran代码中，输出文件数据重复
代码：
call expectek(b1, b2, b, helenev, expectk)
do i=1,nnode
call ghmatrix(nelem, nnode, ek)
enddo
do i=1,nnode
expect0(i)= expect0(i)+bcp(i)*expectk
write(13,*) i, expect0(i)
enddo
有关expect0(i)的输出文件
1 (16.7373554191698,63.5228987726871)
2 (16.7373554191700,63.5228987726868)
3 (16.7373554191701,63.5228987726865)
4 (16.7373554191696,63.5228987726868)
5 (-69.1054022723600,187.713203864395)
6 (-69.1054022723600,187.713203864395)
7 (16.7373554191698,63.5228987726866)
8 (-69.1054022723595,187.713203864395)
9 (16.7373554191697,63.5228987726868)
10 (-69.1054022723597,187.713203864395)
11 (16.7373554191696,63.5228987726872)
12 (16.7373554191696,63.5228987726870)
13 (16.7373554191695,63.5228987726871)
14 (16.7373554191698,63.5228987726868)
15 (16.7373554191695,63.5228987726873)
16 (-69.1054022723598,187.713203864395)
17 (16.7373554191697,63.5228987726868)
18 (16.7373554191697,63.5228987726868)
19 (16.7373554191701,63.5228987726865)
20 (16.7373554191697,63.5228987726873)
21 (16.7373554191700,63.5228987726869)
22 (16.7373554191697,63.5228987726874)
23 (16.7373554191700,63.5228987726868)
24 (-69.1054022723596,187.713203864395)
25 (-69.1054022723596,187.713203864395)
26 (16.7373554191701,63.5228987726867)
27 (16.7373554191699,63.5228987726868)
28 (16.7373554191705,63.5228987726864)
29 (16.7373554191695,63.5228987726872)
30 (-69.1054022723602,187.713203864396)
31 (16.7373554191699,63.5228987726868)
32 (16.7373554191698,63.5228987726868)
33 (16.7373554191690,63.5228987726874)
34 (16.7373554191704,63.5228987726863)
35 (16.7373554191695,63.5228987726869)
36 (16.7373554191692,63.5228987726873)
37 (16.7373554191704,63.5228987726861)
39 (16.7373554191692,63.5228987726873)
40 (16.7373554191696,63.5228987726867)
41 (16.7373554191699,63.5228987726867)
42 (16.7373554191703,63.5228987726862)
43 (-69.1054022723594,187.713203864395)
44 (16.7373554191695,63.5228987726870)
45 (-69.1054022723596,187.713203864395)
46 (16.7373554191698,63.5228987726871)
47 (16.7373554191701,63.5228987726870)
48 (16.7373554191708,63.5228987726860)
49 (16.7373554191698,63.5228987726871)
50 (16.7373554191701,63.5228987726870)
51 (16.7373554191702,63.5228987726867)
52 (-69.1054022723594,187.713203864395)
53 (16.7373554191698,63.5228987726869)
54 (16.7373554191689,63.5228987726879)
55 (-69.1054022723600,187.713203864396)
56 (16.7373554191699,63.5228987726870)
57 (16.7373554191701,63.5228987726866)
58 (16.7373554191700,63.5228987726867)
59 (16.7373554191691,63.5228987726875)
60 (16.7373554191696,63.5228987726871)
61 (-69.1054022723600,187.713203864395)
62 (-69.1054022723598,187.713203864395)
63 (-69.1054022723598,187.713203864395)
64 (-69.1054022723599,187.713203864395)
65 (16.7373554191696,63.5228987726867)
66 (16.7373554191684,63.5228987726879)
67 (-69.1054022723597,187.713203864395)
68 (16.7373554191709,63.5228987726856)
69 (16.7373554191697,63.5228987726867)
70 (-69.1054022723601,187.713203864395)
71 (16.7373554191696,63.5228987726871)
72 (16.7373554191682,63.5228987726883)
73 (16.7373554191700,63.5228987726868)
74 (-69.1054022723596,187.713203864395)
75 (16.7373554191701,63.5228987726868)
76 (16.7373554191698,63.5228987726869)
77 (-69.1054022723597,187.713203864395)
78 (16.7373554191699,63.5228987726870)
79 (16.7373554191698,63.5228987726873)
80 (-69.1054022723600,187.713203864395)
81 (16.7373554191710,63.5228987726859)
82 (16.7373554191685,63.5228987726877)
83 (-69.1054022723595,187.713203864395)
84 (-69.1054022723598,187.713203864395)
85 (16.7373554191696,63.5228987726867)
86 (-69.1054022723600,187.713203864395)
87 (16.7373554191698,63.5228987726870)
88 (16.7373554191684,63.5228987726879)
89 (16.7373554191698,63.5228987726868)
90 (-69.1054022723598,187.713203864395)
91 (16.7373554191697,63.5228987726869)
92 (-69.1054022723597,187.713203864395)
93 (16.7373554191700,63.5228987726866)
94 (-69.1054022723596,187.713203864395)
95 (16.7373554191697,63.5228987726870)
96 (16.7373554191710,63.5228987726862)
97 (16.7373554191695,63.5228987726874)
98 (16.7373554191686,63.5228987726881)
99 (16.7373554191701,63.5228987726871)
100 (16.7373554193436,63.5228987725356)
1 (16.7373554191698,63.5228987726871)
2 (16.7373554191700,63.5228987726868)
3 (16.7373554191701,63.5228987726865)
4 (16.7373554191696,63.5228987726868)
5 (-69.1054022723600,187.713203864395)
6 (-69.1054022723600,187.713203864395)
7 (16.7373554191698,63.5228987726866)
8 (-69.1054022723595,187.713203864395)
9 (16.7373554191697,63.5228987726868)
10 (-69.1054022723597,187.713203864395)
11 (16.7373554191696,63.5228987726872)
12 (16.7373554191696,63.5228987726870)
13 (16.7373554191695,63.5228987726871)
14 (16.7373554191698,63.5228987726868)
15 (16.7373554191695,63.5228987726873)
16 (-69.1054022723598,187.713203864395)
17 (16.7373554191697,63.5228987726868)
18 (16.7373554191697,63.5228987726868)
19 (16.7373554191701,63.5228987726865)
20 (16.7373554191697,63.5228987726873)
21 (16.7373554191700,63.5228987726869)
22 (16.7373554191697,63.5228987726874)
23 (16.7373554191700,63.5228987726868)
24 (-69.1054022723596,187.713203864395)
25 (-69.1054022723596,187.713203864395)
26 (16.7373554191701,63.5228987726867)
27 (16.7373554191699,63.5228987726868)
28 (16.7373554191705,63.5228987726864)
29 (16.7373554191695,63.5228987726872)
30 (-69.1054022723602,187.713203864396)
31 (16.7373554191699,63.5228987726868)
32 (16.7373554191698,63.5228987726868)
33 (16.7373554191690,63.5228987726874)
34 (16.7373554191704,63.5228987726863)
35 (16.7373554191695,63.5228987726869)
36 (16.7373554191692,63.5228987726873)
37 (16.7373554191704,63.5228987726861)
38 (16.7373554191698,63.5228987726866)
39 (16.7373554191692,63.5228987726873)
40 (16.7373554191696,63.5228987726867)
41 (16.7373554191699,63.5228987726867)
42 (16.7373554191703,63.5228987726862)
43 (-69.1054022723594,187.713203864395)
44 (16.7373554191695,63.5228987726870)
45 (-69.1054022723596,187.713203864395)
46 (16.7373554191698,63.5228987726871)
47 (16.7373554191701,63.5228987726870)
48 (16.7373554191708,63.5228987726860)
49 (16.7373554191698,63.5228987726871)
50 (16.7373554191701,63.5228987726870)
51 (16.7373554191702,63.5228987726867)
52 (-69.1054022723594,187.713203864395)
53 (16.7373554191698,63.5228987726869)
54 (16.7373554191689,63.5228987726879)
55 (-69.1054022723600,187.713203864396)
56 (16.7373554191699,63.5228987726870)
57 (16.7373554191701,63.5228987726866)
58 (16.7373554191700,63.5228987726867)
59 (16.7373554191691,63.5228987726875)
60 (16.7373554191696,63.5228987726871)
61 (-69.1054022723600,187.713203864395)
62 (-69.1054022723598,187.713203864395)
63 (-69.1054022723598,187.713203864395)
64 (-69.1054022723599,187.713203864395)
65 (16.7373554191696,63.5228987726867)
66 (16.7373554191684,63.5228987726879)
67 (-69.1054022723597,187.713203864395)
68 (16.7373554191709,63.5228987726856)
69 (16.7373554191697,63.5228987726867)
70 (-69.1054022723601,187.713203864395)
71 (16.7373554191696,63.5228987726871)
72 (16.7373554191682,63.5228987726883)
73 (16.7373554191700,63.5228987726868)
74 (-69.1054022723596,187.713203864395)
75 (16.7373554191701,63.5228987726868)
76 (16.7373554191698,63.5228987726869)
77 (-69.1054022723597,187.713203864395)
78 (16.7373554191699,63.5228987726870)
79 (16.7373554191698,63.5228987726873)
80 (-69.1054022723600,187.713203864395)
81 (16.7373554191710,63.5228987726859)
82 (16.7373554191685,63.5228987726877)
83 (-69.1054022723595,187.713203864395)
84 (-69.1054022723598,187.713203864395)
85 (16.7373554191696,63.5228987726867)
86 (-69.1054022723600,187.713203864395)
87 (16.7373554191698,63.5228987726870)
88 (16.7373554191684,63.5228987726879)
89 (16.7373554191698,63.5228987726868)
90 (-69.1054022723598,187.713203864395)
91 (16.7373554191697,63.5228987726869)
92 (-69.1054022723597,187.713203864395)
93 (16.7373554191700,63.5228987726866)
94 (-69.1054022723596,187.713203864395)
95 (16.7373554191697,63.5228987726870)
96 (16.7373554191710,63.5228987726862)
97 (16.7373554191695,63.5228987726874)
98 (16.7373554191686,63.5228987726881)
99 (16.7373554191701,63.5228987726871)
100 (16.7373554193436,63.5228987725356)
输出文件重复两次出现expect0(i)的值，不知道是哪的问题
作者:
necrohan
时间:
2020-5-7 16:08
这种代码不完整的，版主能不能再建一个分类，以后我就不点进来了，很浪费时间的
作者:
zhangvup
时间:
2020-5-7 17:45
刚注册的，里面有些还不是太清楚，代码不完整具体指哪方面，是write（）书写不完整，还是前面的代码不完整，刚开始自己改代码，请多指教
作者:
li913
时间:
2020-5-8 08:44
如果不涉密，打包给出所有代码、需要的输入文件等，让别人能够运行调试。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/)
Powered by Discuz! X3.2