Minor syntax for the Alpha OSF
[u/mrichter/AliRoot.git] / MUON / reco_muon.F
index e7e0a0950a34317fefdeceded63adac56d5e059c..601106eb016dd5a64c5ecb9a7f274b313c3e312a 100644 (file)
                PXZR = SQRT( PXR(ITR)**2+PZR(ITR)**2) 
                PRINT *,' PXZ GEANT= ', PXZV,' PXZ RECONS= ',PXZR
                FIV=ATAN2(PYV(ITR),PZV(ITR))
-               ALAMV=ATAN2(PXV(ITR),PXZV)
+               ALAMV=ATAN2(DBLE(PXV(ITR)),PXZV)
                FIR=ATAN2(PXR(ITR),PZR(ITR))
-               ALAMR=ATAN2(PYR(ITR),PXZR)
+               ALAMR=ATAN2(DBLE(PYR(ITR)),PXZR)
 **               PRINT *,' PHI GEANT= ',FIV,' PXZ RECONS= ',FIR
 **               PRINT *,' ALAM GEANT= ',ALAMV,' ALAM RECONS= ',ALAMR
           ENDDO
 * $Id$
 *
 * $Log$
+* Revision 1.2  1999/08/06 14:12:30  fca
+* Remove several warnings
+*
 * Revision 1.1  1999/07/30 10:53:20  fca
 * New version of MUON from M.Bondila & A.Morsch
 *