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

mastergxm

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


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

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

caiqingdong

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

青衣巷

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

mastergxm

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

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

mastergxm

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

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

青衣巷

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

just try it~