program rdidxty_sp

      real tb(90),idx(90,25), fc(90,25), wc(25)

      character*3  mcod(7)
      data mcod /'m23','m18','m13','m07','m03','p00','p02'/
      
      character cwhat*1,fn11*20, no(76)*20, name(76)*20
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.idxty'
         open (2,file=fn11,form='formatted',status='unknown') 
         read (2,3) (no(k),k=1,76)
         read (2,4) (name(k),k=1,76)

         do i=1,90
           read (2,5) tb(i),(idx(i,k),k=1,25), 
     :                      (fc(i,k),k=1,25),(wc(k),k=1,25)
         enddo  
         close(2)
      enddo
 3    FORMAT(a5, 75a15) 
 4    FORMAT(a10,5x, 25a15 , 25a15,   25a15)      
 5    FORMAT(1f14.1, 25f8.3, 25e10.3, 25f10.3)
      
      stop
      end