/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_hough.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_hough.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pam-fi, Fri Nov 10 11:38:43 2006 UTC revision 1.3 by mocchiut, Thu Jan 16 15:29:40 2014 UTC
# Line 1  Line 1 
1  *     maximum numb. of doublets and troplets  *     maximum numb. of doublets and troplets
2  *     to fill DEBUG nt-uple  *     to fill DEBUG nt-uple
3        parameter (ndblt_max_nt=0.2*ndblt_max) !maximum number of doublets        integer ndblt_max_nt,ntrpt_max_nt ! EM GCC 4.7
4        parameter (ntrpt_max_nt=0.2*ntrpt_max) !maximum number of triplets        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???
5          parameter (ntrpt_max_nt=NINT(0.2*ntrpt_max)) !maximum number of triplets
6        integer ndblt_nt,ntrpt_nt        integer ndblt_nt,ntrpt_nt
7        real        real
8       $     alfayz1_nt(ndblt_max_nt),  !Y0       $     alfayz1_nt(ndblt_max_nt),  !Y0
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23