/[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.1 by pam-fi, Fri Oct 27 17:02:57 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
# Line 41  c--------------------------------------- Line 42  c---------------------------------------
42                
43    
44                                                        !commons for DEBUG nt-uple !                                                        !commons for DEBUG nt-uple !
45        common/hough/                                   !   /   /   /   /   /   /  !        common/houghevent/                              !   /   /   /   /   /   /  !
46       $     ndblt_nt                                   !  /   /   /   /   /   /   !       $     ndblt_nt                                   !  /   /   /   /   /   /   !
47       $     ,alfayz1_nt,alfayz2_nt                     ! /   /   /   /   /   /   /!       $     ,alfayz1_nt,alfayz2_nt                     ! /   /   /   /   /   /   /!
48       $     ,db_cloud_nt,                              !/   /   /   /   /   /   / !       $     ,db_cloud_nt,                              !/   /   /   /   /   /   / !
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23