--- DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2007/05/15 16:22:18 1.24 +++ DarthVader/TrackerLevel2/src/F77/analysissubroutines.f 2007/05/24 13:29:09 1.25 @@ -667,7 +667,7 @@ elseif(PFAx.eq.'ETA2')then stripx = stripx + pfaeta2(icx,angx) - resxPAM = risx_eta2(abs(angx)) + resxPAM = risxeta2(abs(angx)) resxPAM = resxPAM*fbad_cog(2,icx) if(DEBUG.and.fbad_cog(2,icx).ne.1) $ print*,'BAD icx >>> ',viewx,fbad_cog(2,icx) @@ -675,7 +675,7 @@ elseif(PFAx.eq.'ETA3')then stripx = stripx + pfaeta3(icx,angx) - resxPAM = risx_eta3(abs(angx)) + resxPAM = risxeta3(abs(angx)) resxPAM = resxPAM*fbad_cog(3,icx) if(DEBUG.and.fbad_cog(3,icx).ne.1) $ print*,'BAD icx >>> ',viewx,fbad_cog(3,icx) @@ -683,7 +683,7 @@ elseif(PFAx.eq.'ETA4')then stripx = stripx + pfaeta4(icx,angx) - resxPAM = risx_eta4(abs(angx)) + resxPAM = risxeta4(abs(angx)) resxPAM = resxPAM*fbad_cog(4,icx) if(DEBUG.and.fbad_cog(4,icx).ne.1) $ print*,'BAD icx >>> ',viewx,fbad_cog(4,icx) @@ -786,7 +786,7 @@ elseif(PFAy.eq.'ETA2')then stripy = stripy + pfaeta2(icy,angy) - resyPAM = risy_eta2(abs(angy)) + resyPAM = risyeta2(abs(angy)) resyPAM = resyPAM*fbad_cog(2,icy) if(DEBUG.and.fbad_cog(2,icy).ne.1) $ print*,'BAD icy >>> ',viewy,fbad_cog(2,icy)