program rdmlr_sp_sdb
      parameter(nmag= 9)
      real tb(90),mlr(90,nmag)

      character*3  mcod(7)
      data mcod /'m23','m18','m13','m07','m03','p00','p02'/
      
      character fn11*80 
c     _________________________________________________________

      do nz=1,7
         fn11 = mcod(nz)//'bb_sp-sdb.mlr'
         open (2,file=fn11,form='formatted',status='unknown') 
         read (2,*)
         do i=1,90
           read (2,59) tb(i), (mlr(i,k),k=1,nmag)
         enddo  
         close(2)
 59      format(e12.5, 9f10.5)     
      enddo
            
      stop
      end