program rdised_sp_br
      character name*80
      real tb(90),w(27731), fl(27731,90)

      character*3  mcod(7)
      data mcod /'m23','m18','m13','m07','m03','p00','p02'/
      
      character cwhat*1,fn11*80
c     _________________________________________________________
      write(*,*) 'ikind=?, 1: bb; 2:ss'
      read(*,*) ikind

      if(ikind.eq.1) cwhat='b'
      if(ikind.eq.2) cwhat='s'

      do nz=1,7
         fn11 = mcod(nz)//cwhat//cwhat//'_sp-br.ised'     
 
	open (2,file=fn11,form='formatted',status='unknown') 
        read (2,5) nsteps, (tb(i),i=1,nsteps)
        read (2,6) inl,(w(kkk),kkk=1,inl)
        do i=1,nsteps
           read (2,7) (fl(kkk,i),kkk=1,inl)
        enddo  
        close(2)
      enddo

 5    format(i8,90e11.4)
 6    format(i8,27731f10.1)
 7    format(7e11.4)
      
      stop
      end