/[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.3 by mocchiut, Fri Apr 27 12:11:03 2007 UTC revision 1.4 by pam-fi, Thu May 24 16:45:48 2007 UTC
# 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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23