diff --git a/scripts/create_gantt.R b/scripts/create_gantt.R
index 29fa15bf7997ecab0606b336dbff2a35973967fd..c3149ad50278dc820fe5f1098f17bcac30a12d4c 100644
--- a/scripts/create_gantt.R
+++ b/scripts/create_gantt.R
@@ -47,7 +47,9 @@ work_analysis<- function( df_parallel, df_task )
   {
   	 df <- df_task %>% filter( (Start>= df_parallel$Start[i]) & (End <= df_parallel$End[i]) );
   	 s <- sum(df$Duration);
+  	 taskcount <- nrow( df);
   	 cat("Region parallel id",i," on ",p," thread(s)\n");
+  	 cat("  taskcount  : ",taskcount, "\n");
   	 cat("  duration   : ",df_parallel$Duration[i], "\n");
   	 cat("  work       : ",s, "\n");
   	 cat("  efficiency : ",s/df_parallel$Duration[i]/p, "\n");