/[PAMELA software]/gpamela/gpspe/gpucollection.F
ViewVC logotype

Diff of /gpamela/gpspe/gpucollection.F

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

revision 3.2 by bottai, Wed May 20 09:17:59 2009 UTC revision 3.3 by bottai, Wed Dec 23 13:39:13 2009 UTC
# Line 95  CV            IF(j+4.gt.(nstripx-6)) jp4 Line 95  CV            IF(j+4.gt.(nstripx-6)) jp4
95                            
96              stripqxtanti(j)=proxtanti(np,nt,j)              stripqxtanti(j)=proxtanti(np,nt,j)
97              SUMF=0.              SUMF=0.
98              DO KK=1,15    CV            DO KK=1,15  
99                DO KK=1,4
100              KF=KK*2              KF=KK*2
101              IF(KK.EQ.1) FN=F1              IF(KK.EQ.1) FN=F1
102              IF(KK.EQ.2) FN=F2              IF(KK.EQ.2) FN=F2
Legend:
Removed from v.3.2  
changed lines
  Added in v.3.3
  ViewVC Help
Powered by ViewVC 1.1.23