/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/analysissubroutines.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/analysissubroutines.f

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

revision 1.38 by pam-fi, Tue Dec 23 11:28:36 2008 UTC revision 1.39 by pam-fi, Mon Jan 26 14:01:41 2009 UTC
# Line 4105  c                  call xyz_PAM(0,icl,is Line 4105  c                  call xyz_PAM(0,icl,is
4105                 alfayz2_av_nt(iyz)=alfayz2_av(iyz)                 alfayz2_av_nt(iyz)=alfayz2_av(iyz)
4106                 nnn=nnn+ptcloud_yz(iyz)                 nnn=nnn+ptcloud_yz(iyz)
4107              enddo              enddo
4108              do ipt=1,nnn              do ipt=1,min(ndblt_max_nt,nnn)
4109                 db_cloud_nt(ipt)=db_cloud(ipt)                 db_cloud_nt(ipt)=db_cloud(ipt)
4110               enddo               enddo
4111           endif           endif
# Line 4118  c                  call xyz_PAM(0,icl,is Line 4118  c                  call xyz_PAM(0,icl,is
4118                 alfaxz3_av_nt(ixz)=alfaxz3_av(ixz)                 alfaxz3_av_nt(ixz)=alfaxz3_av(ixz)
4119                 nnn=nnn+ptcloud_xz(ixz)                               nnn=nnn+ptcloud_xz(ixz)              
4120              enddo              enddo
4121              do ipt=1,nnn              do ipt=1,min(ntrpt_max_nt,nnn)
4122                tr_cloud_nt(ipt)=tr_cloud(ipt)                tr_cloud_nt(ipt)=tr_cloud(ipt)
4123               enddo               enddo
4124           endif           endif
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.23