implicit none

*matches the stripe info to the plugmap, mostly to put fiber # on the plugmap data
      integer a,b,j,x,y,stripe,fiber
      real sratest,sdectest,g2,gr,match(100,14),temp(14),bratest,bdectest,vel
      character*100 junk

      open(1,file = 'infoerr.2255', status = 'old')
      open(2,file = 'm13extrabright_plugmap.par', status = 'old')
*     open*2,file = 'm13bright_plugmap.par', status = 'old')
      open(3,file = '2255extrabrightmapout', status = 'unknown')
*     open(3,file = '2255brightmapout', status = 'unknown')

      do a=1,200000
*infoerr read
         read(1,*,end=33) stripe,junk,fiber,junk,junk,junk,junk,
     :        junk,sratest,sdectest,vel,(junk,j=1,16),g2,junk,gr
         do x=1,100
            do y=1,14
               match(x,y) = 1000
            end do
         end do   
         x = 1
         do b=1,200000
            read(2,*,end=31) (junk,j=1,8),bratest,bdectest
            if(sratest.eq.bratest) then
               if(sdectest.eq.bdectest) then
                  print*,'write'
                  write(3,20) stripe,fiber,sratest,sdectest,g2,gr,vel
 20               format(i4,i5,f11.5,f10.6,f8.3,f7.3,f8.1)
                  go to 31
               end if
            end if
         end do
 31      continue
         rewind 2
         print*,a
      end do
 33   continue

      close(1)
      close(2)
      close(3)


      end