write(1111,"(3i4,f4.2)")NODE_CORD(I,1),NODE_CORD(I,2),NODE_CORD(I,3),NODE_ALPHA(I)
3i4和f4.2里面的数值根据你的数据而定，如果你的整数为个位数，且要空一格，则写3i2, f后面的数值4代表加上小数点一共显示几位，2代表其中包括的小数位。
WRITE(1111,"(D8.2,1x,D8.2,1x,D8.2,1xD8.2)") NODE_CORD(I,1),NODE_CORD(I,2),NODE_CORD(I,3),NODE_ALPHA(I)
其中，D8.2表示以8个字符宽度来输出指数类型浮点数，小数部分占2个字符宽度。1x表示指针向后移动一个空格。
注意输出的必须是浮点数，如果你前三个数是整型数，你必须先将其转化为浮点数在输出。real(NODE_CORD(l,1))
Print，Write两个函数即可
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024