From d19f1e3b125bffbc209806db2585745caaa928b7 Mon Sep 17 00:00:00 2001 From: Leandro Martinez Date: Mon, 7 May 2018 17:15:54 -0300 Subject: [PATCH] increased to 1000 the limit for printing linkcorrelation matrix --- src/linkcorrelation.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/linkcorrelation.f90 b/src/linkcorrelation.f90 index f463408..713db4e 100644 --- a/src/linkcorrelation.f90 +++ b/src/linkcorrelation.f90 @@ -267,7 +267,7 @@ program linkcorrelation correlation(i,j) = correlation(i,j) / dble(nmodels) correlation(j,i) = correlation(i,j) end do - write(*,"( 100(tr1,f5.2) )") (correlation(i,j),j=1,nlinks) + write(*,"( 1000(tr1,f5.2) )") (correlation(i,j),j=1,nlinks) end do end program linkcorrelation