/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/analysisflight.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/analysisflight.f

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

revision 1.2 by pam-fi, Tue May 30 16:30:37 2006 UTC revision 1.3 by pam-fi, Thu Sep 28 14:04:40 2006 UTC
# Line 40  c      parameter (inf=1.e8)      !just a Line 40  c      parameter (inf=1.e8)      !just a
40    
41        if(DEBUG)then        if(DEBUG)then
42           print*,'----------------------------------'           print*,'----------------------------------'
43           print*,'START... ',good1,nclstr1,nclstrmax_level2  c         print*,'START... ',good1,nclstr1,nclstrmax_level2
44        endif        endif
45    
46  *------------------------------------------------------  *------------------------------------------------------
47  *     LEVEL2 N-TUPLE INITIALIZATIONS  *     LEVEL2 N-TUPLE INITIALIZATIONS
48        call init_level2        call init_level2
49  c      if(.not.good1)then  c      if(.not.good1)then
50        if(good1.eq.0)then  c      if(good1.eq.0)then
51           goto 8800              !fill nt-uple and go to next event  c         goto 8800              !fill nt-uple and go to next event
52        endif  c      endif
53  *------------------------------------------------------  *------------------------------------------------------
54                
55  *------------------------------------------------------  *------------------------------------------------------
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23