double precision eps(24,24),sigma0(24),sigii(24),chip(24),alp(24)
      integer ind(4)
      read(*,*) ipot,iexpon
      read (*,'(4f20.10)')((eps(i,j),j=i,20),i=1,20)
      read (*,'(4f20.10)')(sigma0(i),i=1,20),(sigii(i),i=1,20),
     &  (chip(i),i=1,20),(alp(i),i=1,20)
      ind(1)=2
      ind(2)=7
      ind(3)=9
      ind(4)=9
      do k=1,4
        do j=1,k+20
          if (j.gt.ind(k)) then
            eps(j,k+20)=eps(ind(k),j)
          else
            eps(j,k+20)=eps(j,ind(k))
          endif
        enddo
        do j=k+21,24
          eps(k+20,j)=eps(ind(k),j)
        enddo
      enddo
      do i=1,4
        sigma0(i+20)=sigma0(ind(i)) 
        sigii(i+20)=sigii(ind(i)) 
        chip(i+20)=chip(ind(i)) 
        alp(i+20)=alp(ind(i)) 
      enddo
      print *,ipot,iexpon
      do i=1,24
        print '(4f20.10)',(eps(i,j),j=i,24)
      enddo
      print '(4f20.10)',(sigma0(i),i=1,24)
      print '(4f20.10)',(sigii(i),i=1,24)
      print '(4f20.10)',(chip(i),i=1,24)
      print '(4f20.10)',(alp(i),i=1,24)
      end