求助数据写入到文本文件的格式问题

frankgty

需要将三列数据（ia，ja，acsr）输出至txt文件，单独输出一个变量时没有问题，三列同时输出的时候，ja是接在ia后面输出，acsr的值跟单独输出的时候也不一样。另，三列长度不同，ia为2401行，ja acsr为13320行。求指导如何正确输出文件。

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program converters

02	implicit none

03

04	! Definition arrays for sparse matrix formats

05	integer,parameter :: m=2400, n=2400, lda=2400, nzmax=13320

06	integer :: ia(m+1), ja(nzmax)

07	real :: adns(m,n) , acsr(nzmax)

08

09	! Declairation of local variables:

10	integer :: job(8), i, j, info, ibase1, ibase2, locat

11

info = 0

12

locat = 2

13	ibase1 = 1

14	ibase2 = 1

15	job(2) = ibase1

16	job(3) = ibase2

17	job(4) = locat

18	job(5) = nzmax

19

20	! Task1: densly matrix to csr

21	open(11,file="Vollmatrix.txt")

22

do i=1,m

23	read(11,*) adns(i,:)

24

end do

25

close(11)

26	job(1) = 0

27	job(6) = 1

28	call mkl_sdnscsr(job, m, n, adns, lda, acsr, ja, ia ,info)

29	open(12,file="csr.txt")

30	write(12,"(2x,'IA ;',2x,'JA ;',5x,'Value ;')")

31	write(12,100) ia,ja,acsr

32	100 format(I6,2x,I6,E13.5)

33

close(12)

34

35	end program converters

vvt

这是逻辑问题。三列长度不一样，不应该放在一起。否则后面你无法区分剩下2个数据是在哪一列？

长度一样的话：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

1	open(12,file="csr.txt")

2	write(12,"(2x,'IA ;',2x,'JA ;',5x,'Value ;')")

3	do i = 1 , nzmax

4	write(12,100) ia(i),ja(i),acsr(i)

5

end do

6	100 format(I6,2x,I6,E13.5)

7

close(12)

frankgty

vvt 发表于 2019-10-30 13:55
这是逻辑问题。三列长度不一样，不应该放在一起。否则后面你无法区分剩下2个数据是在哪一列？

长度一样的 ...

感谢指导