convert_matrices.f90
No OneTemporary
Actions

Size

364 B

Subscribers

None

convert_matrices.f90
View Options

	program convert_matrices

	implicit none

	double precision, allocatable :: mat(:,:)
	integer :: dim, i, j

	dim = 17

	allocate(mat(dim,dim))

	open(456, file="cov_mu.txt.3")

	open(458, file="cov_mu_gnu.dat")

	do i=1, dim
	read(456,*) mat(i,:)
	do j=1, dim
	write(458,*) i, j, mat(i,j)
	enddo
	write(458,*)
	enddo

	end program convert_matrices