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

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

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

revision 1.2 by pam-fi, Fri Apr 27 10:39:58 2007 UTC revision 1.3 by mocchiut, Fri Apr 27 12:11:03 2007 UTC
# Line 163  c     NB mettere il 1024 nel commontrack Line 163  c     NB mettere il 1024 nel commontrack
163                
164        if(mod(view,2).eq.0) then !X view        if(mod(view,2).eq.0) then !X view
165    
166          if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...  c        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
167            print*,'functions: WARNING: false X strip: strip ',is  c          print*,'functions: WARNING: false X strip: strip ',is
168          endif  c        endif
169    
170          is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018          is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018
171    
# Line 234  c     NB mettere il 1024 nel commontrack Line 234  c     NB mettere il 1024 nel commontrack
234                
235        if(mod(view,2).eq.0) then !X view        if(mod(view,2).eq.0) then !X view
236    
237          if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...  c        if((is.le.3).or.(is.ge.1022)) then !X has 1018 strips...
238            print*,'functions: WARNING: false X strip: strip ',is  c          print*,'functions: WARNING: false X strip: strip ',is
239          endif  c        endif
240    
241          is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018          is=is-3                 !4 =< is =< 1021 --> 1 =< is =< 1018
242    
# Line 509  c     $              print*,' ======= ', Line 509  c     $              print*,' ======= ',
509              endif              endif
510           endif           endif
511                    
512           if(ncog.ge.5)then  c         if(ncog.ge.5)then
513              print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG  c            print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
514       $           ,' not implemented'  c     $           ,' not implemented'
515           endif  c         endif
516                            
517        elseif(ncog.eq.0)then        elseif(ncog.eq.0)then
518  *     =========================  *     =========================
# Line 554  c$$$         enddo Line 554  c$$$         enddo
554                    
555        else        else
556                    
557           print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG  c         print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
558       $        ,' not implemented'  c     $        ,' not implemented'
559                    
560    
561        endif        endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23