/[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.4 by pam-fi, Thu May 24 16:45:48 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 358  c$$$                                ! CO Line 358  c$$$                                ! CO
358    
359        dcoord=0.        dcoord=0.
360                
361          if(
362         $     ladder.lt.1.or.
363         $     ladder.gt.nladders_view.or.
364         $     sen.lt.1.or.
365         $     sen.gt.2.or.
366         $     view.lt.1.or.
367         $     view.gt.nviews.or.
368         $     .false.)then
369             print*,'dcoord ---> wrong input: ladder ',ladder
370         $        ,' sensor ',sen
371         $        ,' view ',view
372             return
373          endif
374    
375        sx=ladder        sx=ladder
376        sy=sen        sy=sen
377        sz=npl(view)        sz=npl(view)
378    
379    
380        if(mod(view,2).eq.0) then !X view        if(mod(view,2).eq.0) then !X view
381    
382          trasl=x_mech_sensor(sz,sx,sy) !in mm          trasl=x_mech_sensor(sz,sx,sy) !in mm
# Line 509  c     $              print*,' ======= ', Line 524  c     $              print*,' ======= ',
524              endif              endif
525           endif           endif
526                    
527           if(ncog.ge.5)then  c         if(ncog.ge.5)then
528              print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG  c            print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
529       $           ,' not implemented'  c     $           ,' not implemented'
530           endif  c         endif
531                            
532        elseif(ncog.eq.0)then        elseif(ncog.eq.0)then
533  *     =========================  *     =========================
# Line 554  c$$$         enddo Line 569  c$$$         enddo
569                    
570        else        else
571                    
572           print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG  c         print*,'function CLBAD(NCOG,IC) ==> WARNING!! NCOG=',NCOG
573       $        ,' not implemented'  c     $        ,' not implemented'
574                    
575    
576        endif        endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23