楼主
现在由以下的文件，存于txt格式的文件里
54
0.16666667 0.16666667 0
0 0.16666667 0.16666667
0.16666667 0.16666667 0.33333333
0 0.16666667 0.5
0.16666667 0.16666667 0.66666667
0 0.16666667 0.83333333
0.16666667 0.5 0
0 0.5 0.16666667
0.16666667 0.5 0.33333333
0 0.5 0.5
0.16666667 0.5 0.66666667
0 0.5 0.83333333
0.16666667 0.83333333 0
0 0.83333333 0.16666667
0.16666667 0.83333333 0.33333333
0 0.83333333 0.5
0.16666667 0.83333333 0.66666667
0 0.83333333 0.83333333
0.5 0.16666667 0
0.33333333 0.16666667 0.16666667
0.5 0.16666667 0.33333333
0.33333333 0.16666667 0.5
0.5 0.16666667 0.66666667
0.33333333 0.16666667 0.83333333
0.5 0.5 0
0.33333333 0.5 0.16666667
0.5 0.5 0.33333333
0.33333333 0.5 0.5
0.5 0.5 0.66666667
0.33333333 0.5 0.83333333
0.5 0.83333333 0
0.33333333 0.83333333 0.16666667
0.5 0.83333333 0.33333333
0.33333333 0.83333333 0.5
0.5 0.83333333 0.66666667
0.33333333 0.83333333 0.83333333
0.83333333 0.16666667 0
0.66666667 0.16666667 0.16666667
0.83333333 0.16666667 0.33333333
0.66666667 0.16666667 0.5
0.83333333 0.16666667 0.66666667
0.66666667 0.16666667 0.83333333
0.83333333 0.5 0
0.66666667 0.5 0.16666667
0.83333333 0.5 0.33333333
0.66666667 0.5 0.5
0.83333333 0.5 0.66666667
0.66666667 0.5 0.83333333
0.83333333 0.83333333 0
0.66666667 0.83333333 0.16666667
0.83333333 0.83333333 0.33333333
0.66666667 0.83333333 0.5
0.83333333 0.83333333 0.66666667
0.66666667 0.83333333 0.83333333
54
0 0 0
0.16666667 0 0.16666667
0 0 0.33333333
0.16666667 0 0.5
0 0 0.66666667
0.16666667 0 0.83333333
0 0.33333333 0
0.16666667 0.33333333 0.16666667
0 0.33333333 0.33333333
0.16666667 0.33333333 0.5
0 0.33333333 0.66666667
0.16666667 0.33333333 0.83333333
0 0.66666667 0
0.16666667 0.66666667 0.16666667
0 0.66666667 0.33333333
0.16666667 0.66666667 0.5
0 0.66666667 0.66666667
0.16666667 0.66666667 0.83333333
0.33333333 0 0
0.5 0 0.16666667
0.33333333 0 0.33333333
0.5 0 0.5
0.33333333 0 0.66666667
0.5 0 0.83333333
0.33333333 0.33333333 0
0.5 0.33333333 0.16666667
0.33333333 0.33333333 0.33333333
0.5 0.33333333 0.5
0.33333333 0.33333333 0.66666667
0.5 0.33333333 0.83333333
0.33333333 0.66666667 0
0.5 0.66666667 0.16666667
0.33333333 0.66666667 0.33333333
0.5 0.66666667 0.5
0.33333333 0.66666667 0.66666667
0.5 0.66666667 0.83333333
0.66666667 0 0
0.83333333 0 0.16666667
0.66666667 0 0.33333333
0.83333333 0 0.5
0.66666667 0 0.66666667
0.83333333 0 0.83333333
0.66666667 0.33333333 0
0.83333333 0.33333333 0.16666667
0.66666667 0.33333333 0.33333333
0.83333333 0.33333333 0.5
0.66666667 0.33333333 0.66666667
0.83333333 0.33333333 0.83333333
0.66666667 0.66666667 0
0.83333333 0.66666667 0.16666667
0.66666667 0.66666667 0.33333333
0.83333333 0.66666667 0.5
0.66666667 0.66666667 0.66666667
0.83333333 0.66666667 0.83333333
其中有两行只有一个数字，存于count1和count2变量中，剩下的存于一
个3*count1的数组以及3*count2的数组中。
请问用fortran90如何实现啊？
非常感谢！
54
0.16666667 0.16666667 0
0 0.16666667 0.16666667
0.16666667 0.16666667 0.33333333
0 0.16666667 0.5
0.16666667 0.16666667 0.66666667
0 0.16666667 0.83333333
0.16666667 0.5 0
0 0.5 0.16666667
0.16666667 0.5 0.33333333
0 0.5 0.5
0.16666667 0.5 0.66666667
0 0.5 0.83333333
0.16666667 0.83333333 0
0 0.83333333 0.16666667
0.16666667 0.83333333 0.33333333
0 0.83333333 0.5
0.16666667 0.83333333 0.66666667
0 0.83333333 0.83333333
0.5 0.16666667 0
0.33333333 0.16666667 0.16666667
0.5 0.16666667 0.33333333
0.33333333 0.16666667 0.5
0.5 0.16666667 0.66666667
0.33333333 0.16666667 0.83333333
0.5 0.5 0
0.33333333 0.5 0.16666667
0.5 0.5 0.33333333
0.33333333 0.5 0.5
0.5 0.5 0.66666667
0.33333333 0.5 0.83333333
0.5 0.83333333 0
0.33333333 0.83333333 0.16666667
0.5 0.83333333 0.33333333
0.33333333 0.83333333 0.5
0.5 0.83333333 0.66666667
0.33333333 0.83333333 0.83333333
0.83333333 0.16666667 0
0.66666667 0.16666667 0.16666667
0.83333333 0.16666667 0.33333333
0.66666667 0.16666667 0.5
0.83333333 0.16666667 0.66666667
0.66666667 0.16666667 0.83333333
0.83333333 0.5 0
0.66666667 0.5 0.16666667
0.83333333 0.5 0.33333333
0.66666667 0.5 0.5
0.83333333 0.5 0.66666667
0.66666667 0.5 0.83333333
0.83333333 0.83333333 0
0.66666667 0.83333333 0.16666667
0.83333333 0.83333333 0.33333333
0.66666667 0.83333333 0.5
0.83333333 0.83333333 0.66666667
0.66666667 0.83333333 0.83333333
54
0 0 0
0.16666667 0 0.16666667
0 0 0.33333333
0.16666667 0 0.5
0 0 0.66666667
0.16666667 0 0.83333333
0 0.33333333 0
0.16666667 0.33333333 0.16666667
0 0.33333333 0.33333333
0.16666667 0.33333333 0.5
0 0.33333333 0.66666667
0.16666667 0.33333333 0.83333333
0 0.66666667 0
0.16666667 0.66666667 0.16666667
0 0.66666667 0.33333333
0.16666667 0.66666667 0.5
0 0.66666667 0.66666667
0.16666667 0.66666667 0.83333333
0.33333333 0 0
0.5 0 0.16666667
0.33333333 0 0.33333333
0.5 0 0.5
0.33333333 0 0.66666667
0.5 0 0.83333333
0.33333333 0.33333333 0
0.5 0.33333333 0.16666667
0.33333333 0.33333333 0.33333333
0.5 0.33333333 0.5
0.33333333 0.33333333 0.66666667
0.5 0.33333333 0.83333333
0.33333333 0.66666667 0
0.5 0.66666667 0.16666667
0.33333333 0.66666667 0.33333333
0.5 0.66666667 0.5
0.33333333 0.66666667 0.66666667
0.5 0.66666667 0.83333333
0.66666667 0 0
0.83333333 0 0.16666667
0.66666667 0 0.33333333
0.83333333 0 0.5
0.66666667 0 0.66666667
0.83333333 0 0.83333333
0.66666667 0.33333333 0
0.83333333 0.33333333 0.16666667
0.66666667 0.33333333 0.33333333
0.83333333 0.33333333 0.5
0.66666667 0.33333333 0.66666667
0.83333333 0.33333333 0.83333333
0.66666667 0.66666667 0
0.83333333 0.66666667 0.16666667
0.66666667 0.66666667 0.33333333
0.83333333 0.66666667 0.5
0.66666667 0.66666667 0.66666667
0.83333333 0.66666667 0.83333333
其中有两行只有一个数字，存于count1和count2变量中，剩下的存于一
个3*count1的数组以及3*count2的数组中。
请问用fortran90如何实现啊？
非常感谢！
