program rdised_sp_hs
      character name*80
      real tb(90),w(13323), fl(13323,90)

      character*3  mcod(4)
      data mcod /'m07','m03','p00','p02'/
      
      character cwhat*1,fn11*80,fn21*80,fn31*36
c     _________________________________________________________
      write(*,*) 'ikind=?, 1: bb; 2:ss'
      read(*,*) ikind

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

      do nz=1,4
         fn11 = mcod(nz)//cwhat//cwhat//'_sp-hs.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,13323f10.1)
 7    format(7e11.4)
      
      stop
      end