--- DarthVader/TrackerLevel2/inc/F77/common_hough.f	2006/11/10 11:38:43	1.2
+++ DarthVader/TrackerLevel2/inc/F77/common_hough.f	2014/01/16 15:29:40	1.3
@@ -1,7 +1,8 @@
 *     maximum numb. of doublets and troplets 
 *     to fill DEBUG nt-uple
-      parameter (ndblt_max_nt=0.2*ndblt_max) !maximum number of doublets
-      parameter (ntrpt_max_nt=0.2*ntrpt_max) !maximum number of triplets
+      integer ndblt_max_nt,ntrpt_max_nt ! EM GCC 4.7
+      parameter (ndblt_max_nt=NINT(0.2*ndblt_max)) !maximum number of doublets   EM sorry but ndblt_max_nt must be an integer, how can you do 0.2 * another integer???
+      parameter (ntrpt_max_nt=NINT(0.2*ntrpt_max)) !maximum number of triplets
       integer ndblt_nt,ntrpt_nt
       real
      $     alfayz1_nt(ndblt_max_nt),  !Y0