/[PAMELA software]/DarthVader/ToFLevel2/src/toftrk.for
ViewVC logotype

Diff of /DarthVader/ToFLevel2/src/toftrk.for

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

revision 1.20 by mocchiut, Wed Feb 17 11:50:54 2010 UTC revision 1.21 by mocchiut, Wed Jul 14 10:00:01 2010 UTC
# Line 645  C-----------------------------S1 ------- Line 645  C-----------------------------S1 -------
645        IF (tof11_i.GT.none_find) THEN        IF (tof11_i.GT.none_find) THEN
646        IF ((tof11(1,tof11_i,itdc).LT.2000).AND.        IF ((tof11(1,tof11_i,itdc).LT.2000).AND.
647       +                             (tof11(2,tof11_i,itdc).LT.2000))       +                             (tof11(2,tof11_i,itdc).LT.2000))
648       +    ytofpre(1)  = ((tof11(1,tof11_i,itdc)-tof11(2,tof11_i,itdc))/2.       +   ytofpre(1)  = ((tof11(1,tof11_i,itdc)-tof11(2,tof11_i,itdc))/2.
649       +   -y_coor_lin11c(tof11_i,offset))/y_coor_lin11c(tof11_i,slope)       +   -y_coor_lin11c(tof11_i,offset))/y_coor_lin11c(tof11_i,slope)
650        endif        endif
651    
652        IF (tof12_i.GT.none_find) THEN        IF (tof12_i.GT.none_find) THEN
653        IF ((tof12(1,tof12_i,itdc).LT.2000).AND.        IF ((tof12(1,tof12_i,itdc).LT.2000).AND.
654       +                             (tof12(2,tof12_i,itdc).LT.2000))       +                             (tof12(2,tof12_i,itdc).LT.2000))
655       +    xtofpre(1)  = ((tof12(1,tof12_i,itdc)-tof12(2,tof12_i,itdc))/2.       +   xtofpre(1)  = ((tof12(1,tof12_i,itdc)-tof12(2,tof12_i,itdc))/2.
656       +   -x_coor_lin12c(tof12_i,offset))/x_coor_lin12c(tof12_i,slope)       +   -x_coor_lin12c(tof12_i,offset))/x_coor_lin12c(tof12_i,slope)
657        endif        endif
658    
# Line 662  C-----------------------------S2 ------- Line 662  C-----------------------------S2 -------
662        IF (tof21_i.GT.none_find) THEN        IF (tof21_i.GT.none_find) THEN
663        IF ((tof21(1,tof21_i,itdc).LT.2000).AND.        IF ((tof21(1,tof21_i,itdc).LT.2000).AND.
664       +                             (tof21(2,tof21_i,itdc).LT.2000))       +                             (tof21(2,tof21_i,itdc).LT.2000))
665       +    xtofpre(2) = ((tof21(1,tof21_i,itdc)-tof21(2,tof21_i,itdc))/2.       +   xtofpre(2) = ((tof21(1,tof21_i,itdc)-tof21(2,tof21_i,itdc))/2.
666       +    -x_coor_lin21c(tof21_i,offset))/x_coor_lin21c(tof21_i,slope)       +    -x_coor_lin21c(tof21_i,offset))/x_coor_lin21c(tof21_i,slope)
667        endif        endif
668    
# Line 679  C-----------------------------S3 ------- Line 679  C-----------------------------S3 -------
679        IF (tof31_i.GT.none_find) THEN        IF (tof31_i.GT.none_find) THEN
680        IF ((tof31(1,tof31_i,itdc).LT.2000).AND.        IF ((tof31(1,tof31_i,itdc).LT.2000).AND.
681       +                             (tof31(2,tof31_i,itdc).LT.2000))       +                             (tof31(2,tof31_i,itdc).LT.2000))
682       +    ytofpre(3)  = ((tof31(1,tof31_i,itdc)-tof31(2,tof31_i,itdc))/2.       +   ytofpre(3)  = ((tof31(1,tof31_i,itdc)-tof31(2,tof31_i,itdc))/2.
683       +    -y_coor_lin31c(tof31_i,offset))/y_coor_lin31c(tof31_i,slope)       +    -y_coor_lin31c(tof31_i,offset))/y_coor_lin31c(tof31_i,slope)
684        endif        endif
685    
686        IF (tof32_i.GT.none_find) THEN        IF (tof32_i.GT.none_find) THEN
687        IF ((tof32(1,tof32_i,itdc).LT.2000).AND.        IF ((tof32(1,tof32_i,itdc).LT.2000).AND.
688       +                             (tof32(2,tof32_i,itdc).LT.2000))       +                             (tof32(2,tof32_i,itdc).LT.2000))
689       +    xtofpre(3)  = ((tof32(1,tof32_i,itdc)-tof32(2,tof32_i,itdc))/2.       +   xtofpre(3)  = ((tof32(1,tof32_i,itdc)-tof32(2,tof32_i,itdc))/2.
690       +    -x_coor_lin32c(tof32_i,offset))/x_coor_lin32c(tof32_i,slope)       +    -x_coor_lin32c(tof32_i,offset))/x_coor_lin32c(tof32_i,slope)
691        endif        endif
692    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.23