Print Lyapunov exponents

2024-02-19 19:09:26 -05:00 · 2024-02-19 19:09:26 -05:00 · 1c3f4b9f2f
commit 1c3f4b9f2f
parent 15bcb8b467
1 changed files with 6 additions and 0 deletions
--- a/src/lyapunov.c
+++ b/src/lyapunov.c
@ -132,6 +132,12 @@ int lyapunov(
 	lyapunov_avg[i]=lyapunov_avg[i]*prevtime/time+lyapunov[i]*(time-prevtime)/time;
      }

+      // print
+      for(i=0; i<MATSIZE; i++){
+	printf("% .15e % .15e % .15e\n",time, lyapunov[i], lyapunov_avg[i]);
+      }
+      printf("\n");
+
      // set Du_prod to Q:
      LAPACKE_zungrq(LAPACK_COL_MAJOR, MATSIZE, MATSIZE, MATSIZE, Du_prod, MATSIZE, tmp2);