mastergxm 发表于 2020-11-15 08:41:51

怎么输出时去掉整型变量前面的空格？

Integer(kind=4), Allocatable :: Elem2Nod(:,:)


Write(21,*)Elem2Nod(temp_i,1),Elem2Nod(temp_i,2),Elem2Nod(temp_i,3)

上面只是关键代码，并未列出全部。
输出的三个整数，每个整数的前面都有很长的空格，但是因为这些整数的变化范围很大，并不能确定有几位数，可否有办法，将它们前面的空格去掉？





caiqingdong 发表于 2020-11-15 09:21:46

先写到一个字符变量中，然后将字符变量中的空格去掉。

青衣巷 发表于 2020-11-15 10:50:35

Write(21,'(*(g0,1x))') Elem2Nod(temp_i,1:3)

mastergxm 发表于 2020-11-16 08:31:29

青衣巷 发表于 2020-11-15 10:50
Write(21,'(*(g0,1x))') Elem2Nod(temp_i,1:3)

采用“g0”，0表示没有宽度？ 可行吗？

mastergxm 发表于 2020-11-16 08:34:52

caiqingdong 发表于 2020-11-15 09:21
先写到一个字符变量中，然后将字符变量中的空格去掉。

   write(filename1,'(I10)')Elem2Nod(temp_i,1)
非常感谢，在网上找到类似上面的关键代码，已经实现目标。谢谢！

青衣巷 发表于 2020-11-16 09:02:32

mastergxm 发表于 2020-11-16 08:31
采用“g0”，0表示没有宽度？ 可行吗？

just try it~
页: [1]
查看完整版本: 怎么输出时去掉整型变量前面的空格？