C		             
C		                     
c      IMPLICIT REAL*8 (D)
      Parameter (Np =6)
      COMMON /AA/ Amc(Np),Lab(Np)
      Real Mhalo
      DATA Amc/1.,1.0001,0.999,1.,1.,1.00001/
      Lab  = 1
      nrem = 0
      Do i=1,Np
         Mhalo =Amc(i)
         Do jp =1,Np
             q1   =Mhalo/Amc(jp) 
             if(abs(q1-1.d0).lt.1.d-5.and.i.lt.jp)q1=0.9
             if(abs(q1-1.d0).lt.1.d-5.and.i.gt.jp)q1=1.1
 31           format(f10.4,f9.3,f11.2,2i14,3f10.3,2g11.3,i4,2i5,2i3)
 30             format(2i9,2f10.4,8f9.3)
 35             format('      MM ',2i8,f10.4,g11.3,6f10.3,2g11.3,i4)
             If(q1.lt.1.)Then
                Lab(i)=0     ! kill dublicate
                nrem  = nrem +1 
             EndIf
         EndDo
      EndDo

      write(*,'(20f8.5)') Amc
      write(*,'(20i8)') Lab

      stop
      end