increased to 1000 the limit for printing linkcorrelation matrix

m3g · May 7, 2018 · d19f1e3 · d19f1e3
1 parent 5101c7f
commit d19f1e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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