1 double precision eps(24,24),sigma0(24),sigii(24),chip(24),alp(24)
4 read (*,'(4f20.10)')((eps(i,j),j=i,20),i=1,20)
5 read (*,'(4f20.10)')(sigma0(i),i=1,20),(sigii(i),i=1,20),
6 & (chip(i),i=1,20),(alp(i),i=1,20)
14 eps(j,k+20)=eps(ind(k),j)
16 eps(j,k+20)=eps(j,ind(k))
20 eps(k+20,j)=eps(ind(k),j)
24 sigma0(i+20)=sigma0(ind(i))
25 sigii(i+20)=sigii(ind(i))
26 chip(i+20)=chip(ind(i))
31 print '(4f20.10)',(eps(i,j),j=i,24)
33 print '(4f20.10)',(sigma0(i),i=1,24)
34 print '(4f20.10)',(sigii(i),i=1,24)
35 print '(4f20.10)',(chip(i),i=1,24)
36 print '(4f20.10)',(alp(i),i=1,24)