/[PAMELA software]/chewbacca/PamOffLineSW/forroutines/calorimeter/calunpack.for
ViewVC logotype

Diff of /chewbacca/PamOffLineSW/forroutines/calorimeter/calunpack.for

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

revision 1.2 by mocchiut, Thu Dec 4 13:53:15 2008 UTC revision 1.3 by mocchiut, Thu Dec 4 14:10:13 2008 UTC
# Line 1352  C Line 1352  C
1352        i = inf        i = inf
1353  c  c
1354   10   continue   10   continue
1355        if (i.gt.sup) then        if (i.gt.sup.or.i.gt.120000) then
1356           RETURN           RETURN
1357        endif        endif
1358  C  C
# Line 1392  c Line 1392  c
1392           ipl = int(st/6) + 1           ipl = int(st/6) + 1
1393           ipr = st - (ipl - 1) * 6 + 1           ipr = st - (ipl - 1) * 6 + 1
1394           i = i + 1           i = i + 1
1395           if (i.gt.sup) RETURN           if (i.gt.sup.or.i.gt.120000) RETURN
1396           if ( ipl.ge.1.and.ipl.le.11.and.ipr.ge.1.and.ipr.le.6)           if ( ipl.ge.1.and.ipl.le.11.and.ipr.ge.1.and.ipr.le.6)
1397       +        basse(ipl,ipr) = vect(i)                   +        basse(ipl,ipr) = vect(i)            
1398  c          c        
1399   20      continue   20      continue
1400           if (i.gt.sup) RETURN           if (i.gt.sup.or.i.gt.120000) RETURN
1401  C  C
1402           i = i + 1           i = i + 1
1403           if (i.gt.sup) RETURN           if (i.gt.sup.or.i.gt.120000) RETURN
1404           if ((vect(i)+1).gt.16.or.(vect(i)+1).lt.1) then           if ((vect(i)+1).gt.16.or.(vect(i)+1).lt.1) then
1405              goto 10              goto 10
1406           endif           endif
1407           ist = vect(i) + 1 + 16 * (ipr - 1)           ist = vect(i) + 1 + 16 * (ipr - 1)
1408           i = i + 1           i = i + 1
1409           if (i.gt.sup) RETURN           if (i.gt.sup.or.i.gt.120000) RETURN
1410           if ( ipl.ge.1.and.ipl.le.11.and.ist.ge.1.and.ist.le.96)           if ( ipl.ge.1.and.ipl.le.11.and.ist.ge.1.and.ist.le.96)
1411       +        dedx(ipl,ist) = vect(i)       +        dedx(ipl,ist) = vect(i)
1412           goto 20           goto 20
# Line 1418  C Line 1418  C
1418           if ( ipl.ge.1.and.ipl.le.11 ) then           if ( ipl.ge.1.and.ipl.le.11 ) then
1419              do j = 1,16              do j = 1,16
1420                 i = i + 1                 i = i + 1
1421                 if (i.gt.sup) RETURN                 if (i.gt.sup.or.i.gt.120000) RETURN
1422                 ist = j + 16 * (ipr - 1)                 ist = j + 16 * (ipr - 1)
1423                 if (ist.ge.1.and.ist.le.96) dedx(ipl,ist) = vect(i)                 if (ist.ge.1.and.ist.le.96) dedx(ipl,ist) = vect(i)
1424              enddo              enddo
1425           endif           endif
1426           i = i + 1           i = i + 1
1427           if (i.gt.sup) RETURN           if (i.gt.sup.or.i.gt.120000) RETURN
1428           goto 10           goto 10
1429  C          C        
1430        endif        endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.23